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