295 lines
23 KiB
COBOL
295 lines
23 KiB
COBOL
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
|