DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
294
Copybook/OJRICRDR.cpy
Normal file
294
Copybook/OJRICRDR.cpy
Normal file
@ -0,0 +1,294 @@
|
||||
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
|
||||
Reference in New Issue
Block a user