Code:
- 5770WDS V7R1M0 100416 RN IBM ILE RPG ROB/CRTINDSTMF GDISYS 11/20/12 14:59:42 Page 1
- Command . . . . . . . . . . . . : CRTBNDRPG
- Issued by . . . . . . . . . . : ROB
- Program . . . . . . . . . . . . : CRTINDSTMF
- Library . . . . . . . . . . . : ROB
- Text 'description' . . . . . . . : *SRCMBRTXT
- Source Member . . . . . . . . . : CRTINDSTMF
- Source File . . . . . . . . . . : QPGMSRC
- Library . . . . . . . . . . . : ROB
- CCSID . . . . . . . . . . . . : 37
- Text 'description' . . . . . . . : Create Lotus indirect stream file
- Last Change . . . . . . . . . . : 11/20/12 14:58:44
- Generation severity level . . . : 10
- Default activation group . . . . : *YES
- Compiler options . . . . . . . . : *XREF *GEN *NOSECLVL *SHOWCPY
- *EXPDDS *EXT *NOSHOWSKP *NOSRCSTMT
- *DEBUGIO *UNREF *EVENTF
- Debugging views . . . . . . . . : *SOURCE
- Debug encryption key . . . . . . : *NONE
- Output . . . . . . . . . . . . . : *PRINT
- Optimization level . . . . . . . : *NONE
- Source listing indentation . . . : *NONE
- Type conversion options . . . . : *NONE
- Sort sequence . . . . . . . . . : *HEX
- Language identifier . . . . . . : *JOBRUN
- Replace program . . . . . . . . : *YES
- User profile . . . . . . . . . . : *USER
- Authority . . . . . . . . . . . : *LIBCRTAUT
- Truncate numeric . . . . . . . . : *YES
- Fix numeric . . . . . . . . . . : *NONE
- Target release . . . . . . . . . : *CURRENT
- Allow null values . . . . . . . : *NO
- Define condition names . . . . . : *NONE
- Enable performance collection . : *PEP
- Profiling data . . . . . . . . . : *NOCOL
- Licensed Internal Code options . :
- Generate program interface . . . : *NO
- Include directory . . . . . . . :
- Preprocessor options . . . . . . : *NONE
- 5770WDS V7R1M0 100416 RN IBM ILE RPG ROB/CRTINDSTMF GDISYS 11/20/12 14:59:42 Page 2
- Line <---------------------- Source Specifications ----------------------------><---- Comments ----> Do Page Change Src Seq
- Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line Date Id Number
- S o u r c e L i s t i n g
- 1 // Create an indirect stream file of a list of files to pipe into Domino 121120 000100
- 2 // commands like COMPACT, etc. 121120 000101
- 3 H DFTACTGRP(*NO) BNDDIR('QC2LE') 121120 000102
- 4 121120 000103
- *--------------------------------------------------------------------*
- * Compiler Options in Effect: *
- *--------------------------------------------------------------------*
- * Text 'description' . . . . . . . : *
- * Create Lotus indirect stream file *
- * Generation severity level . . . : 10 *
- * Default activation group . . . . : *NO *
- * Compiler options . . . . . . . . : *XREF *GEN *
- * *NOSECLVL *SHOWCPY *
- * *EXPDDS *EXT *
- * *NOSHOWSKP *NOSRCSTMT *
- * *DEBUGIO *UNREF *
- * *EVENTF *
- * Optimization level . . . . . . . : *NONE *
- * Source listing indentation . . . : *NONE *
- * Type conversion options . . . . : *NONE *
- * Sort sequence . . . . . . . . . : *HEX *
- * Language identifier . . . . . . : *JOBRUN *
- * User profile . . . . . . . . . . : *USER *
- * Authority . . . . . . . . . . . : *LIBCRTAUT *
- * Truncate numeric . . . . . . . . : *YES *
- * Fix numeric . . . . . . . . . . : *NONE *
- * Allow null values . . . . . . . : *NO *
- * Storage model . . . . . . . . . : *SNGLVL *
- * Binding directory from Command . : *NONE *
- * Binding directory from Source . : QC2LE *
- * Library . . . . . . . . . . . : *LIBL *
- * Activation group . . . . . . . . : *STGMDL *
- * Enable performance collection . : *PEP *
- * Profiling data . . . . . . . . . : *NOCOL *
- * Generate program interface . . . : *NO *
- *--------------------------------------------------------------------*
- 5 FQSYSPRT O F 132 PRINTER 121120 000104
- 6 121120 000105
- 7 /copy routines/qrpglesrc,ifsio_h 121120 000106
- *--------------------------------------------------------------------------------------------*
- * RPG member name . . . . . : IFSIO_H * 1
- * External name . . . . . . : ROUTINES/QRPGLESRC(IFSIO_H) * 1
- * Last change . . . . . . . : 03/13/12 11:39:04 * 1
- *--------------------------------------------------------------------------------------------*
- 8+/*- + 000000 1000100
- 9+ * Copyright (c) 2002-2006 Scott C. Klement + 000000 1000200
- 10+ * All rights reserved. + 000000 1000300
- 11+ * + 000000 1000400
- 12+ * Redistribution and use in source and binary forms, with or without + 000000 1000500
- 13+ * modification, are permitted provided that the following conditions + 000000 1000600
- 5770WDS V7R1M0 100416 RN IBM ILE RPG ROB/CRTINDSTMF GDISYS 11/20/12 14:59:42 Page 3
- Line <---------------------- Source Specifications ----------------------------><---- Comments ----> Do Page Change Src Seq
- Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line Date Id Number
- 14+ * are met: + 000000 1000700
- 15+ * 1. Redistributions of source code must retain the above copyright + 000000 1000800
- 16+ * notice, this list of conditions and the following disclaimer. + 000000 1000900
- 17+ * 2. Redistributions in binary form must reproduce the above copyright + 000000 1001000
- 18+ * notice, this list of conditions and the following disclaimer in the + 000000 1001100
- 19+ * documentation and/or other materials provided with the distribution. + 000000 1001200
- 20+ * + 000000 1001300
- 21+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND + 000000 1001400
- 22+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE + 000000 1001500
- 23+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE + 000000 1001600
- 24+ * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE + 000000 1001700
- 25+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL + 000000 1001800
- 26+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS + 000000 1001900
- 27+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) + 000000 1002000
- 28+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT + 000000 1002100
- 29+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY + 000000 1002200
- 30+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF + 000000 1002300
- 31+ * SUCH DAMAGE. + 000000 1002400
- 32+ * + 000000 1002500
- 33+ */ + 000000 1002600
- 34+D/if defined(IFSIO_H) 000000 1002700
- LINES EXCLUDED: 1
- 35+D/endif 000000 1002900
- 36+ 000000 1003000
- 37+D/define IFSIO_H 000000 1003100
- 38+ 000000 1003200
- 39+ ********************************************************************** 000000 1003300
- 40+ * Some CCSID definitions that I've found useful 000000 1003400
- 41+ ********************************************************************** 000000 1003500
- *RNF2318 00 5 000104 Overflow indicator *INOA is assigned to PRINTER file
- QSYSPRT.
- 42+D CP_MSDOS C 437 000000 1003600
- 43+D CP_ISO8859_1 C 819 000000 1003700
- 44+D CP_WINDOWS C 1252 000000 1003800
- 45+D CP_UTF8 C 1208 000000 1003900
- 46+D CP_UCS2 C 1200 000000 1004000
- 47+D CP_CURJOB C 0 000000 1004100
- 48+ 000000 1004200
- 49+ ********************************************************************** 000000 1004300
- 50+ * Flags for use in open() 000000 1004400
- 51+ * 000000 1004500
- 52+ * More than one can be used -- add them together. 000000 1004600
- 53+ ********************************************************************** 000000 1004700
- 54+ * 00000000000000000000000000000001 Reading Only 000000 1004800
- 55+D O_RDONLY C 1 000000 1004900
- 56+ * 00000000000000000000000000000010 Writing Only 000000 1005000
- 57+D O_WRONLY C 2 000000 1005100
- 58+ * 00000000000000000000000000000100 Reading & Writing 000000 1005200
- 59+D O_RDWR C 4 000000 1005300
- 60+ * 00000000000000000000000000001000 Create File if needed 000000 1005400
- 61+D O_CREAT C 8 000000 1005500
- 62+ * 00000000000000000000000000010000 Exclusively create -- 000000 1005600
- 63+ * open will fail if it 000000 1005700
- 64+ * already exists. 000000 1005800
- 5770WDS V7R1M0 100416 RN IBM ILE RPG ROB/CRTINDSTMF GDISYS 11/20/12 14:59:42 Page 4
- Line <---------------------- Source Specifications ----------------------------><---- Comments ----> Do Page Change Src Seq
- Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line Date Id Number
- 65+D O_EXCL C 16 000000 1005900
- 66+ * 00000000000000000000000000100000 Assign a CCSID to new 000000 1006000
- 67+ * file. 000000 1006100
- 68+D O_CCSID C 32 000000 1006200
- 69+ * 00000000000000000000000001000000 Truncate file to 0 bytes 000000 1006300
- 70+D O_TRUNC C 64 000000 1006400
- 71+ * 00000000000000000000000100000000 Append to file 000000 1006500
- 72+ * (write data at end only) 000000 1006600
- 73+D O_APPEND C 256 000000 1006700
- 74+ * 00000000000000000000010000000000 Synchronous write 000000 1006800
- 75+D O_SYNC C 1024 000000 1006900
- 76+ * 00000000000000000000100000000000 Sync write, data only 000000 1007000
- 77+D O_DSYNC C 2048 000000 1007100
- 78+ * 00000000000000000001000000000000 Sync read 000000 1007200
- 79+D O_RSYNC C 4096 000000 1007300
- 80+ * 00000000000000001000000000000000 No controlling terminal 000000 1007400
- 81+D O_NOCTTY C 32768 000000 1007500
- 82+ * 00000000000000010000000000000000 Share with readers only 000000 1007600
- 83+D O_SHARE_RDONLY C 65536 000000 1007700
- 84+ * 00000000000000100000000000000000 Share with writers only 000000 1007800
- 85+D O_SHARE_WRONLY C 131072 000000 1007900
- 86+ * 00000000000001000000000000000000 Share with read & write 000000 1008000
- 87+D O_SHARE_RDWR C 262144 000000 1008100
- 88+ * 00000000000010000000000000000000 Share with nobody. 000000 1008200
- 89+D O_SHARE_NONE C 524288 000000 1008300
- 90+ * 00000000100000000000000000000000 Assign a code page 000000 1008400
- 91+D O_CODEPAGE C 8388608 000000 1008500
- 92+ * 00000001000000000000000000000000 Open in text-mode 000000 1008600
- 93+D O_TEXTDATA C 16777216 000000 1008700
- 94+ /if defined(*V5R2M0) 000000 1008800
- 95+ * 00000010000000000000000000000000 Allow text translation 000000 1008900
- 96+ * on newly created file. 000000 1009000
- 97+ * Note: O_TEXT_CREAT requires all of the following flags to work: 000000 1009100
- 98+ * O_CREAT+O_TEXTDATA+(O_CODEPAGE or O_CCSID) 000000 1009200
- 99+D O_TEXT_CREAT C 33554432 000000 1009300
- 100+ /endif 000000 1009400
- 101+ * 00001000000000000000000000000000 Inherit mode from dir 000000 1009500
- 102+D O_INHERITMODE C 134217728 000000 1009600
- 103+ * 00100000000000000000000000000000 Large file access 000000 1009700
- 104+ * (for >2GB files) 000000 1009800
- 105+D O_LARGEFILE C 536870912 000000 1009900
- 106+ 000000 1010000
- 107+ ********************************************************************** 000000 1010100
- 108+ * Access mode flags for access() and accessx() 000000 1010200
- 109+ * 000000 1010300
- 110+ * F_OK = File Exists 000000 1010400
- 111+ * R_OK = Read Access 000000 1010500
- 112+ * W_OK = Write Access 000000 1010600
- 113+ * X_OK = Execute or Search 000000 1010700
- 114+ ********************************************************************** 000000 1010800
- 115+D F_OK C 0 000000 1010900
- 116+D R_OK C 4 000000 1011000
- 117+D W_OK C 2 000000 1011100
- 118+D X_OK C 1 000000 1011200
- 119+ 000000 1011300
- 120+ ********************************************************************** 000000 1011400
- 5770WDS V7R1M0 100416 RN IBM ILE RPG ROB/CRTINDSTMF GDISYS 11/20/12 14:59:42 Page 5
- Line <---------------------- Source Specifications ----------------------------><---- Comments ----> Do Page Change Src Seq
- Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line Date Id Number
- 121+ * class of users flags for accessx() 000000 1011500
- 122+ * 000000 1011600
- 123+ * ACC_SELF = Check access based on effective uid/gid 000000 1011700
- 124+ * ACC_INVOKER = Check access based on real uid/gid 000000 1011800
- 125+ * ( this is equvalent to calling access() ) 000000 1011900
- 126+ * ACC_OTHERS = Check access of someone not the owner 000000 1012000
- 127+ * ACC_ALL = Check access of all users 000000 1012100
- 128+ ********************************************************************** 000000 1012200
- 129+D ACC_SELF C 0 000000 1012300
- 130+D ACC_INVOKER C 1 000000 1012400
- 131+D ACC_OTHERS C 8 000000 1012500
- 132+D ACC_ALL C 32 000000 1012600
- 133+ 000000 1012700
- 134+ ********************************************************************** 000000 1012800
- 135+ * Mode Flags. 000000 1012900
- 136+ * basically, the mode parm of open(), creat(), chmod(),etc 000000 1013000
- 137+ * uses 9 least significant bits to determine the 000000 1013100
- 138+ * file's mode. (peoples access rights to the file) 000000 1013200
- 139+ * 000000 1013300
- 140+ * user: owner group other 000000 1013400
- 141+ * access: R W X R W X R W X 000000 1013500
- 142+ * bit: 8 7 6 5 4 3 2 1 0 000000 1013600
- 143+ * 000000 1013700
- 144+ * (This is accomplished by adding the flags below to get the mode) 000000 1013800
- 145+ ********************************************************************** 000000 1013900
- 146+ * owner authority 000000 1014000
- 147+D S_IRUSR C 256 000000 1014100
- 148+D S_IWUSR C 128 000000 1014200
- 149+D S_IXUSR C 64 000000 1014300
- 150+D S_IRWXU C 448 000000 1014400
- 151+ * group authority 000000 1014500
- 152+D S_IRGRP C 32 000000 1014600
- 153+D S_IWGRP C 16 000000 1014700
- 154+D S_IXGRP C 8 000000 1014800
- 155+D S_IRWXG C 56 000000 1014900
- 156+ * other people 000000 1015000
- 157+D S_IROTH C 4 000000 1015100
- 158+D S_IWOTH C 2 000000 1015200
- 159+D S_IXOTH C 1 000000 1015300
- 160+D S_IRWXO C 7 000000 1015400
- 161+ * special modes: 000000 1015500
- 162+ * restrict rename/unlink 000000 1015600
- 163+D S_ISVTX C 512 000000 1015700
- 164+ * Set effective GID 000000 1015800
- 165+D S_ISGID C 1024 000000 1015900
- 166+ * Set effective UID 000000 1016000
- 167+D S_ISUID C 2048 000000 1016100
- 168+ 000000 1016200
- 169+ ********************************************************************** 000000 1016300
- 170+ * My own special MODE shortcuts for open() (instead of those above) 000000 1016400
- 171+ ********************************************************************** 000000 1016500
- 172+D M_RDONLY C const(292) 000000 1016600
- 173+D M_RDWR C const(438) 000000 1016700
- 174+D M_RWX C const(511) 000000 1016800
- 175+ 000000 1016900
- 176+ ********************************************************************** 000000 1017000
- 5770WDS V7R1M0 100416 RN IBM ILE RPG ROB/CRTINDSTMF GDISYS 11/20/12 14:59:42 Page 6
- Line <---------------------- Source Specifications ----------------------------><---- Comments ----> Do Page Change Src Seq
- Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line Date Id Number
- 177+ * "whence" constants for use with seek(), lseek() and others 000000 1017100
- 178+ ********************************************************************** 000000 1017200
- 179+ /if not defined(SEEK_WHENCE_VALUES) 000000 1017300
- 180+D SEEK_SET C CONST(0) 000000 1017400
- 181+D SEEK_CUR C CONST(1) 000000 1017500
- 182+D SEEK_END C CONST(2) 000000 1017600
- 183+ /define SEEK_WHENCE_VALUES 000000 1017700
- 184+ /endif 000000 1017800
- 185+ 000000 1017900
- 186+ ********************************************************************** 000000 1018000
- 187+ * flags specified in the f_flags element of the ds_statvfs 000000 1018100
- 188+ * data structure used by the statvfs() API 000000 1018200
- 189+ ********************************************************************** 000000 1018300
- 190+D ST_RDONLY... 000000 1018400
- 191+D C CONST(1) 000000 1018500
- 192+D ST_NOSUID... 000000 1018600
- 193+D C CONST(2) 000000 1018700
- 194+D ST_CASE_SENSITITIVE... 000000 1018800
- 195+D C CONST(4) 000000 1018900
- 196+D ST_CHOWN_RESTRICTED... 000000 1019000
- 197+D C CONST(8) 000000 1019100
- 198+D ST_THREAD_SAFE... 000000 1019200
- 199+D C CONST(16) 000000 1019300
- 200+D ST_DYNAMIC_MOUNT... 000000 1019400
- 201+D C CONST(32) 000000 1019500
- 202+D ST_NO_MOUNT_OVER... 000000 1019600
- 203+D C CONST(64) 000000 1019700
- 204+D ST_NO_EXPORTS... 000000 1019800
- 205+D C CONST(128) 000000 1019900
- 206+D ST_SYNCHRONOUS... 000000 1020000
- 207+D C CONST(256) 000000 1020100
- 208+ 000000 1020200
- 209+ ********************************************************************** 000000 1020300
- 210+ * Constants used by pathconf() API 000000 1020400
- 211+ ********************************************************************** 000000 1020500
- 212+D PC_CHOWN_RESTRICTED... 000000 1020600
- 213+D C 0 000000 1020700
- 214+D PC_LINK_MAX... 000000 1020800
- 215+D C 1 000000 1020900
- 216+D PC_MAX_CANON... 000000 1021000
- 217+D C 2 000000 1021100
- 218+D PC_MAX_INPUT... 000000 1021200
- 219+D C 3 000000 1021300
- 220+D PC_NAME_MAX... 000000 1021400
- 221+D C 4 000000 1021500
- 222+D PC_NO_TRUNC... 000000 1021600
- 223+D C 5 000000 1021700
- 224+D PC_PATH_MAX... 000000 1021800
- 225+D C 6 000000 1021900
- 226+D PC_PIPE_BUF... 000000 1022000
- 227+D C 7 000000 1022100
- 228+D PC_VDISABLE... 000000 1022200
- 229+D C 8 000000 1022300
- 230+D PC_THREAD_SAFE... 000000 1022400
- 231+D C 9 000000 1022500
- 232+ 000000 1022600
- 5770WDS V7R1M0 100416 RN IBM ILE RPG ROB/CRTINDSTMF GDISYS 11/20/12 14:59:42 Page 7
- Line <---------------------- Source Specifications ----------------------------><---- Comments ----> Do Page Change Src Seq
- Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line Date Id Number
- 233+ ********************************************************************** 000000 1022700
- 234+ * Constants used by sysconf() API 000000 1022800
- 235+ ********************************************************************** 000000 1022900
- 236+D SC_CLK_TCK... 000000 1023000
- 237+D C 2 000000 1023100
- 238+D SC_NGROUPS_MAX... 000000 1023200
- 239+D C 3 000000 1023300
- 240+D SC_OPEN_MAX... 000000 1023400
- 241+D C 4 000000 1023500
- 242+D SC_STREAM_MAX... 000000 1023600
- 243+D C 5 000000 1023700
- 244+D SC_CCSID... 000000 1023800
- 245+D C 10 000000 1023900
- 246+D SC_PAGE_SIZE... 000000 1024000
- 247+D C 11 000000 1024100
- 248+D SC_PAGESIZE... 000000 1024200
- 249+D C 12 000000 1024300
- 250+ 000000 1024400
- 251+ ********************************************************************** 000000 1024500
- 252+ * File Information Structure (stat) 000000 1024600
- 253+ * struct stat { 000000 1024700
- 254+ * mode_t st_mode; /* File mode */ 000000 1024800
- 255+ * ino_t st_ino; /* File serial number */ 000000 1024900
- 256+ * nlink_t st_nlink; /* Number of links */ 000000 1025000
- 257+ * unsigned short st_reserved2; /* Reserved @B4A*/ 000000 1025100
- 258+ * uid_t st_uid; /* User ID of the owner of file */ 000000 1025200
- 259+ * gid_t st_gid; /* Group ID of the group of file */ 000000 1025300
- 260+ * off_t st_size; /* For regular files, the file 000000 1025400
- 261+ * size in bytes */ 000000 1025500
- 262+ * time_t st_atime; /* Time of last access */ 000000 1025600
- 263+ * time_t st_mtime; /* Time of last data modification */ 000000 1025700
- 264+ * time_t st_ctime; /* Time of last file status change */ 000000 1025800
- 265+ * dev_t st_dev; /* ID of device containing file */ 000000 1025900
- 266+ * size_t st_blksize; /* Size of a block of the file */ 000000 1026000
- 267+ * unsigned long st_allocsize; /* Allocation size of the file */ 000000 1026100
- 268+ * qp0l_objtype_t st_objtype; /* AS/400 object type */ 000000 1026200
- 269+ * char st_reserved3; /* Reserved @B4A*/ 000000 1026300
- 270+ * unsigned short st_codepage; /* Object data codepage */ 000000 1026400
- 271+ * unsigned short st_ccsid; /* Object data ccsid @AAA*/ 000000 1026500
- 272+ * dev_t st_rdev; /* Device ID (if character special */ 000000 1026600
- 273+ * /* or block special file) @B4A*/ 000000 1026700
- 274+ * nlink32_t st_nlink32; /* Number of links-32 bit @B5C*/ 000000 1026800
- 275+ * dev64_t st_rdev64; /* Device ID - 64 bit form @B4A*/ 000000 1026900
- 276+ * dev64_t st_dev64; /* ID of device containing file - */ 000000 1027000
- 277+ * /* 64 bit form. @B4A*/ 000000 1027100
- 278+ * char st_reserved1[36]; /* Reserved @B4A*/ 000000 1027200
- 279+ * unsigned int st_ino_gen_id; /* File serial number generation id 000000 1027300
- 280+ * }; 000000 1027400
- 281+ * @A2A*/ 000000 1027500
- 282+ ********************************************************************** 000000 1027600
- 283+D statds DS qualified 000000 1027700
- 284+D BASED(Template) 000000 1027800
- 285+D st_mode 10U 0 000000 1027900
- 286+D st_ino 10U 0 000000 1028000
- 287+D st_nlink 5U 0 000000 1028100
- 288+D st_reserved2 5U 0 000000 1028200
- 5770WDS V7R1M0 100416 RN IBM ILE RPG ROB/CRTINDSTMF GDISYS 11/20/12 14:59:42 Page 8
- Line <---------------------- Source Specifications ----------------------------><---- Comments ----> Do Page Change Src Seq
- Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line Date Id Number
- 289+D st_uid 10U 0 000000 1028300
- 290+D st_gid 10U 0 000000 1028400
- 291+D st_size 10I 0 000000 1028500
- 292+D st_atime 10I 0 000000 1028600
- 293+D st_mtime 10I 0 000000 1028700
- 294+D st_ctime 10I 0 000000 1028800
- 295+D st_dev 10U 0 000000 1028900
- 296+D st_blksize 10U 0 000000 1029000
- 297+D st_allocsize 10U 0 000000 1029100
- 298+D st_objtype 11A 000000 1029200
- 299+D st_reserved3 1A 000000 1029300
- 300+D st_codepage 5U 0 000000 1029400
- 301+D st_ccsid 5U 0 000000 1029500
- 302+D st_rdev 10U 0 000000 1029600
- 303+D st_nlink32 10U 0 000000 1029700
- 304+D st_rdev64 20U 0 000000 1029800
- 305+D st_dev64 20U 0 000000 1029900
- 306+D st_reserved1 36A 000000 1030000
- 307+D st_ino_gen_id 10U 0 000000 1030100
- 308+ 000000 1030200
- 309+ 000000 1030300
- 310+ ********************************************************************** 000000 1030400
- 311+ * File Information Structure, Large File Enabled (stat64) 000000 1030500
- 312+ * struct stat64 { */ 000000 1030600
- 313+ * mode_t st_mode; /* File mode */ 000000 1030700
- 314+ * ino_t st_ino; /* File serial number */ 000000 1030800
- 315+ * uid_t st_uid; /* User ID of the owner of file */ 000000 1030900
- 316+ * gid_t st_gid; /* Group ID of the group of fileA2A*/ 000000 1031000
- 317+ * off64_t st_size; /* For regular files, the file */ 000000 1031100
- 318+ * size in bytes */ 000000 1031200
- 319+ * time_t st_atime; /* Time of last access */ 000000 1031300
- 320+ * time_t st_mtime; /* Time of last data modification2A*/ 000000 1031400
- 321+ * time_t st_ctime; /* Time of last file status changeA*/ 000000 1031500
- 322+ * dev_t st_dev; /* ID of device containing file */ 000000 1031600
- 323+ * size_t st_blksize; /* Size of a block of the file */ 000000 1031700
- 324+ * nlink_t st_nlink; /* Number of links */ 000000 1031800
- 325+ * unsigned short st_codepage; /* Object data codepage */ 000000 1031900
- 326+ * unsigned long long st_allocsize; /* Allocation size of the file2A*/ 000000 1032000
- 327+ * unsigned int st_ino_gen_id; /* File serial number generationAid*/ 000000 1032100
- 328+ * */ 000000 1032200
- 329+ * qp0l_objtype_t st_objtype; /* AS/400 object type */ 000000 1032300
- 330+ * char st_reserved2[5]; /* Reserved @B4A*/ 000000 1032400
- 331+ * dev_t st_rdev; /* Device ID (if character specialA*/ 000000 1032500
- 332+ * /* or block special file) @B4A*/ 000000 1032600
- 333+ * dev64_t st_rdev64; /* Device ID - 64 bit form @B4A*/ 000000 1032700
- 334+ * dev64_t st_dev64; /* ID of device containing file@-2A*/ 000000 1032800
- 335+ * /* 64 bit form. @B4A*/ 000000 1032900
- 336+ * nlink32_t st_nlink32; /* Number of links-32 bit @B5A*/ 000000 1033000
- 337+ * char st_reserved1[26]; /* Reserved @B4A @B5C*/ 000000 1033100
- 338+ * unsigned short st_ccsid; /* Object data ccsid @AAA*/ 000000 1033200
- 339+ * }; */ 000000 1033300
- 340+ * 000000 1033400
- 341+ ********************************************************************** 000000 1033500
- 342+D statds64 DS qualified 000000 1033600
- 343+D BASED(Template) 000000 1033700
- 344+D st_mode 10U 0 000000 1033800
- 5770WDS V7R1M0 100416 RN IBM ILE RPG ROB/CRTINDSTMF GDISYS 11/20/12 14:59:42 Page 9
- Line <---------------------- Source Specifications ----------------------------><---- Comments ----> Do Page Change Src Seq
- Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line Date Id Number
- 345+D st_ino 10U 0 000000 1033900
- 346+D st_uid 10U 0 000000 1034000
- 347+D st_gid 10U 0 000000 1034100
- 348+D st_size 20I 0 000000 1034200
- 349+D st_atime 10I 0 000000 1034300
- 350+D st_mtime 10I 0 000000 1034400
- 351+D st_ctime 10I 0 000000 1034500
- 352+D st_dev 10U 0 000000 1034600
- 353+D st_blksize 10U 0 000000 1034700
- 354+D st_nlink 5U 0 000000 1034800
- 355+D st_codepage 5U 0 000000 1034900
- 356+D st_allocsize 20U 0 000000 1035000
- 357+D st_ino_gen_id 10U 0 000000 1035100
- 358+D st_objtype 11A 000000 1035200
- 359+D st_reserved2 5A 000000 1035300
- 360+D st_rdev 10U 0 000000 1035400
- 361+D st_rdev64 20U 0 000000 1035500
- 362+D st_dev64 20U 0 000000 1035600
- 363+D st_nlink32 10U 0 000000 1035700
- 364+D st_reserved1 26A 000000 1035800
- 365+D st_ccsid 5U 0 000000 1035900
- 366+ 000000 1036000
- 367+ ********************************************************************** 000000 1036100
- 368+ * ds_statvfs - data structure to receive file system info 000000 1036200
- 369+ * 000000 1036300
- 370+ * f_bsize = file system block size (in bytes) 000000 1036400
- 371+ * f_frsize = fundamental block size in bytes. 000000 1036500
- 372+ * if this is zero, f_blocks, f_bfree and f_bavail 000000 1036600
- 373+ * are undefined. 000000 1036700
- 374+ * f_blocks = total number of blocks (in f_frsize) 000000 1036800
- 375+ * f_bfree = total free blocks in filesystem (in f_frsize) 000000 1036900
- 376+ * f_bavail = total blocks available to users (in f_frsize) 000000 1037000
- 377+ * f_files = total number of file serial numbers 000000 1037100
- 378+ * f_ffree = total number of unused file serial numbers 000000 1037200
- 379+ * f_favail = number of available file serial numbers to users 000000 1037300
- 380+ * f_fsid = filesystem ID. This will be 4294967295 if it's 000000 1037400
- 381+ * too large for a 10U 0 field. (see f_fsid64) 000000 1037500
- 382+ * f_flag = file system flags (see below) 000000 1037600
- 383+ * f_namemax = max filename length. May be 4294967295 to 000000 1037700
- 384+ * indicate that there is no maximum. 000000 1037800
- 385+ * f_pathmax = max pathname legnth. May be 4294967295 to 000000 1037900
- 386+ * indicate that there is no maximum. 000000 1038000
- 387+ * f_objlinkmax = maximum number of hard-links for objects 000000 1038100
- 388+ * other than directories 000000 1038200
- 389+ * f_dirlinkmax = maximum number of hard-links for directories 000000 1038300
- 390+ * f_fsid64 = filesystem id (in a 64-bit integer) 000000 1038400
- 391+ * f_basetype = null-terminated string containing the file 000000 1038500
- 392+ * system type name. For example, this might 000000 1038600
- 393+ * be "root" or "Network File System (NFS)" 000000 1038700
- 394+ * 000000 1038800
- 395+ * Since f_basetype is null-terminated, you should read it 000000 1038900
- 396+ * in ILE RPG with: 000000 1039000
- 397+ * myString = %str(%addr(ds_statvfs.f_basetype)) 000000 1039100
- 398+ ********************************************************************** 000000 1039200
- 399+D ds_statvfs DS qualified 000000 1039300
- 400+D BASED(Template) 000000 1039400
- 5770WDS V7R1M0 100416 RN IBM ILE RPG ROB/CRTINDSTMF GDISYS 11/20/12 14:59:42 Page 10
- Line <---------------------- Source Specifications ----------------------------><---- Comments ----> Do Page Change Src Seq
- Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line Date Id Number
- 401+D f_bsize 10U 0 000000 1039500
- 402+D f_frsize 10U 0 000000 1039600
- 403+D f_blocks 20U 0 000000 1039700
- 404+D f_bfree 20U 0 000000 1039800
- 405+D f_bavail 20U 0 000000 1039900
- 406+D f_files 10U 0 000000 1040000
- 407+D f_ffree 10U 0 000000 1040100
- 408+D f_favail 10U 0 000000 1040200
- 409+D f_fsid 10U 0 000000 1040300
- 410+D f_flag 10U 0 000000 1040400
- 411+D f_namemax 10U 0 000000 1040500
- 412+D f_pathmax 10U 0 000000 1040600
- 413+D f_objlinkmax 10I 0 000000 1040700
- 414+D f_dirlinkmax 10I 0 000000 1040800
- 415+D f_reserved1 4A 000000 1040900
- 416+D f_fsid64 20U 0 000000 1041000
- 417+D f_basetype 80A 000000 1041100
- 418+ 000000 1041200
- 419+ 000000 1041300
- 420+ ********************************************************************** 000000 1041400
- 421+ * Group Information Structure (group) 000000 1041500
- 422+ * 000000 1041600
- 423+ * struct group { 000000 1041700
- 424+ * char *gr_name; /* Group name. */ 000000 1041800
- 425+ * gid_t gr_gid; /* Group id. */ 000000 1041900
- 426+ * char **gr_mem; /* A null-terminated list of pointers 000000 1042000
- 427+ * to the individual member names. */ 000000 1042100
- 428+ * }; 000000 1042200
- 429+ * 000000 1042
|
|