5055 lines
400 KiB
COBOL
5055 lines
400 KiB
COBOL
00001 ***** 08/02/02
|
|
00002 * OJRIC089
|
|
00003 * OJRIC089 REFERENCE FILE 'ONLINE JOB REQUEST' LV001
|
|
00004 * OJRIC089
|
|
00005 * NOTE!!! INTERNAL READER PROGRAMS ONLY!!!!! OJRIC089
|
|
00006 * OJRIC089
|
|
00007 **************************************************************** OJRIC089
|
|
00008 * !!!!!!!!! NOTE !!!!! * OJRIC089
|
|
00009 * * OJRIC089
|
|
00010 * TO REMOVE A PROGRAM FROM THE SCREEN (8A) LISTINGS * OJRIC089
|
|
00011 * PERFORM THE FOLLOWING STEPS: * OJRIC089
|
|
00012 * * OJRIC089
|
|
00013 **************************************************************** OJRIC089
|
|
00014 * OJRIC089
|
|
00015 * 1. MAKE A BACKUP COPY OF OJRIC089 OJRIC089
|
|
00016 * NAME THE BACKUP COPY WITH THE NEXT AVALIABLE OJRIC089
|
|
00017 * LETTER.(EX. OJRC089A,B,C ETC) OJRIC089
|
|
00018 * OJRIC089
|
|
00019 * 2. DELETE PROGRAM ENTRIES FROM THIS COPYBOOK. OJRIC089
|
|
00020 * OJRIC089
|
|
00021 * 3. REDUCE THE OCCURS CLAUSE AT THE END OF THIS OJRIC089
|
|
00022 * COPYBOOK BY THE NUMBER OF PROGRAMS REMOVED OJRIC089
|
|
00023 * OJRIC089
|
|
00024 * 4. REDUCE THE OCCURS CLAUSE IN PROGRAM DTSCS8A. OJRIC089
|
|
00025 * ====> WRK-MAX-RPTS <====== OJRIC089
|
|
00026 * OJRIC089
|
|
00027 * 5. RECOMPILE PROGRAMS DTSCS8A DTSCS8B OJRIC089
|
|
00028 * OJRIC089
|
|
00029 ***** OJRIC089
|
|
00030 OJRIC089
|
|
00031 01 FOJR-REPORT-TABLE. OJRIC089
|
|
00032 ******************* R E P O R T # 1 ****************************OJRIC089
|
|
00033 * ENTRY 1 OJRIC089
|
|
00034 05 FOJR-TABLE-ENTRY. OJRIC089
|
|
00035 * REPT TYPE OJRIC089
|
|
00036 10 FILLER PIC S9(04) COMP OJRIC089
|
|
00037 VALUE +01. OJRIC089
|
|
00038 * JOB NAME OJRIC089
|
|
00039 10 FILLER PIC X(08) OJRIC089
|
|
00040 VALUE 'DTSBR123'. OJRIC089
|
|
00041 * FILLER - END OF KEY OJRIC089
|
|
00042 10 FILLER PIC X(06) OJRIC089
|
|
00043 VALUE SPACES. OJRIC089
|
|
00044 * BUSINESS AREA OJRIC089
|
|
00045 10 FILLER PIC X(02) OJRIC089
|
|
00046 VALUE '01'. OJRIC089
|
|
00047 * JOB DESCRIPTION OJRIC089
|
|
00048 10 FILLER PIC X(34) OJRIC089
|
|
00049 VALUE 'EMPLOYERS W/ CYCLE A STATUS CODES '. OJRIC089
|
|
00050 * JOB TYPE OJRIC089
|
|
00051 10 FILLER PIC X(01) OJRIC089
|
|
00052 VALUE '1'. OJRIC089
|
|
00053 * LAST RUN DATE OJRIC089
|
|
00054 10 FILLER PIC S9(09) COMP-3 OJRIC089
|
|
00055 VALUE ZEROS. OJRIC089
|
|
00056 * PARM AREA START --------------------------------------------- OJRIC089
|
|
00057 * PARM AREA #1 OJRIC089
|
|
00058 10 PARM-DATA-ENTRY. OJRIC089
|
|
00059 * PARM DESCRIPTION OJRIC089
|
|
00060 15 FILLER PIC X(32) OJRIC089
|
|
00061 VALUE '05 CUTOFF DATE '. OJRIC089
|
|
00062 * PARM TYPE OJRIC089
|
|
00063 15 FILLER PIC X(02) OJRIC089
|
|
00064 VALUE '00'. OJRIC089
|
|
00065 * PARM VALUE OJRIC089
|
|
00066 15 FILLER PIC X(32). OJRIC089
|
|
00067 * PARM LENGTH OJRIC089
|
|
00068 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00069 VALUE +6. OJRIC089
|
|
00070 * PARM AREA #2 OJRIC089
|
|
00071 10 PARM-DATA-ENTRY. OJRIC089
|
|
00072 * PARM DESCRIPTION OJRIC089
|
|
00073 15 FILLER PIC X(32) OJRIC089
|
|
00074 VALUE '06 CUTOFF DATE '. OJRIC089
|
|
00075 * PARM TYPE OJRIC089
|
|
00076 15 FILLER PIC X(02) OJRIC089
|
|
00077 VALUE '00'. OJRIC089
|
|
00078 * PARM VALUE OJRIC089
|
|
00079 15 FILLER PIC X(32). OJRIC089
|
|
00080 * PARM LENGTH OJRIC089
|
|
00081 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00082 VALUE +6. OJRIC089
|
|
00083 * PARM AREA #3 OJRIC089
|
|
00084 10 PARM-DATA-ENTRY. OJRIC089
|
|
00085 * PARM DESCRIPTION OJRIC089
|
|
00086 15 FILLER PIC X(32) OJRIC089
|
|
00087 VALUE '09 CUTOFF DATE '. OJRIC089
|
|
00088 * PARM TYPE OJRIC089
|
|
00089 15 FILLER PIC X(02) OJRIC089
|
|
00090 VALUE '00'. OJRIC089
|
|
00091 * PARM VALUE OJRIC089
|
|
00092 15 FILLER PIC X(32). OJRIC089
|
|
00093 * PARM LENGTH OJRIC089
|
|
00094 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00095 VALUE +6. OJRIC089
|
|
00096 * PARM AREA #4 OJRIC089
|
|
00097 10 PARM-DATA-ENTRY. OJRIC089
|
|
00098 * PARM DESCRIPTION OJRIC089
|
|
00099 15 FILLER PIC X(32) OJRIC089
|
|
00100 VALUE '11 CUTOFF DATE '. OJRIC089
|
|
00101 * PARM TYPE OJRIC089
|
|
00102 15 FILLER PIC X(02) OJRIC089
|
|
00103 VALUE '00'. OJRIC089
|
|
00104 * PARM VALUE OJRIC089
|
|
00105 15 FILLER PIC X(32). OJRIC089
|
|
00106 * PARM LENGTH OJRIC089
|
|
00107 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00108 VALUE +6. OJRIC089
|
|
00109 OJRIC089
|
|
00110 * PARM AREA #5 OJRIC089
|
|
00111 10 PARM-DATA-ENTRY. OJRIC089
|
|
00112 * PARM DESCRIPTION OJRIC089
|
|
00113 15 FILLER PIC X(32) OJRIC089
|
|
00114 VALUE ' '. OJRIC089
|
|
00115 * PARM TYPE OJRIC089
|
|
00116 15 FILLER PIC X(02) OJRIC089
|
|
00117 VALUE '99'. OJRIC089
|
|
00118 * PARM VALUE OJRIC089
|
|
00119 15 FILLER PIC X(32). OJRIC089
|
|
00120 * PARM LENGTH OJRIC089
|
|
00121 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00122 VALUE ZEROS. OJRIC089
|
|
00123 OJRIC089
|
|
00124 * PARM AREA #6 OJRIC089
|
|
00125 10 PARM-DATA-ENTRY. OJRIC089
|
|
00126 * PARM DESCRIPTION OJRIC089
|
|
00127 15 FILLER PIC X(32) OJRIC089
|
|
00128 VALUE ' '. OJRIC089
|
|
00129 * PARM TYPE OJRIC089
|
|
00130 15 FILLER PIC X(02) OJRIC089
|
|
00131 VALUE '99'. OJRIC089
|
|
00132 * PARM VALUE OJRIC089
|
|
00133 15 FILLER PIC X(32). OJRIC089
|
|
00134 * PARM LENGTH OJRIC089
|
|
00135 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00136 VALUE ZEROS. OJRIC089
|
|
00137 OJRIC089
|
|
00138 * PARM AREA #7 OJRIC089
|
|
00139 10 PARM-DATA-ENTRY. OJRIC089
|
|
00140 * PARM DESCRIPTION OJRIC089
|
|
00141 15 FILLER PIC X(32) OJRIC089
|
|
00142 VALUE ' '. OJRIC089
|
|
00143 * PARM TYPE OJRIC089
|
|
00144 15 FILLER PIC X(02) OJRIC089
|
|
00145 VALUE '99'. OJRIC089
|
|
00146 * PARM VALUE OJRIC089
|
|
00147 15 FILLER PIC X(32). OJRIC089
|
|
00148 * PARM LENGTH OJRIC089
|
|
00149 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00150 VALUE ZEROS. OJRIC089
|
|
00151 OJRIC089
|
|
00152 * PARM AREA #8 OJRIC089
|
|
00153 10 PARM-DATA-ENTRY. OJRIC089
|
|
00154 * PARM DESCRIPTION OJRIC089
|
|
00155 15 FILLER PIC X(32) OJRIC089
|
|
00156 VALUE ' '. OJRIC089
|
|
00157 * PARM TYPE OJRIC089
|
|
00158 15 FILLER PIC X(02) OJRIC089
|
|
00159 VALUE '99'. OJRIC089
|
|
00160 * PARM VALUE OJRIC089
|
|
00161 15 FILLER PIC X(32). OJRIC089
|
|
00162 * PARM LENGTH OJRIC089
|
|
00163 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00164 VALUE ZEROS. OJRIC089
|
|
00165 OJRIC089
|
|
00166 * PARM AREA #9 OJRIC089
|
|
00167 10 PARM-DATA-ENTRY. OJRIC089
|
|
00168 * PARM DESCRIPTION OJRIC089
|
|
00169 15 FILLER PIC X(32) OJRIC089
|
|
00170 VALUE ' '. OJRIC089
|
|
00171 * PARM TYPE OJRIC089
|
|
00172 15 FILLER PIC X(02) OJRIC089
|
|
00173 VALUE '99'. OJRIC089
|
|
00174 * PARM VALUE OJRIC089
|
|
00175 15 FILLER PIC X(32). OJRIC089
|
|
00176 * PARM LENGTH OJRIC089
|
|
00177 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00178 VALUE ZEROS. OJRIC089
|
|
00179 OJRIC089
|
|
00180 * PARM AREA #10 OJRIC089
|
|
00181 10 PARM-DATA-ENTRY. OJRIC089
|
|
00182 * PARM DESCRIPTION OJRIC089
|
|
00183 15 FILLER PIC X(32) OJRIC089
|
|
00184 VALUE ' '. OJRIC089
|
|
00185 * PARM TYPE OJRIC089
|
|
00186 15 FILLER PIC X(02) OJRIC089
|
|
00187 VALUE '99'. OJRIC089
|
|
00188 * PARM VALUE OJRIC089
|
|
00189 15 FILLER PIC X(32). OJRIC089
|
|
00190 * PARM LENGTH OJRIC089
|
|
00191 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00192 VALUE ZEROS. OJRIC089
|
|
00193 OJRIC089
|
|
00194 * PARM AREA #11 OJRIC089
|
|
00195 10 PARM-DATA-ENTRY. OJRIC089
|
|
00196 * PARM DESCRIPTION OJRIC089
|
|
00197 15 FILLER PIC X(32) OJRIC089
|
|
00198 VALUE ' '. OJRIC089
|
|
00199 * PARM TYPE OJRIC089
|
|
00200 15 FILLER PIC X(02) OJRIC089
|
|
00201 VALUE '99'. OJRIC089
|
|
00202 * PARM VALUE OJRIC089
|
|
00203 15 FILLER PIC X(32). OJRIC089
|
|
00204 * PARM LENGTH OJRIC089
|
|
00205 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00206 VALUE ZEROS. OJRIC089
|
|
00207 OJRIC089
|
|
00208 * PARM AREA #12 OJRIC089
|
|
00209 10 PARM-DATA-ENTRY. OJRIC089
|
|
00210 * PARM DESCRIPTION OJRIC089
|
|
00211 15 FILLER PIC X(32) OJRIC089
|
|
00212 VALUE ' '. OJRIC089
|
|
00213 * PARM TYPE OJRIC089
|
|
00214 15 FILLER PIC X(02) OJRIC089
|
|
00215 VALUE '99'. OJRIC089
|
|
00216 * PARM VALUE OJRIC089
|
|
00217 15 FILLER PIC X(32). OJRIC089
|
|
00218 * PARM LENGTH OJRIC089
|
|
00219 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00220 VALUE ZEROS. OJRIC089
|
|
00221 OJRIC089
|
|
00222 * PARM AREA #13 OJRIC089
|
|
00223 10 PARM-DATA-ENTRY. OJRIC089
|
|
00224 * PARM DESCRIPTION OJRIC089
|
|
00225 15 FILLER PIC X(32) OJRIC089
|
|
00226 VALUE ' '. OJRIC089
|
|
00227 * PARM TYPE OJRIC089
|
|
00228 15 FILLER PIC X(02) OJRIC089
|
|
00229 VALUE '99'. OJRIC089
|
|
00230 * PARM VALUE OJRIC089
|
|
00231 15 FILLER PIC X(32). OJRIC089
|
|
00232 * PARM LENGTH OJRIC089
|
|
00233 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00234 VALUE ZEROS. OJRIC089
|
|
00235 OJRIC089
|
|
00236 * PARM AREA #14 OJRIC089
|
|
00237 10 PARM-DATA-ENTRY. OJRIC089
|
|
00238 * PARM DESCRIPTION OJRIC089
|
|
00239 15 FILLER PIC X(32) OJRIC089
|
|
00240 VALUE ' '. OJRIC089
|
|
00241 * PARM TYPE OJRIC089
|
|
00242 15 FILLER PIC X(02) OJRIC089
|
|
00243 VALUE '99'. OJRIC089
|
|
00244 * PARM VALUE OJRIC089
|
|
00245 15 FILLER PIC X(32). OJRIC089
|
|
00246 * PARM LENGTH OJRIC089
|
|
00247 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00248 VALUE ZEROS. OJRIC089
|
|
00249 OJRIC089
|
|
00250 * PARM AREA #15 OJRIC089
|
|
00251 10 PARM-DATA-ENTRY. OJRIC089
|
|
00252 * PARM DESCRIPTION OJRIC089
|
|
00253 15 FILLER PIC X(32) OJRIC089
|
|
00254 VALUE ' '. OJRIC089
|
|
00255 * PARM TYPE OJRIC089
|
|
00256 15 FILLER PIC X(02) OJRIC089
|
|
00257 VALUE '99'. OJRIC089
|
|
00258 * PARM VALUE OJRIC089
|
|
00259 15 FILLER PIC X(32). OJRIC089
|
|
00260 * PARM LENGTH OJRIC089
|
|
00261 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00262 VALUE ZEROS. OJRIC089
|
|
00263 OJRIC089
|
|
00264 * PARM AREA #16 OJRIC089
|
|
00265 10 PARM-DATA-ENTRY. OJRIC089
|
|
00266 * PARM DESCRIPTION OJRIC089
|
|
00267 15 FILLER PIC X(32) OJRIC089
|
|
00268 VALUE ' '. OJRIC089
|
|
00269 * PARM TYPE OJRIC089
|
|
00270 15 FILLER PIC X(02) OJRIC089
|
|
00271 VALUE '99'. OJRIC089
|
|
00272 * PARM VALUE OJRIC089
|
|
00273 15 FILLER PIC X(32). OJRIC089
|
|
00274 * PARM LENGTH OJRIC089
|
|
00275 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00276 VALUE ZEROS. OJRIC089
|
|
00277 * PARM AREA END --------------------------------------------- OJRIC089
|
|
00278 10 FILLER PIC X(30) OJRIC089
|
|
00279 VALUE SPACES. OJRIC089
|
|
00280 OJRIC089
|
|
00281 ******************* R E P O R T # 2 ****************************OJRIC089
|
|
00282 * ENTRY 2 OJRIC089
|
|
00283 05 FOJR-TABLE-ENTRY. OJRIC089
|
|
00284 * REPT TYPE OJRIC089
|
|
00285 10 FILLER PIC S9(04) COMP OJRIC089
|
|
00286 VALUE +01. OJRIC089
|
|
00287 * JOB NAME OJRIC089
|
|
00288 10 FILLER PIC X(08) OJRIC089
|
|
00289 VALUE 'DTSBR125'. OJRIC089
|
|
00290 * FILLER - END OF KEY OJRIC089
|
|
00291 10 FILLER PIC X(06) OJRIC089
|
|
00292 VALUE SPACES. OJRIC089
|
|
00293 * BUSINESS AREA OJRIC089
|
|
00294 10 FILLER PIC X(02) OJRIC089
|
|
00295 VALUE '01'. OJRIC089
|
|
00296 * JOB DESCRIPTION OJRIC089
|
|
00297 10 FILLER PIC X(34) OJRIC089
|
|
00298 VALUE 'EMPLOYER ALPHA LIST '. OJRIC089
|
|
00299 * JOB TYPE OJRIC089
|
|
00300 10 FILLER PIC X(01) OJRIC089
|
|
00301 VALUE '2'. OJRIC089
|
|
00302 * LAST RUN DATE OJRIC089
|
|
00303 10 FILLER PIC S9(09) COMP-3 OJRIC089
|
|
00304 VALUE ZEROS. OJRIC089
|
|
00305 * PARM AREA START --------------------------------------------- OJRIC089
|
|
00306 * PARM AREA #1 OJRIC089
|
|
00307 10 PARM-DATA-ENTRY. OJRIC089
|
|
00308 * PARM DESCRIPTION OJRIC089
|
|
00309 15 FILLER PIC X(32) OJRIC089
|
|
00310 VALUE 'SHOULD NOT DISPLAY '. OJRIC089
|
|
00311 * PARM TYPE OJRIC089
|
|
00312 15 FILLER PIC X(02) OJRIC089
|
|
00313 VALUE '99'. OJRIC089
|
|
00314 * PARM VALUE OJRIC089
|
|
00315 15 FILLER PIC X(32). OJRIC089
|
|
00316 * PARM LENGTH OJRIC089
|
|
00317 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00318 VALUE ZEROS. OJRIC089
|
|
00319 * PARM AREA #2 OJRIC089
|
|
00320 10 PARM-DATA-ENTRY. OJRIC089
|
|
00321 * PARM DESCRIPTION OJRIC089
|
|
00322 15 FILLER PIC X(32) OJRIC089
|
|
00323 VALUE ' '. OJRIC089
|
|
00324 * PARM TYPE OJRIC089
|
|
00325 15 FILLER PIC X(02) OJRIC089
|
|
00326 VALUE '99'. OJRIC089
|
|
00327 * PARM VALUE OJRIC089
|
|
00328 15 FILLER PIC X(32). OJRIC089
|
|
00329 * PARM LENGTH OJRIC089
|
|
00330 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00331 VALUE ZEROS. OJRIC089
|
|
00332 * PARM AREA #3 OJRIC089
|
|
00333 10 PARM-DATA-ENTRY. OJRIC089
|
|
00334 * PARM DESCRIPTION OJRIC089
|
|
00335 15 FILLER PIC X(32) OJRIC089
|
|
00336 VALUE ' '. OJRIC089
|
|
00337 * PARM TYPE OJRIC089
|
|
00338 15 FILLER PIC X(02) OJRIC089
|
|
00339 VALUE '99'. OJRIC089
|
|
00340 * PARM VALUE OJRIC089
|
|
00341 15 FILLER PIC X(32). OJRIC089
|
|
00342 * PARM LENGTH OJRIC089
|
|
00343 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00344 VALUE ZEROS. OJRIC089
|
|
00345 * PARM AREA #4 OJRIC089
|
|
00346 10 PARM-DATA-ENTRY. OJRIC089
|
|
00347 * PARM DESCRIPTION OJRIC089
|
|
00348 15 FILLER PIC X(32) OJRIC089
|
|
00349 VALUE ' '. OJRIC089
|
|
00350 * PARM TYPE OJRIC089
|
|
00351 15 FILLER PIC X(02) OJRIC089
|
|
00352 VALUE '99'. OJRIC089
|
|
00353 * PARM VALUE OJRIC089
|
|
00354 15 FILLER PIC X(32). OJRIC089
|
|
00355 * PARM LENGTH OJRIC089
|
|
00356 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00357 VALUE ZEROS. OJRIC089
|
|
00358 OJRIC089
|
|
00359 * PARM AREA #5 OJRIC089
|
|
00360 10 PARM-DATA-ENTRY. OJRIC089
|
|
00361 * PARM DESCRIPTION OJRIC089
|
|
00362 15 FILLER PIC X(32) OJRIC089
|
|
00363 VALUE ' '. OJRIC089
|
|
00364 * PARM TYPE OJRIC089
|
|
00365 15 FILLER PIC X(02) OJRIC089
|
|
00366 VALUE '99'. OJRIC089
|
|
00367 * PARM VALUE OJRIC089
|
|
00368 15 FILLER PIC X(32). OJRIC089
|
|
00369 * PARM LENGTH OJRIC089
|
|
00370 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00371 VALUE ZEROS. OJRIC089
|
|
00372 OJRIC089
|
|
00373 * PARM AREA #6 OJRIC089
|
|
00374 10 PARM-DATA-ENTRY. OJRIC089
|
|
00375 * PARM DESCRIPTION OJRIC089
|
|
00376 15 FILLER PIC X(32) OJRIC089
|
|
00377 VALUE ' '. OJRIC089
|
|
00378 * PARM TYPE OJRIC089
|
|
00379 15 FILLER PIC X(02) OJRIC089
|
|
00380 VALUE '99'. OJRIC089
|
|
00381 * PARM VALUE OJRIC089
|
|
00382 15 FILLER PIC X(32). OJRIC089
|
|
00383 * PARM LENGTH OJRIC089
|
|
00384 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00385 VALUE ZEROS. OJRIC089
|
|
00386 OJRIC089
|
|
00387 * PARM AREA #7 OJRIC089
|
|
00388 10 PARM-DATA-ENTRY. OJRIC089
|
|
00389 * PARM DESCRIPTION OJRIC089
|
|
00390 15 FILLER PIC X(32) OJRIC089
|
|
00391 VALUE ' '. OJRIC089
|
|
00392 * PARM TYPE OJRIC089
|
|
00393 15 FILLER PIC X(02) OJRIC089
|
|
00394 VALUE '99'. OJRIC089
|
|
00395 * PARM VALUE OJRIC089
|
|
00396 15 FILLER PIC X(32). OJRIC089
|
|
00397 * PARM LENGTH OJRIC089
|
|
00398 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00399 VALUE ZEROS. OJRIC089
|
|
00400 OJRIC089
|
|
00401 * PARM AREA #8 OJRIC089
|
|
00402 10 PARM-DATA-ENTRY. OJRIC089
|
|
00403 * PARM DESCRIPTION OJRIC089
|
|
00404 15 FILLER PIC X(32) OJRIC089
|
|
00405 VALUE ' '. OJRIC089
|
|
00406 * PARM TYPE OJRIC089
|
|
00407 15 FILLER PIC X(02) OJRIC089
|
|
00408 VALUE '99'. OJRIC089
|
|
00409 * PARM VALUE OJRIC089
|
|
00410 15 FILLER PIC X(32). OJRIC089
|
|
00411 * PARM LENGTH OJRIC089
|
|
00412 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00413 VALUE ZEROS. OJRIC089
|
|
00414 OJRIC089
|
|
00415 * PARM AREA #9 OJRIC089
|
|
00416 10 PARM-DATA-ENTRY. OJRIC089
|
|
00417 * PARM DESCRIPTION OJRIC089
|
|
00418 15 FILLER PIC X(32) OJRIC089
|
|
00419 VALUE ' '. OJRIC089
|
|
00420 * PARM TYPE OJRIC089
|
|
00421 15 FILLER PIC X(02) OJRIC089
|
|
00422 VALUE '99'. OJRIC089
|
|
00423 * PARM VALUE OJRIC089
|
|
00424 15 FILLER PIC X(32). OJRIC089
|
|
00425 * PARM LENGTH OJRIC089
|
|
00426 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00427 VALUE ZEROS. OJRIC089
|
|
00428 OJRIC089
|
|
00429 * PARM AREA #10 OJRIC089
|
|
00430 10 PARM-DATA-ENTRY. OJRIC089
|
|
00431 * PARM DESCRIPTION OJRIC089
|
|
00432 15 FILLER PIC X(32) OJRIC089
|
|
00433 VALUE ' '. OJRIC089
|
|
00434 * PARM TYPE OJRIC089
|
|
00435 15 FILLER PIC X(02) OJRIC089
|
|
00436 VALUE '99'. OJRIC089
|
|
00437 * PARM VALUE OJRIC089
|
|
00438 15 FILLER PIC X(32). OJRIC089
|
|
00439 * PARM LENGTH OJRIC089
|
|
00440 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00441 VALUE ZEROS. OJRIC089
|
|
00442 OJRIC089
|
|
00443 * PARM AREA #11 OJRIC089
|
|
00444 10 PARM-DATA-ENTRY. OJRIC089
|
|
00445 * PARM DESCRIPTION OJRIC089
|
|
00446 15 FILLER PIC X(32) OJRIC089
|
|
00447 VALUE ' '. OJRIC089
|
|
00448 * PARM TYPE OJRIC089
|
|
00449 15 FILLER PIC X(02) OJRIC089
|
|
00450 VALUE '99'. OJRIC089
|
|
00451 * PARM VALUE OJRIC089
|
|
00452 15 FILLER PIC X(32). OJRIC089
|
|
00453 * PARM LENGTH OJRIC089
|
|
00454 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00455 VALUE ZEROS. OJRIC089
|
|
00456 OJRIC089
|
|
00457 * PARM AREA #12 OJRIC089
|
|
00458 10 PARM-DATA-ENTRY. OJRIC089
|
|
00459 * PARM DESCRIPTION OJRIC089
|
|
00460 15 FILLER PIC X(32) OJRIC089
|
|
00461 VALUE ' '. OJRIC089
|
|
00462 * PARM TYPE OJRIC089
|
|
00463 15 FILLER PIC X(02) OJRIC089
|
|
00464 VALUE '99'. OJRIC089
|
|
00465 * PARM VALUE OJRIC089
|
|
00466 15 FILLER PIC X(32). OJRIC089
|
|
00467 * PARM LENGTH OJRIC089
|
|
00468 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00469 VALUE ZEROS. OJRIC089
|
|
00470 OJRIC089
|
|
00471 * PARM AREA #13 OJRIC089
|
|
00472 10 PARM-DATA-ENTRY. OJRIC089
|
|
00473 * PARM DESCRIPTION OJRIC089
|
|
00474 15 FILLER PIC X(32) OJRIC089
|
|
00475 VALUE ' '. OJRIC089
|
|
00476 * PARM TYPE OJRIC089
|
|
00477 15 FILLER PIC X(02) OJRIC089
|
|
00478 VALUE '99'. OJRIC089
|
|
00479 * PARM VALUE OJRIC089
|
|
00480 15 FILLER PIC X(32). OJRIC089
|
|
00481 * PARM LENGTH OJRIC089
|
|
00482 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00483 VALUE ZEROS. OJRIC089
|
|
00484 OJRIC089
|
|
00485 * PARM AREA #14 OJRIC089
|
|
00486 10 PARM-DATA-ENTRY. OJRIC089
|
|
00487 * PARM DESCRIPTION OJRIC089
|
|
00488 15 FILLER PIC X(32) OJRIC089
|
|
00489 VALUE ' '. OJRIC089
|
|
00490 * PARM TYPE OJRIC089
|
|
00491 15 FILLER PIC X(02) OJRIC089
|
|
00492 VALUE '99'. OJRIC089
|
|
00493 * PARM VALUE OJRIC089
|
|
00494 15 FILLER PIC X(32). OJRIC089
|
|
00495 * PARM LENGTH OJRIC089
|
|
00496 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00497 VALUE ZEROS. OJRIC089
|
|
00498 OJRIC089
|
|
00499 * PARM AREA #15 OJRIC089
|
|
00500 10 PARM-DATA-ENTRY. OJRIC089
|
|
00501 * PARM DESCRIPTION OJRIC089
|
|
00502 15 FILLER PIC X(32) OJRIC089
|
|
00503 VALUE ' '. OJRIC089
|
|
00504 * PARM TYPE OJRIC089
|
|
00505 15 FILLER PIC X(02) OJRIC089
|
|
00506 VALUE '99'. OJRIC089
|
|
00507 * PARM VALUE OJRIC089
|
|
00508 15 FILLER PIC X(32). OJRIC089
|
|
00509 * PARM LENGTH OJRIC089
|
|
00510 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00511 VALUE ZEROS. OJRIC089
|
|
00512 OJRIC089
|
|
00513 * PARM AREA #16 OJRIC089
|
|
00514 10 PARM-DATA-ENTRY. OJRIC089
|
|
00515 * PARM DESCRIPTION OJRIC089
|
|
00516 15 FILLER PIC X(32) OJRIC089
|
|
00517 VALUE ' '. OJRIC089
|
|
00518 * PARM TYPE OJRIC089
|
|
00519 15 FILLER PIC X(02) OJRIC089
|
|
00520 VALUE '99'. OJRIC089
|
|
00521 * PARM VALUE OJRIC089
|
|
00522 15 FILLER PIC X(32). OJRIC089
|
|
00523 * PARM LENGTH OJRIC089
|
|
00524 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00525 VALUE ZEROS. OJRIC089
|
|
00526 * PARM AREA END --------------------------------------------- OJRIC089
|
|
00527 10 FILLER PIC X(30) OJRIC089
|
|
00528 VALUE SPACES. OJRIC089
|
|
00529 OJRIC089
|
|
00530 ******************* R E P O R T # 3 ****************************OJRIC089
|
|
00531 * ENTRY 3 OJRIC089
|
|
00532 05 FOJR-TABLE-ENTRY. OJRIC089
|
|
00533 * REPT TYPE OJRIC089
|
|
00534 10 FILLER PIC S9(04) COMP OJRIC089
|
|
00535 VALUE +01. OJRIC089
|
|
00536 * JOB NAME OJRIC089
|
|
00537 10 FILLER PIC X(08) OJRIC089
|
|
00538 VALUE 'DTSBR305'. OJRIC089
|
|
00539 * FILLER - END OF KEY OJRIC089
|
|
00540 10 FILLER PIC X(06) OJRIC089
|
|
00541 VALUE SPACES. OJRIC089
|
|
00542 * BUSINESS AREA OJRIC089
|
|
00543 10 FILLER PIC X(02) OJRIC089
|
|
00544 VALUE '03'. OJRIC089
|
|
00545 * JOB DESCRIPTION OJRIC089
|
|
00546 10 FILLER PIC X(34) OJRIC089
|
|
00547 VALUE 'TRIAL BALANCE REPORT '. OJRIC089
|
|
00548 * JOB TYPE OJRIC089
|
|
00549 10 FILLER PIC X(01) OJRIC089
|
|
00550 VALUE '2'. OJRIC089
|
|
00551 * LAST RUN DATE OJRIC089
|
|
00552 10 FILLER PIC S9(09) COMP-3 OJRIC089
|
|
00553 VALUE ZEROS. OJRIC089
|
|
00554 * PARM AREA START --------------------------------------------- OJRIC089
|
|
00555 * PARM AREA #1 OJRIC089
|
|
00556 10 PARM-DATA-ENTRY. OJRIC089
|
|
00557 * PARM DESCRIPTION OJRIC089
|
|
00558 15 FILLER PIC X(32) OJRIC089
|
|
00559 VALUE 'SHOULD NOT DISPLAY '. OJRIC089
|
|
00560 * PARM TYPE OJRIC089
|
|
00561 15 FILLER PIC X(02) OJRIC089
|
|
00562 VALUE '99'. OJRIC089
|
|
00563 * PARM VALUE OJRIC089
|
|
00564 15 FILLER PIC X(32). OJRIC089
|
|
00565 * PARM LENGTH OJRIC089
|
|
00566 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00567 VALUE ZEROS. OJRIC089
|
|
00568 * PARM AREA #2 OJRIC089
|
|
00569 10 PARM-DATA-ENTRY. OJRIC089
|
|
00570 * PARM DESCRIPTION OJRIC089
|
|
00571 15 FILLER PIC X(32) OJRIC089
|
|
00572 VALUE ' '. OJRIC089
|
|
00573 * PARM TYPE OJRIC089
|
|
00574 15 FILLER PIC X(02) OJRIC089
|
|
00575 VALUE '99'. OJRIC089
|
|
00576 * PARM VALUE OJRIC089
|
|
00577 15 FILLER PIC X(32). OJRIC089
|
|
00578 * PARM LENGTH OJRIC089
|
|
00579 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00580 VALUE ZEROS. OJRIC089
|
|
00581 * PARM AREA #3 OJRIC089
|
|
00582 10 PARM-DATA-ENTRY. OJRIC089
|
|
00583 * PARM DESCRIPTION OJRIC089
|
|
00584 15 FILLER PIC X(32) OJRIC089
|
|
00585 VALUE ' '. OJRIC089
|
|
00586 * PARM TYPE OJRIC089
|
|
00587 15 FILLER PIC X(02) OJRIC089
|
|
00588 VALUE '99'. OJRIC089
|
|
00589 * PARM VALUE OJRIC089
|
|
00590 15 FILLER PIC X(32). OJRIC089
|
|
00591 * PARM LENGTH OJRIC089
|
|
00592 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00593 VALUE ZEROS. OJRIC089
|
|
00594 * PARM AREA #4 OJRIC089
|
|
00595 10 PARM-DATA-ENTRY. OJRIC089
|
|
00596 * PARM DESCRIPTION OJRIC089
|
|
00597 15 FILLER PIC X(32) OJRIC089
|
|
00598 VALUE ' '. OJRIC089
|
|
00599 * PARM TYPE OJRIC089
|
|
00600 15 FILLER PIC X(02) OJRIC089
|
|
00601 VALUE '99'. OJRIC089
|
|
00602 * PARM VALUE OJRIC089
|
|
00603 15 FILLER PIC X(32). OJRIC089
|
|
00604 * PARM LENGTH OJRIC089
|
|
00605 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00606 VALUE ZEROS. OJRIC089
|
|
00607 OJRIC089
|
|
00608 * PARM AREA #5 OJRIC089
|
|
00609 10 PARM-DATA-ENTRY. OJRIC089
|
|
00610 * PARM DESCRIPTION OJRIC089
|
|
00611 15 FILLER PIC X(32) OJRIC089
|
|
00612 VALUE ' '. OJRIC089
|
|
00613 * PARM TYPE OJRIC089
|
|
00614 15 FILLER PIC X(02) OJRIC089
|
|
00615 VALUE '99'. OJRIC089
|
|
00616 * PARM VALUE OJRIC089
|
|
00617 15 FILLER PIC X(32). OJRIC089
|
|
00618 * PARM LENGTH OJRIC089
|
|
00619 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00620 VALUE ZEROS. OJRIC089
|
|
00621 OJRIC089
|
|
00622 * PARM AREA #6 OJRIC089
|
|
00623 10 PARM-DATA-ENTRY. OJRIC089
|
|
00624 * PARM DESCRIPTION OJRIC089
|
|
00625 15 FILLER PIC X(32) OJRIC089
|
|
00626 VALUE ' '. OJRIC089
|
|
00627 * PARM TYPE OJRIC089
|
|
00628 15 FILLER PIC X(02) OJRIC089
|
|
00629 VALUE '99'. OJRIC089
|
|
00630 * PARM VALUE OJRIC089
|
|
00631 15 FILLER PIC X(32). OJRIC089
|
|
00632 * PARM LENGTH OJRIC089
|
|
00633 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00634 VALUE ZEROS. OJRIC089
|
|
00635 OJRIC089
|
|
00636 * PARM AREA #7 OJRIC089
|
|
00637 10 PARM-DATA-ENTRY. OJRIC089
|
|
00638 * PARM DESCRIPTION OJRIC089
|
|
00639 15 FILLER PIC X(32) OJRIC089
|
|
00640 VALUE ' '. OJRIC089
|
|
00641 * PARM TYPE OJRIC089
|
|
00642 15 FILLER PIC X(02) OJRIC089
|
|
00643 VALUE '99'. OJRIC089
|
|
00644 * PARM VALUE OJRIC089
|
|
00645 15 FILLER PIC X(32). OJRIC089
|
|
00646 * PARM LENGTH OJRIC089
|
|
00647 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00648 VALUE ZEROS. OJRIC089
|
|
00649 OJRIC089
|
|
00650 * PARM AREA #8 OJRIC089
|
|
00651 10 PARM-DATA-ENTRY. OJRIC089
|
|
00652 * PARM DESCRIPTION OJRIC089
|
|
00653 15 FILLER PIC X(32) OJRIC089
|
|
00654 VALUE ' '. OJRIC089
|
|
00655 * PARM TYPE OJRIC089
|
|
00656 15 FILLER PIC X(02) OJRIC089
|
|
00657 VALUE '99'. OJRIC089
|
|
00658 * PARM VALUE OJRIC089
|
|
00659 15 FILLER PIC X(32). OJRIC089
|
|
00660 * PARM LENGTH OJRIC089
|
|
00661 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00662 VALUE ZEROS. OJRIC089
|
|
00663 OJRIC089
|
|
00664 * PARM AREA #9 OJRIC089
|
|
00665 10 PARM-DATA-ENTRY. OJRIC089
|
|
00666 * PARM DESCRIPTION OJRIC089
|
|
00667 15 FILLER PIC X(32) OJRIC089
|
|
00668 VALUE ' '. OJRIC089
|
|
00669 * PARM TYPE OJRIC089
|
|
00670 15 FILLER PIC X(02) OJRIC089
|
|
00671 VALUE '99'. OJRIC089
|
|
00672 * PARM VALUE OJRIC089
|
|
00673 15 FILLER PIC X(32). OJRIC089
|
|
00674 * PARM LENGTH OJRIC089
|
|
00675 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00676 VALUE ZEROS. OJRIC089
|
|
00677 OJRIC089
|
|
00678 * PARM AREA #10 OJRIC089
|
|
00679 10 PARM-DATA-ENTRY. OJRIC089
|
|
00680 * PARM DESCRIPTION OJRIC089
|
|
00681 15 FILLER PIC X(32) OJRIC089
|
|
00682 VALUE ' '. OJRIC089
|
|
00683 * PARM TYPE OJRIC089
|
|
00684 15 FILLER PIC X(02) OJRIC089
|
|
00685 VALUE '99'. OJRIC089
|
|
00686 * PARM VALUE OJRIC089
|
|
00687 15 FILLER PIC X(32). OJRIC089
|
|
00688 * PARM LENGTH OJRIC089
|
|
00689 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00690 VALUE ZEROS. OJRIC089
|
|
00691 OJRIC089
|
|
00692 * PARM AREA #11 OJRIC089
|
|
00693 10 PARM-DATA-ENTRY. OJRIC089
|
|
00694 * PARM DESCRIPTION OJRIC089
|
|
00695 15 FILLER PIC X(32) OJRIC089
|
|
00696 VALUE ' '. OJRIC089
|
|
00697 * PARM TYPE OJRIC089
|
|
00698 15 FILLER PIC X(02) OJRIC089
|
|
00699 VALUE '99'. OJRIC089
|
|
00700 * PARM VALUE OJRIC089
|
|
00701 15 FILLER PIC X(32). OJRIC089
|
|
00702 * PARM LENGTH OJRIC089
|
|
00703 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00704 VALUE ZEROS. OJRIC089
|
|
00705 OJRIC089
|
|
00706 * PARM AREA #12 OJRIC089
|
|
00707 10 PARM-DATA-ENTRY. OJRIC089
|
|
00708 * PARM DESCRIPTION OJRIC089
|
|
00709 15 FILLER PIC X(32) OJRIC089
|
|
00710 VALUE ' '. OJRIC089
|
|
00711 * PARM TYPE OJRIC089
|
|
00712 15 FILLER PIC X(02) OJRIC089
|
|
00713 VALUE '99'. OJRIC089
|
|
00714 * PARM VALUE OJRIC089
|
|
00715 15 FILLER PIC X(32). OJRIC089
|
|
00716 * PARM LENGTH OJRIC089
|
|
00717 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00718 VALUE ZEROS. OJRIC089
|
|
00719 OJRIC089
|
|
00720 * PARM AREA #13 OJRIC089
|
|
00721 10 PARM-DATA-ENTRY. OJRIC089
|
|
00722 * PARM DESCRIPTION OJRIC089
|
|
00723 15 FILLER PIC X(32) OJRIC089
|
|
00724 VALUE ' '. OJRIC089
|
|
00725 * PARM TYPE OJRIC089
|
|
00726 15 FILLER PIC X(02) OJRIC089
|
|
00727 VALUE '99'. OJRIC089
|
|
00728 * PARM VALUE OJRIC089
|
|
00729 15 FILLER PIC X(32). OJRIC089
|
|
00730 * PARM LENGTH OJRIC089
|
|
00731 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00732 VALUE ZEROS. OJRIC089
|
|
00733 OJRIC089
|
|
00734 * PARM AREA #14 OJRIC089
|
|
00735 10 PARM-DATA-ENTRY. OJRIC089
|
|
00736 * PARM DESCRIPTION OJRIC089
|
|
00737 15 FILLER PIC X(32) OJRIC089
|
|
00738 VALUE ' '. OJRIC089
|
|
00739 * PARM TYPE OJRIC089
|
|
00740 15 FILLER PIC X(02) OJRIC089
|
|
00741 VALUE '99'. OJRIC089
|
|
00742 * PARM VALUE OJRIC089
|
|
00743 15 FILLER PIC X(32). OJRIC089
|
|
00744 * PARM LENGTH OJRIC089
|
|
00745 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00746 VALUE ZEROS. OJRIC089
|
|
00747 OJRIC089
|
|
00748 * PARM AREA #15 OJRIC089
|
|
00749 10 PARM-DATA-ENTRY. OJRIC089
|
|
00750 * PARM DESCRIPTION OJRIC089
|
|
00751 15 FILLER PIC X(32) OJRIC089
|
|
00752 VALUE ' '. OJRIC089
|
|
00753 * PARM TYPE OJRIC089
|
|
00754 15 FILLER PIC X(02) OJRIC089
|
|
00755 VALUE '99'. OJRIC089
|
|
00756 * PARM VALUE OJRIC089
|
|
00757 15 FILLER PIC X(32). OJRIC089
|
|
00758 * PARM LENGTH OJRIC089
|
|
00759 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00760 VALUE ZEROS. OJRIC089
|
|
00761 OJRIC089
|
|
00762 * PARM AREA #16 OJRIC089
|
|
00763 10 PARM-DATA-ENTRY. OJRIC089
|
|
00764 * PARM DESCRIPTION OJRIC089
|
|
00765 15 FILLER PIC X(32) OJRIC089
|
|
00766 VALUE ' '. OJRIC089
|
|
00767 * PARM TYPE OJRIC089
|
|
00768 15 FILLER PIC X(02) OJRIC089
|
|
00769 VALUE '99'. OJRIC089
|
|
00770 * PARM VALUE OJRIC089
|
|
00771 15 FILLER PIC X(32). OJRIC089
|
|
00772 * PARM LENGTH OJRIC089
|
|
00773 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00774 VALUE ZEROS. OJRIC089
|
|
00775 * PARM AREA END --------------------------------------------- OJRIC089
|
|
00776 10 FILLER PIC X(30) OJRIC089
|
|
00777 VALUE SPACES. OJRIC089
|
|
00778 OJRIC089
|
|
00779 ******************* R E P O R T # 4 ****************************OJRIC089
|
|
00780 * ENTRY 4 OJRIC089
|
|
00781 05 FOJR-TABLE-ENTRY. OJRIC089
|
|
00782 * REPT TYPE OJRIC089
|
|
00783 10 FILLER PIC S9(04) COMP OJRIC089
|
|
00784 VALUE +01. OJRIC089
|
|
00785 * JOB NAME OJRIC089
|
|
00786 10 FILLER PIC X(08) OJRIC089
|
|
00787 VALUE 'DTSBR306'. OJRIC089
|
|
00788 * FILLER - END OF KEY OJRIC089
|
|
00789 10 FILLER PIC X(06) OJRIC089
|
|
00790 VALUE SPACES. OJRIC089
|
|
00791 * BUSINESS AREA OJRIC089
|
|
00792 10 FILLER PIC X(02) OJRIC089
|
|
00793 VALUE '03'. OJRIC089
|
|
00794 * JOB DESCRIPTION OJRIC089
|
|
00795 10 FILLER PIC X(34) OJRIC089
|
|
00796 VALUE 'ACCOUNTING SUMMARY REPORT '. OJRIC089
|
|
00797 * JOB TYPE OJRIC089
|
|
00798 10 FILLER PIC X(01) OJRIC089
|
|
00799 VALUE '2'. OJRIC089
|
|
00800 * LAST RUN DATE OJRIC089
|
|
00801 10 FILLER PIC S9(09) COMP-3 OJRIC089
|
|
00802 VALUE ZEROS. OJRIC089
|
|
00803 * PARM AREA START --------------------------------------------- OJRIC089
|
|
00804 * PARM AREA #1 OJRIC089
|
|
00805 10 PARM-DATA-ENTRY. OJRIC089
|
|
00806 * PARM DESCRIPTION OJRIC089
|
|
00807 15 FILLER PIC X(32) OJRIC089
|
|
00808 VALUE 'PERIOD START DATE '. OJRIC089
|
|
00809 * PARM TYPE OJRIC089
|
|
00810 15 FILLER PIC X(02) OJRIC089
|
|
00811 VALUE '00'. OJRIC089
|
|
00812 * PARM VALUE OJRIC089
|
|
00813 15 FILLER PIC X(32). OJRIC089
|
|
00814 * PARM LENGTH OJRIC089
|
|
00815 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00816 VALUE +6. OJRIC089
|
|
00817 * PARM AREA #2 OJRIC089
|
|
00818 10 PARM-DATA-ENTRY. OJRIC089
|
|
00819 * PARM DESCRIPTION OJRIC089
|
|
00820 15 FILLER PIC X(32) OJRIC089
|
|
00821 VALUE 'PERIOD END DATE '. OJRIC089
|
|
00822 * PARM TYPE OJRIC089
|
|
00823 15 FILLER PIC X(02) OJRIC089
|
|
00824 VALUE '00'. OJRIC089
|
|
00825 * PARM VALUE OJRIC089
|
|
00826 15 FILLER PIC X(32). OJRIC089
|
|
00827 * PARM LENGTH OJRIC089
|
|
00828 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00829 VALUE +6. OJRIC089
|
|
00830 * PARM AREA #3 OJRIC089
|
|
00831 10 PARM-DATA-ENTRY. OJRIC089
|
|
00832 * PARM DESCRIPTION OJRIC089
|
|
00833 15 FILLER PIC X(32) OJRIC089
|
|
00834 VALUE ' '. OJRIC089
|
|
00835 * PARM TYPE OJRIC089
|
|
00836 15 FILLER PIC X(02) OJRIC089
|
|
00837 VALUE '99'. OJRIC089
|
|
00838 * PARM VALUE OJRIC089
|
|
00839 15 FILLER PIC X(32). OJRIC089
|
|
00840 * PARM LENGTH OJRIC089
|
|
00841 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00842 VALUE ZEROS. OJRIC089
|
|
00843 * PARM AREA #4 OJRIC089
|
|
00844 10 PARM-DATA-ENTRY. OJRIC089
|
|
00845 * PARM DESCRIPTION OJRIC089
|
|
00846 15 FILLER PIC X(32) OJRIC089
|
|
00847 VALUE ' '. OJRIC089
|
|
00848 * PARM TYPE OJRIC089
|
|
00849 15 FILLER PIC X(02) OJRIC089
|
|
00850 VALUE '99'. OJRIC089
|
|
00851 * PARM VALUE OJRIC089
|
|
00852 15 FILLER PIC X(32). OJRIC089
|
|
00853 * PARM LENGTH OJRIC089
|
|
00854 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00855 VALUE ZEROS. OJRIC089
|
|
00856 OJRIC089
|
|
00857 * PARM AREA #5 OJRIC089
|
|
00858 10 PARM-DATA-ENTRY. OJRIC089
|
|
00859 * PARM DESCRIPTION OJRIC089
|
|
00860 15 FILLER PIC X(32) OJRIC089
|
|
00861 VALUE ' '. OJRIC089
|
|
00862 * PARM TYPE OJRIC089
|
|
00863 15 FILLER PIC X(02) OJRIC089
|
|
00864 VALUE '99'. OJRIC089
|
|
00865 * PARM VALUE OJRIC089
|
|
00866 15 FILLER PIC X(32). OJRIC089
|
|
00867 * PARM LENGTH OJRIC089
|
|
00868 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00869 VALUE ZEROS. OJRIC089
|
|
00870 OJRIC089
|
|
00871 * PARM AREA #6 OJRIC089
|
|
00872 10 PARM-DATA-ENTRY. OJRIC089
|
|
00873 * PARM DESCRIPTION OJRIC089
|
|
00874 15 FILLER PIC X(32) OJRIC089
|
|
00875 VALUE ' '. OJRIC089
|
|
00876 * PARM TYPE OJRIC089
|
|
00877 15 FILLER PIC X(02) OJRIC089
|
|
00878 VALUE '99'. OJRIC089
|
|
00879 * PARM VALUE OJRIC089
|
|
00880 15 FILLER PIC X(32). OJRIC089
|
|
00881 * PARM LENGTH OJRIC089
|
|
00882 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00883 VALUE ZEROS. OJRIC089
|
|
00884 OJRIC089
|
|
00885 * PARM AREA #7 OJRIC089
|
|
00886 10 PARM-DATA-ENTRY. OJRIC089
|
|
00887 * PARM DESCRIPTION OJRIC089
|
|
00888 15 FILLER PIC X(32) OJRIC089
|
|
00889 VALUE ' '. OJRIC089
|
|
00890 * PARM TYPE OJRIC089
|
|
00891 15 FILLER PIC X(02) OJRIC089
|
|
00892 VALUE '99'. OJRIC089
|
|
00893 * PARM VALUE OJRIC089
|
|
00894 15 FILLER PIC X(32). OJRIC089
|
|
00895 * PARM LENGTH OJRIC089
|
|
00896 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00897 VALUE ZEROS. OJRIC089
|
|
00898 OJRIC089
|
|
00899 * PARM AREA #8 OJRIC089
|
|
00900 10 PARM-DATA-ENTRY. OJRIC089
|
|
00901 * PARM DESCRIPTION OJRIC089
|
|
00902 15 FILLER PIC X(32) OJRIC089
|
|
00903 VALUE ' '. OJRIC089
|
|
00904 * PARM TYPE OJRIC089
|
|
00905 15 FILLER PIC X(02) OJRIC089
|
|
00906 VALUE '99'. OJRIC089
|
|
00907 * PARM VALUE OJRIC089
|
|
00908 15 FILLER PIC X(32). OJRIC089
|
|
00909 * PARM LENGTH OJRIC089
|
|
00910 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00911 VALUE ZEROS. OJRIC089
|
|
00912 OJRIC089
|
|
00913 * PARM AREA #9 OJRIC089
|
|
00914 10 PARM-DATA-ENTRY. OJRIC089
|
|
00915 * PARM DESCRIPTION OJRIC089
|
|
00916 15 FILLER PIC X(32) OJRIC089
|
|
00917 VALUE ' '. OJRIC089
|
|
00918 * PARM TYPE OJRIC089
|
|
00919 15 FILLER PIC X(02) OJRIC089
|
|
00920 VALUE '99'. OJRIC089
|
|
00921 * PARM VALUE OJRIC089
|
|
00922 15 FILLER PIC X(32). OJRIC089
|
|
00923 * PARM LENGTH OJRIC089
|
|
00924 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00925 VALUE ZEROS. OJRIC089
|
|
00926 OJRIC089
|
|
00927 * PARM AREA #10 OJRIC089
|
|
00928 10 PARM-DATA-ENTRY. OJRIC089
|
|
00929 * PARM DESCRIPTION OJRIC089
|
|
00930 15 FILLER PIC X(32) OJRIC089
|
|
00931 VALUE ' '. OJRIC089
|
|
00932 * PARM TYPE OJRIC089
|
|
00933 15 FILLER PIC X(02) OJRIC089
|
|
00934 VALUE '99'. OJRIC089
|
|
00935 * PARM VALUE OJRIC089
|
|
00936 15 FILLER PIC X(32). OJRIC089
|
|
00937 * PARM LENGTH OJRIC089
|
|
00938 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00939 VALUE ZEROS. OJRIC089
|
|
00940 OJRIC089
|
|
00941 * PARM AREA #11 OJRIC089
|
|
00942 10 PARM-DATA-ENTRY. OJRIC089
|
|
00943 * PARM DESCRIPTION OJRIC089
|
|
00944 15 FILLER PIC X(32) OJRIC089
|
|
00945 VALUE ' '. OJRIC089
|
|
00946 * PARM TYPE OJRIC089
|
|
00947 15 FILLER PIC X(02) OJRIC089
|
|
00948 VALUE '99'. OJRIC089
|
|
00949 * PARM VALUE OJRIC089
|
|
00950 15 FILLER PIC X(32). OJRIC089
|
|
00951 * PARM LENGTH OJRIC089
|
|
00952 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00953 VALUE ZEROS. OJRIC089
|
|
00954 OJRIC089
|
|
00955 * PARM AREA #12 OJRIC089
|
|
00956 10 PARM-DATA-ENTRY. OJRIC089
|
|
00957 * PARM DESCRIPTION OJRIC089
|
|
00958 15 FILLER PIC X(32) OJRIC089
|
|
00959 VALUE ' '. OJRIC089
|
|
00960 * PARM TYPE OJRIC089
|
|
00961 15 FILLER PIC X(02) OJRIC089
|
|
00962 VALUE '99'. OJRIC089
|
|
00963 * PARM VALUE OJRIC089
|
|
00964 15 FILLER PIC X(32). OJRIC089
|
|
00965 * PARM LENGTH OJRIC089
|
|
00966 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00967 VALUE ZEROS. OJRIC089
|
|
00968 OJRIC089
|
|
00969 * PARM AREA #13 OJRIC089
|
|
00970 10 PARM-DATA-ENTRY. OJRIC089
|
|
00971 * PARM DESCRIPTION OJRIC089
|
|
00972 15 FILLER PIC X(32) OJRIC089
|
|
00973 VALUE ' '. OJRIC089
|
|
00974 * PARM TYPE OJRIC089
|
|
00975 15 FILLER PIC X(02) OJRIC089
|
|
00976 VALUE '99'. OJRIC089
|
|
00977 * PARM VALUE OJRIC089
|
|
00978 15 FILLER PIC X(32). OJRIC089
|
|
00979 * PARM LENGTH OJRIC089
|
|
00980 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00981 VALUE ZEROS. OJRIC089
|
|
00982 OJRIC089
|
|
00983 * PARM AREA #14 OJRIC089
|
|
00984 10 PARM-DATA-ENTRY. OJRIC089
|
|
00985 * PARM DESCRIPTION OJRIC089
|
|
00986 15 FILLER PIC X(32) OJRIC089
|
|
00987 VALUE ' '. OJRIC089
|
|
00988 * PARM TYPE OJRIC089
|
|
00989 15 FILLER PIC X(02) OJRIC089
|
|
00990 VALUE '99'. OJRIC089
|
|
00991 * PARM VALUE OJRIC089
|
|
00992 15 FILLER PIC X(32). OJRIC089
|
|
00993 * PARM LENGTH OJRIC089
|
|
00994 15 FILLER PIC S9(04) COMP OJRIC089
|
|
00995 VALUE ZEROS. OJRIC089
|
|
00996 OJRIC089
|
|
00997 * PARM AREA #15 OJRIC089
|
|
00998 10 PARM-DATA-ENTRY. OJRIC089
|
|
00999 * PARM DESCRIPTION OJRIC089
|
|
01000 15 FILLER PIC X(32) OJRIC089
|
|
01001 VALUE ' '. OJRIC089
|
|
01002 * PARM TYPE OJRIC089
|
|
01003 15 FILLER PIC X(02) OJRIC089
|
|
01004 VALUE '99'. OJRIC089
|
|
01005 * PARM VALUE OJRIC089
|
|
01006 15 FILLER PIC X(32). OJRIC089
|
|
01007 * PARM LENGTH OJRIC089
|
|
01008 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01009 VALUE ZEROS. OJRIC089
|
|
01010 OJRIC089
|
|
01011 * PARM AREA #16 OJRIC089
|
|
01012 10 PARM-DATA-ENTRY. OJRIC089
|
|
01013 * PARM DESCRIPTION OJRIC089
|
|
01014 15 FILLER PIC X(32) OJRIC089
|
|
01015 VALUE ' '. OJRIC089
|
|
01016 * PARM TYPE OJRIC089
|
|
01017 15 FILLER PIC X(02) OJRIC089
|
|
01018 VALUE '99'. OJRIC089
|
|
01019 * PARM VALUE OJRIC089
|
|
01020 15 FILLER PIC X(32). OJRIC089
|
|
01021 * PARM LENGTH OJRIC089
|
|
01022 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01023 VALUE ZEROS. OJRIC089
|
|
01024 * PARM AREA END --------------------------------------------- OJRIC089
|
|
01025 10 FILLER PIC X(30) OJRIC089
|
|
01026 VALUE SPACES. OJRIC089
|
|
01027 OJRIC089
|
|
01028 ******************* R E P O R T # 5 ****************************OJRIC089
|
|
01029 * ENTRY 5 OJRIC089
|
|
01030 05 FOJR-TABLE-ENTRY. OJRIC089
|
|
01031 * REPT TYPE OJRIC089
|
|
01032 10 FILLER PIC S9(04) COMP OJRIC089
|
|
01033 VALUE +01. OJRIC089
|
|
01034 * JOB NAME OJRIC089
|
|
01035 10 FILLER PIC X(08) OJRIC089
|
|
01036 VALUE 'DTSBR308'. OJRIC089
|
|
01037 * FILLER - END OF KEY OJRIC089
|
|
01038 10 FILLER PIC X(06) OJRIC089
|
|
01039 VALUE SPACES. OJRIC089
|
|
01040 * BUSINESS AREA OJRIC089
|
|
01041 10 FILLER PIC X(02) OJRIC089
|
|
01042 VALUE '03'. OJRIC089
|
|
01043 * JOB DESCRIPTION OJRIC089
|
|
01044 10 FILLER PIC X(34) OJRIC089
|
|
01045 VALUE 'EMPLOYER ACCOUNTS CREDIT REPORT '. OJRIC089
|
|
01046 * JOB TYPE OJRIC089
|
|
01047 10 FILLER PIC X(01) OJRIC089
|
|
01048 VALUE '2'. OJRIC089
|
|
01049 * LAST RUN DATE OJRIC089
|
|
01050 10 FILLER PIC S9(09) COMP-3 OJRIC089
|
|
01051 VALUE ZEROS. OJRIC089
|
|
01052 * PARM AREA START --------------------------------------------- OJRIC089
|
|
01053 * PARM AREA #1 OJRIC089
|
|
01054 10 PARM-DATA-ENTRY. OJRIC089
|
|
01055 * PARM DESCRIPTION OJRIC089
|
|
01056 15 FILLER PIC X(32) OJRIC089
|
|
01057 VALUE 'SHOULD NOT DISPLAY '. OJRIC089
|
|
01058 * PARM TYPE OJRIC089
|
|
01059 15 FILLER PIC X(02) OJRIC089
|
|
01060 VALUE '99'. OJRIC089
|
|
01061 * PARM VALUE OJRIC089
|
|
01062 15 FILLER PIC X(32). OJRIC089
|
|
01063 * PARM LENGTH OJRIC089
|
|
01064 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01065 VALUE ZEROS. OJRIC089
|
|
01066 * PARM AREA #2 OJRIC089
|
|
01067 10 PARM-DATA-ENTRY. OJRIC089
|
|
01068 * PARM DESCRIPTION OJRIC089
|
|
01069 15 FILLER PIC X(32) OJRIC089
|
|
01070 VALUE ' '. OJRIC089
|
|
01071 * PARM TYPE OJRIC089
|
|
01072 15 FILLER PIC X(02) OJRIC089
|
|
01073 VALUE '99'. OJRIC089
|
|
01074 * PARM VALUE OJRIC089
|
|
01075 15 FILLER PIC X(32). OJRIC089
|
|
01076 * PARM LENGTH OJRIC089
|
|
01077 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01078 VALUE ZEROS. OJRIC089
|
|
01079 * PARM AREA #3 OJRIC089
|
|
01080 10 PARM-DATA-ENTRY. OJRIC089
|
|
01081 * PARM DESCRIPTION OJRIC089
|
|
01082 15 FILLER PIC X(32) OJRIC089
|
|
01083 VALUE ' '. OJRIC089
|
|
01084 * PARM TYPE OJRIC089
|
|
01085 15 FILLER PIC X(02) OJRIC089
|
|
01086 VALUE '99'. OJRIC089
|
|
01087 * PARM VALUE OJRIC089
|
|
01088 15 FILLER PIC X(32). OJRIC089
|
|
01089 * PARM LENGTH OJRIC089
|
|
01090 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01091 VALUE ZEROS. OJRIC089
|
|
01092 * PARM AREA #4 OJRIC089
|
|
01093 10 PARM-DATA-ENTRY. OJRIC089
|
|
01094 * PARM DESCRIPTION OJRIC089
|
|
01095 15 FILLER PIC X(32) OJRIC089
|
|
01096 VALUE ' '. OJRIC089
|
|
01097 * PARM TYPE OJRIC089
|
|
01098 15 FILLER PIC X(02) OJRIC089
|
|
01099 VALUE '99'. OJRIC089
|
|
01100 * PARM VALUE OJRIC089
|
|
01101 15 FILLER PIC X(32). OJRIC089
|
|
01102 * PARM LENGTH OJRIC089
|
|
01103 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01104 VALUE ZEROS. OJRIC089
|
|
01105 OJRIC089
|
|
01106 * PARM AREA #5 OJRIC089
|
|
01107 10 PARM-DATA-ENTRY. OJRIC089
|
|
01108 * PARM DESCRIPTION OJRIC089
|
|
01109 15 FILLER PIC X(32) OJRIC089
|
|
01110 VALUE ' '. OJRIC089
|
|
01111 * PARM TYPE OJRIC089
|
|
01112 15 FILLER PIC X(02) OJRIC089
|
|
01113 VALUE '99'. OJRIC089
|
|
01114 * PARM VALUE OJRIC089
|
|
01115 15 FILLER PIC X(32). OJRIC089
|
|
01116 * PARM LENGTH OJRIC089
|
|
01117 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01118 VALUE ZEROS. OJRIC089
|
|
01119 OJRIC089
|
|
01120 * PARM AREA #6 OJRIC089
|
|
01121 10 PARM-DATA-ENTRY. OJRIC089
|
|
01122 * PARM DESCRIPTION OJRIC089
|
|
01123 15 FILLER PIC X(32) OJRIC089
|
|
01124 VALUE ' '. OJRIC089
|
|
01125 * PARM TYPE OJRIC089
|
|
01126 15 FILLER PIC X(02) OJRIC089
|
|
01127 VALUE '99'. OJRIC089
|
|
01128 * PARM VALUE OJRIC089
|
|
01129 15 FILLER PIC X(32). OJRIC089
|
|
01130 * PARM LENGTH OJRIC089
|
|
01131 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01132 VALUE ZEROS. OJRIC089
|
|
01133 OJRIC089
|
|
01134 * PARM AREA #7 OJRIC089
|
|
01135 10 PARM-DATA-ENTRY. OJRIC089
|
|
01136 * PARM DESCRIPTION OJRIC089
|
|
01137 15 FILLER PIC X(32) OJRIC089
|
|
01138 VALUE ' '. OJRIC089
|
|
01139 * PARM TYPE OJRIC089
|
|
01140 15 FILLER PIC X(02) OJRIC089
|
|
01141 VALUE '99'. OJRIC089
|
|
01142 * PARM VALUE OJRIC089
|
|
01143 15 FILLER PIC X(32). OJRIC089
|
|
01144 * PARM LENGTH OJRIC089
|
|
01145 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01146 VALUE ZEROS. OJRIC089
|
|
01147 OJRIC089
|
|
01148 * PARM AREA #8 OJRIC089
|
|
01149 10 PARM-DATA-ENTRY. OJRIC089
|
|
01150 * PARM DESCRIPTION OJRIC089
|
|
01151 15 FILLER PIC X(32) OJRIC089
|
|
01152 VALUE ' '. OJRIC089
|
|
01153 * PARM TYPE OJRIC089
|
|
01154 15 FILLER PIC X(02) OJRIC089
|
|
01155 VALUE '99'. OJRIC089
|
|
01156 * PARM VALUE OJRIC089
|
|
01157 15 FILLER PIC X(32). OJRIC089
|
|
01158 * PARM LENGTH OJRIC089
|
|
01159 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01160 VALUE ZEROS. OJRIC089
|
|
01161 OJRIC089
|
|
01162 * PARM AREA #9 OJRIC089
|
|
01163 10 PARM-DATA-ENTRY. OJRIC089
|
|
01164 * PARM DESCRIPTION OJRIC089
|
|
01165 15 FILLER PIC X(32) OJRIC089
|
|
01166 VALUE ' '. OJRIC089
|
|
01167 * PARM TYPE OJRIC089
|
|
01168 15 FILLER PIC X(02) OJRIC089
|
|
01169 VALUE '99'. OJRIC089
|
|
01170 * PARM VALUE OJRIC089
|
|
01171 15 FILLER PIC X(32). OJRIC089
|
|
01172 * PARM LENGTH OJRIC089
|
|
01173 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01174 VALUE ZEROS. OJRIC089
|
|
01175 OJRIC089
|
|
01176 * PARM AREA #10 OJRIC089
|
|
01177 10 PARM-DATA-ENTRY. OJRIC089
|
|
01178 * PARM DESCRIPTION OJRIC089
|
|
01179 15 FILLER PIC X(32) OJRIC089
|
|
01180 VALUE ' '. OJRIC089
|
|
01181 * PARM TYPE OJRIC089
|
|
01182 15 FILLER PIC X(02) OJRIC089
|
|
01183 VALUE '99'. OJRIC089
|
|
01184 * PARM VALUE OJRIC089
|
|
01185 15 FILLER PIC X(32). OJRIC089
|
|
01186 * PARM LENGTH OJRIC089
|
|
01187 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01188 VALUE ZEROS. OJRIC089
|
|
01189 OJRIC089
|
|
01190 * PARM AREA #11 OJRIC089
|
|
01191 10 PARM-DATA-ENTRY. OJRIC089
|
|
01192 * PARM DESCRIPTION OJRIC089
|
|
01193 15 FILLER PIC X(32) OJRIC089
|
|
01194 VALUE ' '. OJRIC089
|
|
01195 * PARM TYPE OJRIC089
|
|
01196 15 FILLER PIC X(02) OJRIC089
|
|
01197 VALUE '99'. OJRIC089
|
|
01198 * PARM VALUE OJRIC089
|
|
01199 15 FILLER PIC X(32). OJRIC089
|
|
01200 * PARM LENGTH OJRIC089
|
|
01201 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01202 VALUE ZEROS. OJRIC089
|
|
01203 OJRIC089
|
|
01204 * PARM AREA #12 OJRIC089
|
|
01205 10 PARM-DATA-ENTRY. OJRIC089
|
|
01206 * PARM DESCRIPTION OJRIC089
|
|
01207 15 FILLER PIC X(32) OJRIC089
|
|
01208 VALUE ' '. OJRIC089
|
|
01209 * PARM TYPE OJRIC089
|
|
01210 15 FILLER PIC X(02) OJRIC089
|
|
01211 VALUE '99'. OJRIC089
|
|
01212 * PARM VALUE OJRIC089
|
|
01213 15 FILLER PIC X(32). OJRIC089
|
|
01214 * PARM LENGTH OJRIC089
|
|
01215 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01216 VALUE ZEROS. OJRIC089
|
|
01217 OJRIC089
|
|
01218 * PARM AREA #13 OJRIC089
|
|
01219 10 PARM-DATA-ENTRY. OJRIC089
|
|
01220 * PARM DESCRIPTION OJRIC089
|
|
01221 15 FILLER PIC X(32) OJRIC089
|
|
01222 VALUE ' '. OJRIC089
|
|
01223 * PARM TYPE OJRIC089
|
|
01224 15 FILLER PIC X(02) OJRIC089
|
|
01225 VALUE '99'. OJRIC089
|
|
01226 * PARM VALUE OJRIC089
|
|
01227 15 FILLER PIC X(32). OJRIC089
|
|
01228 * PARM LENGTH OJRIC089
|
|
01229 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01230 VALUE ZEROS. OJRIC089
|
|
01231 OJRIC089
|
|
01232 * PARM AREA #14 OJRIC089
|
|
01233 10 PARM-DATA-ENTRY. OJRIC089
|
|
01234 * PARM DESCRIPTION OJRIC089
|
|
01235 15 FILLER PIC X(32) OJRIC089
|
|
01236 VALUE ' '. OJRIC089
|
|
01237 * PARM TYPE OJRIC089
|
|
01238 15 FILLER PIC X(02) OJRIC089
|
|
01239 VALUE '99'. OJRIC089
|
|
01240 * PARM VALUE OJRIC089
|
|
01241 15 FILLER PIC X(32). OJRIC089
|
|
01242 * PARM LENGTH OJRIC089
|
|
01243 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01244 VALUE ZEROS. OJRIC089
|
|
01245 OJRIC089
|
|
01246 * PARM AREA #15 OJRIC089
|
|
01247 10 PARM-DATA-ENTRY. OJRIC089
|
|
01248 * PARM DESCRIPTION OJRIC089
|
|
01249 15 FILLER PIC X(32) OJRIC089
|
|
01250 VALUE ' '. OJRIC089
|
|
01251 * PARM TYPE OJRIC089
|
|
01252 15 FILLER PIC X(02) OJRIC089
|
|
01253 VALUE '99'. OJRIC089
|
|
01254 * PARM VALUE OJRIC089
|
|
01255 15 FILLER PIC X(32). OJRIC089
|
|
01256 * PARM LENGTH OJRIC089
|
|
01257 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01258 VALUE ZEROS. OJRIC089
|
|
01259 OJRIC089
|
|
01260 * PARM AREA #16 OJRIC089
|
|
01261 10 PARM-DATA-ENTRY. OJRIC089
|
|
01262 * PARM DESCRIPTION OJRIC089
|
|
01263 15 FILLER PIC X(32) OJRIC089
|
|
01264 VALUE ' '. OJRIC089
|
|
01265 * PARM TYPE OJRIC089
|
|
01266 15 FILLER PIC X(02) OJRIC089
|
|
01267 VALUE '99'. OJRIC089
|
|
01268 * PARM VALUE OJRIC089
|
|
01269 15 FILLER PIC X(32). OJRIC089
|
|
01270 * PARM LENGTH OJRIC089
|
|
01271 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01272 VALUE ZEROS. OJRIC089
|
|
01273 * PARM AREA END --------------------------------------------- OJRIC089
|
|
01274 10 FILLER PIC X(30) OJRIC089
|
|
01275 VALUE SPACES. OJRIC089
|
|
01276 OJRIC089
|
|
01277 ******************* R E P O R T # 6 ****************************OJRIC089
|
|
01278 * ENTRY 6 OJRIC089
|
|
01279 05 FOJR-TABLE-ENTRY. OJRIC089
|
|
01280 * REPT TYPE OJRIC089
|
|
01281 10 FILLER PIC S9(04) COMP OJRIC089
|
|
01282 VALUE +01. OJRIC089
|
|
01283 * JOB NAME OJRIC089
|
|
01284 10 FILLER PIC X(08) OJRIC089
|
|
01285 VALUE 'DTSBR311'. OJRIC089
|
|
01286 * FILLER - END OF KEY OJRIC089
|
|
01287 10 FILLER PIC X(06) OJRIC089
|
|
01288 VALUE SPACES. OJRIC089
|
|
01289 * BUSINESS AREA OJRIC089
|
|
01290 10 FILLER PIC X(02) OJRIC089
|
|
01291 VALUE '03'. OJRIC089
|
|
01292 * JOB DESCRIPTION OJRIC089
|
|
01293 10 FILLER PIC X(34) OJRIC089
|
|
01294 VALUE 'LIST OF PAYMENT TRANSACTIONS '. OJRIC089
|
|
01295 * JOB TYPE OJRIC089
|
|
01296 10 FILLER PIC X(01) OJRIC089
|
|
01297 VALUE '2'. OJRIC089
|
|
01298 * LAST RUN DATE OJRIC089
|
|
01299 10 FILLER PIC S9(09) COMP-3 OJRIC089
|
|
01300 VALUE ZEROS. OJRIC089
|
|
01301 * PARM AREA START --------------------------------------------- OJRIC089
|
|
01302 * PARM AREA #1 OJRIC089
|
|
01303 10 PARM-DATA-ENTRY. OJRIC089
|
|
01304 * PARM DESCRIPTION OJRIC089
|
|
01305 15 FILLER PIC X(32) OJRIC089
|
|
01306 VALUE 'PERIOD START DATE '. OJRIC089
|
|
01307 * PARM TYPE OJRIC089
|
|
01308 15 FILLER PIC X(02) OJRIC089
|
|
01309 VALUE '00'. OJRIC089
|
|
01310 * PARM VALUE OJRIC089
|
|
01311 15 FILLER PIC X(32). OJRIC089
|
|
01312 * PARM LENGTH OJRIC089
|
|
01313 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01314 VALUE +6. OJRIC089
|
|
01315 * PARM AREA #2 OJRIC089
|
|
01316 10 PARM-DATA-ENTRY. OJRIC089
|
|
01317 * PARM DESCRIPTION OJRIC089
|
|
01318 15 FILLER PIC X(32) OJRIC089
|
|
01319 VALUE 'PERIOD END DATE '. OJRIC089
|
|
01320 * PARM TYPE OJRIC089
|
|
01321 15 FILLER PIC X(02) OJRIC089
|
|
01322 VALUE '00'. OJRIC089
|
|
01323 * PARM VALUE OJRIC089
|
|
01324 15 FILLER PIC X(32). OJRIC089
|
|
01325 * PARM LENGTH OJRIC089
|
|
01326 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01327 VALUE +6. OJRIC089
|
|
01328 * PARM AREA #3 OJRIC089
|
|
01329 10 PARM-DATA-ENTRY. OJRIC089
|
|
01330 * PARM DESCRIPTION OJRIC089
|
|
01331 15 FILLER PIC X(32) OJRIC089
|
|
01332 VALUE 'SHOULD NOT DISPLAY '. OJRIC089
|
|
01333 * PARM TYPE OJRIC089
|
|
01334 15 FILLER PIC X(02) OJRIC089
|
|
01335 VALUE '00'. OJRIC089
|
|
01336 * PARM VALUE OJRIC089
|
|
01337 15 FILLER PIC X(32). OJRIC089
|
|
01338 * PARM LENGTH OJRIC089
|
|
01339 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01340 VALUE ZEROS. OJRIC089
|
|
01341 * PARM AREA #4 OJRIC089
|
|
01342 10 PARM-DATA-ENTRY. OJRIC089
|
|
01343 * PARM DESCRIPTION OJRIC089
|
|
01344 15 FILLER PIC X(32) OJRIC089
|
|
01345 VALUE ' '. OJRIC089
|
|
01346 * PARM TYPE OJRIC089
|
|
01347 15 FILLER PIC X(02) OJRIC089
|
|
01348 VALUE '99'. OJRIC089
|
|
01349 * PARM VALUE OJRIC089
|
|
01350 15 FILLER PIC X(32). OJRIC089
|
|
01351 * PARM LENGTH OJRIC089
|
|
01352 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01353 VALUE ZEROS. OJRIC089
|
|
01354 OJRIC089
|
|
01355 * PARM AREA #5 OJRIC089
|
|
01356 10 PARM-DATA-ENTRY. OJRIC089
|
|
01357 * PARM DESCRIPTION OJRIC089
|
|
01358 15 FILLER PIC X(32) OJRIC089
|
|
01359 VALUE ' '. OJRIC089
|
|
01360 * PARM TYPE OJRIC089
|
|
01361 15 FILLER PIC X(02) OJRIC089
|
|
01362 VALUE '99'. OJRIC089
|
|
01363 * PARM VALUE OJRIC089
|
|
01364 15 FILLER PIC X(32). OJRIC089
|
|
01365 * PARM LENGTH OJRIC089
|
|
01366 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01367 VALUE ZEROS. OJRIC089
|
|
01368 OJRIC089
|
|
01369 * PARM AREA #6 OJRIC089
|
|
01370 10 PARM-DATA-ENTRY. OJRIC089
|
|
01371 * PARM DESCRIPTION OJRIC089
|
|
01372 15 FILLER PIC X(32) OJRIC089
|
|
01373 VALUE ' '. OJRIC089
|
|
01374 * PARM TYPE OJRIC089
|
|
01375 15 FILLER PIC X(02) OJRIC089
|
|
01376 VALUE '99'. OJRIC089
|
|
01377 * PARM VALUE OJRIC089
|
|
01378 15 FILLER PIC X(32). OJRIC089
|
|
01379 * PARM LENGTH OJRIC089
|
|
01380 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01381 VALUE ZEROS. OJRIC089
|
|
01382 OJRIC089
|
|
01383 * PARM AREA #7 OJRIC089
|
|
01384 10 PARM-DATA-ENTRY. OJRIC089
|
|
01385 * PARM DESCRIPTION OJRIC089
|
|
01386 15 FILLER PIC X(32) OJRIC089
|
|
01387 VALUE ' '. OJRIC089
|
|
01388 * PARM TYPE OJRIC089
|
|
01389 15 FILLER PIC X(02) OJRIC089
|
|
01390 VALUE '99'. OJRIC089
|
|
01391 * PARM VALUE OJRIC089
|
|
01392 15 FILLER PIC X(32). OJRIC089
|
|
01393 * PARM LENGTH OJRIC089
|
|
01394 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01395 VALUE ZEROS. OJRIC089
|
|
01396 OJRIC089
|
|
01397 * PARM AREA #8 OJRIC089
|
|
01398 10 PARM-DATA-ENTRY. OJRIC089
|
|
01399 * PARM DESCRIPTION OJRIC089
|
|
01400 15 FILLER PIC X(32) OJRIC089
|
|
01401 VALUE ' '. OJRIC089
|
|
01402 * PARM TYPE OJRIC089
|
|
01403 15 FILLER PIC X(02) OJRIC089
|
|
01404 VALUE '99'. OJRIC089
|
|
01405 * PARM VALUE OJRIC089
|
|
01406 15 FILLER PIC X(32). OJRIC089
|
|
01407 * PARM LENGTH OJRIC089
|
|
01408 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01409 VALUE ZEROS. OJRIC089
|
|
01410 OJRIC089
|
|
01411 * PARM AREA #9 OJRIC089
|
|
01412 10 PARM-DATA-ENTRY. OJRIC089
|
|
01413 * PARM DESCRIPTION OJRIC089
|
|
01414 15 FILLER PIC X(32) OJRIC089
|
|
01415 VALUE ' '. OJRIC089
|
|
01416 * PARM TYPE OJRIC089
|
|
01417 15 FILLER PIC X(02) OJRIC089
|
|
01418 VALUE '99'. OJRIC089
|
|
01419 * PARM VALUE OJRIC089
|
|
01420 15 FILLER PIC X(32). OJRIC089
|
|
01421 * PARM LENGTH OJRIC089
|
|
01422 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01423 VALUE ZEROS. OJRIC089
|
|
01424 OJRIC089
|
|
01425 * PARM AREA #10 OJRIC089
|
|
01426 10 PARM-DATA-ENTRY. OJRIC089
|
|
01427 * PARM DESCRIPTION OJRIC089
|
|
01428 15 FILLER PIC X(32) OJRIC089
|
|
01429 VALUE ' '. OJRIC089
|
|
01430 * PARM TYPE OJRIC089
|
|
01431 15 FILLER PIC X(02) OJRIC089
|
|
01432 VALUE '99'. OJRIC089
|
|
01433 * PARM VALUE OJRIC089
|
|
01434 15 FILLER PIC X(32). OJRIC089
|
|
01435 * PARM LENGTH OJRIC089
|
|
01436 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01437 VALUE ZEROS. OJRIC089
|
|
01438 OJRIC089
|
|
01439 * PARM AREA #11 OJRIC089
|
|
01440 10 PARM-DATA-ENTRY. OJRIC089
|
|
01441 * PARM DESCRIPTION OJRIC089
|
|
01442 15 FILLER PIC X(32) OJRIC089
|
|
01443 VALUE ' '. OJRIC089
|
|
01444 * PARM TYPE OJRIC089
|
|
01445 15 FILLER PIC X(02) OJRIC089
|
|
01446 VALUE '99'. OJRIC089
|
|
01447 * PARM VALUE OJRIC089
|
|
01448 15 FILLER PIC X(32). OJRIC089
|
|
01449 * PARM LENGTH OJRIC089
|
|
01450 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01451 VALUE ZEROS. OJRIC089
|
|
01452 OJRIC089
|
|
01453 * PARM AREA #12 OJRIC089
|
|
01454 10 PARM-DATA-ENTRY. OJRIC089
|
|
01455 * PARM DESCRIPTION OJRIC089
|
|
01456 15 FILLER PIC X(32) OJRIC089
|
|
01457 VALUE ' '. OJRIC089
|
|
01458 * PARM TYPE OJRIC089
|
|
01459 15 FILLER PIC X(02) OJRIC089
|
|
01460 VALUE '99'. OJRIC089
|
|
01461 * PARM VALUE OJRIC089
|
|
01462 15 FILLER PIC X(32). OJRIC089
|
|
01463 * PARM LENGTH OJRIC089
|
|
01464 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01465 VALUE ZEROS. OJRIC089
|
|
01466 OJRIC089
|
|
01467 * PARM AREA #13 OJRIC089
|
|
01468 10 PARM-DATA-ENTRY. OJRIC089
|
|
01469 * PARM DESCRIPTION OJRIC089
|
|
01470 15 FILLER PIC X(32) OJRIC089
|
|
01471 VALUE ' '. OJRIC089
|
|
01472 * PARM TYPE OJRIC089
|
|
01473 15 FILLER PIC X(02) OJRIC089
|
|
01474 VALUE '99'. OJRIC089
|
|
01475 * PARM VALUE OJRIC089
|
|
01476 15 FILLER PIC X(32). OJRIC089
|
|
01477 * PARM LENGTH OJRIC089
|
|
01478 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01479 VALUE ZEROS. OJRIC089
|
|
01480 OJRIC089
|
|
01481 * PARM AREA #14 OJRIC089
|
|
01482 10 PARM-DATA-ENTRY. OJRIC089
|
|
01483 * PARM DESCRIPTION OJRIC089
|
|
01484 15 FILLER PIC X(32) OJRIC089
|
|
01485 VALUE ' '. OJRIC089
|
|
01486 * PARM TYPE OJRIC089
|
|
01487 15 FILLER PIC X(02) OJRIC089
|
|
01488 VALUE '99'. OJRIC089
|
|
01489 * PARM VALUE OJRIC089
|
|
01490 15 FILLER PIC X(32). OJRIC089
|
|
01491 * PARM LENGTH OJRIC089
|
|
01492 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01493 VALUE ZEROS. OJRIC089
|
|
01494 OJRIC089
|
|
01495 * PARM AREA #15 OJRIC089
|
|
01496 10 PARM-DATA-ENTRY. OJRIC089
|
|
01497 * PARM DESCRIPTION OJRIC089
|
|
01498 15 FILLER PIC X(32) OJRIC089
|
|
01499 VALUE ' '. OJRIC089
|
|
01500 * PARM TYPE OJRIC089
|
|
01501 15 FILLER PIC X(02) OJRIC089
|
|
01502 VALUE '99'. OJRIC089
|
|
01503 * PARM VALUE OJRIC089
|
|
01504 15 FILLER PIC X(32). OJRIC089
|
|
01505 * PARM LENGTH OJRIC089
|
|
01506 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01507 VALUE ZEROS. OJRIC089
|
|
01508 OJRIC089
|
|
01509 * PARM AREA #16 OJRIC089
|
|
01510 10 PARM-DATA-ENTRY. OJRIC089
|
|
01511 * PARM DESCRIPTION OJRIC089
|
|
01512 15 FILLER PIC X(32) OJRIC089
|
|
01513 VALUE ' '. OJRIC089
|
|
01514 * PARM TYPE OJRIC089
|
|
01515 15 FILLER PIC X(02) OJRIC089
|
|
01516 VALUE '99'. OJRIC089
|
|
01517 * PARM VALUE OJRIC089
|
|
01518 15 FILLER PIC X(32). OJRIC089
|
|
01519 * PARM LENGTH OJRIC089
|
|
01520 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01521 VALUE ZEROS. OJRIC089
|
|
01522 * PARM AREA END --------------------------------------------- OJRIC089
|
|
01523 10 FILLER PIC X(30) OJRIC089
|
|
01524 VALUE SPACES. OJRIC089
|
|
01525 OJRIC089
|
|
01526 ******************* R E P O R T # 7 ***************************OJRIC089
|
|
01527 * ENTRY 7 OJRIC089
|
|
01528 05 FOJR-TABLE-ENTRY. OJRIC089
|
|
01529 * REPT TYPE OJRIC089
|
|
01530 10 FILLER PIC S9(04) COMP OJRIC089
|
|
01531 VALUE +01. OJRIC089
|
|
01532 * JOB NAME OJRIC089
|
|
01533 10 FILLER PIC X(08) OJRIC089
|
|
01534 VALUE 'DTSBR410'. OJRIC089
|
|
01535 * FILLER - END OF KEY OJRIC089
|
|
01536 10 FILLER PIC X(06) OJRIC089
|
|
01537 VALUE SPACES. OJRIC089
|
|
01538 * BUSINESS AREA OJRIC089
|
|
01539 10 FILLER PIC X(02) OJRIC089
|
|
01540 VALUE '04'. OJRIC089
|
|
01541 * JOB DESCRIPTION OJRIC089
|
|
01542 10 FILLER PIC X(34) OJRIC089
|
|
01543 VALUE 'OPEN APPEAL LIST '. OJRIC089
|
|
01544 * JOB TYPE OJRIC089
|
|
01545 10 FILLER PIC X(01) OJRIC089
|
|
01546 VALUE '2'. OJRIC089
|
|
01547 * LAST RUN DATE OJRIC089
|
|
01548 10 FILLER PIC S9(09) COMP-3 OJRIC089
|
|
01549 VALUE ZEROS. OJRIC089
|
|
01550 * PARM AREA START --------------------------------------------- OJRIC089
|
|
01551 * PARM AREA #1 OJRIC089
|
|
01552 10 PARM-DATA-ENTRY. OJRIC089
|
|
01553 * PARM DESCRIPTION OJRIC089
|
|
01554 15 FILLER PIC X(32) OJRIC089
|
|
01555 VALUE 'SHOULD NOT DISPLAY '. OJRIC089
|
|
01556 * PARM TYPE OJRIC089
|
|
01557 15 FILLER PIC X(02) OJRIC089
|
|
01558 VALUE '99'. OJRIC089
|
|
01559 * PARM VALUE OJRIC089
|
|
01560 15 FILLER PIC X(32). OJRIC089
|
|
01561 * PARM LENGTH OJRIC089
|
|
01562 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01563 VALUE ZEROS. OJRIC089
|
|
01564 * PARM AREA #2 OJRIC089
|
|
01565 10 PARM-DATA-ENTRY. OJRIC089
|
|
01566 * PARM DESCRIPTION OJRIC089
|
|
01567 15 FILLER PIC X(32) OJRIC089
|
|
01568 VALUE ' '. OJRIC089
|
|
01569 * PARM TYPE OJRIC089
|
|
01570 15 FILLER PIC X(02) OJRIC089
|
|
01571 VALUE '99'. OJRIC089
|
|
01572 * PARM VALUE OJRIC089
|
|
01573 15 FILLER PIC X(32). OJRIC089
|
|
01574 * PARM LENGTH OJRIC089
|
|
01575 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01576 VALUE ZEROS. OJRIC089
|
|
01577 * PARM AREA #3 OJRIC089
|
|
01578 10 PARM-DATA-ENTRY. OJRIC089
|
|
01579 * PARM DESCRIPTION OJRIC089
|
|
01580 15 FILLER PIC X(32) OJRIC089
|
|
01581 VALUE ' '. OJRIC089
|
|
01582 * PARM TYPE OJRIC089
|
|
01583 15 FILLER PIC X(02) OJRIC089
|
|
01584 VALUE '99'. OJRIC089
|
|
01585 * PARM VALUE OJRIC089
|
|
01586 15 FILLER PIC X(32). OJRIC089
|
|
01587 * PARM LENGTH OJRIC089
|
|
01588 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01589 VALUE ZEROS. OJRIC089
|
|
01590 * PARM AREA #4 OJRIC089
|
|
01591 10 PARM-DATA-ENTRY. OJRIC089
|
|
01592 * PARM DESCRIPTION OJRIC089
|
|
01593 15 FILLER PIC X(32) OJRIC089
|
|
01594 VALUE ' '. OJRIC089
|
|
01595 * PARM TYPE OJRIC089
|
|
01596 15 FILLER PIC X(02) OJRIC089
|
|
01597 VALUE '99'. OJRIC089
|
|
01598 * PARM VALUE OJRIC089
|
|
01599 15 FILLER PIC X(32). OJRIC089
|
|
01600 * PARM LENGTH OJRIC089
|
|
01601 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01602 VALUE ZEROS. OJRIC089
|
|
01603 OJRIC089
|
|
01604 * PARM AREA #5 OJRIC089
|
|
01605 10 PARM-DATA-ENTRY. OJRIC089
|
|
01606 * PARM DESCRIPTION OJRIC089
|
|
01607 15 FILLER PIC X(32) OJRIC089
|
|
01608 VALUE ' '. OJRIC089
|
|
01609 * PARM TYPE OJRIC089
|
|
01610 15 FILLER PIC X(02) OJRIC089
|
|
01611 VALUE '99'. OJRIC089
|
|
01612 * PARM VALUE OJRIC089
|
|
01613 15 FILLER PIC X(32). OJRIC089
|
|
01614 * PARM LENGTH OJRIC089
|
|
01615 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01616 VALUE ZEROS. OJRIC089
|
|
01617 OJRIC089
|
|
01618 * PARM AREA #6 OJRIC089
|
|
01619 10 PARM-DATA-ENTRY. OJRIC089
|
|
01620 * PARM DESCRIPTION OJRIC089
|
|
01621 15 FILLER PIC X(32) OJRIC089
|
|
01622 VALUE ' '. OJRIC089
|
|
01623 * PARM TYPE OJRIC089
|
|
01624 15 FILLER PIC X(02) OJRIC089
|
|
01625 VALUE '99'. OJRIC089
|
|
01626 * PARM VALUE OJRIC089
|
|
01627 15 FILLER PIC X(32). OJRIC089
|
|
01628 * PARM LENGTH OJRIC089
|
|
01629 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01630 VALUE ZEROS. OJRIC089
|
|
01631 OJRIC089
|
|
01632 * PARM AREA #7 OJRIC089
|
|
01633 10 PARM-DATA-ENTRY. OJRIC089
|
|
01634 * PARM DESCRIPTION OJRIC089
|
|
01635 15 FILLER PIC X(32) OJRIC089
|
|
01636 VALUE ' '. OJRIC089
|
|
01637 * PARM TYPE OJRIC089
|
|
01638 15 FILLER PIC X(02) OJRIC089
|
|
01639 VALUE '99'. OJRIC089
|
|
01640 * PARM VALUE OJRIC089
|
|
01641 15 FILLER PIC X(32). OJRIC089
|
|
01642 * PARM LENGTH OJRIC089
|
|
01643 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01644 VALUE ZEROS. OJRIC089
|
|
01645 OJRIC089
|
|
01646 * PARM AREA #8 OJRIC089
|
|
01647 10 PARM-DATA-ENTRY. OJRIC089
|
|
01648 * PARM DESCRIPTION OJRIC089
|
|
01649 15 FILLER PIC X(32) OJRIC089
|
|
01650 VALUE ' '. OJRIC089
|
|
01651 * PARM TYPE OJRIC089
|
|
01652 15 FILLER PIC X(02) OJRIC089
|
|
01653 VALUE '99'. OJRIC089
|
|
01654 * PARM VALUE OJRIC089
|
|
01655 15 FILLER PIC X(32). OJRIC089
|
|
01656 * PARM LENGTH OJRIC089
|
|
01657 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01658 VALUE ZEROS. OJRIC089
|
|
01659 OJRIC089
|
|
01660 * PARM AREA #9 OJRIC089
|
|
01661 10 PARM-DATA-ENTRY. OJRIC089
|
|
01662 * PARM DESCRIPTION OJRIC089
|
|
01663 15 FILLER PIC X(32) OJRIC089
|
|
01664 VALUE ' '. OJRIC089
|
|
01665 * PARM TYPE OJRIC089
|
|
01666 15 FILLER PIC X(02) OJRIC089
|
|
01667 VALUE '99'. OJRIC089
|
|
01668 * PARM VALUE OJRIC089
|
|
01669 15 FILLER PIC X(32). OJRIC089
|
|
01670 * PARM LENGTH OJRIC089
|
|
01671 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01672 VALUE ZEROS. OJRIC089
|
|
01673 OJRIC089
|
|
01674 * PARM AREA #10 OJRIC089
|
|
01675 10 PARM-DATA-ENTRY. OJRIC089
|
|
01676 * PARM DESCRIPTION OJRIC089
|
|
01677 15 FILLER PIC X(32) OJRIC089
|
|
01678 VALUE ' '. OJRIC089
|
|
01679 * PARM TYPE OJRIC089
|
|
01680 15 FILLER PIC X(02) OJRIC089
|
|
01681 VALUE '99'. OJRIC089
|
|
01682 * PARM VALUE OJRIC089
|
|
01683 15 FILLER PIC X(32). OJRIC089
|
|
01684 * PARM LENGTH OJRIC089
|
|
01685 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01686 VALUE ZEROS. OJRIC089
|
|
01687 OJRIC089
|
|
01688 * PARM AREA #11 OJRIC089
|
|
01689 10 PARM-DATA-ENTRY. OJRIC089
|
|
01690 * PARM DESCRIPTION OJRIC089
|
|
01691 15 FILLER PIC X(32) OJRIC089
|
|
01692 VALUE ' '. OJRIC089
|
|
01693 * PARM TYPE OJRIC089
|
|
01694 15 FILLER PIC X(02) OJRIC089
|
|
01695 VALUE '99'. OJRIC089
|
|
01696 * PARM VALUE OJRIC089
|
|
01697 15 FILLER PIC X(32). OJRIC089
|
|
01698 * PARM LENGTH OJRIC089
|
|
01699 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01700 VALUE ZEROS. OJRIC089
|
|
01701 OJRIC089
|
|
01702 * PARM AREA #12 OJRIC089
|
|
01703 10 PARM-DATA-ENTRY. OJRIC089
|
|
01704 * PARM DESCRIPTION OJRIC089
|
|
01705 15 FILLER PIC X(32) OJRIC089
|
|
01706 VALUE ' '. OJRIC089
|
|
01707 * PARM TYPE OJRIC089
|
|
01708 15 FILLER PIC X(02) OJRIC089
|
|
01709 VALUE '99'. OJRIC089
|
|
01710 * PARM VALUE OJRIC089
|
|
01711 15 FILLER PIC X(32). OJRIC089
|
|
01712 * PARM LENGTH OJRIC089
|
|
01713 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01714 VALUE ZEROS. OJRIC089
|
|
01715 OJRIC089
|
|
01716 * PARM AREA #13 OJRIC089
|
|
01717 10 PARM-DATA-ENTRY. OJRIC089
|
|
01718 * PARM DESCRIPTION OJRIC089
|
|
01719 15 FILLER PIC X(32) OJRIC089
|
|
01720 VALUE ' '. OJRIC089
|
|
01721 * PARM TYPE OJRIC089
|
|
01722 15 FILLER PIC X(02) OJRIC089
|
|
01723 VALUE '99'. OJRIC089
|
|
01724 * PARM VALUE OJRIC089
|
|
01725 15 FILLER PIC X(32). OJRIC089
|
|
01726 * PARM LENGTH OJRIC089
|
|
01727 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01728 VALUE ZEROS. OJRIC089
|
|
01729 OJRIC089
|
|
01730 * PARM AREA #14 OJRIC089
|
|
01731 10 PARM-DATA-ENTRY. OJRIC089
|
|
01732 * PARM DESCRIPTION OJRIC089
|
|
01733 15 FILLER PIC X(32) OJRIC089
|
|
01734 VALUE ' '. OJRIC089
|
|
01735 * PARM TYPE OJRIC089
|
|
01736 15 FILLER PIC X(02) OJRIC089
|
|
01737 VALUE '99'. OJRIC089
|
|
01738 * PARM VALUE OJRIC089
|
|
01739 15 FILLER PIC X(32). OJRIC089
|
|
01740 * PARM LENGTH OJRIC089
|
|
01741 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01742 VALUE ZEROS. OJRIC089
|
|
01743 OJRIC089
|
|
01744 * PARM AREA #15 OJRIC089
|
|
01745 10 PARM-DATA-ENTRY. OJRIC089
|
|
01746 * PARM DESCRIPTION OJRIC089
|
|
01747 15 FILLER PIC X(32) OJRIC089
|
|
01748 VALUE ' '. OJRIC089
|
|
01749 * PARM TYPE OJRIC089
|
|
01750 15 FILLER PIC X(02) OJRIC089
|
|
01751 VALUE '99'. OJRIC089
|
|
01752 * PARM VALUE OJRIC089
|
|
01753 15 FILLER PIC X(32). OJRIC089
|
|
01754 * PARM LENGTH OJRIC089
|
|
01755 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01756 VALUE ZEROS. OJRIC089
|
|
01757 OJRIC089
|
|
01758 * PARM AREA #16 OJRIC089
|
|
01759 10 PARM-DATA-ENTRY. OJRIC089
|
|
01760 * PARM DESCRIPTION OJRIC089
|
|
01761 15 FILLER PIC X(32) OJRIC089
|
|
01762 VALUE ' '. OJRIC089
|
|
01763 * PARM TYPE OJRIC089
|
|
01764 15 FILLER PIC X(02) OJRIC089
|
|
01765 VALUE '99'. OJRIC089
|
|
01766 * PARM VALUE OJRIC089
|
|
01767 15 FILLER PIC X(32). OJRIC089
|
|
01768 * PARM LENGTH OJRIC089
|
|
01769 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01770 VALUE ZEROS. OJRIC089
|
|
01771 * PARM AREA END --------------------------------------------- OJRIC089
|
|
01772 10 FILLER PIC X(30) OJRIC089
|
|
01773 VALUE SPACES. OJRIC089
|
|
01774 OJRIC089
|
|
01775 ******************* R E P O R T # 8 ***************************OJRIC089
|
|
01776 * ENTRY 8 OJRIC089
|
|
01777 05 FOJR-TABLE-ENTRY. OJRIC089
|
|
01778 * REPT TYPE OJRIC089
|
|
01779 10 FILLER PIC S9(04) COMP OJRIC089
|
|
01780 VALUE +01. OJRIC089
|
|
01781 * JOB NAME OJRIC089
|
|
01782 10 FILLER PIC X(08) OJRIC089
|
|
01783 VALUE 'DTSBR411'. OJRIC089
|
|
01784 * FILLER - END OF KEY OJRIC089
|
|
01785 10 FILLER PIC X(06) OJRIC089
|
|
01786 VALUE SPACES. OJRIC089
|
|
01787 * BUSINESS AREA OJRIC089
|
|
01788 10 FILLER PIC X(02) OJRIC089
|
|
01789 VALUE '04'. OJRIC089
|
|
01790 * JOB DESCRIPTION OJRIC089
|
|
01791 10 FILLER PIC X(34) OJRIC089
|
|
01792 VALUE 'OPEN BANKRUPTCIES LIST '. OJRIC089
|
|
01793 * JOB TYPE OJRIC089
|
|
01794 10 FILLER PIC X(01) OJRIC089
|
|
01795 VALUE '2'. OJRIC089
|
|
01796 * LAST RUN DATE OJRIC089
|
|
01797 10 FILLER PIC S9(09) COMP-3 OJRIC089
|
|
01798 VALUE ZEROS. OJRIC089
|
|
01799 * PARM AREA START --------------------------------------------- OJRIC089
|
|
01800 * PARM AREA #1 OJRIC089
|
|
01801 10 PARM-DATA-ENTRY. OJRIC089
|
|
01802 * PARM DESCRIPTION OJRIC089
|
|
01803 15 FILLER PIC X(32) OJRIC089
|
|
01804 VALUE 'SHOULD NOT DISPLAY '. OJRIC089
|
|
01805 * PARM TYPE OJRIC089
|
|
01806 15 FILLER PIC X(02) OJRIC089
|
|
01807 VALUE '99'. OJRIC089
|
|
01808 * PARM VALUE OJRIC089
|
|
01809 15 FILLER PIC X(32). OJRIC089
|
|
01810 * PARM LENGTH OJRIC089
|
|
01811 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01812 VALUE ZEROS. OJRIC089
|
|
01813 * PARM AREA #2 OJRIC089
|
|
01814 10 PARM-DATA-ENTRY. OJRIC089
|
|
01815 * PARM DESCRIPTION OJRIC089
|
|
01816 15 FILLER PIC X(32) OJRIC089
|
|
01817 VALUE ' '. OJRIC089
|
|
01818 * PARM TYPE OJRIC089
|
|
01819 15 FILLER PIC X(02) OJRIC089
|
|
01820 VALUE '99'. OJRIC089
|
|
01821 * PARM VALUE OJRIC089
|
|
01822 15 FILLER PIC X(32). OJRIC089
|
|
01823 * PARM LENGTH OJRIC089
|
|
01824 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01825 VALUE ZEROS. OJRIC089
|
|
01826 * PARM AREA #3 OJRIC089
|
|
01827 10 PARM-DATA-ENTRY. OJRIC089
|
|
01828 * PARM DESCRIPTION OJRIC089
|
|
01829 15 FILLER PIC X(32) OJRIC089
|
|
01830 VALUE ' '. OJRIC089
|
|
01831 * PARM TYPE OJRIC089
|
|
01832 15 FILLER PIC X(02) OJRIC089
|
|
01833 VALUE '99'. OJRIC089
|
|
01834 * PARM VALUE OJRIC089
|
|
01835 15 FILLER PIC X(32). OJRIC089
|
|
01836 * PARM LENGTH OJRIC089
|
|
01837 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01838 VALUE ZEROS. OJRIC089
|
|
01839 * PARM AREA #4 OJRIC089
|
|
01840 10 PARM-DATA-ENTRY. OJRIC089
|
|
01841 * PARM DESCRIPTION OJRIC089
|
|
01842 15 FILLER PIC X(32) OJRIC089
|
|
01843 VALUE ' '. OJRIC089
|
|
01844 * PARM TYPE OJRIC089
|
|
01845 15 FILLER PIC X(02) OJRIC089
|
|
01846 VALUE '99'. OJRIC089
|
|
01847 * PARM VALUE OJRIC089
|
|
01848 15 FILLER PIC X(32). OJRIC089
|
|
01849 * PARM LENGTH OJRIC089
|
|
01850 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01851 VALUE ZEROS. OJRIC089
|
|
01852 OJRIC089
|
|
01853 * PARM AREA #5 OJRIC089
|
|
01854 10 PARM-DATA-ENTRY. OJRIC089
|
|
01855 * PARM DESCRIPTION OJRIC089
|
|
01856 15 FILLER PIC X(32) OJRIC089
|
|
01857 VALUE ' '. OJRIC089
|
|
01858 * PARM TYPE OJRIC089
|
|
01859 15 FILLER PIC X(02) OJRIC089
|
|
01860 VALUE '99'. OJRIC089
|
|
01861 * PARM VALUE OJRIC089
|
|
01862 15 FILLER PIC X(32). OJRIC089
|
|
01863 * PARM LENGTH OJRIC089
|
|
01864 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01865 VALUE ZEROS. OJRIC089
|
|
01866 OJRIC089
|
|
01867 * PARM AREA #6 OJRIC089
|
|
01868 10 PARM-DATA-ENTRY. OJRIC089
|
|
01869 * PARM DESCRIPTION OJRIC089
|
|
01870 15 FILLER PIC X(32) OJRIC089
|
|
01871 VALUE ' '. OJRIC089
|
|
01872 * PARM TYPE OJRIC089
|
|
01873 15 FILLER PIC X(02) OJRIC089
|
|
01874 VALUE '99'. OJRIC089
|
|
01875 * PARM VALUE OJRIC089
|
|
01876 15 FILLER PIC X(32). OJRIC089
|
|
01877 * PARM LENGTH OJRIC089
|
|
01878 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01879 VALUE ZEROS. OJRIC089
|
|
01880 OJRIC089
|
|
01881 * PARM AREA #7 OJRIC089
|
|
01882 10 PARM-DATA-ENTRY. OJRIC089
|
|
01883 * PARM DESCRIPTION OJRIC089
|
|
01884 15 FILLER PIC X(32) OJRIC089
|
|
01885 VALUE ' '. OJRIC089
|
|
01886 * PARM TYPE OJRIC089
|
|
01887 15 FILLER PIC X(02) OJRIC089
|
|
01888 VALUE '99'. OJRIC089
|
|
01889 * PARM VALUE OJRIC089
|
|
01890 15 FILLER PIC X(32). OJRIC089
|
|
01891 * PARM LENGTH OJRIC089
|
|
01892 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01893 VALUE ZEROS. OJRIC089
|
|
01894 OJRIC089
|
|
01895 * PARM AREA #8 OJRIC089
|
|
01896 10 PARM-DATA-ENTRY. OJRIC089
|
|
01897 * PARM DESCRIPTION OJRIC089
|
|
01898 15 FILLER PIC X(32) OJRIC089
|
|
01899 VALUE ' '. OJRIC089
|
|
01900 * PARM TYPE OJRIC089
|
|
01901 15 FILLER PIC X(02) OJRIC089
|
|
01902 VALUE '99'. OJRIC089
|
|
01903 * PARM VALUE OJRIC089
|
|
01904 15 FILLER PIC X(32). OJRIC089
|
|
01905 * PARM LENGTH OJRIC089
|
|
01906 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01907 VALUE ZEROS. OJRIC089
|
|
01908 OJRIC089
|
|
01909 * PARM AREA #9 OJRIC089
|
|
01910 10 PARM-DATA-ENTRY. OJRIC089
|
|
01911 * PARM DESCRIPTION OJRIC089
|
|
01912 15 FILLER PIC X(32) OJRIC089
|
|
01913 VALUE ' '. OJRIC089
|
|
01914 * PARM TYPE OJRIC089
|
|
01915 15 FILLER PIC X(02) OJRIC089
|
|
01916 VALUE '99'. OJRIC089
|
|
01917 * PARM VALUE OJRIC089
|
|
01918 15 FILLER PIC X(32). OJRIC089
|
|
01919 * PARM LENGTH OJRIC089
|
|
01920 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01921 VALUE ZEROS. OJRIC089
|
|
01922 OJRIC089
|
|
01923 * PARM AREA #10 OJRIC089
|
|
01924 10 PARM-DATA-ENTRY. OJRIC089
|
|
01925 * PARM DESCRIPTION OJRIC089
|
|
01926 15 FILLER PIC X(32) OJRIC089
|
|
01927 VALUE ' '. OJRIC089
|
|
01928 * PARM TYPE OJRIC089
|
|
01929 15 FILLER PIC X(02) OJRIC089
|
|
01930 VALUE '99'. OJRIC089
|
|
01931 * PARM VALUE OJRIC089
|
|
01932 15 FILLER PIC X(32). OJRIC089
|
|
01933 * PARM LENGTH OJRIC089
|
|
01934 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01935 VALUE ZEROS. OJRIC089
|
|
01936 OJRIC089
|
|
01937 * PARM AREA #11 OJRIC089
|
|
01938 10 PARM-DATA-ENTRY. OJRIC089
|
|
01939 * PARM DESCRIPTION OJRIC089
|
|
01940 15 FILLER PIC X(32) OJRIC089
|
|
01941 VALUE ' '. OJRIC089
|
|
01942 * PARM TYPE OJRIC089
|
|
01943 15 FILLER PIC X(02) OJRIC089
|
|
01944 VALUE '99'. OJRIC089
|
|
01945 * PARM VALUE OJRIC089
|
|
01946 15 FILLER PIC X(32). OJRIC089
|
|
01947 * PARM LENGTH OJRIC089
|
|
01948 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01949 VALUE ZEROS. OJRIC089
|
|
01950 OJRIC089
|
|
01951 * PARM AREA #12 OJRIC089
|
|
01952 10 PARM-DATA-ENTRY. OJRIC089
|
|
01953 * PARM DESCRIPTION OJRIC089
|
|
01954 15 FILLER PIC X(32) OJRIC089
|
|
01955 VALUE ' '. OJRIC089
|
|
01956 * PARM TYPE OJRIC089
|
|
01957 15 FILLER PIC X(02) OJRIC089
|
|
01958 VALUE '99'. OJRIC089
|
|
01959 * PARM VALUE OJRIC089
|
|
01960 15 FILLER PIC X(32). OJRIC089
|
|
01961 * PARM LENGTH OJRIC089
|
|
01962 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01963 VALUE ZEROS. OJRIC089
|
|
01964 OJRIC089
|
|
01965 * PARM AREA #13 OJRIC089
|
|
01966 10 PARM-DATA-ENTRY. OJRIC089
|
|
01967 * PARM DESCRIPTION OJRIC089
|
|
01968 15 FILLER PIC X(32) OJRIC089
|
|
01969 VALUE ' '. OJRIC089
|
|
01970 * PARM TYPE OJRIC089
|
|
01971 15 FILLER PIC X(02) OJRIC089
|
|
01972 VALUE '99'. OJRIC089
|
|
01973 * PARM VALUE OJRIC089
|
|
01974 15 FILLER PIC X(32). OJRIC089
|
|
01975 * PARM LENGTH OJRIC089
|
|
01976 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01977 VALUE ZEROS. OJRIC089
|
|
01978 OJRIC089
|
|
01979 * PARM AREA #14 OJRIC089
|
|
01980 10 PARM-DATA-ENTRY. OJRIC089
|
|
01981 * PARM DESCRIPTION OJRIC089
|
|
01982 15 FILLER PIC X(32) OJRIC089
|
|
01983 VALUE ' '. OJRIC089
|
|
01984 * PARM TYPE OJRIC089
|
|
01985 15 FILLER PIC X(02) OJRIC089
|
|
01986 VALUE '99'. OJRIC089
|
|
01987 * PARM VALUE OJRIC089
|
|
01988 15 FILLER PIC X(32). OJRIC089
|
|
01989 * PARM LENGTH OJRIC089
|
|
01990 15 FILLER PIC S9(04) COMP OJRIC089
|
|
01991 VALUE ZEROS. OJRIC089
|
|
01992 OJRIC089
|
|
01993 * PARM AREA #15 OJRIC089
|
|
01994 10 PARM-DATA-ENTRY. OJRIC089
|
|
01995 * PARM DESCRIPTION OJRIC089
|
|
01996 15 FILLER PIC X(32) OJRIC089
|
|
01997 VALUE ' '. OJRIC089
|
|
01998 * PARM TYPE OJRIC089
|
|
01999 15 FILLER PIC X(02) OJRIC089
|
|
02000 VALUE '99'. OJRIC089
|
|
02001 * PARM VALUE OJRIC089
|
|
02002 15 FILLER PIC X(32). OJRIC089
|
|
02003 * PARM LENGTH OJRIC089
|
|
02004 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02005 VALUE ZEROS. OJRIC089
|
|
02006 OJRIC089
|
|
02007 * PARM AREA #16 OJRIC089
|
|
02008 10 PARM-DATA-ENTRY. OJRIC089
|
|
02009 * PARM DESCRIPTION OJRIC089
|
|
02010 15 FILLER PIC X(32) OJRIC089
|
|
02011 VALUE ' '. OJRIC089
|
|
02012 * PARM TYPE OJRIC089
|
|
02013 15 FILLER PIC X(02) OJRIC089
|
|
02014 VALUE '99'. OJRIC089
|
|
02015 * PARM VALUE OJRIC089
|
|
02016 15 FILLER PIC X(32). OJRIC089
|
|
02017 * PARM LENGTH OJRIC089
|
|
02018 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02019 VALUE ZEROS. OJRIC089
|
|
02020 * PARM AREA END --------------------------------------------- OJRIC089
|
|
02021 10 FILLER PIC X(30) OJRIC089
|
|
02022 VALUE SPACES. OJRIC089
|
|
02023 OJRIC089
|
|
02024 ******************* R E P O R T # 9 ***************************OJRIC089
|
|
02025 * ENTRY 9 OJRIC089
|
|
02026 05 FOJR-TABLE-ENTRY. OJRIC089
|
|
02027 * REPT TYPE OJRIC089
|
|
02028 10 FILLER PIC S9(04) COMP OJRIC089
|
|
02029 VALUE +01. OJRIC089
|
|
02030 * JOB NAME OJRIC089
|
|
02031 10 FILLER PIC X(08) OJRIC089
|
|
02032 VALUE 'DTSBR413'. OJRIC089
|
|
02033 * FILLER - END OF KEY OJRIC089
|
|
02034 10 FILLER PIC X(06) OJRIC089
|
|
02035 VALUE SPACES. OJRIC089
|
|
02036 * BUSINESS AREA OJRIC089
|
|
02037 10 FILLER PIC X(02) OJRIC089
|
|
02038 VALUE '04'. OJRIC089
|
|
02039 * JOB DESCRIPTION OJRIC089
|
|
02040 10 FILLER PIC X(34) OJRIC089
|
|
02041 VALUE 'CREDIT SUSPENSE CANDIDATES LIST '. OJRIC089
|
|
02042 * JOB TYPE OJRIC089
|
|
02043 10 FILLER PIC X(01) OJRIC089
|
|
02044 VALUE '2'. OJRIC089
|
|
02045 * LAST RUN DATE OJRIC089
|
|
02046 10 FILLER PIC S9(09) COMP-3 OJRIC089
|
|
02047 VALUE ZEROS. OJRIC089
|
|
02048 * PARM AREA START --------------------------------------------- OJRIC089
|
|
02049 * PARM AREA #1 OJRIC089
|
|
02050 10 PARM-DATA-ENTRY. OJRIC089
|
|
02051 * PARM DESCRIPTION OJRIC089
|
|
02052 15 FILLER PIC X(32) OJRIC089
|
|
02053 VALUE ' '. OJRIC089
|
|
02054 * PARM TYPE OJRIC089
|
|
02055 15 FILLER PIC X(02) OJRIC089
|
|
02056 VALUE '99'. OJRIC089
|
|
02057 * PARM VALUE OJRIC089
|
|
02058 15 FILLER PIC X(32). OJRIC089
|
|
02059 * PARM LENGTH OJRIC089
|
|
02060 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02061 VALUE ZEROS. OJRIC089
|
|
02062 * PARM AREA #2 OJRIC089
|
|
02063 10 PARM-DATA-ENTRY. OJRIC089
|
|
02064 * PARM DESCRIPTION OJRIC089
|
|
02065 15 FILLER PIC X(32) OJRIC089
|
|
02066 VALUE ' '. OJRIC089
|
|
02067 * PARM TYPE OJRIC089
|
|
02068 15 FILLER PIC X(02) OJRIC089
|
|
02069 VALUE '99'. OJRIC089
|
|
02070 * PARM VALUE OJRIC089
|
|
02071 15 FILLER PIC X(32). OJRIC089
|
|
02072 * PARM LENGTH OJRIC089
|
|
02073 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02074 VALUE ZEROS. OJRIC089
|
|
02075 * PARM AREA #3 OJRIC089
|
|
02076 10 PARM-DATA-ENTRY. OJRIC089
|
|
02077 * PARM DESCRIPTION OJRIC089
|
|
02078 15 FILLER PIC X(32) OJRIC089
|
|
02079 VALUE ' '. OJRIC089
|
|
02080 * PARM TYPE OJRIC089
|
|
02081 15 FILLER PIC X(02) OJRIC089
|
|
02082 VALUE '99'. OJRIC089
|
|
02083 * PARM VALUE OJRIC089
|
|
02084 15 FILLER PIC X(32). OJRIC089
|
|
02085 * PARM LENGTH OJRIC089
|
|
02086 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02087 VALUE ZEROS. OJRIC089
|
|
02088 * PARM AREA #4 OJRIC089
|
|
02089 10 PARM-DATA-ENTRY. OJRIC089
|
|
02090 * PARM DESCRIPTION OJRIC089
|
|
02091 15 FILLER PIC X(32) OJRIC089
|
|
02092 VALUE ' '. OJRIC089
|
|
02093 * PARM TYPE OJRIC089
|
|
02094 15 FILLER PIC X(02) OJRIC089
|
|
02095 VALUE '99'. OJRIC089
|
|
02096 * PARM VALUE OJRIC089
|
|
02097 15 FILLER PIC X(32). OJRIC089
|
|
02098 * PARM LENGTH OJRIC089
|
|
02099 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02100 VALUE ZEROS. OJRIC089
|
|
02101 OJRIC089
|
|
02102 * PARM AREA #5 OJRIC089
|
|
02103 10 PARM-DATA-ENTRY. OJRIC089
|
|
02104 * PARM DESCRIPTION OJRIC089
|
|
02105 15 FILLER PIC X(32) OJRIC089
|
|
02106 VALUE ' '. OJRIC089
|
|
02107 * PARM TYPE OJRIC089
|
|
02108 15 FILLER PIC X(02) OJRIC089
|
|
02109 VALUE '99'. OJRIC089
|
|
02110 * PARM VALUE OJRIC089
|
|
02111 15 FILLER PIC X(32). OJRIC089
|
|
02112 * PARM LENGTH OJRIC089
|
|
02113 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02114 VALUE ZEROS. OJRIC089
|
|
02115 OJRIC089
|
|
02116 * PARM AREA #6 OJRIC089
|
|
02117 10 PARM-DATA-ENTRY. OJRIC089
|
|
02118 * PARM DESCRIPTION OJRIC089
|
|
02119 15 FILLER PIC X(32) OJRIC089
|
|
02120 VALUE ' '. OJRIC089
|
|
02121 * PARM TYPE OJRIC089
|
|
02122 15 FILLER PIC X(02) OJRIC089
|
|
02123 VALUE '99'. OJRIC089
|
|
02124 * PARM VALUE OJRIC089
|
|
02125 15 FILLER PIC X(32). OJRIC089
|
|
02126 * PARM LENGTH OJRIC089
|
|
02127 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02128 VALUE ZEROS. OJRIC089
|
|
02129 OJRIC089
|
|
02130 * PARM AREA #7 OJRIC089
|
|
02131 10 PARM-DATA-ENTRY. OJRIC089
|
|
02132 * PARM DESCRIPTION OJRIC089
|
|
02133 15 FILLER PIC X(32) OJRIC089
|
|
02134 VALUE ' '. OJRIC089
|
|
02135 * PARM TYPE OJRIC089
|
|
02136 15 FILLER PIC X(02) OJRIC089
|
|
02137 VALUE '99'. OJRIC089
|
|
02138 * PARM VALUE OJRIC089
|
|
02139 15 FILLER PIC X(32). OJRIC089
|
|
02140 * PARM LENGTH OJRIC089
|
|
02141 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02142 VALUE ZEROS. OJRIC089
|
|
02143 OJRIC089
|
|
02144 * PARM AREA #8 OJRIC089
|
|
02145 10 PARM-DATA-ENTRY. OJRIC089
|
|
02146 * PARM DESCRIPTION OJRIC089
|
|
02147 15 FILLER PIC X(32) OJRIC089
|
|
02148 VALUE ' '. OJRIC089
|
|
02149 * PARM TYPE OJRIC089
|
|
02150 15 FILLER PIC X(02) OJRIC089
|
|
02151 VALUE '99'. OJRIC089
|
|
02152 * PARM VALUE OJRIC089
|
|
02153 15 FILLER PIC X(32). OJRIC089
|
|
02154 * PARM LENGTH OJRIC089
|
|
02155 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02156 VALUE ZEROS. OJRIC089
|
|
02157 OJRIC089
|
|
02158 * PARM AREA #9 OJRIC089
|
|
02159 10 PARM-DATA-ENTRY. OJRIC089
|
|
02160 * PARM DESCRIPTION OJRIC089
|
|
02161 15 FILLER PIC X(32) OJRIC089
|
|
02162 VALUE ' '. OJRIC089
|
|
02163 * PARM TYPE OJRIC089
|
|
02164 15 FILLER PIC X(02) OJRIC089
|
|
02165 VALUE '99'. OJRIC089
|
|
02166 * PARM VALUE OJRIC089
|
|
02167 15 FILLER PIC X(32). OJRIC089
|
|
02168 * PARM LENGTH OJRIC089
|
|
02169 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02170 VALUE ZEROS. OJRIC089
|
|
02171 OJRIC089
|
|
02172 * PARM AREA #10 OJRIC089
|
|
02173 10 PARM-DATA-ENTRY. OJRIC089
|
|
02174 * PARM DESCRIPTION OJRIC089
|
|
02175 15 FILLER PIC X(32) OJRIC089
|
|
02176 VALUE ' '. OJRIC089
|
|
02177 * PARM TYPE OJRIC089
|
|
02178 15 FILLER PIC X(02) OJRIC089
|
|
02179 VALUE '99'. OJRIC089
|
|
02180 * PARM VALUE OJRIC089
|
|
02181 15 FILLER PIC X(32). OJRIC089
|
|
02182 * PARM LENGTH OJRIC089
|
|
02183 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02184 VALUE ZEROS. OJRIC089
|
|
02185 OJRIC089
|
|
02186 * PARM AREA #11 OJRIC089
|
|
02187 10 PARM-DATA-ENTRY. OJRIC089
|
|
02188 * PARM DESCRIPTION OJRIC089
|
|
02189 15 FILLER PIC X(32) OJRIC089
|
|
02190 VALUE ' '. OJRIC089
|
|
02191 * PARM TYPE OJRIC089
|
|
02192 15 FILLER PIC X(02) OJRIC089
|
|
02193 VALUE '99'. OJRIC089
|
|
02194 * PARM VALUE OJRIC089
|
|
02195 15 FILLER PIC X(32). OJRIC089
|
|
02196 * PARM LENGTH OJRIC089
|
|
02197 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02198 VALUE ZEROS. OJRIC089
|
|
02199 OJRIC089
|
|
02200 * PARM AREA #12 OJRIC089
|
|
02201 10 PARM-DATA-ENTRY. OJRIC089
|
|
02202 * PARM DESCRIPTION OJRIC089
|
|
02203 15 FILLER PIC X(32) OJRIC089
|
|
02204 VALUE ' '. OJRIC089
|
|
02205 * PARM TYPE OJRIC089
|
|
02206 15 FILLER PIC X(02) OJRIC089
|
|
02207 VALUE '99'. OJRIC089
|
|
02208 * PARM VALUE OJRIC089
|
|
02209 15 FILLER PIC X(32). OJRIC089
|
|
02210 * PARM LENGTH OJRIC089
|
|
02211 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02212 VALUE ZEROS. OJRIC089
|
|
02213 OJRIC089
|
|
02214 * PARM AREA #13 OJRIC089
|
|
02215 10 PARM-DATA-ENTRY. OJRIC089
|
|
02216 * PARM DESCRIPTION OJRIC089
|
|
02217 15 FILLER PIC X(32) OJRIC089
|
|
02218 VALUE ' '. OJRIC089
|
|
02219 * PARM TYPE OJRIC089
|
|
02220 15 FILLER PIC X(02) OJRIC089
|
|
02221 VALUE '99'. OJRIC089
|
|
02222 * PARM VALUE OJRIC089
|
|
02223 15 FILLER PIC X(32). OJRIC089
|
|
02224 * PARM LENGTH OJRIC089
|
|
02225 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02226 VALUE ZEROS. OJRIC089
|
|
02227 OJRIC089
|
|
02228 * PARM AREA #14 OJRIC089
|
|
02229 10 PARM-DATA-ENTRY. OJRIC089
|
|
02230 * PARM DESCRIPTION OJRIC089
|
|
02231 15 FILLER PIC X(32) OJRIC089
|
|
02232 VALUE ' '. OJRIC089
|
|
02233 * PARM TYPE OJRIC089
|
|
02234 15 FILLER PIC X(02) OJRIC089
|
|
02235 VALUE '99'. OJRIC089
|
|
02236 * PARM VALUE OJRIC089
|
|
02237 15 FILLER PIC X(32). OJRIC089
|
|
02238 * PARM LENGTH OJRIC089
|
|
02239 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02240 VALUE ZEROS. OJRIC089
|
|
02241 OJRIC089
|
|
02242 * PARM AREA #15 OJRIC089
|
|
02243 10 PARM-DATA-ENTRY. OJRIC089
|
|
02244 * PARM DESCRIPTION OJRIC089
|
|
02245 15 FILLER PIC X(32) OJRIC089
|
|
02246 VALUE ' '. OJRIC089
|
|
02247 * PARM TYPE OJRIC089
|
|
02248 15 FILLER PIC X(02) OJRIC089
|
|
02249 VALUE '99'. OJRIC089
|
|
02250 * PARM VALUE OJRIC089
|
|
02251 15 FILLER PIC X(32). OJRIC089
|
|
02252 * PARM LENGTH OJRIC089
|
|
02253 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02254 VALUE ZEROS. OJRIC089
|
|
02255 OJRIC089
|
|
02256 * PARM AREA #16 OJRIC089
|
|
02257 10 PARM-DATA-ENTRY. OJRIC089
|
|
02258 * PARM DESCRIPTION OJRIC089
|
|
02259 15 FILLER PIC X(32) OJRIC089
|
|
02260 VALUE ' '. OJRIC089
|
|
02261 * PARM TYPE OJRIC089
|
|
02262 15 FILLER PIC X(02) OJRIC089
|
|
02263 VALUE '99'. OJRIC089
|
|
02264 * PARM VALUE OJRIC089
|
|
02265 15 FILLER PIC X(32). OJRIC089
|
|
02266 * PARM LENGTH OJRIC089
|
|
02267 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02268 VALUE ZEROS. OJRIC089
|
|
02269 * PARM AREA END --------------------------------------------- OJRIC089
|
|
02270 10 FILLER PIC X(30) OJRIC089
|
|
02271 VALUE SPACES. OJRIC089
|
|
02272 OJRIC089
|
|
02273 ******************* R E P O R T # 10 ***************************OJRIC089
|
|
02274 * ENTRY 10 OJRIC089
|
|
02275 05 FOJR-TABLE-ENTRY. OJRIC089
|
|
02276 * REPT TYPE OJRIC089
|
|
02277 10 FILLER PIC S9(04) COMP OJRIC089
|
|
02278 VALUE +01. OJRIC089
|
|
02279 * JOB NAME OJRIC089
|
|
02280 10 FILLER PIC X(08) OJRIC089
|
|
02281 VALUE 'DTSBR423'. OJRIC089
|
|
02282 * FILLER - END OF KEY OJRIC089
|
|
02283 10 FILLER PIC X(06) OJRIC089
|
|
02284 VALUE SPACES. OJRIC089
|
|
02285 * BUSINESS AREA OJRIC089
|
|
02286 10 FILLER PIC X(02) OJRIC089
|
|
02287 VALUE '04'. OJRIC089
|
|
02288 * JOB DESCRIPTION OJRIC089
|
|
02289 10 FILLER PIC X(34) OJRIC089
|
|
02290 VALUE 'PRIOR DELINQUENT LIST '. OJRIC089
|
|
02291 * JOB TYPE OJRIC089
|
|
02292 10 FILLER PIC X(01) OJRIC089
|
|
02293 VALUE '2'. OJRIC089
|
|
02294 * LAST RUN DATE OJRIC089
|
|
02295 10 FILLER PIC S9(09) COMP-3 OJRIC089
|
|
02296 VALUE ZEROS. OJRIC089
|
|
02297 * PARM AREA START --------------------------------------------- OJRIC089
|
|
02298 * PARM AREA #1 OJRIC089
|
|
02299 10 PARM-DATA-ENTRY. OJRIC089
|
|
02300 * PARM DESCRIPTION OJRIC089
|
|
02301 15 FILLER PIC X(32) OJRIC089
|
|
02302 VALUE 'START QUARTER '. OJRIC089
|
|
02303 * PARM TYPE OJRIC089
|
|
02304 15 FILLER PIC X(02) OJRIC089
|
|
02305 VALUE '01'. OJRIC089
|
|
02306 * PARM VALUE OJRIC089
|
|
02307 15 FILLER PIC X(32). OJRIC089
|
|
02308 * PARM LENGTH OJRIC089
|
|
02309 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02310 VALUE +3. OJRIC089
|
|
02311 * PARM AREA #2 OJRIC089
|
|
02312 10 PARM-DATA-ENTRY. OJRIC089
|
|
02313 * PARM DESCRIPTION OJRIC089
|
|
02314 15 FILLER PIC X(32) OJRIC089
|
|
02315 VALUE 'END QUARTER '. OJRIC089
|
|
02316 * PARM TYPE OJRIC089
|
|
02317 15 FILLER PIC X(02) OJRIC089
|
|
02318 VALUE '01'. OJRIC089
|
|
02319 * PARM VALUE OJRIC089
|
|
02320 15 FILLER PIC X(32). OJRIC089
|
|
02321 * PARM LENGTH OJRIC089
|
|
02322 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02323 VALUE +3. OJRIC089
|
|
02324 * PARM AREA #3 OJRIC089
|
|
02325 10 PARM-DATA-ENTRY. OJRIC089
|
|
02326 * PARM DESCRIPTION OJRIC089
|
|
02327 15 FILLER PIC X(32) OJRIC089
|
|
02328 VALUE ' '. OJRIC089
|
|
02329 * PARM TYPE OJRIC089
|
|
02330 15 FILLER PIC X(02) OJRIC089
|
|
02331 VALUE '99'. OJRIC089
|
|
02332 * PARM VALUE OJRIC089
|
|
02333 15 FILLER PIC X(32). OJRIC089
|
|
02334 * PARM LENGTH OJRIC089
|
|
02335 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02336 VALUE ZEROS. OJRIC089
|
|
02337 * PARM AREA #4 OJRIC089
|
|
02338 10 PARM-DATA-ENTRY. OJRIC089
|
|
02339 * PARM DESCRIPTION OJRIC089
|
|
02340 15 FILLER PIC X(32) OJRIC089
|
|
02341 VALUE ' '. OJRIC089
|
|
02342 * PARM TYPE OJRIC089
|
|
02343 15 FILLER PIC X(02) OJRIC089
|
|
02344 VALUE '99'. OJRIC089
|
|
02345 * PARM VALUE OJRIC089
|
|
02346 15 FILLER PIC X(32). OJRIC089
|
|
02347 * PARM LENGTH OJRIC089
|
|
02348 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02349 VALUE ZEROS. OJRIC089
|
|
02350 OJRIC089
|
|
02351 * PARM AREA #5 OJRIC089
|
|
02352 10 PARM-DATA-ENTRY. OJRIC089
|
|
02353 * PARM DESCRIPTION OJRIC089
|
|
02354 15 FILLER PIC X(32) OJRIC089
|
|
02355 VALUE ' '. OJRIC089
|
|
02356 * PARM TYPE OJRIC089
|
|
02357 15 FILLER PIC X(02) OJRIC089
|
|
02358 VALUE '99'. OJRIC089
|
|
02359 * PARM VALUE OJRIC089
|
|
02360 15 FILLER PIC X(32). OJRIC089
|
|
02361 * PARM LENGTH OJRIC089
|
|
02362 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02363 VALUE ZEROS. OJRIC089
|
|
02364 OJRIC089
|
|
02365 * PARM AREA #6 OJRIC089
|
|
02366 10 PARM-DATA-ENTRY. OJRIC089
|
|
02367 * PARM DESCRIPTION OJRIC089
|
|
02368 15 FILLER PIC X(32) OJRIC089
|
|
02369 VALUE ' '. OJRIC089
|
|
02370 * PARM TYPE OJRIC089
|
|
02371 15 FILLER PIC X(02) OJRIC089
|
|
02372 VALUE '99'. OJRIC089
|
|
02373 * PARM VALUE OJRIC089
|
|
02374 15 FILLER PIC X(32). OJRIC089
|
|
02375 * PARM LENGTH OJRIC089
|
|
02376 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02377 VALUE ZEROS. OJRIC089
|
|
02378 OJRIC089
|
|
02379 * PARM AREA #7 OJRIC089
|
|
02380 10 PARM-DATA-ENTRY. OJRIC089
|
|
02381 * PARM DESCRIPTION OJRIC089
|
|
02382 15 FILLER PIC X(32) OJRIC089
|
|
02383 VALUE ' '. OJRIC089
|
|
02384 * PARM TYPE OJRIC089
|
|
02385 15 FILLER PIC X(02) OJRIC089
|
|
02386 VALUE '99'. OJRIC089
|
|
02387 * PARM VALUE OJRIC089
|
|
02388 15 FILLER PIC X(32). OJRIC089
|
|
02389 * PARM LENGTH OJRIC089
|
|
02390 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02391 VALUE ZEROS. OJRIC089
|
|
02392 OJRIC089
|
|
02393 * PARM AREA #8 OJRIC089
|
|
02394 10 PARM-DATA-ENTRY. OJRIC089
|
|
02395 * PARM DESCRIPTION OJRIC089
|
|
02396 15 FILLER PIC X(32) OJRIC089
|
|
02397 VALUE ' '. OJRIC089
|
|
02398 * PARM TYPE OJRIC089
|
|
02399 15 FILLER PIC X(02) OJRIC089
|
|
02400 VALUE '99'. OJRIC089
|
|
02401 * PARM VALUE OJRIC089
|
|
02402 15 FILLER PIC X(32). OJRIC089
|
|
02403 * PARM LENGTH OJRIC089
|
|
02404 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02405 VALUE ZEROS. OJRIC089
|
|
02406 OJRIC089
|
|
02407 * PARM AREA #9 OJRIC089
|
|
02408 10 PARM-DATA-ENTRY. OJRIC089
|
|
02409 * PARM DESCRIPTION OJRIC089
|
|
02410 15 FILLER PIC X(32) OJRIC089
|
|
02411 VALUE ' '. OJRIC089
|
|
02412 * PARM TYPE OJRIC089
|
|
02413 15 FILLER PIC X(02) OJRIC089
|
|
02414 VALUE '99'. OJRIC089
|
|
02415 * PARM VALUE OJRIC089
|
|
02416 15 FILLER PIC X(32). OJRIC089
|
|
02417 * PARM LENGTH OJRIC089
|
|
02418 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02419 VALUE ZEROS. OJRIC089
|
|
02420 OJRIC089
|
|
02421 * PARM AREA #10 OJRIC089
|
|
02422 10 PARM-DATA-ENTRY. OJRIC089
|
|
02423 * PARM DESCRIPTION OJRIC089
|
|
02424 15 FILLER PIC X(32) OJRIC089
|
|
02425 VALUE ' '. OJRIC089
|
|
02426 * PARM TYPE OJRIC089
|
|
02427 15 FILLER PIC X(02) OJRIC089
|
|
02428 VALUE '99'. OJRIC089
|
|
02429 * PARM VALUE OJRIC089
|
|
02430 15 FILLER PIC X(32). OJRIC089
|
|
02431 * PARM LENGTH OJRIC089
|
|
02432 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02433 VALUE ZEROS. OJRIC089
|
|
02434 OJRIC089
|
|
02435 * PARM AREA #11 OJRIC089
|
|
02436 10 PARM-DATA-ENTRY. OJRIC089
|
|
02437 * PARM DESCRIPTION OJRIC089
|
|
02438 15 FILLER PIC X(32) OJRIC089
|
|
02439 VALUE ' '. OJRIC089
|
|
02440 * PARM TYPE OJRIC089
|
|
02441 15 FILLER PIC X(02) OJRIC089
|
|
02442 VALUE '99'. OJRIC089
|
|
02443 * PARM VALUE OJRIC089
|
|
02444 15 FILLER PIC X(32). OJRIC089
|
|
02445 * PARM LENGTH OJRIC089
|
|
02446 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02447 VALUE ZEROS. OJRIC089
|
|
02448 OJRIC089
|
|
02449 * PARM AREA #12 OJRIC089
|
|
02450 10 PARM-DATA-ENTRY. OJRIC089
|
|
02451 * PARM DESCRIPTION OJRIC089
|
|
02452 15 FILLER PIC X(32) OJRIC089
|
|
02453 VALUE ' '. OJRIC089
|
|
02454 * PARM TYPE OJRIC089
|
|
02455 15 FILLER PIC X(02) OJRIC089
|
|
02456 VALUE '99'. OJRIC089
|
|
02457 * PARM VALUE OJRIC089
|
|
02458 15 FILLER PIC X(32). OJRIC089
|
|
02459 * PARM LENGTH OJRIC089
|
|
02460 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02461 VALUE ZEROS. OJRIC089
|
|
02462 OJRIC089
|
|
02463 * PARM AREA #13 OJRIC089
|
|
02464 10 PARM-DATA-ENTRY. OJRIC089
|
|
02465 * PARM DESCRIPTION OJRIC089
|
|
02466 15 FILLER PIC X(32) OJRIC089
|
|
02467 VALUE ' '. OJRIC089
|
|
02468 * PARM TYPE OJRIC089
|
|
02469 15 FILLER PIC X(02) OJRIC089
|
|
02470 VALUE '99'. OJRIC089
|
|
02471 * PARM VALUE OJRIC089
|
|
02472 15 FILLER PIC X(32). OJRIC089
|
|
02473 * PARM LENGTH OJRIC089
|
|
02474 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02475 VALUE ZEROS. OJRIC089
|
|
02476 OJRIC089
|
|
02477 * PARM AREA #14 OJRIC089
|
|
02478 10 PARM-DATA-ENTRY. OJRIC089
|
|
02479 * PARM DESCRIPTION OJRIC089
|
|
02480 15 FILLER PIC X(32) OJRIC089
|
|
02481 VALUE ' '. OJRIC089
|
|
02482 * PARM TYPE OJRIC089
|
|
02483 15 FILLER PIC X(02) OJRIC089
|
|
02484 VALUE '99'. OJRIC089
|
|
02485 * PARM VALUE OJRIC089
|
|
02486 15 FILLER PIC X(32). OJRIC089
|
|
02487 * PARM LENGTH OJRIC089
|
|
02488 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02489 VALUE ZEROS. OJRIC089
|
|
02490 OJRIC089
|
|
02491 * PARM AREA #15 OJRIC089
|
|
02492 10 PARM-DATA-ENTRY. OJRIC089
|
|
02493 * PARM DESCRIPTION OJRIC089
|
|
02494 15 FILLER PIC X(32) OJRIC089
|
|
02495 VALUE ' '. OJRIC089
|
|
02496 * PARM TYPE OJRIC089
|
|
02497 15 FILLER PIC X(02) OJRIC089
|
|
02498 VALUE '99'. OJRIC089
|
|
02499 * PARM VALUE OJRIC089
|
|
02500 15 FILLER PIC X(32). OJRIC089
|
|
02501 * PARM LENGTH OJRIC089
|
|
02502 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02503 VALUE ZEROS. OJRIC089
|
|
02504 OJRIC089
|
|
02505 * PARM AREA #16 OJRIC089
|
|
02506 10 PARM-DATA-ENTRY. OJRIC089
|
|
02507 * PARM DESCRIPTION OJRIC089
|
|
02508 15 FILLER PIC X(32) OJRIC089
|
|
02509 VALUE ' '. OJRIC089
|
|
02510 * PARM TYPE OJRIC089
|
|
02511 15 FILLER PIC X(02) OJRIC089
|
|
02512 VALUE '99'. OJRIC089
|
|
02513 * PARM VALUE OJRIC089
|
|
02514 15 FILLER PIC X(32). OJRIC089
|
|
02515 * PARM LENGTH OJRIC089
|
|
02516 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02517 VALUE ZEROS. OJRIC089
|
|
02518 * PARM AREA END --------------------------------------------- OJRIC089
|
|
02519 10 FILLER PIC X(30) OJRIC089
|
|
02520 VALUE SPACES. OJRIC089
|
|
02521 OJRIC089
|
|
02522 ******************* R E P O R T # 11 ***************************OJRIC089
|
|
02523 * ENTRY 11 OJRIC089
|
|
02524 05 FOJR-TABLE-ENTRY. OJRIC089
|
|
02525 * REPT TYPE OJRIC089
|
|
02526 10 FILLER PIC S9(04) COMP OJRIC089
|
|
02527 VALUE +01. OJRIC089
|
|
02528 * JOB NAME OJRIC089
|
|
02529 10 FILLER PIC X(08) OJRIC089
|
|
02530 VALUE 'DTSBR426'. OJRIC089
|
|
02531 * FILLER - END OF KEY OJRIC089
|
|
02532 10 FILLER PIC X(06) OJRIC089
|
|
02533 VALUE SPACES. OJRIC089
|
|
02534 * BUSINESS AREA OJRIC089
|
|
02535 10 FILLER PIC X(02) OJRIC089
|
|
02536 VALUE '04'. OJRIC089
|
|
02537 * JOB DESCRIPTION OJRIC089
|
|
02538 10 FILLER PIC X(34) OJRIC089
|
|
02539 VALUE 'COLLECTIONS SUMMARY REPORT '. OJRIC089
|
|
02540 * JOB TYPE OJRIC089
|
|
02541 10 FILLER PIC X(01) OJRIC089
|
|
02542 VALUE '2'. OJRIC089
|
|
02543 * LAST RUN DATE OJRIC089
|
|
02544 10 FILLER PIC S9(09) COMP-3 OJRIC089
|
|
02545 VALUE ZEROS. OJRIC089
|
|
02546 * PARM AREA START --------------------------------------------- OJRIC089
|
|
02547 * PARM AREA #1 OJRIC089
|
|
02548 10 PARM-DATA-ENTRY. OJRIC089
|
|
02549 * PARM DESCRIPTION OJRIC089
|
|
02550 15 FILLER PIC X(32) OJRIC089
|
|
02551 VALUE 'AR ASSIGN TYPE 1 '. OJRIC089
|
|
02552 * PARM TYPE OJRIC089
|
|
02553 15 FILLER PIC X(02) OJRIC089
|
|
02554 VALUE '03'. OJRIC089
|
|
02555 * PARM VALUE OJRIC089
|
|
02556 15 FILLER PIC X(32). OJRIC089
|
|
02557 * PARM LENGTH OJRIC089
|
|
02558 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02559 VALUE +2. OJRIC089
|
|
02560 * PARM AREA #2 OJRIC089
|
|
02561 10 PARM-DATA-ENTRY. OJRIC089
|
|
02562 * PARM DESCRIPTION OJRIC089
|
|
02563 15 FILLER PIC X(32) OJRIC089
|
|
02564 VALUE 'AR ASSIGN TYPE 2 '. OJRIC089
|
|
02565 * PARM TYPE OJRIC089
|
|
02566 15 FILLER PIC X(02) OJRIC089
|
|
02567 VALUE '03'. OJRIC089
|
|
02568 * PARM VALUE OJRIC089
|
|
02569 15 FILLER PIC X(32). OJRIC089
|
|
02570 * PARM LENGTH OJRIC089
|
|
02571 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02572 VALUE +2. OJRIC089
|
|
02573 * PARM AREA #3 OJRIC089
|
|
02574 10 PARM-DATA-ENTRY. OJRIC089
|
|
02575 * PARM DESCRIPTION OJRIC089
|
|
02576 15 FILLER PIC X(32) OJRIC089
|
|
02577 VALUE 'AR ASSIGN TYPE 3 '. OJRIC089
|
|
02578 * PARM TYPE OJRIC089
|
|
02579 15 FILLER PIC X(02) OJRIC089
|
|
02580 VALUE '03'. OJRIC089
|
|
02581 * PARM VALUE OJRIC089
|
|
02582 15 FILLER PIC X(32). OJRIC089
|
|
02583 * PARM LENGTH OJRIC089
|
|
02584 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02585 VALUE +2. OJRIC089
|
|
02586 * PARM AREA #4 OJRIC089
|
|
02587 10 PARM-DATA-ENTRY. OJRIC089
|
|
02588 * PARM DESCRIPTION OJRIC089
|
|
02589 15 FILLER PIC X(32) OJRIC089
|
|
02590 VALUE 'INTEREST COMP DATE '. OJRIC089
|
|
02591 * PARM TYPE OJRIC089
|
|
02592 15 FILLER PIC X(02) OJRIC089
|
|
02593 VALUE '00'. OJRIC089
|
|
02594 * PARM VALUE OJRIC089
|
|
02595 15 FILLER PIC X(32). OJRIC089
|
|
02596 * PARM LENGTH OJRIC089
|
|
02597 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02598 VALUE +6. OJRIC089
|
|
02599 OJRIC089
|
|
02600 * PARM AREA #5 OJRIC089
|
|
02601 10 PARM-DATA-ENTRY. OJRIC089
|
|
02602 * PARM DESCRIPTION OJRIC089
|
|
02603 15 FILLER PIC X(32) OJRIC089
|
|
02604 VALUE ' '. OJRIC089
|
|
02605 * PARM TYPE OJRIC089
|
|
02606 15 FILLER PIC X(02) OJRIC089
|
|
02607 VALUE '99'. OJRIC089
|
|
02608 * PARM VALUE OJRIC089
|
|
02609 15 FILLER PIC X(32). OJRIC089
|
|
02610 * PARM LENGTH OJRIC089
|
|
02611 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02612 VALUE ZEROS. OJRIC089
|
|
02613 OJRIC089
|
|
02614 * PARM AREA #6 OJRIC089
|
|
02615 10 PARM-DATA-ENTRY. OJRIC089
|
|
02616 * PARM DESCRIPTION OJRIC089
|
|
02617 15 FILLER PIC X(32) OJRIC089
|
|
02618 VALUE ' '. OJRIC089
|
|
02619 * PARM TYPE OJRIC089
|
|
02620 15 FILLER PIC X(02) OJRIC089
|
|
02621 VALUE '99'. OJRIC089
|
|
02622 * PARM VALUE OJRIC089
|
|
02623 15 FILLER PIC X(32). OJRIC089
|
|
02624 * PARM LENGTH OJRIC089
|
|
02625 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02626 VALUE ZEROS. OJRIC089
|
|
02627 OJRIC089
|
|
02628 * PARM AREA #7 OJRIC089
|
|
02629 10 PARM-DATA-ENTRY. OJRIC089
|
|
02630 * PARM DESCRIPTION OJRIC089
|
|
02631 15 FILLER PIC X(32) OJRIC089
|
|
02632 VALUE ' '. OJRIC089
|
|
02633 * PARM TYPE OJRIC089
|
|
02634 15 FILLER PIC X(02) OJRIC089
|
|
02635 VALUE '99'. OJRIC089
|
|
02636 * PARM VALUE OJRIC089
|
|
02637 15 FILLER PIC X(32). OJRIC089
|
|
02638 * PARM LENGTH OJRIC089
|
|
02639 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02640 VALUE ZEROS. OJRIC089
|
|
02641 OJRIC089
|
|
02642 * PARM AREA #8 OJRIC089
|
|
02643 10 PARM-DATA-ENTRY. OJRIC089
|
|
02644 * PARM DESCRIPTION OJRIC089
|
|
02645 15 FILLER PIC X(32) OJRIC089
|
|
02646 VALUE ' '. OJRIC089
|
|
02647 * PARM TYPE OJRIC089
|
|
02648 15 FILLER PIC X(02) OJRIC089
|
|
02649 VALUE '99'. OJRIC089
|
|
02650 * PARM VALUE OJRIC089
|
|
02651 15 FILLER PIC X(32). OJRIC089
|
|
02652 * PARM LENGTH OJRIC089
|
|
02653 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02654 VALUE ZEROS. OJRIC089
|
|
02655 OJRIC089
|
|
02656 * PARM AREA #9 OJRIC089
|
|
02657 10 PARM-DATA-ENTRY. OJRIC089
|
|
02658 * PARM DESCRIPTION OJRIC089
|
|
02659 15 FILLER PIC X(32) OJRIC089
|
|
02660 VALUE ' '. OJRIC089
|
|
02661 * PARM TYPE OJRIC089
|
|
02662 15 FILLER PIC X(02) OJRIC089
|
|
02663 VALUE '99'. OJRIC089
|
|
02664 * PARM VALUE OJRIC089
|
|
02665 15 FILLER PIC X(32). OJRIC089
|
|
02666 * PARM LENGTH OJRIC089
|
|
02667 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02668 VALUE ZEROS. OJRIC089
|
|
02669 OJRIC089
|
|
02670 * PARM AREA #10 OJRIC089
|
|
02671 10 PARM-DATA-ENTRY. OJRIC089
|
|
02672 * PARM DESCRIPTION OJRIC089
|
|
02673 15 FILLER PIC X(32) OJRIC089
|
|
02674 VALUE ' '. OJRIC089
|
|
02675 * PARM TYPE OJRIC089
|
|
02676 15 FILLER PIC X(02) OJRIC089
|
|
02677 VALUE '99'. OJRIC089
|
|
02678 * PARM VALUE OJRIC089
|
|
02679 15 FILLER PIC X(32). OJRIC089
|
|
02680 * PARM LENGTH OJRIC089
|
|
02681 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02682 VALUE ZEROS. OJRIC089
|
|
02683 OJRIC089
|
|
02684 * PARM AREA #11 OJRIC089
|
|
02685 10 PARM-DATA-ENTRY. OJRIC089
|
|
02686 * PARM DESCRIPTION OJRIC089
|
|
02687 15 FILLER PIC X(32) OJRIC089
|
|
02688 VALUE ' '. OJRIC089
|
|
02689 * PARM TYPE OJRIC089
|
|
02690 15 FILLER PIC X(02) OJRIC089
|
|
02691 VALUE '99'. OJRIC089
|
|
02692 * PARM VALUE OJRIC089
|
|
02693 15 FILLER PIC X(32). OJRIC089
|
|
02694 * PARM LENGTH OJRIC089
|
|
02695 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02696 VALUE ZEROS. OJRIC089
|
|
02697 OJRIC089
|
|
02698 * PARM AREA #12 OJRIC089
|
|
02699 10 PARM-DATA-ENTRY. OJRIC089
|
|
02700 * PARM DESCRIPTION OJRIC089
|
|
02701 15 FILLER PIC X(32) OJRIC089
|
|
02702 VALUE ' '. OJRIC089
|
|
02703 * PARM TYPE OJRIC089
|
|
02704 15 FILLER PIC X(02) OJRIC089
|
|
02705 VALUE '99'. OJRIC089
|
|
02706 * PARM VALUE OJRIC089
|
|
02707 15 FILLER PIC X(32). OJRIC089
|
|
02708 * PARM LENGTH OJRIC089
|
|
02709 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02710 VALUE ZEROS. OJRIC089
|
|
02711 OJRIC089
|
|
02712 * PARM AREA #13 OJRIC089
|
|
02713 10 PARM-DATA-ENTRY. OJRIC089
|
|
02714 * PARM DESCRIPTION OJRIC089
|
|
02715 15 FILLER PIC X(32) OJRIC089
|
|
02716 VALUE ' '. OJRIC089
|
|
02717 * PARM TYPE OJRIC089
|
|
02718 15 FILLER PIC X(02) OJRIC089
|
|
02719 VALUE '99'. OJRIC089
|
|
02720 * PARM VALUE OJRIC089
|
|
02721 15 FILLER PIC X(32). OJRIC089
|
|
02722 * PARM LENGTH OJRIC089
|
|
02723 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02724 VALUE ZEROS. OJRIC089
|
|
02725 OJRIC089
|
|
02726 * PARM AREA #14 OJRIC089
|
|
02727 10 PARM-DATA-ENTRY. OJRIC089
|
|
02728 * PARM DESCRIPTION OJRIC089
|
|
02729 15 FILLER PIC X(32) OJRIC089
|
|
02730 VALUE ' '. OJRIC089
|
|
02731 * PARM TYPE OJRIC089
|
|
02732 15 FILLER PIC X(02) OJRIC089
|
|
02733 VALUE '99'. OJRIC089
|
|
02734 * PARM VALUE OJRIC089
|
|
02735 15 FILLER PIC X(32). OJRIC089
|
|
02736 * PARM LENGTH OJRIC089
|
|
02737 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02738 VALUE ZEROS. OJRIC089
|
|
02739 OJRIC089
|
|
02740 * PARM AREA #15 OJRIC089
|
|
02741 10 PARM-DATA-ENTRY. OJRIC089
|
|
02742 * PARM DESCRIPTION OJRIC089
|
|
02743 15 FILLER PIC X(32) OJRIC089
|
|
02744 VALUE ' '. OJRIC089
|
|
02745 * PARM TYPE OJRIC089
|
|
02746 15 FILLER PIC X(02) OJRIC089
|
|
02747 VALUE '99'. OJRIC089
|
|
02748 * PARM VALUE OJRIC089
|
|
02749 15 FILLER PIC X(32). OJRIC089
|
|
02750 * PARM LENGTH OJRIC089
|
|
02751 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02752 VALUE ZEROS. OJRIC089
|
|
02753 OJRIC089
|
|
02754 * PARM AREA #16 OJRIC089
|
|
02755 10 PARM-DATA-ENTRY. OJRIC089
|
|
02756 * PARM DESCRIPTION OJRIC089
|
|
02757 15 FILLER PIC X(32) OJRIC089
|
|
02758 VALUE ' '. OJRIC089
|
|
02759 * PARM TYPE OJRIC089
|
|
02760 15 FILLER PIC X(02) OJRIC089
|
|
02761 VALUE '99'. OJRIC089
|
|
02762 * PARM VALUE OJRIC089
|
|
02763 15 FILLER PIC X(32). OJRIC089
|
|
02764 * PARM LENGTH OJRIC089
|
|
02765 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02766 VALUE ZEROS. OJRIC089
|
|
02767 * PARM AREA END --------------------------------------------- OJRIC089
|
|
02768 10 FILLER PIC X(30) OJRIC089
|
|
02769 VALUE SPACES. OJRIC089
|
|
02770 OJRIC089
|
|
02771 ******************* R E P O R T # 12 ***************************OJRIC089
|
|
02772 * ENTRY 12 OJRIC089
|
|
02773 05 FOJR-TABLE-ENTRY. OJRIC089
|
|
02774 * REPT TYPE OJRIC089
|
|
02775 10 FILLER PIC S9(04) COMP OJRIC089
|
|
02776 VALUE +01. OJRIC089
|
|
02777 * JOB NAME OJRIC089
|
|
02778 10 FILLER PIC X(08) OJRIC089
|
|
02779 VALUE 'DTSBR429'. OJRIC089
|
|
02780 * FILLER - END OF KEY OJRIC089
|
|
02781 10 FILLER PIC X(06) OJRIC089
|
|
02782 VALUE SPACES. OJRIC089
|
|
02783 * BUSINESS AREA OJRIC089
|
|
02784 10 FILLER PIC X(02) OJRIC089
|
|
02785 VALUE '04'. OJRIC089
|
|
02786 * JOB DESCRIPTION OJRIC089
|
|
02787 10 FILLER PIC X(34) OJRIC089
|
|
02788 VALUE 'FIELD REPS LIST FOR > AMT. PARM '. OJRIC089
|
|
02789 * JOB TYPE OJRIC089
|
|
02790 10 FILLER PIC X(01) OJRIC089
|
|
02791 VALUE '2'. OJRIC089
|
|
02792 * LAST RUN DATE OJRIC089
|
|
02793 10 FILLER PIC S9(09) COMP-3 OJRIC089
|
|
02794 VALUE ZEROS. OJRIC089
|
|
02795 * PARM AREA START --------------------------------------------- OJRIC089
|
|
02796 * PARM AREA #1 OJRIC089
|
|
02797 10 PARM-DATA-ENTRY. OJRIC089
|
|
02798 * PARM DESCRIPTION OJRIC089
|
|
02799 15 FILLER PIC X(32) OJRIC089
|
|
02800 VALUE 'MIN AMT DUE, ENTER FOUR DIGITS '. OJRIC089
|
|
02801 * PARM TYPE OJRIC089
|
|
02802 15 FILLER PIC X(02) OJRIC089
|
|
02803 VALUE '03'. OJRIC089
|
|
02804 * PARM VALUE OJRIC089
|
|
02805 15 FILLER PIC X(32). OJRIC089
|
|
02806 * PARM LENGTH OJRIC089
|
|
02807 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02808 VALUE +4. OJRIC089
|
|
02809 * PARM AREA #2 OJRIC089
|
|
02810 10 PARM-DATA-ENTRY. OJRIC089
|
|
02811 * PARM DESCRIPTION OJRIC089
|
|
02812 15 FILLER PIC X(32) OJRIC089
|
|
02813 VALUE 'AR ASSIGN TYPE 1 '. OJRIC089
|
|
02814 * PARM TYPE OJRIC089
|
|
02815 15 FILLER PIC X(02) OJRIC089
|
|
02816 VALUE '03'. OJRIC089
|
|
02817 * PARM VALUE OJRIC089
|
|
02818 15 FILLER PIC X(32). OJRIC089
|
|
02819 * PARM LENGTH WAS 2 OJRIC089
|
|
02820 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02821 VALUE +0. OJRIC089
|
|
02822 * PARM AREA #3 OJRIC089
|
|
02823 10 PARM-DATA-ENTRY. OJRIC089
|
|
02824 * PARM DESCRIPTION OJRIC089
|
|
02825 15 FILLER PIC X(32) OJRIC089
|
|
02826 VALUE 'AR ASSIGN TYPE 2 '. OJRIC089
|
|
02827 * PARM TYPE OJRIC089
|
|
02828 15 FILLER PIC X(02) OJRIC089
|
|
02829 VALUE '03'. OJRIC089
|
|
02830 * PARM VALUE OJRIC089
|
|
02831 15 FILLER PIC X(32). OJRIC089
|
|
02832 * PARM LENGTH WAS 2 OJRIC089
|
|
02833 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02834 VALUE +0. OJRIC089
|
|
02835 * PARM AREA #4 OJRIC089
|
|
02836 10 PARM-DATA-ENTRY. OJRIC089
|
|
02837 * PARM DESCRIPTION OJRIC089
|
|
02838 15 FILLER PIC X(32) OJRIC089
|
|
02839 VALUE 'AR ASSIGN TYPE 3 '. OJRIC089
|
|
02840 * PARM TYPE OJRIC089
|
|
02841 15 FILLER PIC X(02) OJRIC089
|
|
02842 VALUE '03'. OJRIC089
|
|
02843 * PARM VALUE OJRIC089
|
|
02844 15 FILLER PIC X(32). OJRIC089
|
|
02845 * PARM LENGTH OJRIC089
|
|
02846 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02847 VALUE +0. OJRIC089
|
|
02848 OJRIC089
|
|
02849 * PARM AREA #5 OJRIC089
|
|
02850 10 PARM-DATA-ENTRY. OJRIC089
|
|
02851 * PARM DESCRIPTION OJRIC089
|
|
02852 15 FILLER PIC X(32) OJRIC089
|
|
02853 VALUE 'FIELD REP ID 1 '. OJRIC089
|
|
02854 * PARM TYPE OJRIC089
|
|
02855 15 FILLER PIC X(02) OJRIC089
|
|
02856 VALUE '03'. OJRIC089
|
|
02857 * PARM VALUE OJRIC089
|
|
02858 15 FILLER PIC X(32). OJRIC089
|
|
02859 * PARM LENGTH WAS 2 OJRIC089
|
|
02860 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02861 VALUE +0. OJRIC089
|
|
02862 OJRIC089
|
|
02863 * PARM AREA #6 OJRIC089
|
|
02864 10 PARM-DATA-ENTRY. OJRIC089
|
|
02865 * PARM DESCRIPTION OJRIC089
|
|
02866 15 FILLER PIC X(32) OJRIC089
|
|
02867 VALUE 'FIELD REP ID 2 '. OJRIC089
|
|
02868 * PARM TYPE OJRIC089
|
|
02869 15 FILLER PIC X(02) OJRIC089
|
|
02870 VALUE '03'. OJRIC089
|
|
02871 * PARM VALUE OJRIC089
|
|
02872 15 FILLER PIC X(32). OJRIC089
|
|
02873 * PARM LENGTH OJRIC089
|
|
02874 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02875 VALUE +0. OJRIC089
|
|
02876 OJRIC089
|
|
02877 * PARM AREA #7 OJRIC089
|
|
02878 10 PARM-DATA-ENTRY. OJRIC089
|
|
02879 * PARM DESCRIPTION OJRIC089
|
|
02880 15 FILLER PIC X(32) OJRIC089
|
|
02881 VALUE 'TAX DUE CUTOFF DATE '. OJRIC089
|
|
02882 * PARM TYPE OJRIC089
|
|
02883 15 FILLER PIC X(02) OJRIC089
|
|
02884 VALUE '00'. OJRIC089
|
|
02885 * PARM VALUE OJRIC089
|
|
02886 15 FILLER PIC X(32). OJRIC089
|
|
02887 * PARM LENGTH WAS 6 OJRIC089
|
|
02888 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02889 VALUE +0. OJRIC089
|
|
02890 OJRIC089
|
|
02891 * PARM AREA #8 OJRIC089
|
|
02892 10 PARM-DATA-ENTRY. OJRIC089
|
|
02893 * PARM DESCRIPTION OJRIC089
|
|
02894 15 FILLER PIC X(32) OJRIC089
|
|
02895 VALUE ' '. OJRIC089
|
|
02896 * PARM TYPE OJRIC089
|
|
02897 15 FILLER PIC X(02) OJRIC089
|
|
02898 VALUE '99'. OJRIC089
|
|
02899 * PARM VALUE OJRIC089
|
|
02900 15 FILLER PIC X(32). OJRIC089
|
|
02901 * PARM LENGTH OJRIC089
|
|
02902 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02903 VALUE ZEROS. OJRIC089
|
|
02904 OJRIC089
|
|
02905 * PARM AREA #9 OJRIC089
|
|
02906 10 PARM-DATA-ENTRY. OJRIC089
|
|
02907 * PARM DESCRIPTION OJRIC089
|
|
02908 15 FILLER PIC X(32) OJRIC089
|
|
02909 VALUE ' '. OJRIC089
|
|
02910 * PARM TYPE OJRIC089
|
|
02911 15 FILLER PIC X(02) OJRIC089
|
|
02912 VALUE '99'. OJRIC089
|
|
02913 * PARM VALUE OJRIC089
|
|
02914 15 FILLER PIC X(32). OJRIC089
|
|
02915 * PARM LENGTH OJRIC089
|
|
02916 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02917 VALUE ZEROS. OJRIC089
|
|
02918 OJRIC089
|
|
02919 * PARM AREA #10 OJRIC089
|
|
02920 10 PARM-DATA-ENTRY. OJRIC089
|
|
02921 * PARM DESCRIPTION OJRIC089
|
|
02922 15 FILLER PIC X(32) OJRIC089
|
|
02923 VALUE ' '. OJRIC089
|
|
02924 * PARM TYPE OJRIC089
|
|
02925 15 FILLER PIC X(02) OJRIC089
|
|
02926 VALUE '99'. OJRIC089
|
|
02927 * PARM VALUE OJRIC089
|
|
02928 15 FILLER PIC X(32). OJRIC089
|
|
02929 * PARM LENGTH OJRIC089
|
|
02930 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02931 VALUE ZEROS. OJRIC089
|
|
02932 OJRIC089
|
|
02933 * PARM AREA #11 OJRIC089
|
|
02934 10 PARM-DATA-ENTRY. OJRIC089
|
|
02935 * PARM DESCRIPTION OJRIC089
|
|
02936 15 FILLER PIC X(32) OJRIC089
|
|
02937 VALUE ' '. OJRIC089
|
|
02938 * PARM TYPE OJRIC089
|
|
02939 15 FILLER PIC X(02) OJRIC089
|
|
02940 VALUE '99'. OJRIC089
|
|
02941 * PARM VALUE OJRIC089
|
|
02942 15 FILLER PIC X(32). OJRIC089
|
|
02943 * PARM LENGTH OJRIC089
|
|
02944 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02945 VALUE ZEROS. OJRIC089
|
|
02946 OJRIC089
|
|
02947 * PARM AREA #12 OJRIC089
|
|
02948 10 PARM-DATA-ENTRY. OJRIC089
|
|
02949 * PARM DESCRIPTION OJRIC089
|
|
02950 15 FILLER PIC X(32) OJRIC089
|
|
02951 VALUE ' '. OJRIC089
|
|
02952 * PARM TYPE OJRIC089
|
|
02953 15 FILLER PIC X(02) OJRIC089
|
|
02954 VALUE '99'. OJRIC089
|
|
02955 * PARM VALUE OJRIC089
|
|
02956 15 FILLER PIC X(32). OJRIC089
|
|
02957 * PARM LENGTH OJRIC089
|
|
02958 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02959 VALUE ZEROS. OJRIC089
|
|
02960 OJRIC089
|
|
02961 * PARM AREA #13 OJRIC089
|
|
02962 10 PARM-DATA-ENTRY. OJRIC089
|
|
02963 * PARM DESCRIPTION OJRIC089
|
|
02964 15 FILLER PIC X(32) OJRIC089
|
|
02965 VALUE ' '. OJRIC089
|
|
02966 * PARM TYPE OJRIC089
|
|
02967 15 FILLER PIC X(02) OJRIC089
|
|
02968 VALUE '99'. OJRIC089
|
|
02969 * PARM VALUE OJRIC089
|
|
02970 15 FILLER PIC X(32). OJRIC089
|
|
02971 * PARM LENGTH OJRIC089
|
|
02972 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02973 VALUE ZEROS. OJRIC089
|
|
02974 OJRIC089
|
|
02975 * PARM AREA #14 OJRIC089
|
|
02976 10 PARM-DATA-ENTRY. OJRIC089
|
|
02977 * PARM DESCRIPTION OJRIC089
|
|
02978 15 FILLER PIC X(32) OJRIC089
|
|
02979 VALUE ' '. OJRIC089
|
|
02980 * PARM TYPE OJRIC089
|
|
02981 15 FILLER PIC X(02) OJRIC089
|
|
02982 VALUE '99'. OJRIC089
|
|
02983 * PARM VALUE OJRIC089
|
|
02984 15 FILLER PIC X(32). OJRIC089
|
|
02985 * PARM LENGTH OJRIC089
|
|
02986 15 FILLER PIC S9(04) COMP OJRIC089
|
|
02987 VALUE ZEROS. OJRIC089
|
|
02988 OJRIC089
|
|
02989 * PARM AREA #15 OJRIC089
|
|
02990 10 PARM-DATA-ENTRY. OJRIC089
|
|
02991 * PARM DESCRIPTION OJRIC089
|
|
02992 15 FILLER PIC X(32) OJRIC089
|
|
02993 VALUE ' '. OJRIC089
|
|
02994 * PARM TYPE OJRIC089
|
|
02995 15 FILLER PIC X(02) OJRIC089
|
|
02996 VALUE '99'. OJRIC089
|
|
02997 * PARM VALUE OJRIC089
|
|
02998 15 FILLER PIC X(32). OJRIC089
|
|
02999 * PARM LENGTH OJRIC089
|
|
03000 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03001 VALUE ZEROS. OJRIC089
|
|
03002 OJRIC089
|
|
03003 * PARM AREA #16 OJRIC089
|
|
03004 10 PARM-DATA-ENTRY. OJRIC089
|
|
03005 * PARM DESCRIPTION OJRIC089
|
|
03006 15 FILLER PIC X(32) OJRIC089
|
|
03007 VALUE ' '. OJRIC089
|
|
03008 * PARM TYPE OJRIC089
|
|
03009 15 FILLER PIC X(02) OJRIC089
|
|
03010 VALUE '99'. OJRIC089
|
|
03011 * PARM VALUE OJRIC089
|
|
03012 15 FILLER PIC X(32). OJRIC089
|
|
03013 * PARM LENGTH OJRIC089
|
|
03014 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03015 VALUE ZEROS. OJRIC089
|
|
03016 * PARM AREA END --------------------------------------------- OJRIC089
|
|
03017 10 FILLER PIC X(30) OJRIC089
|
|
03018 VALUE SPACES. OJRIC089
|
|
03019 OJRIC089
|
|
03020 ******************* R E P O R T # 13 ***************************OJRIC089
|
|
03021 * ENTRY 13 OJRIC089
|
|
03022 05 FOJR-TABLE-ENTRY. OJRIC089
|
|
03023 * REPT TYPE OJRIC089
|
|
03024 10 FILLER PIC S9(04) COMP OJRIC089
|
|
03025 VALUE +01. OJRIC089
|
|
03026 * JOB NAME OJRIC089
|
|
03027 10 FILLER PIC X(08) OJRIC089
|
|
03028 VALUE 'DTSBR602'. OJRIC089
|
|
03029 * FILLER - END OF KEY OJRIC089
|
|
03030 10 FILLER PIC X(06) OJRIC089
|
|
03031 VALUE SPACES. OJRIC089
|
|
03032 * BUSINESS AREA OJRIC089
|
|
03033 10 FILLER PIC X(02) OJRIC089
|
|
03034 VALUE '06'. OJRIC089
|
|
03035 * JOB DESCRIPTION OJRIC089
|
|
03036 10 FILLER PIC X(34) OJRIC089
|
|
03037 VALUE 'AUDIT CANDIDATE LIST '. OJRIC089
|
|
03038 * JOB TYPE OJRIC089
|
|
03039 10 FILLER PIC X(01) OJRIC089
|
|
03040 VALUE '2'. OJRIC089
|
|
03041 * LAST RUN DATE OJRIC089
|
|
03042 10 FILLER PIC S9(09) COMP-3 OJRIC089
|
|
03043 VALUE ZEROS. OJRIC089
|
|
03044 * PARM AREA START --------------------------------------------- OJRIC089
|
|
03045 * PARM AREA #1 OJRIC089
|
|
03046 10 PARM-DATA-ENTRY. OJRIC089
|
|
03047 * PARM DESCRIPTION OJRIC089
|
|
03048 15 FILLER PIC X(32) OJRIC089
|
|
03049 VALUE 'SHOULD NOT DISPLAY '. OJRIC089
|
|
03050 * PARM TYPE OJRIC089
|
|
03051 15 FILLER PIC X(02) OJRIC089
|
|
03052 VALUE '99'. OJRIC089
|
|
03053 * PARM VALUE OJRIC089
|
|
03054 15 FILLER PIC X(32). OJRIC089
|
|
03055 * PARM LENGTH OJRIC089
|
|
03056 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03057 VALUE ZEROS. OJRIC089
|
|
03058 * PARM AREA #2 OJRIC089
|
|
03059 10 PARM-DATA-ENTRY. OJRIC089
|
|
03060 * PARM DESCRIPTION OJRIC089
|
|
03061 15 FILLER PIC X(32) OJRIC089
|
|
03062 VALUE ' '. OJRIC089
|
|
03063 * PARM TYPE OJRIC089
|
|
03064 15 FILLER PIC X(02) OJRIC089
|
|
03065 VALUE '99'. OJRIC089
|
|
03066 * PARM VALUE OJRIC089
|
|
03067 15 FILLER PIC X(32). OJRIC089
|
|
03068 * PARM LENGTH OJRIC089
|
|
03069 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03070 VALUE ZEROS. OJRIC089
|
|
03071 * PARM AREA #3 OJRIC089
|
|
03072 10 PARM-DATA-ENTRY. OJRIC089
|
|
03073 * PARM DESCRIPTION OJRIC089
|
|
03074 15 FILLER PIC X(32) OJRIC089
|
|
03075 VALUE ' '. OJRIC089
|
|
03076 * PARM TYPE OJRIC089
|
|
03077 15 FILLER PIC X(02) OJRIC089
|
|
03078 VALUE '99'. OJRIC089
|
|
03079 * PARM VALUE OJRIC089
|
|
03080 15 FILLER PIC X(32). OJRIC089
|
|
03081 * PARM LENGTH OJRIC089
|
|
03082 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03083 VALUE ZEROS. OJRIC089
|
|
03084 * PARM AREA #4 OJRIC089
|
|
03085 10 PARM-DATA-ENTRY. OJRIC089
|
|
03086 * PARM DESCRIPTION OJRIC089
|
|
03087 15 FILLER PIC X(32) OJRIC089
|
|
03088 VALUE ' '. OJRIC089
|
|
03089 * PARM TYPE OJRIC089
|
|
03090 15 FILLER PIC X(02) OJRIC089
|
|
03091 VALUE '99'. OJRIC089
|
|
03092 * PARM VALUE OJRIC089
|
|
03093 15 FILLER PIC X(32). OJRIC089
|
|
03094 * PARM LENGTH OJRIC089
|
|
03095 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03096 VALUE ZEROS. OJRIC089
|
|
03097 OJRIC089
|
|
03098 * PARM AREA #5 OJRIC089
|
|
03099 10 PARM-DATA-ENTRY. OJRIC089
|
|
03100 * PARM DESCRIPTION OJRIC089
|
|
03101 15 FILLER PIC X(32) OJRIC089
|
|
03102 VALUE ' '. OJRIC089
|
|
03103 * PARM TYPE OJRIC089
|
|
03104 15 FILLER PIC X(02) OJRIC089
|
|
03105 VALUE '99'. OJRIC089
|
|
03106 * PARM VALUE OJRIC089
|
|
03107 15 FILLER PIC X(32). OJRIC089
|
|
03108 * PARM LENGTH OJRIC089
|
|
03109 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03110 VALUE ZEROS. OJRIC089
|
|
03111 OJRIC089
|
|
03112 * PARM AREA #6 OJRIC089
|
|
03113 10 PARM-DATA-ENTRY. OJRIC089
|
|
03114 * PARM DESCRIPTION OJRIC089
|
|
03115 15 FILLER PIC X(32) OJRIC089
|
|
03116 VALUE ' '. OJRIC089
|
|
03117 * PARM TYPE OJRIC089
|
|
03118 15 FILLER PIC X(02) OJRIC089
|
|
03119 VALUE '99'. OJRIC089
|
|
03120 * PARM VALUE OJRIC089
|
|
03121 15 FILLER PIC X(32). OJRIC089
|
|
03122 * PARM LENGTH OJRIC089
|
|
03123 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03124 VALUE ZEROS. OJRIC089
|
|
03125 OJRIC089
|
|
03126 * PARM AREA #7 OJRIC089
|
|
03127 10 PARM-DATA-ENTRY. OJRIC089
|
|
03128 * PARM DESCRIPTION OJRIC089
|
|
03129 15 FILLER PIC X(32) OJRIC089
|
|
03130 VALUE ' '. OJRIC089
|
|
03131 * PARM TYPE OJRIC089
|
|
03132 15 FILLER PIC X(02) OJRIC089
|
|
03133 VALUE '99'. OJRIC089
|
|
03134 * PARM VALUE OJRIC089
|
|
03135 15 FILLER PIC X(32). OJRIC089
|
|
03136 * PARM LENGTH OJRIC089
|
|
03137 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03138 VALUE ZEROS. OJRIC089
|
|
03139 OJRIC089
|
|
03140 * PARM AREA #8 OJRIC089
|
|
03141 10 PARM-DATA-ENTRY. OJRIC089
|
|
03142 * PARM DESCRIPTION OJRIC089
|
|
03143 15 FILLER PIC X(32) OJRIC089
|
|
03144 VALUE ' '. OJRIC089
|
|
03145 * PARM TYPE OJRIC089
|
|
03146 15 FILLER PIC X(02) OJRIC089
|
|
03147 VALUE '99'. OJRIC089
|
|
03148 * PARM VALUE OJRIC089
|
|
03149 15 FILLER PIC X(32). OJRIC089
|
|
03150 * PARM LENGTH OJRIC089
|
|
03151 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03152 VALUE ZEROS. OJRIC089
|
|
03153 OJRIC089
|
|
03154 * PARM AREA #9 OJRIC089
|
|
03155 10 PARM-DATA-ENTRY. OJRIC089
|
|
03156 * PARM DESCRIPTION OJRIC089
|
|
03157 15 FILLER PIC X(32) OJRIC089
|
|
03158 VALUE ' '. OJRIC089
|
|
03159 * PARM TYPE OJRIC089
|
|
03160 15 FILLER PIC X(02) OJRIC089
|
|
03161 VALUE '99'. OJRIC089
|
|
03162 * PARM VALUE OJRIC089
|
|
03163 15 FILLER PIC X(32). OJRIC089
|
|
03164 * PARM LENGTH OJRIC089
|
|
03165 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03166 VALUE ZEROS. OJRIC089
|
|
03167 OJRIC089
|
|
03168 * PARM AREA #10 OJRIC089
|
|
03169 10 PARM-DATA-ENTRY. OJRIC089
|
|
03170 * PARM DESCRIPTION OJRIC089
|
|
03171 15 FILLER PIC X(32) OJRIC089
|
|
03172 VALUE ' '. OJRIC089
|
|
03173 * PARM TYPE OJRIC089
|
|
03174 15 FILLER PIC X(02) OJRIC089
|
|
03175 VALUE '99'. OJRIC089
|
|
03176 * PARM VALUE OJRIC089
|
|
03177 15 FILLER PIC X(32). OJRIC089
|
|
03178 * PARM LENGTH OJRIC089
|
|
03179 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03180 VALUE ZEROS. OJRIC089
|
|
03181 OJRIC089
|
|
03182 * PARM AREA #11 OJRIC089
|
|
03183 10 PARM-DATA-ENTRY. OJRIC089
|
|
03184 * PARM DESCRIPTION OJRIC089
|
|
03185 15 FILLER PIC X(32) OJRIC089
|
|
03186 VALUE ' '. OJRIC089
|
|
03187 * PARM TYPE OJRIC089
|
|
03188 15 FILLER PIC X(02) OJRIC089
|
|
03189 VALUE '99'. OJRIC089
|
|
03190 * PARM VALUE OJRIC089
|
|
03191 15 FILLER PIC X(32). OJRIC089
|
|
03192 * PARM LENGTH OJRIC089
|
|
03193 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03194 VALUE ZEROS. OJRIC089
|
|
03195 OJRIC089
|
|
03196 * PARM AREA #12 OJRIC089
|
|
03197 10 PARM-DATA-ENTRY. OJRIC089
|
|
03198 * PARM DESCRIPTION OJRIC089
|
|
03199 15 FILLER PIC X(32) OJRIC089
|
|
03200 VALUE ' '. OJRIC089
|
|
03201 * PARM TYPE OJRIC089
|
|
03202 15 FILLER PIC X(02) OJRIC089
|
|
03203 VALUE '99'. OJRIC089
|
|
03204 * PARM VALUE OJRIC089
|
|
03205 15 FILLER PIC X(32). OJRIC089
|
|
03206 * PARM LENGTH OJRIC089
|
|
03207 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03208 VALUE ZEROS. OJRIC089
|
|
03209 OJRIC089
|
|
03210 * PARM AREA #13 OJRIC089
|
|
03211 10 PARM-DATA-ENTRY. OJRIC089
|
|
03212 * PARM DESCRIPTION OJRIC089
|
|
03213 15 FILLER PIC X(32) OJRIC089
|
|
03214 VALUE ' '. OJRIC089
|
|
03215 * PARM TYPE OJRIC089
|
|
03216 15 FILLER PIC X(02) OJRIC089
|
|
03217 VALUE '99'. OJRIC089
|
|
03218 * PARM VALUE OJRIC089
|
|
03219 15 FILLER PIC X(32). OJRIC089
|
|
03220 * PARM LENGTH OJRIC089
|
|
03221 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03222 VALUE ZEROS. OJRIC089
|
|
03223 OJRIC089
|
|
03224 * PARM AREA #14 OJRIC089
|
|
03225 10 PARM-DATA-ENTRY. OJRIC089
|
|
03226 * PARM DESCRIPTION OJRIC089
|
|
03227 15 FILLER PIC X(32) OJRIC089
|
|
03228 VALUE ' '. OJRIC089
|
|
03229 * PARM TYPE OJRIC089
|
|
03230 15 FILLER PIC X(02) OJRIC089
|
|
03231 VALUE '99'. OJRIC089
|
|
03232 * PARM VALUE OJRIC089
|
|
03233 15 FILLER PIC X(32). OJRIC089
|
|
03234 * PARM LENGTH OJRIC089
|
|
03235 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03236 VALUE ZEROS. OJRIC089
|
|
03237 OJRIC089
|
|
03238 * PARM AREA #15 OJRIC089
|
|
03239 10 PARM-DATA-ENTRY. OJRIC089
|
|
03240 * PARM DESCRIPTION OJRIC089
|
|
03241 15 FILLER PIC X(32) OJRIC089
|
|
03242 VALUE ' '. OJRIC089
|
|
03243 * PARM TYPE OJRIC089
|
|
03244 15 FILLER PIC X(02) OJRIC089
|
|
03245 VALUE '99'. OJRIC089
|
|
03246 * PARM VALUE OJRIC089
|
|
03247 15 FILLER PIC X(32). OJRIC089
|
|
03248 * PARM LENGTH OJRIC089
|
|
03249 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03250 VALUE ZEROS. OJRIC089
|
|
03251 OJRIC089
|
|
03252 * PARM AREA #16 OJRIC089
|
|
03253 10 PARM-DATA-ENTRY. OJRIC089
|
|
03254 * PARM DESCRIPTION OJRIC089
|
|
03255 15 FILLER PIC X(32) OJRIC089
|
|
03256 VALUE ' '. OJRIC089
|
|
03257 * PARM TYPE OJRIC089
|
|
03258 15 FILLER PIC X(02) OJRIC089
|
|
03259 VALUE '99'. OJRIC089
|
|
03260 * PARM VALUE OJRIC089
|
|
03261 15 FILLER PIC X(32). OJRIC089
|
|
03262 * PARM LENGTH OJRIC089
|
|
03263 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03264 VALUE ZEROS. OJRIC089
|
|
03265 * PARM AREA END --------------------------------------------- OJRIC089
|
|
03266 10 FILLER PIC X(30) OJRIC089
|
|
03267 VALUE SPACES. OJRIC089
|
|
03268 OJRIC089
|
|
03269 ******************* R E P O R T # 14 ***************************OJRIC089
|
|
03270 * ENTRY 14 OJRIC089
|
|
03271 05 FOJR-TABLE-ENTRY. OJRIC089
|
|
03272 * REPT TYPE OJRIC089
|
|
03273 10 FILLER PIC S9(04) COMP OJRIC089
|
|
03274 VALUE +01. OJRIC089
|
|
03275 * JOB NAME OJRIC089
|
|
03276 10 FILLER PIC X(08) OJRIC089
|
|
03277 VALUE 'DTSBR606'. OJRIC089
|
|
03278 * FILLER - END OF KEY OJRIC089
|
|
03279 10 FILLER PIC X(06) OJRIC089
|
|
03280 VALUE SPACES. OJRIC089
|
|
03281 * BUSINESS AREA OJRIC089
|
|
03282 10 FILLER PIC X(02) OJRIC089
|
|
03283 VALUE '06'. OJRIC089
|
|
03284 * JOB DESCRIPTION OJRIC089
|
|
03285 10 FILLER PIC X(34) OJRIC089
|
|
03286 VALUE 'ASSIGNMENT SUMMARY BY FIELD REP '. OJRIC089
|
|
03287 * JOB TYPE OJRIC089
|
|
03288 10 FILLER PIC X(01) OJRIC089
|
|
03289 VALUE '2'. OJRIC089
|
|
03290 * LAST RUN DATE OJRIC089
|
|
03291 10 FILLER PIC S9(09) COMP-3 OJRIC089
|
|
03292 VALUE ZEROS. OJRIC089
|
|
03293 * PARM AREA START --------------------------------------------- OJRIC089
|
|
03294 * PARM AREA #1 OJRIC089
|
|
03295 10 PARM-DATA-ENTRY. OJRIC089
|
|
03296 * PARM DESCRIPTION OJRIC089
|
|
03297 15 FILLER PIC X(32) OJRIC089
|
|
03298 VALUE 'COMPLETED START DATE '. OJRIC089
|
|
03299 * PARM TYPE OJRIC089
|
|
03300 15 FILLER PIC X(02) OJRIC089
|
|
03301 VALUE '00'. OJRIC089
|
|
03302 * PARM VALUE OJRIC089
|
|
03303 15 FILLER PIC X(32). OJRIC089
|
|
03304 * PARM LENGTH OJRIC089
|
|
03305 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03306 VALUE +6. OJRIC089
|
|
03307 * PARM AREA #2 OJRIC089
|
|
03308 10 PARM-DATA-ENTRY. OJRIC089
|
|
03309 * PARM DESCRIPTION OJRIC089
|
|
03310 15 FILLER PIC X(32) OJRIC089
|
|
03311 VALUE 'COMPLETED END DATE '. OJRIC089
|
|
03312 * PARM TYPE OJRIC089
|
|
03313 15 FILLER PIC X(02) OJRIC089
|
|
03314 VALUE '00'. OJRIC089
|
|
03315 * PARM VALUE OJRIC089
|
|
03316 15 FILLER PIC X(32). OJRIC089
|
|
03317 * PARM LENGTH OJRIC089
|
|
03318 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03319 VALUE +6. OJRIC089
|
|
03320 * PARM AREA #3 OJRIC089
|
|
03321 10 PARM-DATA-ENTRY. OJRIC089
|
|
03322 * PARM DESCRIPTION OJRIC089
|
|
03323 15 FILLER PIC X(32) OJRIC089
|
|
03324 VALUE 'PROCESSED START DATE '. OJRIC089
|
|
03325 * PARM TYPE OJRIC089
|
|
03326 15 FILLER PIC X(02) OJRIC089
|
|
03327 VALUE '00'. OJRIC089
|
|
03328 * PARM VALUE OJRIC089
|
|
03329 15 FILLER PIC X(32). OJRIC089
|
|
03330 * PARM LENGTH OJRIC089
|
|
03331 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03332 VALUE +6. OJRIC089
|
|
03333 * PARM AREA #4 OJRIC089
|
|
03334 10 PARM-DATA-ENTRY. OJRIC089
|
|
03335 * PARM DESCRIPTION OJRIC089
|
|
03336 15 FILLER PIC X(32) OJRIC089
|
|
03337 VALUE 'PROCESSED END DATE '. OJRIC089
|
|
03338 * PARM TYPE OJRIC089
|
|
03339 15 FILLER PIC X(02) OJRIC089
|
|
03340 VALUE '00'. OJRIC089
|
|
03341 * PARM VALUE OJRIC089
|
|
03342 15 FILLER PIC X(32). OJRIC089
|
|
03343 * PARM LENGTH OJRIC089
|
|
03344 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03345 VALUE +6. OJRIC089
|
|
03346 OJRIC089
|
|
03347 * PARM AREA #5 OJRIC089
|
|
03348 10 PARM-DATA-ENTRY. OJRIC089
|
|
03349 * PARM DESCRIPTION OJRIC089
|
|
03350 15 FILLER PIC X(32) OJRIC089
|
|
03351 VALUE 'ASSIGNMENT TYPE 1 '. OJRIC089
|
|
03352 * PARM TYPE OJRIC089
|
|
03353 15 FILLER PIC X(02) OJRIC089
|
|
03354 VALUE '03'. OJRIC089
|
|
03355 * PARM VALUE OJRIC089
|
|
03356 15 FILLER PIC X(32). OJRIC089
|
|
03357 * PARM LENGTH OJRIC089
|
|
03358 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03359 VALUE +2. OJRIC089
|
|
03360 OJRIC089
|
|
03361 * PARM AREA #6 OJRIC089
|
|
03362 10 PARM-DATA-ENTRY. OJRIC089
|
|
03363 * PARM DESCRIPTION OJRIC089
|
|
03364 15 FILLER PIC X(32) OJRIC089
|
|
03365 VALUE 'ASSIGNMENT TYPE 2 '. OJRIC089
|
|
03366 * PARM TYPE OJRIC089
|
|
03367 15 FILLER PIC X(02) OJRIC089
|
|
03368 VALUE '03'. OJRIC089
|
|
03369 * PARM VALUE OJRIC089
|
|
03370 15 FILLER PIC X(32). OJRIC089
|
|
03371 * PARM LENGTH OJRIC089
|
|
03372 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03373 VALUE +2. OJRIC089
|
|
03374 OJRIC089
|
|
03375 * PARM AREA #7 OJRIC089
|
|
03376 10 PARM-DATA-ENTRY. OJRIC089
|
|
03377 * PARM DESCRIPTION OJRIC089
|
|
03378 15 FILLER PIC X(32) OJRIC089
|
|
03379 VALUE 'ASSIGNMENT TYPE 3 '. OJRIC089
|
|
03380 * PARM TYPE OJRIC089
|
|
03381 15 FILLER PIC X(02) OJRIC089
|
|
03382 VALUE '03'. OJRIC089
|
|
03383 * PARM VALUE OJRIC089
|
|
03384 15 FILLER PIC X(32). OJRIC089
|
|
03385 * PARM LENGTH OJRIC089
|
|
03386 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03387 VALUE +2. OJRIC089
|
|
03388 OJRIC089
|
|
03389 * PARM AREA #8 OJRIC089
|
|
03390 10 PARM-DATA-ENTRY. OJRIC089
|
|
03391 * PARM DESCRIPTION OJRIC089
|
|
03392 15 FILLER PIC X(32) OJRIC089
|
|
03393 VALUE 'ASSIGNMENT TYPE 4 '. OJRIC089
|
|
03394 * PARM TYPE OJRIC089
|
|
03395 15 FILLER PIC X(02) OJRIC089
|
|
03396 VALUE '03'. OJRIC089
|
|
03397 * PARM VALUE OJRIC089
|
|
03398 15 FILLER PIC X(32). OJRIC089
|
|
03399 * PARM LENGTH OJRIC089
|
|
03400 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03401 VALUE +2. OJRIC089
|
|
03402 OJRIC089
|
|
03403 * PARM AREA #9 OJRIC089
|
|
03404 10 PARM-DATA-ENTRY. OJRIC089
|
|
03405 * PARM DESCRIPTION OJRIC089
|
|
03406 15 FILLER PIC X(32) OJRIC089
|
|
03407 VALUE 'ASSIGNMENT TYPE 5 '. OJRIC089
|
|
03408 * PARM TYPE OJRIC089
|
|
03409 15 FILLER PIC X(02) OJRIC089
|
|
03410 VALUE '03'. OJRIC089
|
|
03411 * PARM VALUE OJRIC089
|
|
03412 15 FILLER PIC X(32). OJRIC089
|
|
03413 * PARM LENGTH OJRIC089
|
|
03414 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03415 VALUE +2. OJRIC089
|
|
03416 OJRIC089
|
|
03417 * PARM AREA #10 OJRIC089
|
|
03418 10 PARM-DATA-ENTRY. OJRIC089
|
|
03419 * PARM DESCRIPTION OJRIC089
|
|
03420 15 FILLER PIC X(32) OJRIC089
|
|
03421 VALUE ' '. OJRIC089
|
|
03422 * PARM TYPE OJRIC089
|
|
03423 15 FILLER PIC X(02) OJRIC089
|
|
03424 VALUE '99'. OJRIC089
|
|
03425 * PARM VALUE OJRIC089
|
|
03426 15 FILLER PIC X(32). OJRIC089
|
|
03427 * PARM LENGTH OJRIC089
|
|
03428 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03429 VALUE ZEROS. OJRIC089
|
|
03430 OJRIC089
|
|
03431 * PARM AREA #11 OJRIC089
|
|
03432 10 PARM-DATA-ENTRY. OJRIC089
|
|
03433 * PARM DESCRIPTION OJRIC089
|
|
03434 15 FILLER PIC X(32) OJRIC089
|
|
03435 VALUE ' '. OJRIC089
|
|
03436 * PARM TYPE OJRIC089
|
|
03437 15 FILLER PIC X(02) OJRIC089
|
|
03438 VALUE '99'. OJRIC089
|
|
03439 * PARM VALUE OJRIC089
|
|
03440 15 FILLER PIC X(32). OJRIC089
|
|
03441 * PARM LENGTH OJRIC089
|
|
03442 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03443 VALUE ZEROS. OJRIC089
|
|
03444 OJRIC089
|
|
03445 * PARM AREA #12 OJRIC089
|
|
03446 10 PARM-DATA-ENTRY. OJRIC089
|
|
03447 * PARM DESCRIPTION OJRIC089
|
|
03448 15 FILLER PIC X(32) OJRIC089
|
|
03449 VALUE ' '. OJRIC089
|
|
03450 * PARM TYPE OJRIC089
|
|
03451 15 FILLER PIC X(02) OJRIC089
|
|
03452 VALUE '99'. OJRIC089
|
|
03453 * PARM VALUE OJRIC089
|
|
03454 15 FILLER PIC X(32). OJRIC089
|
|
03455 * PARM LENGTH OJRIC089
|
|
03456 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03457 VALUE ZEROS. OJRIC089
|
|
03458 OJRIC089
|
|
03459 * PARM AREA #13 OJRIC089
|
|
03460 10 PARM-DATA-ENTRY. OJRIC089
|
|
03461 * PARM DESCRIPTION OJRIC089
|
|
03462 15 FILLER PIC X(32) OJRIC089
|
|
03463 VALUE ' '. OJRIC089
|
|
03464 * PARM TYPE OJRIC089
|
|
03465 15 FILLER PIC X(02) OJRIC089
|
|
03466 VALUE '99'. OJRIC089
|
|
03467 * PARM VALUE OJRIC089
|
|
03468 15 FILLER PIC X(32). OJRIC089
|
|
03469 * PARM LENGTH OJRIC089
|
|
03470 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03471 VALUE ZEROS. OJRIC089
|
|
03472 OJRIC089
|
|
03473 * PARM AREA #14 OJRIC089
|
|
03474 10 PARM-DATA-ENTRY. OJRIC089
|
|
03475 * PARM DESCRIPTION OJRIC089
|
|
03476 15 FILLER PIC X(32) OJRIC089
|
|
03477 VALUE ' '. OJRIC089
|
|
03478 * PARM TYPE OJRIC089
|
|
03479 15 FILLER PIC X(02) OJRIC089
|
|
03480 VALUE '99'. OJRIC089
|
|
03481 * PARM VALUE OJRIC089
|
|
03482 15 FILLER PIC X(32). OJRIC089
|
|
03483 * PARM LENGTH OJRIC089
|
|
03484 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03485 VALUE ZEROS. OJRIC089
|
|
03486 OJRIC089
|
|
03487 * PARM AREA #15 OJRIC089
|
|
03488 10 PARM-DATA-ENTRY. OJRIC089
|
|
03489 * PARM DESCRIPTION OJRIC089
|
|
03490 15 FILLER PIC X(32) OJRIC089
|
|
03491 VALUE ' '. OJRIC089
|
|
03492 * PARM TYPE OJRIC089
|
|
03493 15 FILLER PIC X(02) OJRIC089
|
|
03494 VALUE '99'. OJRIC089
|
|
03495 * PARM VALUE OJRIC089
|
|
03496 15 FILLER PIC X(32). OJRIC089
|
|
03497 * PARM LENGTH OJRIC089
|
|
03498 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03499 VALUE ZEROS. OJRIC089
|
|
03500 OJRIC089
|
|
03501 * PARM AREA #16 OJRIC089
|
|
03502 10 PARM-DATA-ENTRY. OJRIC089
|
|
03503 * PARM DESCRIPTION OJRIC089
|
|
03504 15 FILLER PIC X(32) OJRIC089
|
|
03505 VALUE ' '. OJRIC089
|
|
03506 * PARM TYPE OJRIC089
|
|
03507 15 FILLER PIC X(02) OJRIC089
|
|
03508 VALUE '99'. OJRIC089
|
|
03509 * PARM VALUE OJRIC089
|
|
03510 15 FILLER PIC X(32). OJRIC089
|
|
03511 * PARM LENGTH OJRIC089
|
|
03512 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03513 VALUE ZEROS. OJRIC089
|
|
03514 * PARM AREA END --------------------------------------------- OJRIC089
|
|
03515 10 FILLER PIC X(30) OJRIC089
|
|
03516 VALUE SPACES. OJRIC089
|
|
03517 OJRIC089
|
|
03518 ******************* R E P O R T # 15 ***************************OJRIC089
|
|
03519 * ENTRY 15 OJRIC089
|
|
03520 05 FOJR-TABLE-ENTRY. OJRIC089
|
|
03521 * REPT TYPE OJRIC089
|
|
03522 10 FILLER PIC S9(04) COMP OJRIC089
|
|
03523 VALUE +01. OJRIC089
|
|
03524 * JOB NAME OJRIC089
|
|
03525 10 FILLER PIC X(08) OJRIC089
|
|
03526 VALUE 'DTSBR607'. OJRIC089
|
|
03527 * FILLER - END OF KEY OJRIC089
|
|
03528 10 FILLER PIC X(06) OJRIC089
|
|
03529 VALUE SPACES. OJRIC089
|
|
03530 * BUSINESS AREA OJRIC089
|
|
03531 10 FILLER PIC X(02) OJRIC089
|
|
03532 VALUE '06'. OJRIC089
|
|
03533 * JOB DESCRIPTION OJRIC089
|
|
03534 10 FILLER PIC X(34) OJRIC089
|
|
03535 VALUE 'ASSIGNMENT DETAIL BY FIELD REP '. OJRIC089
|
|
03536 * JOB TYPE OJRIC089
|
|
03537 10 FILLER PIC X(01) OJRIC089
|
|
03538 VALUE '2'. OJRIC089
|
|
03539 * LAST RUN DATE OJRIC089
|
|
03540 10 FILLER PIC S9(09) COMP-3 OJRIC089
|
|
03541 VALUE ZEROS. OJRIC089
|
|
03542 * PARM AREA START --------------------------------------------- OJRIC089
|
|
03543 * PARM AREA #1 OJRIC089
|
|
03544 10 PARM-DATA-ENTRY. OJRIC089
|
|
03545 * PARM DESCRIPTION OJRIC089
|
|
03546 15 FILLER PIC X(32) OJRIC089
|
|
03547 VALUE 'COMPLETED START DATE '. OJRIC089
|
|
03548 * PARM TYPE OJRIC089
|
|
03549 15 FILLER PIC X(02) OJRIC089
|
|
03550 VALUE '00'. OJRIC089
|
|
03551 * PARM VALUE OJRIC089
|
|
03552 15 FILLER PIC X(32). OJRIC089
|
|
03553 * PARM LENGTH OJRIC089
|
|
03554 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03555 VALUE +6. OJRIC089
|
|
03556 * PARM AREA #2 OJRIC089
|
|
03557 10 PARM-DATA-ENTRY. OJRIC089
|
|
03558 * PARM DESCRIPTION OJRIC089
|
|
03559 15 FILLER PIC X(32) OJRIC089
|
|
03560 VALUE 'COMPLETED END DATE '. OJRIC089
|
|
03561 * PARM TYPE OJRIC089
|
|
03562 15 FILLER PIC X(02) OJRIC089
|
|
03563 VALUE '00'. OJRIC089
|
|
03564 * PARM VALUE OJRIC089
|
|
03565 15 FILLER PIC X(32). OJRIC089
|
|
03566 * PARM LENGTH OJRIC089
|
|
03567 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03568 VALUE +6. OJRIC089
|
|
03569 * PARM AREA #3 OJRIC089
|
|
03570 10 PARM-DATA-ENTRY. OJRIC089
|
|
03571 * PARM DESCRIPTION OJRIC089
|
|
03572 15 FILLER PIC X(32) OJRIC089
|
|
03573 VALUE 'PROCESSED START DATE '. OJRIC089
|
|
03574 * PARM TYPE OJRIC089
|
|
03575 15 FILLER PIC X(02) OJRIC089
|
|
03576 VALUE '00'. OJRIC089
|
|
03577 * PARM VALUE OJRIC089
|
|
03578 15 FILLER PIC X(32). OJRIC089
|
|
03579 * PARM LENGTH OJRIC089
|
|
03580 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03581 VALUE +6. OJRIC089
|
|
03582 * PARM AREA #4 OJRIC089
|
|
03583 10 PARM-DATA-ENTRY. OJRIC089
|
|
03584 * PARM DESCRIPTION OJRIC089
|
|
03585 15 FILLER PIC X(32) OJRIC089
|
|
03586 VALUE 'PROCESSED END DATE '. OJRIC089
|
|
03587 * PARM TYPE OJRIC089
|
|
03588 15 FILLER PIC X(02) OJRIC089
|
|
03589 VALUE '00'. OJRIC089
|
|
03590 * PARM VALUE OJRIC089
|
|
03591 15 FILLER PIC X(32). OJRIC089
|
|
03592 * PARM LENGTH OJRIC089
|
|
03593 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03594 VALUE +6. OJRIC089
|
|
03595 OJRIC089
|
|
03596 * PARM AREA #5 OJRIC089
|
|
03597 10 PARM-DATA-ENTRY. OJRIC089
|
|
03598 * PARM DESCRIPTION OJRIC089
|
|
03599 15 FILLER PIC X(32) OJRIC089
|
|
03600 VALUE 'ASSIGNMENT TYPE 1 '. OJRIC089
|
|
03601 * PARM TYPE OJRIC089
|
|
03602 15 FILLER PIC X(02) OJRIC089
|
|
03603 VALUE '03'. OJRIC089
|
|
03604 * PARM VALUE OJRIC089
|
|
03605 15 FILLER PIC X(32). OJRIC089
|
|
03606 * PARM LENGTH OJRIC089
|
|
03607 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03608 VALUE +2. OJRIC089
|
|
03609 OJRIC089
|
|
03610 * PARM AREA #6 OJRIC089
|
|
03611 10 PARM-DATA-ENTRY. OJRIC089
|
|
03612 * PARM DESCRIPTION OJRIC089
|
|
03613 15 FILLER PIC X(32) OJRIC089
|
|
03614 VALUE 'ASSIGNMENT TYPE 2 '. OJRIC089
|
|
03615 * PARM TYPE OJRIC089
|
|
03616 15 FILLER PIC X(02) OJRIC089
|
|
03617 VALUE '03'. OJRIC089
|
|
03618 * PARM VALUE OJRIC089
|
|
03619 15 FILLER PIC X(32). OJRIC089
|
|
03620 * PARM LENGTH OJRIC089
|
|
03621 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03622 VALUE +2. OJRIC089
|
|
03623 OJRIC089
|
|
03624 * PARM AREA #7 OJRIC089
|
|
03625 10 PARM-DATA-ENTRY. OJRIC089
|
|
03626 * PARM DESCRIPTION OJRIC089
|
|
03627 15 FILLER PIC X(32) OJRIC089
|
|
03628 VALUE 'ASSIGNMENT TYPE 3 '. OJRIC089
|
|
03629 * PARM TYPE OJRIC089
|
|
03630 15 FILLER PIC X(02) OJRIC089
|
|
03631 VALUE '03'. OJRIC089
|
|
03632 * PARM VALUE OJRIC089
|
|
03633 15 FILLER PIC X(32). OJRIC089
|
|
03634 * PARM LENGTH OJRIC089
|
|
03635 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03636 VALUE +2. OJRIC089
|
|
03637 OJRIC089
|
|
03638 * PARM AREA #8 OJRIC089
|
|
03639 10 PARM-DATA-ENTRY. OJRIC089
|
|
03640 * PARM DESCRIPTION OJRIC089
|
|
03641 15 FILLER PIC X(32) OJRIC089
|
|
03642 VALUE 'ASSIGNMENT TYPE 4 '. OJRIC089
|
|
03643 * PARM TYPE OJRIC089
|
|
03644 15 FILLER PIC X(02) OJRIC089
|
|
03645 VALUE '03'. OJRIC089
|
|
03646 * PARM VALUE OJRIC089
|
|
03647 15 FILLER PIC X(32). OJRIC089
|
|
03648 * PARM LENGTH OJRIC089
|
|
03649 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03650 VALUE +2. OJRIC089
|
|
03651 OJRIC089
|
|
03652 * PARM AREA #9 OJRIC089
|
|
03653 10 PARM-DATA-ENTRY. OJRIC089
|
|
03654 * PARM DESCRIPTION OJRIC089
|
|
03655 15 FILLER PIC X(32) OJRIC089
|
|
03656 VALUE 'ASSIGNMENT TYPE 5 '. OJRIC089
|
|
03657 * PARM TYPE OJRIC089
|
|
03658 15 FILLER PIC X(02) OJRIC089
|
|
03659 VALUE '03'. OJRIC089
|
|
03660 * PARM VALUE OJRIC089
|
|
03661 15 FILLER PIC X(32). OJRIC089
|
|
03662 * PARM LENGTH OJRIC089
|
|
03663 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03664 VALUE +2. OJRIC089
|
|
03665 OJRIC089
|
|
03666 * PARM AREA #10 OJRIC089
|
|
03667 10 PARM-DATA-ENTRY. OJRIC089
|
|
03668 * PARM DESCRIPTION OJRIC089
|
|
03669 15 FILLER PIC X(32) OJRIC089
|
|
03670 VALUE 'FIELD REP ID 1 '. OJRIC089
|
|
03671 * PARM TYPE OJRIC089
|
|
03672 15 FILLER PIC X(02) OJRIC089
|
|
03673 VALUE '03'. OJRIC089
|
|
03674 * PARM VALUE OJRIC089
|
|
03675 15 FILLER PIC X(32). OJRIC089
|
|
03676 * PARM LENGTH OJRIC089
|
|
03677 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03678 VALUE +2. OJRIC089
|
|
03679 OJRIC089
|
|
03680 * PARM AREA #11 OJRIC089
|
|
03681 10 PARM-DATA-ENTRY. OJRIC089
|
|
03682 * PARM DESCRIPTION OJRIC089
|
|
03683 15 FILLER PIC X(32) OJRIC089
|
|
03684 VALUE 'FIELD REP ID 2 '. OJRIC089
|
|
03685 * PARM TYPE OJRIC089
|
|
03686 15 FILLER PIC X(02) OJRIC089
|
|
03687 VALUE '03'. OJRIC089
|
|
03688 * PARM VALUE OJRIC089
|
|
03689 15 FILLER PIC X(32). OJRIC089
|
|
03690 * PARM LENGTH OJRIC089
|
|
03691 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03692 VALUE +2. OJRIC089
|
|
03693 OJRIC089
|
|
03694 * PARM AREA #12 OJRIC089
|
|
03695 10 PARM-DATA-ENTRY. OJRIC089
|
|
03696 * PARM DESCRIPTION OJRIC089
|
|
03697 15 FILLER PIC X(32) OJRIC089
|
|
03698 VALUE 'FIELD REP ID 3 '. OJRIC089
|
|
03699 * PARM TYPE OJRIC089
|
|
03700 15 FILLER PIC X(02) OJRIC089
|
|
03701 VALUE '03'. OJRIC089
|
|
03702 * PARM VALUE OJRIC089
|
|
03703 15 FILLER PIC X(32). OJRIC089
|
|
03704 * PARM LENGTH OJRIC089
|
|
03705 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03706 VALUE +2. OJRIC089
|
|
03707 OJRIC089
|
|
03708 * PARM AREA #13 OJRIC089
|
|
03709 10 PARM-DATA-ENTRY. OJRIC089
|
|
03710 * PARM DESCRIPTION OJRIC089
|
|
03711 15 FILLER PIC X(32) OJRIC089
|
|
03712 VALUE 'FIELD REP ID 4 '. OJRIC089
|
|
03713 * PARM TYPE OJRIC089
|
|
03714 15 FILLER PIC X(02) OJRIC089
|
|
03715 VALUE '03'. OJRIC089
|
|
03716 * PARM VALUE OJRIC089
|
|
03717 15 FILLER PIC X(32). OJRIC089
|
|
03718 * PARM LENGTH OJRIC089
|
|
03719 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03720 VALUE +2. OJRIC089
|
|
03721 OJRIC089
|
|
03722 * PARM AREA #14 OJRIC089
|
|
03723 10 PARM-DATA-ENTRY. OJRIC089
|
|
03724 * PARM DESCRIPTION OJRIC089
|
|
03725 15 FILLER PIC X(32) OJRIC089
|
|
03726 VALUE 'FIELD REP ID 5 '. OJRIC089
|
|
03727 * PARM TYPE OJRIC089
|
|
03728 15 FILLER PIC X(02) OJRIC089
|
|
03729 VALUE '03'. OJRIC089
|
|
03730 * PARM VALUE OJRIC089
|
|
03731 15 FILLER PIC X(32). OJRIC089
|
|
03732 * PARM LENGTH OJRIC089
|
|
03733 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03734 VALUE +2. OJRIC089
|
|
03735 OJRIC089
|
|
03736 * PARM AREA #15 OJRIC089
|
|
03737 10 PARM-DATA-ENTRY. OJRIC089
|
|
03738 * PARM DESCRIPTION OJRIC089
|
|
03739 15 FILLER PIC X(32) OJRIC089
|
|
03740 VALUE ' '. OJRIC089
|
|
03741 * PARM TYPE OJRIC089
|
|
03742 15 FILLER PIC X(02) OJRIC089
|
|
03743 VALUE '99'. OJRIC089
|
|
03744 * PARM VALUE OJRIC089
|
|
03745 15 FILLER PIC X(32). OJRIC089
|
|
03746 * PARM LENGTH OJRIC089
|
|
03747 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03748 VALUE ZEROS. OJRIC089
|
|
03749 OJRIC089
|
|
03750 * PARM AREA #16 OJRIC089
|
|
03751 10 PARM-DATA-ENTRY. OJRIC089
|
|
03752 * PARM DESCRIPTION OJRIC089
|
|
03753 15 FILLER PIC X(32) OJRIC089
|
|
03754 VALUE ' '. OJRIC089
|
|
03755 * PARM TYPE OJRIC089
|
|
03756 15 FILLER PIC X(02) OJRIC089
|
|
03757 VALUE '99'. OJRIC089
|
|
03758 * PARM VALUE OJRIC089
|
|
03759 15 FILLER PIC X(32). OJRIC089
|
|
03760 * PARM LENGTH OJRIC089
|
|
03761 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03762 VALUE ZEROS. OJRIC089
|
|
03763 * PARM AREA END --------------------------------------------- OJRIC089
|
|
03764 10 FILLER PIC X(30) OJRIC089
|
|
03765 VALUE SPACES. OJRIC089
|
|
03766 OJRIC089
|
|
03767 ******************* R E P O R T # 16 ***************************OJRIC089
|
|
03768 * ENTRY 16 OJRIC089
|
|
03769 05 FOJR-TABLE-ENTRY. OJRIC089
|
|
03770 * REPT TYPE OJRIC089
|
|
03771 10 FILLER PIC S9(04) COMP OJRIC089
|
|
03772 VALUE +01. OJRIC089
|
|
03773 * JOB NAME OJRIC089
|
|
03774 10 FILLER PIC X(08) OJRIC089
|
|
03775 VALUE 'DTSBR609'. OJRIC089
|
|
03776 * FILLER - END OF KEY OJRIC089
|
|
03777 10 FILLER PIC X(06) OJRIC089
|
|
03778 VALUE SPACES. OJRIC089
|
|
03779 * BUSINESS AREA OJRIC089
|
|
03780 10 FILLER PIC X(02) OJRIC089
|
|
03781 VALUE '06'. OJRIC089
|
|
03782 * JOB DESCRIPTION OJRIC089
|
|
03783 10 FILLER PIC X(34) OJRIC089
|
|
03784 VALUE 'FIELD ASSIGNMENT MANAGMENT REPORTS'. OJRIC089
|
|
03785 * JOB TYPE OJRIC089
|
|
03786 10 FILLER PIC X(01) OJRIC089
|
|
03787 VALUE '2'. OJRIC089
|
|
03788 * LAST RUN DATE OJRIC089
|
|
03789 10 FILLER PIC S9(09) COMP-3 OJRIC089
|
|
03790 VALUE ZEROS. OJRIC089
|
|
03791 * PARM AREA START --------------------------------------------- OJRIC089
|
|
03792 * PARM AREA #1 OJRIC089
|
|
03793 10 PARM-DATA-ENTRY. OJRIC089
|
|
03794 * PARM DESCRIPTION OJRIC089
|
|
03795 15 FILLER PIC X(32) OJRIC089
|
|
03796 VALUE 'PRINT DETAIL INDICATOR '. OJRIC089
|
|
03797 * PARM TYPE OJRIC089
|
|
03798 15 FILLER PIC X(02) OJRIC089
|
|
03799 VALUE '03'. OJRIC089
|
|
03800 * PARM VALUE OJRIC089
|
|
03801 15 FILLER PIC X(32). OJRIC089
|
|
03802 * PARM LENGTH OJRIC089
|
|
03803 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03804 VALUE +1. OJRIC089
|
|
03805 * PARM AREA #2 OJRIC089
|
|
03806 10 PARM-DATA-ENTRY. OJRIC089
|
|
03807 * PARM DESCRIPTION OJRIC089
|
|
03808 15 FILLER PIC X(32) OJRIC089
|
|
03809 VALUE 'PERIOD START DATE '. OJRIC089
|
|
03810 * PARM TYPE OJRIC089
|
|
03811 15 FILLER PIC X(02) OJRIC089
|
|
03812 VALUE '00'. OJRIC089
|
|
03813 * PARM VALUE OJRIC089
|
|
03814 15 FILLER PIC X(32). OJRIC089
|
|
03815 * PARM LENGTH OJRIC089
|
|
03816 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03817 VALUE +6. OJRIC089
|
|
03818 * PARM AREA #3 OJRIC089
|
|
03819 10 PARM-DATA-ENTRY. OJRIC089
|
|
03820 * PARM DESCRIPTION OJRIC089
|
|
03821 15 FILLER PIC X(32) OJRIC089
|
|
03822 VALUE 'PERIOD END DATE '. OJRIC089
|
|
03823 * PARM TYPE OJRIC089
|
|
03824 15 FILLER PIC X(02) OJRIC089
|
|
03825 VALUE '00'. OJRIC089
|
|
03826 * PARM VALUE OJRIC089
|
|
03827 15 FILLER PIC X(32). OJRIC089
|
|
03828 * PARM LENGTH OJRIC089
|
|
03829 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03830 VALUE +6. OJRIC089
|
|
03831 OJRIC089
|
|
03832 * PARM AREA #4 OJRIC089
|
|
03833 10 PARM-DATA-ENTRY. OJRIC089
|
|
03834 * PARM DESCRIPTION OJRIC089
|
|
03835 15 FILLER PIC X(32) OJRIC089
|
|
03836 VALUE 'FIELD REP ID 1 '. OJRIC089
|
|
03837 * PARM TYPE OJRIC089
|
|
03838 15 FILLER PIC X(02) OJRIC089
|
|
03839 VALUE '03'. OJRIC089
|
|
03840 * PARM VALUE OJRIC089
|
|
03841 15 FILLER PIC X(32). OJRIC089
|
|
03842 * PARM LENGTH OJRIC089
|
|
03843 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03844 VALUE +2. OJRIC089
|
|
03845 OJRIC089
|
|
03846 * PARM AREA #5 OJRIC089
|
|
03847 10 PARM-DATA-ENTRY. OJRIC089
|
|
03848 * PARM DESCRIPTION OJRIC089
|
|
03849 15 FILLER PIC X(32) OJRIC089
|
|
03850 VALUE 'FIELD REP ID 2 '. OJRIC089
|
|
03851 * PARM TYPE OJRIC089
|
|
03852 15 FILLER PIC X(02) OJRIC089
|
|
03853 VALUE '03'. OJRIC089
|
|
03854 * PARM VALUE OJRIC089
|
|
03855 15 FILLER PIC X(32). OJRIC089
|
|
03856 * PARM LENGTH OJRIC089
|
|
03857 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03858 VALUE +2. OJRIC089
|
|
03859 OJRIC089
|
|
03860 * PARM AREA #6 OJRIC089
|
|
03861 10 PARM-DATA-ENTRY. OJRIC089
|
|
03862 * PARM DESCRIPTION OJRIC089
|
|
03863 15 FILLER PIC X(32) OJRIC089
|
|
03864 VALUE 'FIELD REP ID 3 '. OJRIC089
|
|
03865 * PARM TYPE OJRIC089
|
|
03866 15 FILLER PIC X(02) OJRIC089
|
|
03867 VALUE '03'. OJRIC089
|
|
03868 * PARM VALUE OJRIC089
|
|
03869 15 FILLER PIC X(32). OJRIC089
|
|
03870 * PARM LENGTH OJRIC089
|
|
03871 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03872 VALUE +2. OJRIC089
|
|
03873 OJRIC089
|
|
03874 * PARM AREA #7 OJRIC089
|
|
03875 10 PARM-DATA-ENTRY. OJRIC089
|
|
03876 * PARM DESCRIPTION OJRIC089
|
|
03877 15 FILLER PIC X(32) OJRIC089
|
|
03878 VALUE 'FIELD REP ID 4 '. OJRIC089
|
|
03879 * PARM TYPE OJRIC089
|
|
03880 15 FILLER PIC X(02) OJRIC089
|
|
03881 VALUE '03'. OJRIC089
|
|
03882 * PARM VALUE OJRIC089
|
|
03883 15 FILLER PIC X(32). OJRIC089
|
|
03884 * PARM LENGTH OJRIC089
|
|
03885 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03886 VALUE +2. OJRIC089
|
|
03887 OJRIC089
|
|
03888 * PARM AREA #8 OJRIC089
|
|
03889 10 PARM-DATA-ENTRY. OJRIC089
|
|
03890 * PARM DESCRIPTION OJRIC089
|
|
03891 15 FILLER PIC X(32) OJRIC089
|
|
03892 VALUE 'FIELD REP ID 5 '. OJRIC089
|
|
03893 * PARM TYPE OJRIC089
|
|
03894 15 FILLER PIC X(02) OJRIC089
|
|
03895 VALUE '03'. OJRIC089
|
|
03896 * PARM VALUE OJRIC089
|
|
03897 15 FILLER PIC X(32). OJRIC089
|
|
03898 * PARM LENGTH OJRIC089
|
|
03899 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03900 VALUE +2. OJRIC089
|
|
03901 OJRIC089
|
|
03902 * PARM AREA #9 OJRIC089
|
|
03903 10 PARM-DATA-ENTRY. OJRIC089
|
|
03904 * PARM DESCRIPTION OJRIC089
|
|
03905 15 FILLER PIC X(32) OJRIC089
|
|
03906 VALUE 'FIELD REP ID 6 '. OJRIC089
|
|
03907 * PARM TYPE OJRIC089
|
|
03908 15 FILLER PIC X(02) OJRIC089
|
|
03909 VALUE '03'. OJRIC089
|
|
03910 * PARM VALUE OJRIC089
|
|
03911 15 FILLER PIC X(32). OJRIC089
|
|
03912 * PARM LENGTH OJRIC089
|
|
03913 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03914 VALUE +2. OJRIC089
|
|
03915 OJRIC089
|
|
03916 * PARM AREA #10 OJRIC089
|
|
03917 10 PARM-DATA-ENTRY. OJRIC089
|
|
03918 * PARM DESCRIPTION OJRIC089
|
|
03919 15 FILLER PIC X(32) OJRIC089
|
|
03920 VALUE 'FIELD REP ID 7 '. OJRIC089
|
|
03921 * PARM TYPE OJRIC089
|
|
03922 15 FILLER PIC X(02) OJRIC089
|
|
03923 VALUE '03'. OJRIC089
|
|
03924 * PARM VALUE OJRIC089
|
|
03925 15 FILLER PIC X(32). OJRIC089
|
|
03926 * PARM LENGTH OJRIC089
|
|
03927 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03928 VALUE +2. OJRIC089
|
|
03929 OJRIC089
|
|
03930 * PARM AREA #11 OJRIC089
|
|
03931 10 PARM-DATA-ENTRY. OJRIC089
|
|
03932 * PARM DESCRIPTION OJRIC089
|
|
03933 15 FILLER PIC X(32) OJRIC089
|
|
03934 VALUE 'FIELD REP ID 8 '. OJRIC089
|
|
03935 * PARM TYPE OJRIC089
|
|
03936 15 FILLER PIC X(02) OJRIC089
|
|
03937 VALUE '03'. OJRIC089
|
|
03938 * PARM VALUE OJRIC089
|
|
03939 15 FILLER PIC X(32). OJRIC089
|
|
03940 * PARM LENGTH OJRIC089
|
|
03941 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03942 VALUE +2. OJRIC089
|
|
03943 OJRIC089
|
|
03944 * PARM AREA #12 OJRIC089
|
|
03945 10 PARM-DATA-ENTRY. OJRIC089
|
|
03946 * PARM DESCRIPTION OJRIC089
|
|
03947 15 FILLER PIC X(32) OJRIC089
|
|
03948 VALUE 'FIELD REP ID 9 '. OJRIC089
|
|
03949 * PARM TYPE OJRIC089
|
|
03950 15 FILLER PIC X(02) OJRIC089
|
|
03951 VALUE '03'. OJRIC089
|
|
03952 * PARM VALUE OJRIC089
|
|
03953 15 FILLER PIC X(32). OJRIC089
|
|
03954 * PARM LENGTH OJRIC089
|
|
03955 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03956 VALUE +2. OJRIC089
|
|
03957 OJRIC089
|
|
03958 * PARM AREA #13 OJRIC089
|
|
03959 10 PARM-DATA-ENTRY. OJRIC089
|
|
03960 * PARM DESCRIPTION OJRIC089
|
|
03961 15 FILLER PIC X(32) OJRIC089
|
|
03962 VALUE 'FIELD REP ID 10 '. OJRIC089
|
|
03963 * PARM TYPE OJRIC089
|
|
03964 15 FILLER PIC X(02) OJRIC089
|
|
03965 VALUE '03'. OJRIC089
|
|
03966 * PARM VALUE OJRIC089
|
|
03967 15 FILLER PIC X(32). OJRIC089
|
|
03968 * PARM LENGTH OJRIC089
|
|
03969 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03970 VALUE +2. OJRIC089
|
|
03971 OJRIC089
|
|
03972 * PARM AREA #14 OJRIC089
|
|
03973 10 PARM-DATA-ENTRY. OJRIC089
|
|
03974 * PARM DESCRIPTION OJRIC089
|
|
03975 15 FILLER PIC X(32) OJRIC089
|
|
03976 VALUE ' '. OJRIC089
|
|
03977 * PARM TYPE OJRIC089
|
|
03978 15 FILLER PIC X(02) OJRIC089
|
|
03979 VALUE '99'. OJRIC089
|
|
03980 * PARM VALUE OJRIC089
|
|
03981 15 FILLER PIC X(32). OJRIC089
|
|
03982 * PARM LENGTH OJRIC089
|
|
03983 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03984 VALUE ZEROS. OJRIC089
|
|
03985 OJRIC089
|
|
03986 * PARM AREA #15 OJRIC089
|
|
03987 10 PARM-DATA-ENTRY. OJRIC089
|
|
03988 * PARM DESCRIPTION OJRIC089
|
|
03989 15 FILLER PIC X(32) OJRIC089
|
|
03990 VALUE ' '. OJRIC089
|
|
03991 * PARM TYPE OJRIC089
|
|
03992 15 FILLER PIC X(02) OJRIC089
|
|
03993 VALUE '99'. OJRIC089
|
|
03994 * PARM VALUE OJRIC089
|
|
03995 15 FILLER PIC X(32). OJRIC089
|
|
03996 * PARM LENGTH OJRIC089
|
|
03997 15 FILLER PIC S9(04) COMP OJRIC089
|
|
03998 VALUE ZEROS. OJRIC089
|
|
03999 OJRIC089
|
|
04000 * PARM AREA #16 OJRIC089
|
|
04001 10 PARM-DATA-ENTRY. OJRIC089
|
|
04002 * PARM DESCRIPTION OJRIC089
|
|
04003 15 FILLER PIC X(32) OJRIC089
|
|
04004 VALUE ' '. OJRIC089
|
|
04005 * PARM TYPE OJRIC089
|
|
04006 15 FILLER PIC X(02) OJRIC089
|
|
04007 VALUE '99'. OJRIC089
|
|
04008 * PARM VALUE OJRIC089
|
|
04009 15 FILLER PIC X(32). OJRIC089
|
|
04010 * PARM LENGTH OJRIC089
|
|
04011 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04012 VALUE ZEROS. OJRIC089
|
|
04013 * PARM AREA END --------------------------------------------- OJRIC089
|
|
04014 10 FILLER PIC X(30) OJRIC089
|
|
04015 VALUE SPACES. OJRIC089
|
|
04016 OJRIC089
|
|
04017 ******************* R E P O R T # 17 ***************************OJRIC089
|
|
04018 * ENTRY 17 OJRIC089
|
|
04019 05 FOJR-TABLE-ENTRY. OJRIC089
|
|
04020 * REPT TYPE OJRIC089
|
|
04021 10 FILLER PIC S9(04) COMP OJRIC089
|
|
04022 VALUE +01. OJRIC089
|
|
04023 * JOB NAME OJRIC089
|
|
04024 10 FILLER PIC X(08) OJRIC089
|
|
04025 VALUE 'DTSBR611'. OJRIC089
|
|
04026 * FILLER - END OF KEY OJRIC089
|
|
04027 10 FILLER PIC X(06) OJRIC089
|
|
04028 VALUE SPACES. OJRIC089
|
|
04029 * BUSINESS AREA OJRIC089
|
|
04030 10 FILLER PIC X(02) OJRIC089
|
|
04031 VALUE '06'. OJRIC089
|
|
04032 * JOB DESCRIPTION OJRIC089
|
|
04033 10 FILLER PIC X(34) OJRIC089
|
|
04034 VALUE 'ACTIVE EMPLOYERS BY ZIP CODE COUNT'. OJRIC089
|
|
04035 * JOB TYPE OJRIC089
|
|
04036 10 FILLER PIC X(01) OJRIC089
|
|
04037 VALUE '2'. OJRIC089
|
|
04038 * LAST RUN DATE OJRIC089
|
|
04039 10 FILLER PIC S9(09) COMP-3 OJRIC089
|
|
04040 VALUE ZEROS. OJRIC089
|
|
04041 * PARM AREA START --------------------------------------------- OJRIC089
|
|
04042 * PARM AREA #1 OJRIC089
|
|
04043 10 PARM-DATA-ENTRY. OJRIC089
|
|
04044 * PARM DESCRIPTION OJRIC089
|
|
04045 15 FILLER PIC X(32) OJRIC089
|
|
04046 VALUE 'START ZIP CODE '. OJRIC089
|
|
04047 * PARM TYPE OJRIC089
|
|
04048 15 FILLER PIC X(02) OJRIC089
|
|
04049 VALUE '03'. OJRIC089
|
|
04050 * PARM VALUE OJRIC089
|
|
04051 15 FILLER PIC X(32). OJRIC089
|
|
04052 * PARM LENGTH OJRIC089
|
|
04053 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04054 VALUE +5. OJRIC089
|
|
04055 * PARM AREA #2 OJRIC089
|
|
04056 10 PARM-DATA-ENTRY. OJRIC089
|
|
04057 * PARM DESCRIPTION OJRIC089
|
|
04058 15 FILLER PIC X(32) OJRIC089
|
|
04059 VALUE 'END ZIP CODE '. OJRIC089
|
|
04060 * PARM TYPE OJRIC089
|
|
04061 15 FILLER PIC X(02) OJRIC089
|
|
04062 VALUE '03'. OJRIC089
|
|
04063 * PARM VALUE OJRIC089
|
|
04064 15 FILLER PIC X(32). OJRIC089
|
|
04065 * PARM LENGTH OJRIC089
|
|
04066 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04067 VALUE +5. OJRIC089
|
|
04068 * PARM AREA #3 OJRIC089
|
|
04069 10 PARM-DATA-ENTRY. OJRIC089
|
|
04070 * PARM DESCRIPTION OJRIC089
|
|
04071 15 FILLER PIC X(32) OJRIC089
|
|
04072 VALUE 'STATE CODE '. OJRIC089
|
|
04073 * PARM TYPE OJRIC089
|
|
04074 15 FILLER PIC X(02) OJRIC089
|
|
04075 VALUE '03'. OJRIC089
|
|
04076 * PARM VALUE OJRIC089
|
|
04077 15 FILLER PIC X(32). OJRIC089
|
|
04078 * PARM LENGTH OJRIC089
|
|
04079 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04080 VALUE +2. OJRIC089
|
|
04081 * PARM AREA #4 OJRIC089
|
|
04082 10 PARM-DATA-ENTRY. OJRIC089
|
|
04083 * PARM DESCRIPTION OJRIC089
|
|
04084 15 FILLER PIC X(32) OJRIC089
|
|
04085 VALUE ' '. OJRIC089
|
|
04086 * PARM TYPE OJRIC089
|
|
04087 15 FILLER PIC X(02) OJRIC089
|
|
04088 VALUE '99'. OJRIC089
|
|
04089 * PARM VALUE OJRIC089
|
|
04090 15 FILLER PIC X(32). OJRIC089
|
|
04091 * PARM LENGTH OJRIC089
|
|
04092 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04093 VALUE ZEROS. OJRIC089
|
|
04094 OJRIC089
|
|
04095 * PARM AREA #5 OJRIC089
|
|
04096 10 PARM-DATA-ENTRY. OJRIC089
|
|
04097 * PARM DESCRIPTION OJRIC089
|
|
04098 15 FILLER PIC X(32) OJRIC089
|
|
04099 VALUE ' '. OJRIC089
|
|
04100 * PARM TYPE OJRIC089
|
|
04101 15 FILLER PIC X(02) OJRIC089
|
|
04102 VALUE '99'. OJRIC089
|
|
04103 * PARM VALUE OJRIC089
|
|
04104 15 FILLER PIC X(32). OJRIC089
|
|
04105 * PARM LENGTH OJRIC089
|
|
04106 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04107 VALUE ZEROS. OJRIC089
|
|
04108 OJRIC089
|
|
04109 * PARM AREA #6 OJRIC089
|
|
04110 10 PARM-DATA-ENTRY. OJRIC089
|
|
04111 * PARM DESCRIPTION OJRIC089
|
|
04112 15 FILLER PIC X(32) OJRIC089
|
|
04113 VALUE ' '. OJRIC089
|
|
04114 * PARM TYPE OJRIC089
|
|
04115 15 FILLER PIC X(02) OJRIC089
|
|
04116 VALUE '99'. OJRIC089
|
|
04117 * PARM VALUE OJRIC089
|
|
04118 15 FILLER PIC X(32). OJRIC089
|
|
04119 * PARM LENGTH OJRIC089
|
|
04120 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04121 VALUE ZEROS. OJRIC089
|
|
04122 OJRIC089
|
|
04123 * PARM AREA #7 OJRIC089
|
|
04124 10 PARM-DATA-ENTRY. OJRIC089
|
|
04125 * PARM DESCRIPTION OJRIC089
|
|
04126 15 FILLER PIC X(32) OJRIC089
|
|
04127 VALUE ' '. OJRIC089
|
|
04128 * PARM TYPE OJRIC089
|
|
04129 15 FILLER PIC X(02) OJRIC089
|
|
04130 VALUE '99'. OJRIC089
|
|
04131 * PARM VALUE OJRIC089
|
|
04132 15 FILLER PIC X(32). OJRIC089
|
|
04133 * PARM LENGTH OJRIC089
|
|
04134 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04135 VALUE ZEROS. OJRIC089
|
|
04136 OJRIC089
|
|
04137 * PARM AREA #8 OJRIC089
|
|
04138 10 PARM-DATA-ENTRY. OJRIC089
|
|
04139 * PARM DESCRIPTION OJRIC089
|
|
04140 15 FILLER PIC X(32) OJRIC089
|
|
04141 VALUE ' '. OJRIC089
|
|
04142 * PARM TYPE OJRIC089
|
|
04143 15 FILLER PIC X(02) OJRIC089
|
|
04144 VALUE '99'. OJRIC089
|
|
04145 * PARM VALUE OJRIC089
|
|
04146 15 FILLER PIC X(32). OJRIC089
|
|
04147 * PARM LENGTH OJRIC089
|
|
04148 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04149 VALUE ZEROS. OJRIC089
|
|
04150 OJRIC089
|
|
04151 * PARM AREA #9 OJRIC089
|
|
04152 10 PARM-DATA-ENTRY. OJRIC089
|
|
04153 * PARM DESCRIPTION OJRIC089
|
|
04154 15 FILLER PIC X(32) OJRIC089
|
|
04155 VALUE ' '. OJRIC089
|
|
04156 * PARM TYPE OJRIC089
|
|
04157 15 FILLER PIC X(02) OJRIC089
|
|
04158 VALUE '99'. OJRIC089
|
|
04159 * PARM VALUE OJRIC089
|
|
04160 15 FILLER PIC X(32). OJRIC089
|
|
04161 * PARM LENGTH OJRIC089
|
|
04162 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04163 VALUE ZEROS. OJRIC089
|
|
04164 OJRIC089
|
|
04165 * PARM AREA #10 OJRIC089
|
|
04166 10 PARM-DATA-ENTRY. OJRIC089
|
|
04167 * PARM DESCRIPTION OJRIC089
|
|
04168 15 FILLER PIC X(32) OJRIC089
|
|
04169 VALUE ' '. OJRIC089
|
|
04170 * PARM TYPE OJRIC089
|
|
04171 15 FILLER PIC X(02) OJRIC089
|
|
04172 VALUE '99'. OJRIC089
|
|
04173 * PARM VALUE OJRIC089
|
|
04174 15 FILLER PIC X(32). OJRIC089
|
|
04175 * PARM LENGTH OJRIC089
|
|
04176 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04177 VALUE ZEROS. OJRIC089
|
|
04178 OJRIC089
|
|
04179 * PARM AREA #11 OJRIC089
|
|
04180 10 PARM-DATA-ENTRY. OJRIC089
|
|
04181 * PARM DESCRIPTION OJRIC089
|
|
04182 15 FILLER PIC X(32) OJRIC089
|
|
04183 VALUE ' '. OJRIC089
|
|
04184 * PARM TYPE OJRIC089
|
|
04185 15 FILLER PIC X(02) OJRIC089
|
|
04186 VALUE '99'. OJRIC089
|
|
04187 * PARM VALUE OJRIC089
|
|
04188 15 FILLER PIC X(32). OJRIC089
|
|
04189 * PARM LENGTH OJRIC089
|
|
04190 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04191 VALUE ZEROS. OJRIC089
|
|
04192 OJRIC089
|
|
04193 * PARM AREA #12 OJRIC089
|
|
04194 10 PARM-DATA-ENTRY. OJRIC089
|
|
04195 * PARM DESCRIPTION OJRIC089
|
|
04196 15 FILLER PIC X(32) OJRIC089
|
|
04197 VALUE ' '. OJRIC089
|
|
04198 * PARM TYPE OJRIC089
|
|
04199 15 FILLER PIC X(02) OJRIC089
|
|
04200 VALUE '99'. OJRIC089
|
|
04201 * PARM VALUE OJRIC089
|
|
04202 15 FILLER PIC X(32). OJRIC089
|
|
04203 * PARM LENGTH OJRIC089
|
|
04204 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04205 VALUE ZEROS. OJRIC089
|
|
04206 OJRIC089
|
|
04207 * PARM AREA #13 OJRIC089
|
|
04208 10 PARM-DATA-ENTRY. OJRIC089
|
|
04209 * PARM DESCRIPTION OJRIC089
|
|
04210 15 FILLER PIC X(32) OJRIC089
|
|
04211 VALUE ' '. OJRIC089
|
|
04212 * PARM TYPE OJRIC089
|
|
04213 15 FILLER PIC X(02) OJRIC089
|
|
04214 VALUE '99'. OJRIC089
|
|
04215 * PARM VALUE OJRIC089
|
|
04216 15 FILLER PIC X(32). OJRIC089
|
|
04217 * PARM LENGTH OJRIC089
|
|
04218 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04219 VALUE ZEROS. OJRIC089
|
|
04220 OJRIC089
|
|
04221 * PARM AREA #14 OJRIC089
|
|
04222 10 PARM-DATA-ENTRY. OJRIC089
|
|
04223 * PARM DESCRIPTION OJRIC089
|
|
04224 15 FILLER PIC X(32) OJRIC089
|
|
04225 VALUE ' '. OJRIC089
|
|
04226 * PARM TYPE OJRIC089
|
|
04227 15 FILLER PIC X(02) OJRIC089
|
|
04228 VALUE '99'. OJRIC089
|
|
04229 * PARM VALUE OJRIC089
|
|
04230 15 FILLER PIC X(32). OJRIC089
|
|
04231 * PARM LENGTH OJRIC089
|
|
04232 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04233 VALUE ZEROS. OJRIC089
|
|
04234 OJRIC089
|
|
04235 * PARM AREA #15 OJRIC089
|
|
04236 10 PARM-DATA-ENTRY. OJRIC089
|
|
04237 * PARM DESCRIPTION OJRIC089
|
|
04238 15 FILLER PIC X(32) OJRIC089
|
|
04239 VALUE ' '. OJRIC089
|
|
04240 * PARM TYPE OJRIC089
|
|
04241 15 FILLER PIC X(02) OJRIC089
|
|
04242 VALUE '99'. OJRIC089
|
|
04243 * PARM VALUE OJRIC089
|
|
04244 15 FILLER PIC X(32). OJRIC089
|
|
04245 * PARM LENGTH OJRIC089
|
|
04246 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04247 VALUE ZEROS. OJRIC089
|
|
04248 OJRIC089
|
|
04249 * PARM AREA #16 OJRIC089
|
|
04250 10 PARM-DATA-ENTRY. OJRIC089
|
|
04251 * PARM DESCRIPTION OJRIC089
|
|
04252 15 FILLER PIC X(32) OJRIC089
|
|
04253 VALUE ' '. OJRIC089
|
|
04254 * PARM TYPE OJRIC089
|
|
04255 15 FILLER PIC X(02) OJRIC089
|
|
04256 VALUE '99'. OJRIC089
|
|
04257 * PARM VALUE OJRIC089
|
|
04258 15 FILLER PIC X(32). OJRIC089
|
|
04259 * PARM LENGTH OJRIC089
|
|
04260 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04261 VALUE ZEROS. OJRIC089
|
|
04262 * PARM AREA END --------------------------------------------- OJRIC089
|
|
04263 10 FILLER PIC X(30) OJRIC089
|
|
04264 VALUE SPACES. OJRIC089
|
|
04265 OJRIC089
|
|
04266 ******************* R E P O R T # 18 ***************************OJRIC089
|
|
04267 * ENTRY 18 OJRIC089
|
|
04268 05 FOJR-TABLE-ENTRY. OJRIC089
|
|
04269 * REPT TYPE OJRIC089
|
|
04270 10 FILLER PIC S9(04) COMP OJRIC089
|
|
04271 VALUE +01. OJRIC089
|
|
04272 * JOB NAME OJRIC089
|
|
04273 10 FILLER PIC X(08) OJRIC089
|
|
04274 VALUE 'DTSBR612'. OJRIC089
|
|
04275 * FILLER - END OF KEY OJRIC089
|
|
04276 10 FILLER PIC X(06) OJRIC089
|
|
04277 VALUE SPACES. OJRIC089
|
|
04278 * BUSINESS AREA OJRIC089
|
|
04279 10 FILLER PIC X(02) OJRIC089
|
|
04280 VALUE '06'. OJRIC089
|
|
04281 * JOB DESCRIPTION OJRIC089
|
|
04282 10 FILLER PIC X(34) OJRIC089
|
|
04283 VALUE 'PROCESSED AUDIT ASSIGNMENTS '. OJRIC089
|
|
04284 * JOB TYPE OJRIC089
|
|
04285 10 FILLER PIC X(01) OJRIC089
|
|
04286 VALUE '2'. OJRIC089
|
|
04287 * LAST RUN DATE OJRIC089
|
|
04288 10 FILLER PIC S9(09) COMP-3 OJRIC089
|
|
04289 VALUE ZEROS. OJRIC089
|
|
04290 * PARM AREA START --------------------------------------------- OJRIC089
|
|
04291 * PARM AREA #1 OJRIC089
|
|
04292 10 PARM-DATA-ENTRY. OJRIC089
|
|
04293 * PARM DESCRIPTION OJRIC089
|
|
04294 15 FILLER PIC X(32) OJRIC089
|
|
04295 VALUE 'PARM START DATE '. OJRIC089
|
|
04296 * PARM TYPE OJRIC089
|
|
04297 15 FILLER PIC X(02) OJRIC089
|
|
04298 VALUE '00'. OJRIC089
|
|
04299 * PARM VALUE OJRIC089
|
|
04300 15 FILLER PIC X(32). OJRIC089
|
|
04301 * PARM LENGTH OJRIC089
|
|
04302 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04303 VALUE +6. OJRIC089
|
|
04304 * PARM AREA #2 OJRIC089
|
|
04305 10 PARM-DATA-ENTRY. OJRIC089
|
|
04306 * PARM DESCRIPTION OJRIC089
|
|
04307 15 FILLER PIC X(32) OJRIC089
|
|
04308 VALUE 'PARM END DATE '. OJRIC089
|
|
04309 * PARM TYPE OJRIC089
|
|
04310 15 FILLER PIC X(02) OJRIC089
|
|
04311 VALUE '00'. OJRIC089
|
|
04312 * PARM VALUE OJRIC089
|
|
04313 15 FILLER PIC X(32). OJRIC089
|
|
04314 * PARM LENGTH OJRIC089
|
|
04315 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04316 VALUE +6. OJRIC089
|
|
04317 * PARM AREA #3 OJRIC089
|
|
04318 10 PARM-DATA-ENTRY. OJRIC089
|
|
04319 * PARM DESCRIPTION OJRIC089
|
|
04320 15 FILLER PIC X(32) OJRIC089
|
|
04321 VALUE ' '. OJRIC089
|
|
04322 * PARM TYPE OJRIC089
|
|
04323 15 FILLER PIC X(02) OJRIC089
|
|
04324 VALUE '99'. OJRIC089
|
|
04325 * PARM VALUE OJRIC089
|
|
04326 15 FILLER PIC X(32). OJRIC089
|
|
04327 * PARM LENGTH OJRIC089
|
|
04328 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04329 VALUE ZEROS. OJRIC089
|
|
04330 * PARM AREA #4 OJRIC089
|
|
04331 10 PARM-DATA-ENTRY. OJRIC089
|
|
04332 * PARM DESCRIPTION OJRIC089
|
|
04333 15 FILLER PIC X(32) OJRIC089
|
|
04334 VALUE ' '. OJRIC089
|
|
04335 * PARM TYPE OJRIC089
|
|
04336 15 FILLER PIC X(02) OJRIC089
|
|
04337 VALUE '99'. OJRIC089
|
|
04338 * PARM VALUE OJRIC089
|
|
04339 15 FILLER PIC X(32). OJRIC089
|
|
04340 * PARM LENGTH OJRIC089
|
|
04341 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04342 VALUE ZEROS. OJRIC089
|
|
04343 OJRIC089
|
|
04344 * PARM AREA #5 OJRIC089
|
|
04345 10 PARM-DATA-ENTRY. OJRIC089
|
|
04346 * PARM DESCRIPTION OJRIC089
|
|
04347 15 FILLER PIC X(32) OJRIC089
|
|
04348 VALUE ' '. OJRIC089
|
|
04349 * PARM TYPE OJRIC089
|
|
04350 15 FILLER PIC X(02) OJRIC089
|
|
04351 VALUE '99'. OJRIC089
|
|
04352 * PARM VALUE OJRIC089
|
|
04353 15 FILLER PIC X(32). OJRIC089
|
|
04354 * PARM LENGTH OJRIC089
|
|
04355 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04356 VALUE ZEROS. OJRIC089
|
|
04357 OJRIC089
|
|
04358 * PARM AREA #6 OJRIC089
|
|
04359 10 PARM-DATA-ENTRY. OJRIC089
|
|
04360 * PARM DESCRIPTION OJRIC089
|
|
04361 15 FILLER PIC X(32) OJRIC089
|
|
04362 VALUE ' '. OJRIC089
|
|
04363 * PARM TYPE OJRIC089
|
|
04364 15 FILLER PIC X(02) OJRIC089
|
|
04365 VALUE '99'. OJRIC089
|
|
04366 * PARM VALUE OJRIC089
|
|
04367 15 FILLER PIC X(32). OJRIC089
|
|
04368 * PARM LENGTH OJRIC089
|
|
04369 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04370 VALUE ZEROS. OJRIC089
|
|
04371 OJRIC089
|
|
04372 * PARM AREA #7 OJRIC089
|
|
04373 10 PARM-DATA-ENTRY. OJRIC089
|
|
04374 * PARM DESCRIPTION OJRIC089
|
|
04375 15 FILLER PIC X(32) OJRIC089
|
|
04376 VALUE ' '. OJRIC089
|
|
04377 * PARM TYPE OJRIC089
|
|
04378 15 FILLER PIC X(02) OJRIC089
|
|
04379 VALUE '99'. OJRIC089
|
|
04380 * PARM VALUE OJRIC089
|
|
04381 15 FILLER PIC X(32). OJRIC089
|
|
04382 * PARM LENGTH OJRIC089
|
|
04383 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04384 VALUE ZEROS. OJRIC089
|
|
04385 OJRIC089
|
|
04386 * PARM AREA #8 OJRIC089
|
|
04387 10 PARM-DATA-ENTRY. OJRIC089
|
|
04388 * PARM DESCRIPTION OJRIC089
|
|
04389 15 FILLER PIC X(32) OJRIC089
|
|
04390 VALUE ' '. OJRIC089
|
|
04391 * PARM TYPE OJRIC089
|
|
04392 15 FILLER PIC X(02) OJRIC089
|
|
04393 VALUE '99'. OJRIC089
|
|
04394 * PARM VALUE OJRIC089
|
|
04395 15 FILLER PIC X(32). OJRIC089
|
|
04396 * PARM LENGTH OJRIC089
|
|
04397 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04398 VALUE ZEROS. OJRIC089
|
|
04399 OJRIC089
|
|
04400 * PARM AREA #9 OJRIC089
|
|
04401 10 PARM-DATA-ENTRY. OJRIC089
|
|
04402 * PARM DESCRIPTION OJRIC089
|
|
04403 15 FILLER PIC X(32) OJRIC089
|
|
04404 VALUE ' '. OJRIC089
|
|
04405 * PARM TYPE OJRIC089
|
|
04406 15 FILLER PIC X(02) OJRIC089
|
|
04407 VALUE '99'. OJRIC089
|
|
04408 * PARM VALUE OJRIC089
|
|
04409 15 FILLER PIC X(32). OJRIC089
|
|
04410 * PARM LENGTH OJRIC089
|
|
04411 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04412 VALUE ZEROS. OJRIC089
|
|
04413 OJRIC089
|
|
04414 * PARM AREA #10 OJRIC089
|
|
04415 10 PARM-DATA-ENTRY. OJRIC089
|
|
04416 * PARM DESCRIPTION OJRIC089
|
|
04417 15 FILLER PIC X(32) OJRIC089
|
|
04418 VALUE ' '. OJRIC089
|
|
04419 * PARM TYPE OJRIC089
|
|
04420 15 FILLER PIC X(02) OJRIC089
|
|
04421 VALUE '99'. OJRIC089
|
|
04422 * PARM VALUE OJRIC089
|
|
04423 15 FILLER PIC X(32). OJRIC089
|
|
04424 * PARM LENGTH OJRIC089
|
|
04425 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04426 VALUE ZEROS. OJRIC089
|
|
04427 OJRIC089
|
|
04428 * PARM AREA #11 OJRIC089
|
|
04429 10 PARM-DATA-ENTRY. OJRIC089
|
|
04430 * PARM DESCRIPTION OJRIC089
|
|
04431 15 FILLER PIC X(32) OJRIC089
|
|
04432 VALUE ' '. OJRIC089
|
|
04433 * PARM TYPE OJRIC089
|
|
04434 15 FILLER PIC X(02) OJRIC089
|
|
04435 VALUE '99'. OJRIC089
|
|
04436 * PARM VALUE OJRIC089
|
|
04437 15 FILLER PIC X(32). OJRIC089
|
|
04438 * PARM LENGTH OJRIC089
|
|
04439 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04440 VALUE ZEROS. OJRIC089
|
|
04441 OJRIC089
|
|
04442 * PARM AREA #12 OJRIC089
|
|
04443 10 PARM-DATA-ENTRY. OJRIC089
|
|
04444 * PARM DESCRIPTION OJRIC089
|
|
04445 15 FILLER PIC X(32) OJRIC089
|
|
04446 VALUE ' '. OJRIC089
|
|
04447 * PARM TYPE OJRIC089
|
|
04448 15 FILLER PIC X(02) OJRIC089
|
|
04449 VALUE '99'. OJRIC089
|
|
04450 * PARM VALUE OJRIC089
|
|
04451 15 FILLER PIC X(32). OJRIC089
|
|
04452 * PARM LENGTH OJRIC089
|
|
04453 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04454 VALUE ZEROS. OJRIC089
|
|
04455 OJRIC089
|
|
04456 * PARM AREA #13 OJRIC089
|
|
04457 10 PARM-DATA-ENTRY. OJRIC089
|
|
04458 * PARM DESCRIPTION OJRIC089
|
|
04459 15 FILLER PIC X(32) OJRIC089
|
|
04460 VALUE ' '. OJRIC089
|
|
04461 * PARM TYPE OJRIC089
|
|
04462 15 FILLER PIC X(02) OJRIC089
|
|
04463 VALUE '99'. OJRIC089
|
|
04464 * PARM VALUE OJRIC089
|
|
04465 15 FILLER PIC X(32). OJRIC089
|
|
04466 * PARM LENGTH OJRIC089
|
|
04467 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04468 VALUE ZEROS. OJRIC089
|
|
04469 OJRIC089
|
|
04470 * PARM AREA #14 OJRIC089
|
|
04471 10 PARM-DATA-ENTRY. OJRIC089
|
|
04472 * PARM DESCRIPTION OJRIC089
|
|
04473 15 FILLER PIC X(32) OJRIC089
|
|
04474 VALUE ' '. OJRIC089
|
|
04475 * PARM TYPE OJRIC089
|
|
04476 15 FILLER PIC X(02) OJRIC089
|
|
04477 VALUE '99'. OJRIC089
|
|
04478 * PARM VALUE OJRIC089
|
|
04479 15 FILLER PIC X(32). OJRIC089
|
|
04480 * PARM LENGTH OJRIC089
|
|
04481 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04482 VALUE ZEROS. OJRIC089
|
|
04483 OJRIC089
|
|
04484 * PARM AREA #15 OJRIC089
|
|
04485 10 PARM-DATA-ENTRY. OJRIC089
|
|
04486 * PARM DESCRIPTION OJRIC089
|
|
04487 15 FILLER PIC X(32) OJRIC089
|
|
04488 VALUE ' '. OJRIC089
|
|
04489 * PARM TYPE OJRIC089
|
|
04490 15 FILLER PIC X(02) OJRIC089
|
|
04491 VALUE '99'. OJRIC089
|
|
04492 * PARM VALUE OJRIC089
|
|
04493 15 FILLER PIC X(32). OJRIC089
|
|
04494 * PARM LENGTH OJRIC089
|
|
04495 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04496 VALUE ZEROS. OJRIC089
|
|
04497 OJRIC089
|
|
04498 * PARM AREA #16 OJRIC089
|
|
04499 10 PARM-DATA-ENTRY. OJRIC089
|
|
04500 * PARM DESCRIPTION OJRIC089
|
|
04501 15 FILLER PIC X(32) OJRIC089
|
|
04502 VALUE ' '. OJRIC089
|
|
04503 * PARM TYPE OJRIC089
|
|
04504 15 FILLER PIC X(02) OJRIC089
|
|
04505 VALUE '99'. OJRIC089
|
|
04506 * PARM VALUE OJRIC089
|
|
04507 15 FILLER PIC X(32). OJRIC089
|
|
04508 * PARM LENGTH OJRIC089
|
|
04509 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04510 VALUE ZEROS. OJRIC089
|
|
04511 * PARM AREA END --------------------------------------------- OJRIC089
|
|
04512 10 FILLER PIC X(30) OJRIC089
|
|
04513 VALUE SPACES. OJRIC089
|
|
04514 OJRIC089
|
|
04515 ******************* R E P O R T # 19 ***************************OJRIC089
|
|
04516 * ENTRY 19 OJRIC089
|
|
04517 05 FOJR-TABLE-ENTRY. OJRIC089
|
|
04518 * REPT TYPE OJRIC089
|
|
04519 10 FILLER PIC S9(04) COMP OJRIC089
|
|
04520 VALUE +01. OJRIC089
|
|
04521 * JOB NAME OJRIC089
|
|
04522 10 FILLER PIC X(08) OJRIC089
|
|
04523 VALUE 'DTSBR712'. OJRIC089
|
|
04524 * FILLER - END OF KEY OJRIC089
|
|
04525 10 FILLER PIC X(06) OJRIC089
|
|
04526 VALUE SPACES. OJRIC089
|
|
04527 * BUSINESS AREA OJRIC089
|
|
04528 10 FILLER PIC X(02) OJRIC089
|
|
04529 VALUE '07'. OJRIC089
|
|
04530 * JOB DESCRIPTION OJRIC089
|
|
04531 10 FILLER PIC X(34) OJRIC089
|
|
04532 VALUE 'REQUEST FOR FEDERAL ID LETTER '. OJRIC089
|
|
04533 * JOB TYPE OJRIC089
|
|
04534 10 FILLER PIC X(01) OJRIC089
|
|
04535 VALUE '2'. OJRIC089
|
|
04536 * LAST RUN DATE OJRIC089
|
|
04537 10 FILLER PIC S9(09) COMP-3 OJRIC089
|
|
04538 VALUE ZEROS. OJRIC089
|
|
04539 * PARM AREA START --------------------------------------------- OJRIC089
|
|
04540 * PARM AREA #1 OJRIC089
|
|
04541 10 PARM-DATA-ENTRY. OJRIC089
|
|
04542 * PARM DESCRIPTION OJRIC089
|
|
04543 15 FILLER PIC X(32) OJRIC089
|
|
04544 VALUE ' '. OJRIC089
|
|
04545 * PARM TYPE OJRIC089
|
|
04546 15 FILLER PIC X(02) OJRIC089
|
|
04547 VALUE '99'. OJRIC089
|
|
04548 * PARM VALUE OJRIC089
|
|
04549 15 FILLER PIC X(32). OJRIC089
|
|
04550 * PARM LENGTH OJRIC089
|
|
04551 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04552 VALUE ZEROS. OJRIC089
|
|
04553 * PARM AREA #2 OJRIC089
|
|
04554 10 PARM-DATA-ENTRY. OJRIC089
|
|
04555 * PARM DESCRIPTION OJRIC089
|
|
04556 15 FILLER PIC X(32) OJRIC089
|
|
04557 VALUE ' '. OJRIC089
|
|
04558 * PARM TYPE OJRIC089
|
|
04559 15 FILLER PIC X(02) OJRIC089
|
|
04560 VALUE '99'. OJRIC089
|
|
04561 * PARM VALUE OJRIC089
|
|
04562 15 FILLER PIC X(32). OJRIC089
|
|
04563 * PARM LENGTH OJRIC089
|
|
04564 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04565 VALUE ZEROS. OJRIC089
|
|
04566 * PARM AREA #3 OJRIC089
|
|
04567 10 PARM-DATA-ENTRY. OJRIC089
|
|
04568 * PARM DESCRIPTION OJRIC089
|
|
04569 15 FILLER PIC X(32) OJRIC089
|
|
04570 VALUE ' '. OJRIC089
|
|
04571 * PARM TYPE OJRIC089
|
|
04572 15 FILLER PIC X(02) OJRIC089
|
|
04573 VALUE '99'. OJRIC089
|
|
04574 * PARM VALUE OJRIC089
|
|
04575 15 FILLER PIC X(32). OJRIC089
|
|
04576 * PARM LENGTH OJRIC089
|
|
04577 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04578 VALUE ZEROS. OJRIC089
|
|
04579 * PARM AREA #4 OJRIC089
|
|
04580 10 PARM-DATA-ENTRY. OJRIC089
|
|
04581 * PARM DESCRIPTION OJRIC089
|
|
04582 15 FILLER PIC X(32) OJRIC089
|
|
04583 VALUE ' '. OJRIC089
|
|
04584 * PARM TYPE OJRIC089
|
|
04585 15 FILLER PIC X(02) OJRIC089
|
|
04586 VALUE '99'. OJRIC089
|
|
04587 * PARM VALUE OJRIC089
|
|
04588 15 FILLER PIC X(32). OJRIC089
|
|
04589 * PARM LENGTH OJRIC089
|
|
04590 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04591 VALUE ZEROS. OJRIC089
|
|
04592 OJRIC089
|
|
04593 * PARM AREA #5 OJRIC089
|
|
04594 10 PARM-DATA-ENTRY. OJRIC089
|
|
04595 * PARM DESCRIPTION OJRIC089
|
|
04596 15 FILLER PIC X(32) OJRIC089
|
|
04597 VALUE ' '. OJRIC089
|
|
04598 * PARM TYPE OJRIC089
|
|
04599 15 FILLER PIC X(02) OJRIC089
|
|
04600 VALUE '99'. OJRIC089
|
|
04601 * PARM VALUE OJRIC089
|
|
04602 15 FILLER PIC X(32). OJRIC089
|
|
04603 * PARM LENGTH OJRIC089
|
|
04604 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04605 VALUE ZEROS. OJRIC089
|
|
04606 OJRIC089
|
|
04607 * PARM AREA #6 OJRIC089
|
|
04608 10 PARM-DATA-ENTRY. OJRIC089
|
|
04609 * PARM DESCRIPTION OJRIC089
|
|
04610 15 FILLER PIC X(32) OJRIC089
|
|
04611 VALUE ' '. OJRIC089
|
|
04612 * PARM TYPE OJRIC089
|
|
04613 15 FILLER PIC X(02) OJRIC089
|
|
04614 VALUE '99'. OJRIC089
|
|
04615 * PARM VALUE OJRIC089
|
|
04616 15 FILLER PIC X(32). OJRIC089
|
|
04617 * PARM LENGTH OJRIC089
|
|
04618 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04619 VALUE ZEROS. OJRIC089
|
|
04620 OJRIC089
|
|
04621 * PARM AREA #7 OJRIC089
|
|
04622 10 PARM-DATA-ENTRY. OJRIC089
|
|
04623 * PARM DESCRIPTION OJRIC089
|
|
04624 15 FILLER PIC X(32) OJRIC089
|
|
04625 VALUE ' '. OJRIC089
|
|
04626 * PARM TYPE OJRIC089
|
|
04627 15 FILLER PIC X(02) OJRIC089
|
|
04628 VALUE '99'. OJRIC089
|
|
04629 * PARM VALUE OJRIC089
|
|
04630 15 FILLER PIC X(32). OJRIC089
|
|
04631 * PARM LENGTH OJRIC089
|
|
04632 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04633 VALUE ZEROS. OJRIC089
|
|
04634 OJRIC089
|
|
04635 * PARM AREA #8 OJRIC089
|
|
04636 10 PARM-DATA-ENTRY. OJRIC089
|
|
04637 * PARM DESCRIPTION OJRIC089
|
|
04638 15 FILLER PIC X(32) OJRIC089
|
|
04639 VALUE ' '. OJRIC089
|
|
04640 * PARM TYPE OJRIC089
|
|
04641 15 FILLER PIC X(02) OJRIC089
|
|
04642 VALUE '99'. OJRIC089
|
|
04643 * PARM VALUE OJRIC089
|
|
04644 15 FILLER PIC X(32). OJRIC089
|
|
04645 * PARM LENGTH OJRIC089
|
|
04646 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04647 VALUE ZEROS. OJRIC089
|
|
04648 OJRIC089
|
|
04649 * PARM AREA #9 OJRIC089
|
|
04650 10 PARM-DATA-ENTRY. OJRIC089
|
|
04651 * PARM DESCRIPTION OJRIC089
|
|
04652 15 FILLER PIC X(32) OJRIC089
|
|
04653 VALUE ' '. OJRIC089
|
|
04654 * PARM TYPE OJRIC089
|
|
04655 15 FILLER PIC X(02) OJRIC089
|
|
04656 VALUE '99'. OJRIC089
|
|
04657 * PARM VALUE OJRIC089
|
|
04658 15 FILLER PIC X(32). OJRIC089
|
|
04659 * PARM LENGTH OJRIC089
|
|
04660 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04661 VALUE ZEROS. OJRIC089
|
|
04662 OJRIC089
|
|
04663 * PARM AREA #10 OJRIC089
|
|
04664 10 PARM-DATA-ENTRY. OJRIC089
|
|
04665 * PARM DESCRIPTION OJRIC089
|
|
04666 15 FILLER PIC X(32) OJRIC089
|
|
04667 VALUE ' '. OJRIC089
|
|
04668 * PARM TYPE OJRIC089
|
|
04669 15 FILLER PIC X(02) OJRIC089
|
|
04670 VALUE '99'. OJRIC089
|
|
04671 * PARM VALUE OJRIC089
|
|
04672 15 FILLER PIC X(32). OJRIC089
|
|
04673 * PARM LENGTH OJRIC089
|
|
04674 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04675 VALUE ZEROS. OJRIC089
|
|
04676 OJRIC089
|
|
04677 * PARM AREA #11 OJRIC089
|
|
04678 10 PARM-DATA-ENTRY. OJRIC089
|
|
04679 * PARM DESCRIPTION OJRIC089
|
|
04680 15 FILLER PIC X(32) OJRIC089
|
|
04681 VALUE ' '. OJRIC089
|
|
04682 * PARM TYPE OJRIC089
|
|
04683 15 FILLER PIC X(02) OJRIC089
|
|
04684 VALUE '99'. OJRIC089
|
|
04685 * PARM VALUE OJRIC089
|
|
04686 15 FILLER PIC X(32). OJRIC089
|
|
04687 * PARM LENGTH OJRIC089
|
|
04688 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04689 VALUE ZEROS. OJRIC089
|
|
04690 OJRIC089
|
|
04691 * PARM AREA #12 OJRIC089
|
|
04692 10 PARM-DATA-ENTRY. OJRIC089
|
|
04693 * PARM DESCRIPTION OJRIC089
|
|
04694 15 FILLER PIC X(32) OJRIC089
|
|
04695 VALUE ' '. OJRIC089
|
|
04696 * PARM TYPE OJRIC089
|
|
04697 15 FILLER PIC X(02) OJRIC089
|
|
04698 VALUE '99'. OJRIC089
|
|
04699 * PARM VALUE OJRIC089
|
|
04700 15 FILLER PIC X(32). OJRIC089
|
|
04701 * PARM LENGTH OJRIC089
|
|
04702 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04703 VALUE ZEROS. OJRIC089
|
|
04704 OJRIC089
|
|
04705 * PARM AREA #13 OJRIC089
|
|
04706 10 PARM-DATA-ENTRY. OJRIC089
|
|
04707 * PARM DESCRIPTION OJRIC089
|
|
04708 15 FILLER PIC X(32) OJRIC089
|
|
04709 VALUE ' '. OJRIC089
|
|
04710 * PARM TYPE OJRIC089
|
|
04711 15 FILLER PIC X(02) OJRIC089
|
|
04712 VALUE '99'. OJRIC089
|
|
04713 * PARM VALUE OJRIC089
|
|
04714 15 FILLER PIC X(32). OJRIC089
|
|
04715 * PARM LENGTH OJRIC089
|
|
04716 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04717 VALUE ZEROS. OJRIC089
|
|
04718 OJRIC089
|
|
04719 * PARM AREA #14 OJRIC089
|
|
04720 10 PARM-DATA-ENTRY. OJRIC089
|
|
04721 * PARM DESCRIPTION OJRIC089
|
|
04722 15 FILLER PIC X(32) OJRIC089
|
|
04723 VALUE ' '. OJRIC089
|
|
04724 * PARM TYPE OJRIC089
|
|
04725 15 FILLER PIC X(02) OJRIC089
|
|
04726 VALUE '99'. OJRIC089
|
|
04727 * PARM VALUE OJRIC089
|
|
04728 15 FILLER PIC X(32). OJRIC089
|
|
04729 * PARM LENGTH OJRIC089
|
|
04730 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04731 VALUE ZEROS. OJRIC089
|
|
04732 OJRIC089
|
|
04733 * PARM AREA #15 OJRIC089
|
|
04734 10 PARM-DATA-ENTRY. OJRIC089
|
|
04735 * PARM DESCRIPTION OJRIC089
|
|
04736 15 FILLER PIC X(32) OJRIC089
|
|
04737 VALUE ' '. OJRIC089
|
|
04738 * PARM TYPE OJRIC089
|
|
04739 15 FILLER PIC X(02) OJRIC089
|
|
04740 VALUE '99'. OJRIC089
|
|
04741 * PARM VALUE OJRIC089
|
|
04742 15 FILLER PIC X(32). OJRIC089
|
|
04743 * PARM LENGTH OJRIC089
|
|
04744 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04745 VALUE ZEROS. OJRIC089
|
|
04746 OJRIC089
|
|
04747 * PARM AREA #16 OJRIC089
|
|
04748 10 PARM-DATA-ENTRY. OJRIC089
|
|
04749 * PARM DESCRIPTION OJRIC089
|
|
04750 15 FILLER PIC X(32) OJRIC089
|
|
04751 VALUE ' '. OJRIC089
|
|
04752 * PARM TYPE OJRIC089
|
|
04753 15 FILLER PIC X(02) OJRIC089
|
|
04754 VALUE '99'. OJRIC089
|
|
04755 * PARM VALUE OJRIC089
|
|
04756 15 FILLER PIC X(32). OJRIC089
|
|
04757 * PARM LENGTH OJRIC089
|
|
04758 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04759 VALUE ZEROS. OJRIC089
|
|
04760 * PARM AREA END --------------------------------------------- OJRIC089
|
|
04761 10 FILLER PIC X(30) OJRIC089
|
|
04762 VALUE SPACES. OJRIC089
|
|
04763 OJRIC089
|
|
04764 ******************* R E P O R T # 20 ***************************OJRIC089
|
|
04765 * ENTRY 20 OJRIC089
|
|
04766 05 FOJR-TABLE-ENTRY. OJRIC089
|
|
04767 * REPT TYPE OJRIC089
|
|
04768 10 FILLER PIC S9(04) COMP OJRIC089
|
|
04769 VALUE +01. OJRIC089
|
|
04770 * JOB NAME OJRIC089
|
|
04771 10 FILLER PIC X(08) OJRIC089
|
|
04772 VALUE 'DTSBR791'. OJRIC089
|
|
04773 * FILLER - END OF KEY OJRIC089
|
|
04774 10 FILLER PIC X(06) OJRIC089
|
|
04775 VALUE SPACES. OJRIC089
|
|
04776 * BUSINESS AREA OJRIC089
|
|
04777 10 FILLER PIC X(02) OJRIC089
|
|
04778 VALUE '07'. OJRIC089
|
|
04779 * JOB DESCRIPTION OJRIC089
|
|
04780 10 FILLER PIC X(34) OJRIC089
|
|
04781 VALUE 'DUTAS OPERATOR ID LIST '. OJRIC089
|
|
04782 * JOB TYPE OJRIC089
|
|
04783 10 FILLER PIC X(01) OJRIC089
|
|
04784 VALUE '2'. OJRIC089
|
|
04785 * LAST RUN DATE OJRIC089
|
|
04786 10 FILLER PIC S9(09) COMP-3 OJRIC089
|
|
04787 VALUE ZEROS. OJRIC089
|
|
04788 * PARM AREA START --------------------------------------------- OJRIC089
|
|
04789 * PARM AREA #1 OJRIC089
|
|
04790 10 PARM-DATA-ENTRY. OJRIC089
|
|
04791 * PARM DESCRIPTION '. OJRIC089
|
|
04792 15 FILLER PIC X(32) OJRIC089
|
|
04793 VALUE 'SHOULD NOT DISPLAY '. OJRIC089
|
|
04794 * PARM TYPE OJRIC089
|
|
04795 15 FILLER PIC X(02) OJRIC089
|
|
04796 VALUE '99'. OJRIC089
|
|
04797 * PARM VALUE OJRIC089
|
|
04798 15 FILLER PIC X(32). OJRIC089
|
|
04799 * PARM LENGTH OJRIC089
|
|
04800 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04801 VALUE ZEROS. OJRIC089
|
|
04802 * PARM AREA #2 OJRIC089
|
|
04803 10 PARM-DATA-ENTRY. OJRIC089
|
|
04804 * PARM DESCRIPTION OJRIC089
|
|
04805 15 FILLER PIC X(32) OJRIC089
|
|
04806 VALUE ' '. OJRIC089
|
|
04807 * PARM TYPE OJRIC089
|
|
04808 15 FILLER PIC X(02) OJRIC089
|
|
04809 VALUE '99'. OJRIC089
|
|
04810 * PARM VALUE OJRIC089
|
|
04811 15 FILLER PIC X(32). OJRIC089
|
|
04812 * PARM LENGTH OJRIC089
|
|
04813 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04814 VALUE ZEROS. OJRIC089
|
|
04815 * PARM AREA #3 OJRIC089
|
|
04816 10 PARM-DATA-ENTRY. OJRIC089
|
|
04817 * PARM DESCRIPTION OJRIC089
|
|
04818 15 FILLER PIC X(32) OJRIC089
|
|
04819 VALUE ' '. OJRIC089
|
|
04820 * PARM TYPE OJRIC089
|
|
04821 15 FILLER PIC X(02) OJRIC089
|
|
04822 VALUE '99'. OJRIC089
|
|
04823 * PARM VALUE OJRIC089
|
|
04824 15 FILLER PIC X(32). OJRIC089
|
|
04825 * PARM LENGTH OJRIC089
|
|
04826 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04827 VALUE ZEROS. OJRIC089
|
|
04828 * PARM AREA #4 OJRIC089
|
|
04829 10 PARM-DATA-ENTRY. OJRIC089
|
|
04830 * PARM DESCRIPTION OJRIC089
|
|
04831 15 FILLER PIC X(32) OJRIC089
|
|
04832 VALUE ' '. OJRIC089
|
|
04833 * PARM TYPE OJRIC089
|
|
04834 15 FILLER PIC X(02) OJRIC089
|
|
04835 VALUE '99'. OJRIC089
|
|
04836 * PARM VALUE OJRIC089
|
|
04837 15 FILLER PIC X(32). OJRIC089
|
|
04838 * PARM LENGTH OJRIC089
|
|
04839 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04840 VALUE ZEROS. OJRIC089
|
|
04841 OJRIC089
|
|
04842 * PARM AREA #5 OJRIC089
|
|
04843 10 PARM-DATA-ENTRY. OJRIC089
|
|
04844 * PARM DESCRIPTION OJRIC089
|
|
04845 15 FILLER PIC X(32) OJRIC089
|
|
04846 VALUE ' '. OJRIC089
|
|
04847 * PARM TYPE OJRIC089
|
|
04848 15 FILLER PIC X(02) OJRIC089
|
|
04849 VALUE '99'. OJRIC089
|
|
04850 * PARM VALUE OJRIC089
|
|
04851 15 FILLER PIC X(32). OJRIC089
|
|
04852 * PARM LENGTH OJRIC089
|
|
04853 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04854 VALUE ZEROS. OJRIC089
|
|
04855 OJRIC089
|
|
04856 * PARM AREA #6 OJRIC089
|
|
04857 10 PARM-DATA-ENTRY. OJRIC089
|
|
04858 * PARM DESCRIPTION OJRIC089
|
|
04859 15 FILLER PIC X(32) OJRIC089
|
|
04860 VALUE ' '. OJRIC089
|
|
04861 * PARM TYPE OJRIC089
|
|
04862 15 FILLER PIC X(02) OJRIC089
|
|
04863 VALUE '99'. OJRIC089
|
|
04864 * PARM VALUE OJRIC089
|
|
04865 15 FILLER PIC X(32). OJRIC089
|
|
04866 * PARM LENGTH OJRIC089
|
|
04867 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04868 VALUE ZEROS. OJRIC089
|
|
04869 OJRIC089
|
|
04870 * PARM AREA #7 OJRIC089
|
|
04871 10 PARM-DATA-ENTRY. OJRIC089
|
|
04872 * PARM DESCRIPTION OJRIC089
|
|
04873 15 FILLER PIC X(32) OJRIC089
|
|
04874 VALUE ' '. OJRIC089
|
|
04875 * PARM TYPE OJRIC089
|
|
04876 15 FILLER PIC X(02) OJRIC089
|
|
04877 VALUE '99'. OJRIC089
|
|
04878 * PARM VALUE OJRIC089
|
|
04879 15 FILLER PIC X(32). OJRIC089
|
|
04880 * PARM LENGTH OJRIC089
|
|
04881 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04882 VALUE ZEROS. OJRIC089
|
|
04883 OJRIC089
|
|
04884 * PARM AREA #8 OJRIC089
|
|
04885 10 PARM-DATA-ENTRY. OJRIC089
|
|
04886 * PARM DESCRIPTION OJRIC089
|
|
04887 15 FILLER PIC X(32) OJRIC089
|
|
04888 VALUE ' '. OJRIC089
|
|
04889 * PARM TYPE OJRIC089
|
|
04890 15 FILLER PIC X(02) OJRIC089
|
|
04891 VALUE '99'. OJRIC089
|
|
04892 * PARM VALUE OJRIC089
|
|
04893 15 FILLER PIC X(32). OJRIC089
|
|
04894 * PARM LENGTH OJRIC089
|
|
04895 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04896 VALUE ZEROS. OJRIC089
|
|
04897 OJRIC089
|
|
04898 * PARM AREA #9 OJRIC089
|
|
04899 10 PARM-DATA-ENTRY. OJRIC089
|
|
04900 * PARM DESCRIPTION OJRIC089
|
|
04901 15 FILLER PIC X(32) OJRIC089
|
|
04902 VALUE ' '. OJRIC089
|
|
04903 * PARM TYPE OJRIC089
|
|
04904 15 FILLER PIC X(02) OJRIC089
|
|
04905 VALUE '99'. OJRIC089
|
|
04906 * PARM VALUE OJRIC089
|
|
04907 15 FILLER PIC X(32). OJRIC089
|
|
04908 * PARM LENGTH OJRIC089
|
|
04909 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04910 VALUE ZEROS. OJRIC089
|
|
04911 OJRIC089
|
|
04912 * PARM AREA #10 OJRIC089
|
|
04913 10 PARM-DATA-ENTRY. OJRIC089
|
|
04914 * PARM DESCRIPTION OJRIC089
|
|
04915 15 FILLER PIC X(32) OJRIC089
|
|
04916 VALUE ' '. OJRIC089
|
|
04917 * PARM TYPE OJRIC089
|
|
04918 15 FILLER PIC X(02) OJRIC089
|
|
04919 VALUE '99'. OJRIC089
|
|
04920 * PARM VALUE OJRIC089
|
|
04921 15 FILLER PIC X(32). OJRIC089
|
|
04922 * PARM LENGTH OJRIC089
|
|
04923 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04924 VALUE ZEROS. OJRIC089
|
|
04925 OJRIC089
|
|
04926 * PARM AREA #11 OJRIC089
|
|
04927 10 PARM-DATA-ENTRY. OJRIC089
|
|
04928 * PARM DESCRIPTION OJRIC089
|
|
04929 15 FILLER PIC X(32) OJRIC089
|
|
04930 VALUE ' '. OJRIC089
|
|
04931 * PARM TYPE OJRIC089
|
|
04932 15 FILLER PIC X(02) OJRIC089
|
|
04933 VALUE '99'. OJRIC089
|
|
04934 * PARM VALUE OJRIC089
|
|
04935 15 FILLER PIC X(32). OJRIC089
|
|
04936 * PARM LENGTH OJRIC089
|
|
04937 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04938 VALUE ZEROS. OJRIC089
|
|
04939 OJRIC089
|
|
04940 * PARM AREA #12 OJRIC089
|
|
04941 10 PARM-DATA-ENTRY. OJRIC089
|
|
04942 * PARM DESCRIPTION OJRIC089
|
|
04943 15 FILLER PIC X(32) OJRIC089
|
|
04944 VALUE ' '. OJRIC089
|
|
04945 * PARM TYPE OJRIC089
|
|
04946 15 FILLER PIC X(02) OJRIC089
|
|
04947 VALUE '99'. OJRIC089
|
|
04948 * PARM VALUE OJRIC089
|
|
04949 15 FILLER PIC X(32). OJRIC089
|
|
04950 * PARM LENGTH OJRIC089
|
|
04951 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04952 VALUE ZEROS. OJRIC089
|
|
04953 OJRIC089
|
|
04954 * PARM AREA #13 OJRIC089
|
|
04955 10 PARM-DATA-ENTRY. OJRIC089
|
|
04956 * PARM DESCRIPTION OJRIC089
|
|
04957 15 FILLER PIC X(32) OJRIC089
|
|
04958 VALUE ' '. OJRIC089
|
|
04959 * PARM TYPE OJRIC089
|
|
04960 15 FILLER PIC X(02) OJRIC089
|
|
04961 VALUE '99'. OJRIC089
|
|
04962 * PARM VALUE OJRIC089
|
|
04963 15 FILLER PIC X(32). OJRIC089
|
|
04964 * PARM LENGTH OJRIC089
|
|
04965 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04966 VALUE ZEROS. OJRIC089
|
|
04967 OJRIC089
|
|
04968 * PARM AREA #14 OJRIC089
|
|
04969 10 PARM-DATA-ENTRY. OJRIC089
|
|
04970 * PARM DESCRIPTION OJRIC089
|
|
04971 15 FILLER PIC X(32) OJRIC089
|
|
04972 VALUE ' '. OJRIC089
|
|
04973 * PARM TYPE OJRIC089
|
|
04974 15 FILLER PIC X(02) OJRIC089
|
|
04975 VALUE '99'. OJRIC089
|
|
04976 * PARM VALUE OJRIC089
|
|
04977 15 FILLER PIC X(32). OJRIC089
|
|
04978 * PARM LENGTH OJRIC089
|
|
04979 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04980 VALUE ZEROS. OJRIC089
|
|
04981 OJRIC089
|
|
04982 * PARM AREA #15 OJRIC089
|
|
04983 10 PARM-DATA-ENTRY. OJRIC089
|
|
04984 * PARM DESCRIPTION OJRIC089
|
|
04985 15 FILLER PIC X(32) OJRIC089
|
|
04986 VALUE ' '. OJRIC089
|
|
04987 * PARM TYPE OJRIC089
|
|
04988 15 FILLER PIC X(02) OJRIC089
|
|
04989 VALUE '99'. OJRIC089
|
|
04990 * PARM VALUE OJRIC089
|
|
04991 15 FILLER PIC X(32). OJRIC089
|
|
04992 * PARM LENGTH OJRIC089
|
|
04993 15 FILLER PIC S9(04) COMP OJRIC089
|
|
04994 VALUE ZEROS. OJRIC089
|
|
04995 OJRIC089
|
|
04996 * PARM AREA #16 OJRIC089
|
|
04997 10 PARM-DATA-ENTRY. OJRIC089
|
|
04998 * PARM DESCRIPTION OJRIC089
|
|
04999 15 FILLER PIC X(32) OJRIC089
|
|
05000 VALUE ' '. OJRIC089
|
|
05001 * PARM TYPE OJRIC089
|
|
05002 15 FILLER PIC X(02) OJRIC089
|
|
05003 VALUE '99'. OJRIC089
|
|
05004 * PARM VALUE OJRIC089
|
|
05005 15 FILLER PIC X(32). OJRIC089
|
|
05006 * PARM LENGTH OJRIC089
|
|
05007 15 FILLER PIC S9(04) COMP OJRIC089
|
|
05008 VALUE ZEROS. OJRIC089
|
|
05009 * PARM AREA END --------------------------------------------- OJRIC089
|
|
05010 10 FILLER PIC X(30) OJRIC089
|
|
05011 VALUE SPACES. OJRIC089
|
|
05012 OJRIC089
|
|
05013 OJRIC089
|
|
05014 ******************************************************************OJRIC089
|
|
05015 01 FOJR-REPORT-ELEMENT REDEFINES FOJR-REPORT-TABLE. OJRIC089
|
|
05016 05 FOJR-REPORT-ENTRY OJRIC089
|
|
05017 OCCURS 21 TIMES. OJRIC089
|
|
05018 10 FOJR-KEY-AREA. OJRIC089
|
|
05019 15 FOJR-REC-TYPE PIC S9(04) COMP. OJRIC089
|
|
05020 88 FOJR-OJR-88 VALUE +01. OJRIC089
|
|
05021 15 FOJR-JOB-NAME PIC X(08). OJRIC089
|
|
05022 15 FOJR-KEY-FILLER PIC X(06). OJRIC089
|
|
05023 OJRIC089
|
|
05024 10 FOJR-DATA-AREA. OJRIC089
|
|
05025 15 FOJR-BUSINESS-AREA PIC X(02). OJRIC089
|
|
05026 88 FOJR-REGISTRATION VALUE '01'. OJRIC089
|
|
05027 88 FOJR-ACCOUNTING VALUE '03'. OJRIC089
|
|
05028 88 FOJR-COLLECTIONS VALUE '04'. OJRIC089
|
|
05029 88 FOJR-FIELD VALUE '06'. OJRIC089
|
|
05030 88 FOJR-MISC VALUE '07'. OJRIC089
|
|
05031 OJRIC089
|
|
05032 15 FOJR-JOB-DESC PIC X(34). OJRIC089
|
|
05033 OJRIC089
|
|
05034 15 FOJR-JOB-TYPE PIC X(01). OJRIC089
|
|
05035 88 FOJR-JOB-TYPE-PRE-UPD VALUE '0'. OJRIC089
|
|
05036 88 FOJR-JOB-TYPE-POST-UPD VALUE '1'. OJRIC089
|
|
05037 88 FOJR-JOB-TYPE-READ-ONLY VALUE '2'. OJRIC089
|
|
05038 OJRIC089
|
|
05039 15 FOJR-LAST-RUN-DATE PIC S9(09) COMP-3. OJRIC089
|
|
05040 OJRIC089
|
|
05041 15 FOJR-PARM-AREA OCCURS 16 TIMES. OJRIC089
|
|
05042 20 FOJR-PARM-DESC PIC X(32). OJRIC089
|
|
05043 20 FOJR-PARM-TYPE PIC X(02). OJRIC089
|
|
05044 88 FOJR-PARM-TYPE-DATE VALUE '0'. OJRIC089
|
|
05045 88 FOJR-PARM-TYPE-QTR VALUE '1'. OJRIC089
|
|
05046 88 FOJR-PARM-TYPE-UID VALUE '2'. OJRIC089
|
|
05047 88 FOJR-PARM-TYPE-TEXT VALUE '3'. OJRIC089
|
|
05048 OJRIC089
|
|
05049 20 FOJR-LAST-PARM-VALUE PIC X(32). OJRIC089
|
|
05050 20 FOJR-PARM-LENGTH PIC S9(04) COMP. OJRIC089
|
|
05051 OJRIC089
|
|
05052 OJRIC089
|
|
05053 15 FOJR-FILLER PIC X(30). OJRIC089
|
|
05054 OJRIC089
|