00001 01 IKJEFT01-WRK-FIELDS. 08/20/02 00002 05 WRK-MAX-JCL-CARDS PIC 9(03) COMP-3 OJRICRDR 00003 VALUE 34. LV005 00004 05 WRK-QUEUE-NAME PIC X(04) OJRICRDR 00005 VALUE 'DORQ'. OJRICRDR 00006 05 WRK-QUEUE-LEN PIC S9(04) COMP OJRICRDR 00007 VALUE 80. OJRICRDR 00008 05 WRK-JOBNAME-DEVL PIC X(08) OJRICRDR 00009 VALUE 'ECNTDVLR'. OJRICRDR 00010 05 WRK-JOBNAME-PROD PIC X(08) OJRICRDR 00011 VALUE 'DTSPROJR'. OJRICRDR 00012 OJRICRDR 00013 01 IKJEFT01-TABLE. OJRICRDR 00014 05 IKJEFT01-CARD. OJRICRDR 00015 *ENTRY 1 OJRICRDR 00016 10 RDR-JOBCARD-1. OJRICRDR 00017 15 FILLER PIC X(02) VALUE OJRICRDR 00018 '//'. OJRICRDR 00019 15 RDR-JOBCARD-NAME PIC X(08). OJRICRDR 00020 15 FILLER PIC X(34) VALUE OJRICRDR 00021 ' JOB (UI,4300,3400,T),INT.RDR.RPT,'. OJRICRDR 00022 15 FILLER PIC X(36) VALUE OJRICRDR 00023 SPACES. OJRICRDR 00024 *ENTRY 2 OJRICRDR 00025 10 RDR-JOBCARD-2. OJRICRDR 00026 15 FILLER PIC X(02) VALUE OJRICRDR 00027 '//'. OJRICRDR 00028 15 FILLER PIC X(43) VALUE OJRICRDR 00029 ' CLASS=A,MSGCLASS=X,REGION=0M,USER='. OJRICRDR 00030 15 RDR-JOBCARD-USER PIC X(07) VALUE OJRICRDR 00031 'ECNTDVL'. OJRICRDR 00032 15 FILLER PIC X(28) VALUE OJRICRDR 00033 SPACES. OJRICRDR 00034 * '1234567890123456789012345678901234567890123'. OJRICRDR 00035 *ENTRY 3 OJRICRDR 00036 10 RDR-STEPCARD-1. OJRICRDR 00037 15 FILLER PIC X(02) VALUE OJRICRDR 00038 '//'. OJRICRDR 00039 15 FILLER PIC X(38) VALUE OJRICRDR 00040 'ISPF EXEC PGM=IKJEFT01,DYNAMNBR=99'. OJRICRDR 00041 15 FILLER PIC X(40) VALUE OJRICRDR 00042 SPACES. OJRICRDR 00043 *ENTRY 4 OJRICRDR 00044 10 RDR-ISPELIB-1. OJRICRDR 00045 15 FILLER PIC X(02) VALUE OJRICRDR 00046 '//'. OJRICRDR 00047 15 FILLER PIC X(21) VALUE OJRICRDR 00048 'SYSEXEC DD DISP=SHR,'. OJRICRDR 00049 15 FILLER PIC X(57) VALUE OJRICRDR 00050 SPACES. OJRICRDR 00051 *ENTRY 5 OJRICRDR 00052 10 RDR-ISPELIB-2. OJRICRDR 00053 15 FILLER PIC X(02) VALUE OJRICRDR 00054 '//'. OJRICRDR 00055 15 FILLER PIC X(37) VALUE OJRICRDR 00056 ' DSN=DOESTAX.OJR#REPT.ISPELIB'. OJRICRDR 00057 15 FILLER PIC X(41) VALUE OJRICRDR 00058 SPACES. OJRICRDR 00059 *ENTRY 6 OJRICRDR 00060 10 RDR-ISPCLIB-1. OJRICRDR 00061 15 FILLER PIC X(02) VALUE OJRICRDR 00062 '//'. OJRICRDR 00063 15 FILLER PIC X(21) VALUE OJRICRDR 00064 'SYSPROC DD DISP=SHR,'. OJRICRDR 00065 15 FILLER PIC X(57) VALUE OJRICRDR 00066 SPACES. OJRICRDR 00067 *ENTRY 7 OJRICRDR 00068 10 RDR-ISPCLIB-2. OJRICRDR 00069 15 FILLER PIC X(02) VALUE OJRICRDR 00070 '//'. OJRICRDR 00071 15 FILLER PIC X(37) VALUE OJRICRDR 00072 ' DSN=SYS2.SPFCLIB '. OJRICRDR 00073 15 FILLER PIC X(41) VALUE OJRICRDR 00074 SPACES. OJRICRDR 00075 *ENTRY 8 OJRICRDR 00076 10 RDR-ISPPLIB-1. OJRICRDR 00077 15 FILLER PIC X(02) VALUE OJRICRDR 00078 '//'. OJRICRDR 00079 15 FILLER PIC X(21) VALUE OJRICRDR 00080 'ISPPLIB DD DISP=SHR,'. OJRICRDR 00081 15 FILLER PIC X(57) VALUE OJRICRDR 00082 SPACES. OJRICRDR 00083 *ENTRY 9 OJRICRDR 00084 10 RDR-ISPPLIB-2. OJRICRDR 00085 15 FILLER PIC X(02) VALUE OJRICRDR 00086 '//'. OJRICRDR 00087 15 FILLER PIC X(37) VALUE OJRICRDR 00088 ' DSN=SYS2.SPFPLIB '. OJRICRDR 00089 15 FILLER PIC X(41) VALUE OJRICRDR 00090 SPACES. OJRICRDR 00091 *ENTRY 10 OJRICRDR 00092 10 RDR-ISPSLIB-1. OJRICRDR 00093 15 FILLER PIC X(02) VALUE OJRICRDR 00094 '//'. OJRICRDR 00095 15 FILLER PIC X(21) VALUE OJRICRDR 00096 'ISPSLIB DD DISP=SHR,'. OJRICRDR 00097 15 FILLER PIC X(57) VALUE OJRICRDR 00098 SPACES. OJRICRDR 00099 *ENTRY 11 OJRICRDR 00100 10 RDR-ISPSLIB-2. OJRICRDR 00101 15 FILLER PIC X(02) VALUE OJRICRDR 00102 '//'. OJRICRDR 00103 15 FILLER PIC X(37) VALUE OJRICRDR 00104 ' DSN=SYS2.SPFSLIB '. OJRICRDR 00105 15 FILLER PIC X(41) VALUE OJRICRDR 00106 SPACES. OJRICRDR 00107 *ENTRY 12 OJRICRDR 00108 10 RDR-ISPMLIB-1. OJRICRDR 00109 15 FILLER PIC X(02) VALUE OJRICRDR 00110 '//'. OJRICRDR 00111 15 FILLER PIC X(21) VALUE OJRICRDR 00112 'ISPMLIB DD DISP=SHR,'. OJRICRDR 00113 15 FILLER PIC X(57) VALUE OJRICRDR 00114 SPACES. OJRICRDR 00115 *ENTRY 13 OJRICRDR 00116 10 RDR-ISPMLIB-2. OJRICRDR 00117 15 FILLER PIC X(02) VALUE OJRICRDR 00118 '//'. OJRICRDR 00119 15 FILLER PIC X(37) VALUE OJRICRDR 00120 ' DSN=SYS2.SPFMLIB '. OJRICRDR 00121 15 FILLER PIC X(41) VALUE OJRICRDR 00122 SPACES. OJRICRDR 00123 *ENTRY 14 OJRICRDR 00124 10 RDR-ISPMLIB-3. OJRICRDR 00125 15 FILLER PIC X(02) VALUE OJRICRDR 00126 '//'. OJRICRDR 00127 15 FILLER PIC X(21) VALUE OJRICRDR 00128 ' DD DISP=SHR,'. OJRICRDR 00129 15 FILLER PIC X(57) VALUE OJRICRDR 00130 SPACES. OJRICRDR 00131 *ENTRY 15 OJRICRDR 00132 10 RDR-ISPMLIB-4. OJRICRDR 00133 15 FILLER PIC X(02) VALUE OJRICRDR 00134 '//'. OJRICRDR 00135 15 FILLER PIC X(37) VALUE OJRICRDR 00136 ' DSN=SYS1.SISPMENU '. OJRICRDR 00137 15 FILLER PIC X(41) VALUE OJRICRDR 00138 SPACES. OJRICRDR 00139 *ENTRY 16 OJRICRDR 00140 10 RDR-ISPMLIB-5. OJRICRDR 00141 15 FILLER PIC X(02) VALUE OJRICRDR 00142 '//'. OJRICRDR 00143 15 FILLER PIC X(21) VALUE OJRICRDR 00144 ' DD DISP=SHR,'. OJRICRDR 00145 15 FILLER PIC X(57) VALUE OJRICRDR 00146 SPACES. OJRICRDR 00147 *ENTRY 17 OJRICRDR 00148 10 RDR-ISPMLIB-6. OJRICRDR 00149 15 FILLER PIC X(02) VALUE OJRICRDR 00150 '//'. OJRICRDR 00151 15 FILLER PIC X(37) VALUE OJRICRDR 00152 ' DSN=SYS1.SBPXMENU '. OJRICRDR 00153 15 FILLER PIC X(41) VALUE OJRICRDR 00154 SPACES. OJRICRDR 00155 *ENTRY 18 OJRICRDR 00156 10 RDR-ISPTLIB-1. OJRICRDR 00157 15 FILLER PIC X(02) VALUE OJRICRDR 00158 '//'. OJRICRDR 00159 15 FILLER PIC X(21) VALUE OJRICRDR 00160 'ISPTLIB DD DISP=SHR,'. OJRICRDR 00161 15 FILLER PIC X(57) VALUE OJRICRDR 00162 SPACES. OJRICRDR 00163 *ENTRY 19 OJRICRDR 00164 10 RDR-ISPTLIB-2. OJRICRDR 00165 15 FILLER PIC X(02) VALUE OJRICRDR 00166 '//'. OJRICRDR 00167 15 FILLER PIC X(37) VALUE OJRICRDR 00168 ' DSN=SYS2.SPFTLIB '. OJRICRDR 00169 15 FILLER PIC X(41) VALUE OJRICRDR 00170 SPACES. OJRICRDR 00171 *ENTRY 20 OJRICRDR 00172 10 RDR-ISPTLIB-3. OJRICRDR 00173 15 FILLER PIC X(02) VALUE OJRICRDR 00174 '//'. OJRICRDR 00175 15 FILLER PIC X(21) VALUE OJRICRDR 00176 ' DD DISP=SHR,'. OJRICRDR 00177 15 FILLER PIC X(57) VALUE OJRICRDR 00178 SPACES. OJRICRDR 00179 *ENTRY 21 OJRICRDR 00180 10 RDR-ISPTLIB-4. OJRICRDR 00181 15 FILLER PIC X(02) VALUE OJRICRDR 00182 '//'. OJRICRDR 00183 15 FILLER PIC X(37) VALUE OJRICRDR 00184 ' DSN=SYS1.SISPTENU '. OJRICRDR 00185 15 FILLER PIC X(41) VALUE OJRICRDR 00186 SPACES. OJRICRDR 00187 *ENTRY 22 OJRICRDR 00188 10 RDR-ISPTLIB-5. OJRICRDR 00189 15 FILLER PIC X(02) VALUE OJRICRDR 00190 '//'. OJRICRDR 00191 15 FILLER PIC X(21) VALUE OJRICRDR 00192 ' DD DISP=SHR,'. OJRICRDR 00193 15 FILLER PIC X(57) VALUE OJRICRDR 00194 SPACES. OJRICRDR 00195 *ENTRY 23 OJRICRDR 00196 10 RDR-ISPTLIB-6. OJRICRDR 00197 15 FILLER PIC X(02) VALUE OJRICRDR 00198 '//'. OJRICRDR 00199 15 FILLER PIC X(37) VALUE OJRICRDR 00200 ' DSN=SYS1.SBPXTENU '. OJRICRDR 00201 15 FILLER PIC X(41) VALUE OJRICRDR 00202 SPACES. OJRICRDR 00203 *ENTRY 24 OJRICRDR 00204 10 RDR-ISPPROF-1. OJRICRDR 00205 15 FILLER PIC X(02) VALUE OJRICRDR 00206 '//'. OJRICRDR 00207 15 FILLER PIC X(41) VALUE OJRICRDR 00208 'ISPPROF DD DISP=(NEW,DELETE),UNIT=SYSDA,'. OJRICRDR 00209 15 FILLER PIC X(37) VALUE OJRICRDR 00210 SPACES. OJRICRDR 00211 *ENTRY 25 OJRICRDR 00212 10 RDR-ISPPROF-2. OJRICRDR 00213 15 FILLER PIC X(02) VALUE OJRICRDR 00214 '//'. OJRICRDR 00215 15 FILLER PIC X(46) VALUE OJRICRDR 00216 ' DSN=&&PROFILE,SPACE=(3200,(30,20,1)),'.OJRICRDR 00217 15 FILLER PIC X(32) VALUE OJRICRDR 00218 SPACES. OJRICRDR 00219 *ENTRY 26 OJRICRDR 00220 10 RDR-ISPPROF-3. OJRICRDR 00221 15 FILLER PIC X(02) VALUE OJRICRDR 00222 '//'. OJRICRDR 00223 15 FILLER PIC X(45) VALUE OJRICRDR 00224 ' DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)'. OJRICRDR 00225 15 FILLER PIC X(33) VALUE OJRICRDR 00226 SPACES. OJRICRDR 00227 *ENTRY 27 OJRICRDR 00228 10 RDR-ISPLOG-1. OJRICRDR 00229 15 FILLER PIC X(02) VALUE OJRICRDR 00230 '//'. OJRICRDR 00231 15 FILLER PIC X(21) VALUE OJRICRDR 00232 'ISPLOG DD SYSOUT=*,'. OJRICRDR 00233 15 FILLER PIC X(57) VALUE OJRICRDR 00234 SPACES. OJRICRDR 00235 *ENTRY 28 OJRICRDR 00236 10 RDR-ISPLOG-2. OJRICRDR 00237 15 FILLER PIC X(02) VALUE OJRICRDR 00238 '//'. OJRICRDR 00239 15 FILLER PIC X(45) VALUE OJRICRDR 00240 ' DCB=(RECFM=VA,LRECL=125,BLKSIZE=129)'. OJRICRDR 00241 15 FILLER PIC X(33) VALUE OJRICRDR 00242 SPACES. OJRICRDR 00243 *ENTRY 29 OJRICRDR 00244 10 RDR-SYSTSPRT-1. OJRICRDR 00245 15 FILLER PIC X(02) VALUE OJRICRDR 00246 '//'. OJRICRDR 00247 15 FILLER PIC X(21) VALUE OJRICRDR 00248 'SYSTSPRT DD SYSOUT=*,'. OJRICRDR 00249 15 FILLER PIC X(57) VALUE OJRICRDR 00250 SPACES. OJRICRDR 00251 *ENTRY 30 OJRICRDR 00252 10 RDR-SYSTSPRT-2. OJRICRDR 00253 15 FILLER PIC X(02) VALUE OJRICRDR 00254 '//'. OJRICRDR 00255 15 FILLER PIC X(44) VALUE OJRICRDR 00256 ' DCB=(RECFM=F,LRECL=255,BLKSIZE=255)'. OJRICRDR 00257 15 FILLER PIC X(34) VALUE OJRICRDR 00258 SPACES. OJRICRDR 00259 *ENTRY 31 OJRICRDR 00260 10 RDR-SYSPRINT-1. OJRICRDR 00261 15 FILLER PIC X(02) VALUE OJRICRDR 00262 '//'. OJRICRDR 00263 15 FILLER PIC X(20) VALUE OJRICRDR 00264 'SYSPRINT DD SYSOUT=*'. OJRICRDR 00265 * 'SYSPRINT DD SYSOUT=*,'. OJRICRDR 00266 15 FILLER PIC X(58) VALUE OJRICRDR 00267 SPACES. OJRICRDR 00268 *ENTRY 32 OJRICRDR 00269 10 RDR-SYSTSIN-1. OJRICRDR 00270 15 FILLER PIC X(02) VALUE OJRICRDR 00271 '//'. OJRICRDR 00272 15 FILLER PIC X(13) VALUE OJRICRDR 00273 'SYSTSIN DD *'. OJRICRDR 00274 15 FILLER PIC X(65) VALUE OJRICRDR 00275 SPACES. OJRICRDR 00276 *ENTRY 33 OJRICRDR 00277 10 RDR-SYSTSIN-2. OJRICRDR 00278 15 FILLER PIC X(02) VALUE OJRICRDR 00279 ' '. OJRICRDR 00280 15 FILLER PIC X(22) VALUE OJRICRDR 00281 'ISPSTART CMD(OJR#REPT '. OJRICRDR 00282 15 RDR-SYSTSIN-PARM PIC X(56). OJRICRDR 00283 *ENTRY 34 OJRICRDR 00284 10 RDR-EOF-1. OJRICRDR 00285 15 FILLER PIC X(02) VALUE OJRICRDR 00286 '/*'. OJRICRDR 00287 15 FILLER PIC X(03) VALUE OJRICRDR 00288 'EOF'. OJRICRDR 00289 15 FILLER PIC X(75) VALUE OJRICRDR 00290 SPACES. OJRICRDR 00291 ***** END OF IKJEFT01 TABLE OJRICRDR 00292 01 IKJEFT01-ELEMENT REDEFINES IKJEFT01-TABLE. OJRICRDR 00293 05 IKJEFT01-RDR-CARD PIC X(80) OJRICRDR 00294 OCCURS 34 TIMES. OJRICRDR