00001 IDENTIFICATION DIVISION. 08/07/12 00002 PROGRAM-ID. DTSBD200. DTSBD200 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV031 00004 DATE-WRITTEN. JANUARY 1991. DTSBD200 00005 DATE-COMPILED. DTSBD200 00006 SKIP3 DTSBD200 00007 ***** DTSBD200 00008 * DTSBD200 00009 * FUNCTION: TRANSACTION COLLECTION AND SORT. DTSBD200 00010 * DTSBD200 00011 * MODIFICATION LOG: DTSBD200 00012 * DTSBD200 00013 * 01/06/92 INITIAL DEVELOPMENT. DTSBD200 00014 * WORK ORDER: PROGRAMMER: TCL DTSBD200 00015 * DTSBD200 00016 * 06/15/95 MODIFY P2180. TRANSACTIONS GENERATED IN DTSBD140 DTSBD200 00017 * BY THE "TRANSFER BETWEEN EMPLOYERS" FUNCTION MUST DTSBD200 00018 * PROCESS PRIOR TO OTHER ACCOUNTING TRANACTIONS - DTSBD200 00019 * AND IN THE CASE OF ARPT WD AND APAY PR TRAN- DTSBD200 00020 * SATIONS, BEFORE AUTO QUARTER PROCESSING. DTSBD200 00021 * WORK ORDER: CR066 PROGRAMMER: TCL DTSBD200 00022 * DTSBD200 00023 * 11/13/95 ADD T002 RECORD PROCESSING. DTSBD200 00024 * WORK ORDER: JR PROGRAMMER: TCL DTSBD200 00025 * DTSBD200 00026 * 06/13/96 ADDED A NEW TRANSACTION CODE FOR T036 AND INCREAS- DTSBD200 00027 * ED TRN-AREA OCCURS TO HANDLE UI-5E'S GENERATED DTSBD200 00028 * FROM MELF RECORD ENTRY ON SCREEN 7A. DTSBD200 00029 * REFERENCE RFP: #WARP II PROGRAMMER: MJA DTSBD200 00030 * DTSBD200 00031 * 10/12/1998 REVIEWED AND MODIFIED FOR DC. DTSBD200 00032 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSBD200 00033 * DTSBD200 00034 * 01/28/2002 MODIFIED FOR ANNUAL RPORT TRANSACTION (DTSIAATX) DTSBD200 00035 * REFERENCE: HOUSEHOLD PROGRAMMER: GD DTSBD200 00036 * DTSBD200 00037 * 07/23/2003 MODIFIED FOR AUTOMATIC EMPLOYER STATUS UPDATES DTSBD200 00038 * (TRANSACTION T002) DTSBD200 00039 * REFERENCE: PROGRAMMER: GD DTSBD200 00040 * DTSBD200 00041 * 05/10/2004 MODIFIED FOR COMPROMISE SETTLEMENTS DTSBD200 00042 * (TRANSACTION T011, TYPE 05) DTSBD200 00043 * REFERENCE: COMPROMISE PROGRAMMER: GD DTSBD200 00044 * DTSBD200 00045 * 01/18/2005 MODIFIED FOR T003 NOTEPAD TRANSACTION AND FOR DTSBD200 00046 * CHANGES IN T002 TRANSACTION. DTSBD200 00047 * REFERENCE: ICESA PROCESSING PROGRAMMER: GD DTSBD200 00048 * DTSBD200 00049 * 01/09/2006 UPDATED FOR NEW VERSION OF T002 TRANSACTION DTSBD200 00050 * REFERENCE: WEB REGISTRATION PROGRAMMER: GD DTSBD200 00051 * DTSBD200 00052 * 06/16/2008 UPDATED FOR NEW VERSION OF T003 TRANSACTION DTSBD200 00053 * REFERENCE: REFUNDS PROGRAMMER: GD DTSBD200 00054 * DTSBD200 00055 * 10/08/2010 UPDATED FOR NEW VERSION OF T031 TRANSACTION DTSBD200 00056 * SORT-KEY2 = 600. WAGE ONLY TRANSFERS MUST DTSBD200 00057 * PROCESS AFTER OTHER ACCOUNTING UPDATES. DTSBD200 00058 * REFERENCE: WAGE TRANSFERS PROGRAMMER: GD DTSBD200 00059 * DTSBD200 00060 * 05/08/2012 UPDATED FOR NEW VERSION OF T040 TRANSACTION DTSBD200 00061 * SORT-KEY2 = 901. WEB AUDIT TRANSACTIONS CAN DTSBD200 00062 * PROCESS AFTER OTHER UPDATES. DTSBD200 00063 * REFERENCE: WEB AUDITS PROGRAMMER: ZL1 DTSBD200 00064 * DTSBD200 00065 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD200 00066 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD200 00067 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBD200 00068 * DTSBD200 00069 * DTSBD200 00070 * DESCRIPTION: DTSBD200 00071 * DTSBD200 00072 * SORTS TRANSACTIONS INTO SEQUENCE FOR PROCESSING BY DAILY DTSBD200 00073 * UPDATE. DTSBD200 00074 * DTSBD200 00075 * DTSBD200 00076 * INITIATION: DTSBD200 00077 * DTSBD200 00078 * CALL DTSBU941 TO OPEN INPUT FILE. DTSBD200 00079 * DTSBD200 00080 * MOVE +0 TO WRK-TRN-IN-CNT. DTSBD200 00081 * DTSBD200 00082 * DTSBD200 00083 * PRE-SORT: DTSBD200 00084 * DTSBD200 00085 * CALL DTSBU941 TO READNEXT INPUT FILE. FOR EACH RECORD DTSBD200 00086 * ON THE INPUT FILE: DTSBD200 00087 * DTSBD200 00088 * CONSTRUCT SORT-KEY. DTSBD200 00089 * DTSBD200 00090 * MOVE LINK-REC TO SORT-DATA. DTSBD200 00091 * DTSBD200 00092 * RELEASE SORT-REC. DTSBD200 00093 * DTSBD200 00094 * THE CONSTRUCTION OF SORT-KEY1 AND SORT-KEY3 IS OBVIOUS. DTSBD200 00095 * SORT-KEY2 (SORT-KEY2-SEQ-NO) IS CONSTRUCTED AS FOLLOWS: DTSBD200 00096 * DTSBD200 00097 * IF T001-REC-TYPE = '001' DTSBD200 00098 * MOVE +200 TO SORT-KEY2-SEQ-NO DTSBD200 00099 * ELSE DTSBD200 00100 * IF T002-REC-TYPE = '002' DTSBD200 00101 * MOVE +2 TO SORT-KEY2-SEQ-NO DTSBD200 00102 * ELSE DTSBD200 00103 * IF T006-REC-TYPE = '006' DTSBD200 00104 * MOVE +500 TO SORT-KEY2-SEQ-NO DTSBD200 00105 * ELSE DTSBD200 00106 * IF T011-REC-TYPE = '011' DTSBD200 00107 * MOVE +300 TO SORT-KEY2-SEQ-NO DTSBD200 00108 * ELSE DTSBD200 00109 * IF T016-REC-TYPE = '016' DTSBD200 00110 * MOVE +400 TO SORT-KEY2-SEQ-NO DTSBD200 00111 * ELSE DTSBD200 00112 * IF T021-REC-TYPE = '021' DTSBD200 00113 * MOVE +600 TO SORT-KEY2-SEQ-NO DTSBD200 00114 * ELSE DTSBD200 00115 * IF T031-REC-TYPE = '031' DTSBD200 00116 * MOVE +100 TO SORT-KEY2-SEQ-NO DTSBD200 00117 * ELSE DTSBD200 00118 * IF T036-REC-TYPE = '036' DTSBD200 00119 * MOVE +900 TO SORT-KEY2-SEQ-NO DTSBD200 00120 * ELSE DTSBD200 00121 * IF T040-REC-TYPE = '040' DTSBD200 00122 * MOVE +700 TO SORT-KEY2-SEQ-NO DTSBD200 00123 * ELSE DTSBD200 00124 * IF T051-REC-TYPE = '051' DTSBD200 00125 * IF AADJ-ADJ-88 DTSBD200 00126 * IF AADJ-WRITE-OFF-88 DTSBD200 00127 * MOVE +011 TO SORT-KEY2-SEQ-NO DTSBD200 00128 * ELSE DTSBD200 00129 * IF AADJ-WRITE-OFF-REVERSE-88 DTSBD200 00130 * MOVE +012 TO SORT-KEY2-SEQ-NO DTSBD200 00131 * ELSE DTSBD200 00132 * IF AADJ-AUTO-88 DTSBD200 00133 * MOVE +013 TO SORT-KEY2-SEQ-NO DTSBD200 00134 * ELSE DTSBD200 00135 * IF AADJ-MANUAL-88 DTSBD200 00136 * MOVE +014 TO SORT-KEY2-SEQ-NO DTSBD200 00137 * ELSE DTSBD200 00138 * MOVE +019 TO SORT-KEY2-SEQ-NO DTSBD200 00139 * ELSE DTSBD200 00140 * IF ARPT-RPT-88 DTSBD200 00141 * MOVE +029 TO SORT-KEY2-SEQ-NO DTSBD200 00142 * ELSE DTSBD200 00143 * IF APAY-PAY-88 DTSBD200 00144 * IF APAY-PAYMENT-88 DTSBD200 00145 * MOVE +031 TO SORT-KEY2-SEQ-NO DTSBD200 00146 * ELSE DTSBD200 00147 * IF APAY-REF-REV-88 DTSBD200 00148 * MOVE +032 TO SORT-KEY2-SEQ-NO DTSBD200 00149 * ELSE DTSBD200 00150 * IF APAY-NG-CHECK-88 DTSBD200 00151 * MOVE +033 TO SORT-KEY2-SEQ-NO DTSBD200 00152 * ELSE DTSBD200 00153 * IF APAY-PAY-REV-88 DTSBD200 00154 * MOVE +034 TO SORT-KEY2-SEQ-NO DTSBD200 00155 * ELSE DTSBD200 00156 * IF APAY-REFUND-88 DTSBD200 00157 * MOVE +035 TO SORT-KEY2-SEQ-NO DTSBD200 00158 * ELSE DTSBD200 00159 * MOVE +039 TO SORT-KEY2-SEQ-NO DTSBD200 00160 * ELSE DTSBD200 00161 * MOVE +049 TO SORT-KEY2-SEQ-NO DTSBD200 00162 * ELSE DTSBD200 00163 * MOVE +999 TO SORT-KEY2-SEQ-NO. DTSBD200 00164 * DTSBD200 00165 * DTSBD200 00166 * TOLERATE AN UNEXPECTED REC-TYPE. DTSBD200 00167 * DTSBD200 00168 * DTSBD200 00169 * POST-SORT. DTSBD200 00170 * DTSBD200 00171 * SIMPLY RETURN THE SORT-FILE RECORDS. WRITE SORT-DATA DTSBD200 00172 * VIA S946-TRN-REC-O. DTSBD200 00173 * DTSBD200 00174 * DTSBD200 00175 * TERMINATION: DTSBD200 00176 * DTSBD200 00177 * DISPLAY TERMINATION STATISTICS. DTSBD200 00178 * DTSBD200 00179 * CLOSE INPUT FILE, OUTPUT FILE (VIA CALLS TO I/O MODULES) DTSBD200 00180 * DTSBD200 00181 * DTSBD200 00182 ***** DTSBD200 00183 SKIP3 DTSBD200 00184 ENVIRONMENT DIVISION. DTSBD200 00185 SKIP2 DTSBD200 00186 INPUT-OUTPUT SECTION. DTSBD200 00187 DTSBD200 00188 FILE-CONTROL. DTSBD200 00189 SELECT PARM-FILE ASSIGN TO SYSIN. DTSBD200 00190 SELECT SORT-FILE ASSIGN TO SORTFILE. DTSBD200 00191 EJECT DTSBD200 00192 DATA DIVISION. DTSBD200 00193 SKIP3 DTSBD200 00194 FILE SECTION. DTSBD200 00195 SKIP3 DTSBD200 00196 FD PARM-FILE DTSBD200 00197 RECORDING MODE IS F DTSBD200 00198 BLOCK CONTAINS 0 RECORDS. DTSBD200 00199 DTSBD200 00200 01 PARM-REC. DTSBD200 00201 05 PARM-REC-TYPE PIC X(03). DTSBD200 00202 05 FILLER PIC X(01). DTSBD200 00203 05 PARM-TRN-CD PIC X(02). DTSBD200 00204 05 FILLER PIC X(01). DTSBD200 00205 05 PARM-TRN-TYPE PIC X(02). DTSBD200 00206 05 FILLER PIC X(71). DTSBD200 00207 EJECT DTSBD200 00208 SD SORT-FILE. DTSBD200 00209 DTSBD200 00210 01 SORT-REC. DTSBD200 00211 05 SORT-KEY. DTSBD200 00212 10 SORT-KEY1. DTSBD200 00213 15 SORT-KEY1-EMP-NO PIC S9(07) COMP-3. DTSBD200 00214 DTSBD200 00215 10 SORT-KEY2. DTSBD200 00216 15 SORT-KEY2-SEQ-NO PIC S9(03) COMP-3. DTSBD200 00217 DTSBD200 00218 10 SORT-KEY3 PIC X(26). DTSBD200 00219 10 SORT-KEY3-T001 REDEFINES SORT-KEY3. DTSBD200 00220 15 SORT-KEY3-T001-TRN-CD PIC X(02). DTSBD200 00221 15 SORT-KEY3-T001-SYS-DATE PIC S9(09) COMP-3. DTSBD200 00222 15 SORT-KEY3-T001-SYS-TIME PIC S9(07) COMP-3. DTSBD200 00223 DTSBD200 00224 10 SORT-KEY3-T002 REDEFINES SORT-KEY3. DTSBD200 00225 15 SORT-KEY3-T002-TRN-CD PIC X(02). DTSBD200 00226 15 SORT-KEY3-T002-SYS-DATE PIC S9(09) COMP-3. DTSBD200 00227 15 SORT-KEY3-T002-SYS-TIME PIC S9(07) COMP-3. DTSBD200 00228 DTSBD200 00229 10 SORT-KEY3-T003 REDEFINES SORT-KEY3. DTSBD200 00230 15 SORT-KEY3-T003-TRN-CD PIC X(02). DTSBD200 00231 15 SORT-KEY3-T003-SYS-DATE PIC S9(09) COMP-3. DTSBD200 00232 15 SORT-KEY3-T003-SYS-TIME PIC S9(07) COMP-3. DTSBD200 00233 DTSBD200 00234 10 SORT-KEY3-T006 REDEFINES SORT-KEY3. DTSBD200 00235 15 SORT-KEY3-T006-SYS-DATE PIC S9(09) COMP-3. DTSBD200 00236 15 SORT-KEY3-T006-SYS-TIME PIC S9(07) COMP-3. DTSBD200 00237 15 SORT-KEY3-T006-YRQ PIC S9(05) COMP-3. DTSBD200 00238 DTSBD200 00239 10 SORT-KEY3-T011 REDEFINES SORT-KEY3. DTSBD200 00240 15 SORT-KEY3-T011-TRN-CD PIC X(02). DTSBD200 00241 15 SORT-KEY3-T011-ESTB-ABSTIME DTSBD200 00242 PIC S9(15) COMP-3. DTSBD200 00243 DTSBD200 00244 10 SORT-KEY3-T016 REDEFINES SORT-KEY3. DTSBD200 00245 15 SORT-KEY3-T016-SYS-DATE PIC S9(09) COMP-3. DTSBD200 00246 15 SORT-KEY3-T016-SYS-TIME PIC S9(07) COMP-3. DTSBD200 00247 DTSBD200 00248 10 SORT-KEY3-T021 REDEFINES SORT-KEY3. DTSBD200 00249 15 SORT-KEY3-T021-ASSIGN-NO PIC S9(09) COMP-3. DTSBD200 00250 15 SORT-KEY3-T021-TRN-CD PIC X(02). DTSBD200 00251 DTSBD200 00252 10 SORT-KEY3-T031 REDEFINES SORT-KEY3. DTSBD200 00253 15 SORT-KEY3-T031-START-YRQ PIC S9(5) COMP-3. DTSBD200 00254 DTSBD200 00255 10 SORT-KEY3-T036 REDEFINES SORT-KEY3. DTSBD200 00256 15 SORT-KEY3-T036-START-YRQ PIC S9(5) COMP-3. DTSBD200 00257 DTSBD200 00258 10 SORT-KEY3-T040 REDEFINES SORT-KEY3. DTSBD200 00259 15 SORT-KEY3-T040-ASSIGN-NO PIC S9(09) COMP-3. DTSBD200 00260 15 SORT-KEY3-T040-TRN-CD PIC X(02). DTSBD200 00261 DTSBD200 00262 10 SORT-KEY3-T051 REDEFINES SORT-KEY3. DTSBD200 00263 15 SORT-KEY3-T051-VAR PIC X(21). DTSBD200 00264 DTSBD200 00265 15 SORT-KEY3-T051-YRQ DTSBD200 00266 REDEFINES SORT-KEY3-T051-VAR DTSBD200 00267 PIC S9(05) COMP-3. DTSBD200 00268 DTSBD200 00269 15 SORT-KEY3-T051-APPLIC-REQ-DATA DTSBD200 00270 REDEFINES SORT-KEY3-T051-VAR. DTSBD200 00271 20 SORT-KEY3-T051-APPLIC-YRQ DTSBD200 00272 PIC S9(05) COMP-3. DTSBD200 00273 20 SORT-KEY3-T051-APPLIC-IND DTSBD200 00274 PIC X(02). DTSBD200 00275 DTSBD200 00276 15 SORT-KEY3-T051-GENERIC-PAYMENT DTSBD200 00277 REDEFINES SORT-KEY3-T051-VAR. DTSBD200 00278 20 SORT-KEY3-T051-HIGH-VALUE DTSBD200 00279 PIC X(01). DTSBD200 00280 20 SORT-KEY3-T051-RECEIVED-DATE DTSBD200 00281 PIC S9(09) COMP-3. DTSBD200 00282 DTSBD200 00283 15 SORT-KEY3-T051-DOC-NO PIC X(05). DTSBD200 00284 SKIP3 DTSBD200 00285 05 SORT-DATA. DTSBD200 00286 ++INCLUDE DTSIRVAR DTSBD200 00287 EJECT DTSBD200 00288 WORKING-STORAGE SECTION. DTSBD200 002885 77 PAN-VALET PICTURE X(24) VALUE '031DTSBD200 08/07/12'. DTSBD200 00289 SKIP3 DTSBD200 00290 01 WRK-AREA. DTSBD200 00291 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +200.DTSBD200 00292 DTSBD200 00293 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBD200'.DTSBD200 00294 DTSBD200 00295 05 VAR-CHAR-CNT PIC S9(04) COMP. DTSBD200 00296 DTSBD200 00297 05 SORT-EOR-IND PIC X(01). DTSBD200 00298 DTSBD200 00299 05 PARM-EOF-IND PIC X(01). DTSBD200 00300 DTSBD200 00301 05 WRK-TBL-MAX PIC S9(04) COMP VALUE +092.DTSBD200 00302 DTSBD200 00303 05 WRK-TBL-SUB PIC S9(04) COMP. DTSBD200 00304 DTSBD200 00305 05 SUB PIC S9(04) COMP. DTSBD200 00306 SKIP3 DTSBD200 00307 01 TRN-TABLE. DTSBD200 00308 05 TRN-001-01-AREA. DTSBD200 00309 10 TRN-001-01-SUB PIC S9(04) COMP. DTSBD200 00310 10 FILLER PIC X(01). DTSBD200 00311 10 FILLER PIC S9(05) COMP-3. DTSBD200 00312 10 FILLER PIC X(07) VALUE '00101 '. DTSBD200 00313 10 FILLER PIC X(30) DTSBD200 00314 VALUE 'REGISTRATION '. DTSBD200 00315 10 FILLER PIC X(30) DTSBD200 00316 VALUE 'LIABLE PACKAGE '. DTSBD200 00317 10 FILLER PIC X(30) DTSBD200 00318 VALUE ' '. DTSBD200 00319 05 TRN-001-02-AREA. DTSBD200 00320 10 TRN-001-02-SUB PIC S9(04) COMP. DTSBD200 00321 10 FILLER PIC X(01). DTSBD200 00322 10 FILLER PIC S9(05) COMP-3. DTSBD200 00323 10 FILLER PIC X(07) VALUE '00102 '. DTSBD200 00324 10 FILLER PIC X(30) DTSBD200 00325 VALUE 'REGISTRATION '. DTSBD200 00326 10 FILLER PIC X(30) DTSBD200 00327 VALUE 'NOT LIABLE LETTER '. DTSBD200 00328 10 FILLER PIC X(30) DTSBD200 00329 VALUE ' '. DTSBD200 00330 05 TRN-001-03-AREA. DTSBD200 00331 10 TRN-001-03-SUB PIC S9(04) COMP. DTSBD200 00332 10 FILLER PIC X(01). DTSBD200 00333 10 FILLER PIC S9(05) COMP-3. DTSBD200 00334 10 FILLER PIC X(07) VALUE '00103 '. DTSBD200 00335 10 FILLER PIC X(30) DTSBD200 00336 VALUE 'REGISTRATION '. DTSBD200 00337 10 FILLER PIC X(30) DTSBD200 00338 VALUE 'INACTIVE LETTER '. DTSBD200 00339 10 FILLER PIC X(30) DTSBD200 00340 VALUE ' '. DTSBD200 00341 05 TRN-001-04-AREA. DTSBD200 00342 10 TRN-001-04-SUB PIC S9(04) COMP. DTSBD200 00343 10 FILLER PIC X(01). DTSBD200 00344 10 FILLER PIC S9(05) COMP-3. DTSBD200 00345 10 FILLER PIC X(07) VALUE '00104 '. DTSBD200 00346 10 FILLER PIC X(30) DTSBD200 00347 VALUE 'REGISTRATION '. DTSBD200 00348 10 FILLER PIC X(30) DTSBD200 00349 VALUE 'CYCLE A '. DTSBD200 00350 10 FILLER PIC X(30) DTSBD200 00351 VALUE ' '. DTSBD200 00352 05 TRN-001-05-AREA. DTSBD200 00353 10 TRN-001-05-SUB PIC S9(04) COMP. DTSBD200 00354 10 FILLER PIC X(01). DTSBD200 00355 10 FILLER PIC S9(05) COMP-3. DTSBD200 00356 10 FILLER PIC X(07) VALUE '00105 '. DTSBD200 00357 10 FILLER PIC X(30) DTSBD200 00358 VALUE 'REGISTRATION '. DTSBD200 00359 10 FILLER PIC X(30) DTSBD200 00360 VALUE 'INVALID '. DTSBD200 00361 10 FILLER PIC X(30) DTSBD200 00362 VALUE ' '. DTSBD200 00363 05 TRN-001-06-AREA. DTSBD200 00364 10 TRN-001-06-SUB PIC S9(04) COMP. DTSBD200 00365 10 FILLER PIC X(01). DTSBD200 00366 10 FILLER PIC S9(05) COMP-3. DTSBD200 00367 10 FILLER PIC X(07) VALUE '00106 '. DTSBD200 00368 10 FILLER PIC X(30) DTSBD200 00369 VALUE 'REGISTRATION '. DTSBD200 00370 10 FILLER PIC X(30) DTSBD200 00371 VALUE 'FILE CLERK LIST '. DTSBD200 00372 10 FILLER PIC X(30) DTSBD200 00373 VALUE ' '. DTSBD200 00374 05 TRN-001-07-AREA. DTSBD200 00375 10 TRN-001-07-SUB PIC S9(04) COMP. DTSBD200 00376 10 FILLER PIC X(01). DTSBD200 00377 10 FILLER PIC S9(05) COMP-3. DTSBD200 00378 10 FILLER PIC X(07) VALUE '00107 '. DTSBD200 00379 10 FILLER PIC X(30) DTSBD200 00380 VALUE 'REGISTRATION '. DTSBD200 00381 10 FILLER PIC X(30) DTSBD200 00382 VALUE 'INVALID '. DTSBD200 00383 10 FILLER PIC X(30) DTSBD200 00384 VALUE ' '. DTSBD200 00385 05 TRN-001-08-AREA. DTSBD200 00386 10 TRN-001-08-SUB PIC S9(04) COMP. DTSBD200 00387 10 FILLER PIC X(01). DTSBD200 00388 10 FILLER PIC S9(05) COMP-3. DTSBD200 00389 10 FILLER PIC X(07) VALUE '00108 '. DTSBD200 00390 10 FILLER PIC X(30) DTSBD200 00391 VALUE 'REGISTRATION '. DTSBD200 00392 10 FILLER PIC X(30) DTSBD200 00393 VALUE 'INVALID '. DTSBD200 00394 10 FILLER PIC X(30) DTSBD200 00395 VALUE ' '. DTSBD200 00396 05 TRN-001-09-AREA. DTSBD200 00397 10 TRN-001-09-SUB PIC S9(04) COMP. DTSBD200 00398 10 FILLER PIC X(01). DTSBD200 00399 10 FILLER PIC S9(05) COMP-3. DTSBD200 00400 10 FILLER PIC X(07) VALUE '00109 '. DTSBD200 00401 10 FILLER PIC X(30) DTSBD200 00402 VALUE 'REGISTRATION '. DTSBD200 00403 10 FILLER PIC X(30) DTSBD200 00404 VALUE 'INVALID '. DTSBD200 00405 10 FILLER PIC X(30) DTSBD200 00406 VALUE ' '. DTSBD200 00407 05 TRN-001-UNK-AREA. DTSBD200 00408 10 TRN-001-UNK-SUB PIC S9(04) COMP. DTSBD200 00409 10 FILLER PIC X(01). DTSBD200 00410 10 FILLER PIC S9(05) COMP-3. DTSBD200 00411 10 FILLER PIC X(07) VALUE '001 '. DTSBD200 00412 10 FILLER PIC X(30) DTSBD200 00413 VALUE 'REGISTRATION '. DTSBD200 00414 10 FILLER PIC X(30) DTSBD200 00415 VALUE 'UNKNOWN '. DTSBD200 00416 10 FILLER PIC X(30) DTSBD200 00417 VALUE ' '. DTSBD200 00418 05 TRN-002-01-AREA. DTSBD200 00419 10 TRN-002-01-SUB PIC S9(04) COMP. DTSBD200 00420 10 FILLER PIC X(01). DTSBD200 00421 10 FILLER PIC S9(05) COMP-3. DTSBD200 00422 10 FILLER PIC X(07) VALUE '00201 '. DTSBD200 00423 10 FILLER PIC X(30) DTSBD200 00424 VALUE 'AUTOMATED STATUS UPDATES '. DTSBD200 00425 10 FILLER PIC X(30) DTSBD200 00426 VALUE 'ADD EMPLOYER DETERMINATION '. DTSBD200 00427 10 FILLER PIC X(30) DTSBD200 00428 VALUE ' '. DTSBD200 00429 05 TRN-002-02-AREA. DTSBD200 00430 10 TRN-002-02-SUB PIC S9(04) COMP. DTSBD200 00431 10 FILLER PIC X(01). DTSBD200 00432 10 FILLER PIC S9(05) COMP-3. DTSBD200 00433 10 FILLER PIC X(07) VALUE '00202 '. DTSBD200 00434 10 FILLER PIC X(30) DTSBD200 00435 VALUE 'AUTOMATED STATUS UPDATES '. DTSBD200 00436 10 FILLER PIC X(30) DTSBD200 00437 VALUE 'ADD EMPLOYER ADDRESS '. DTSBD200 00438 10 FILLER PIC X(30) DTSBD200 00439 VALUE ' '. DTSBD200 00440 05 TRN-002-03-AREA. DTSBD200 00441 10 TRN-002-03-SUB PIC S9(04) COMP. DTSBD200 00442 10 FILLER PIC X(01). DTSBD200 00443 10 FILLER PIC S9(05) COMP-3. DTSBD200 00444 10 FILLER PIC X(07) VALUE '00203 '. DTSBD200 00445 10 FILLER PIC X(30) DTSBD200 00446 VALUE 'AUTOMATED STATUS UPDATES '. DTSBD200 00447 10 FILLER PIC X(30) DTSBD200 00448 VALUE 'ADD EMPLOYER CONTACT '. DTSBD200 00449 10 FILLER PIC X(30) DTSBD200 00450 VALUE ' '. DTSBD200 00451 05 TRN-002-04-AREA. DTSBD200 00452 10 TRN-002-04-SUB PIC S9(04) COMP. DTSBD200 00453 10 FILLER PIC X(01). DTSBD200 00454 10 FILLER PIC S9(05) COMP-3. DTSBD200 00455 10 FILLER PIC X(07) VALUE '00204 '. DTSBD200 00456 10 FILLER PIC X(30) DTSBD200 00457 VALUE 'AUTOMATED STATUS UPDATES '. DTSBD200 00458 10 FILLER PIC X(30) DTSBD200 00459 VALUE 'ADD EMPLOYER NAME '. DTSBD200 00460 10 FILLER PIC X(30) DTSBD200 00461 VALUE ' '. DTSBD200 00462 05 TRN-002-05-AREA. DTSBD200 00463 10 TRN-002-05-SUB PIC S9(04) COMP. DTSBD200 00464 10 FILLER PIC X(01). DTSBD200 00465 10 FILLER PIC S9(05) COMP-3. DTSBD200 00466 10 FILLER PIC X(07) VALUE '00205 '. DTSBD200 00467 10 FILLER PIC X(30) DTSBD200 00468 VALUE 'AUTOMATED STATUS UPDATES '. DTSBD200 00469 10 FILLER PIC X(30) DTSBD200 00470 VALUE 'ADD EMPLOYER RELATIONSHIPS '. DTSBD200 00471 10 FILLER PIC X(30) DTSBD200 00472 VALUE ' '. DTSBD200 00473 05 TRN-002-06-AREA. DTSBD200 00474 10 TRN-002-06-SUB PIC S9(04) COMP. DTSBD200 00475 10 FILLER PIC X(01). DTSBD200 00476 10 FILLER PIC S9(05) COMP-3. DTSBD200 00477 10 FILLER PIC X(07) VALUE '00206 '. DTSBD200 00478 10 FILLER PIC X(30) DTSBD200 00479 VALUE 'AUTOMATED STATUS UPDATES '. DTSBD200 00480 10 FILLER PIC X(30) DTSBD200 00481 VALUE 'ADD EMPLOYER RATES '. DTSBD200 00482 10 FILLER PIC X(30) DTSBD200 00483 VALUE ' '. DTSBD200 00484 05 TRN-002-UNK-AREA. DTSBD200 00485 10 TRN-002-UNK-SUB PIC S9(04) COMP. DTSBD200 00486 10 FILLER PIC X(01). DTSBD200 00487 10 FILLER PIC S9(05) COMP-3. DTSBD200 00488 10 FILLER PIC X(07) VALUE '002 '. DTSBD200 00489 10 FILLER PIC X(30) DTSBD200 00490 VALUE 'AUTOMATED STATUS UPDATES '. DTSBD200 00491 10 FILLER PIC X(30) DTSBD200 00492 VALUE 'UNKNOWN '. DTSBD200 00493 10 FILLER PIC X(30) DTSBD200 00494 VALUE ' '. DTSBD200 00495 05 TRN-003-001-AREA. DTSBD200 00496 10 TRN-003-01-SUB PIC S9(04) COMP. DTSBD200 00497 10 FILLER PIC X(01). DTSBD200 00498 10 FILLER PIC S9(05) COMP-3. DTSBD200 00499 10 FILLER PIC X(07) VALUE '00301 '. DTSBD200 00500 10 FILLER PIC X(30) DTSBD200 00501 VALUE 'NOTPAD '. DTSBD200 00502 10 FILLER PIC X(30) DTSBD200 00503 VALUE 'ADD NOTEPAD RECORD '. DTSBD200 00504 10 FILLER PIC X(30) DTSBD200 00505 VALUE ' '. DTSBD200 00506 05 TRN-003-002-AREA. DTSBD200 00507 10 TRN-003-02-SUB PIC S9(04) COMP. DTSBD200 00508 10 FILLER PIC X(01). DTSBD200 00509 10 FILLER PIC S9(05) COMP-3. DTSBD200 00510 10 FILLER PIC X(07) VALUE '00302 '. DTSBD200 00511 10 FILLER PIC X(30) DTSBD200 00512 VALUE 'EVENT LOG '. DTSBD200 00513 10 FILLER PIC X(30) DTSBD200 00514 VALUE 'ADD EVENT LOG RECORD '. DTSBD200 00515 10 FILLER PIC X(30) DTSBD200 00516 VALUE ' '. DTSBD200 00517 05 TRN-003-UNK-AREA. DTSBD200 00518 10 TRN-003-UNK-SUB PIC S9(04) COMP. DTSBD200 00519 10 FILLER PIC X(01). DTSBD200 00520 10 FILLER PIC S9(05) COMP-3. DTSBD200 00521 10 FILLER PIC X(07) VALUE '003 '. DTSBD200 00522 10 FILLER PIC X(30) DTSBD200 00523 VALUE 'NOTEPAD '. DTSBD200 00524 10 FILLER PIC X(30) DTSBD200 00525 VALUE 'UNKNOWN '. DTSBD200 00526 10 FILLER PIC X(30) DTSBD200 00527 VALUE ' '. DTSBD200 00528 05 TRN-006-01-AREA. DTSBD200 00529 10 TRN-006-01-SUB PIC S9(04) COMP. DTSBD200 00530 10 FILLER PIC X(01). DTSBD200 00531 10 FILLER PIC S9(05) COMP-3. DTSBD200 00532 10 FILLER PIC X(07) VALUE '00601 '. DTSBD200 00533 10 FILLER PIC X(30) DTSBD200 00534 VALUE 'RATING '. DTSBD200 00535 10 FILLER PIC X(30) DTSBD200 00536 VALUE 'RATE EXISTENCE CHECK '. DTSBD200 00537 10 FILLER PIC X(30) DTSBD200 00538 VALUE ' '. DTSBD200 00539 05 TRN-006-02-AREA. DTSBD200 00540 10 TRN-006-02-SUB PIC S9(04) COMP. DTSBD200 00541 10 FILLER PIC X(01). DTSBD200 00542 10 FILLER PIC S9(05) COMP-3. DTSBD200 00543 10 FILLER PIC X(07) VALUE '00602 '. DTSBD200 00544 10 FILLER PIC X(30) DTSBD200 00545 VALUE 'RATING '. DTSBD200 00546 10 FILLER PIC X(30) DTSBD200 00547 VALUE 'INVALID '. DTSBD200 00548 10 FILLER PIC X(30) DTSBD200 00549 VALUE ' '. DTSBD200 00550 05 TRN-006-03-AREA. DTSBD200 00551 10 TRN-006-03-SUB PIC S9(04) COMP. DTSBD200 00552 10 FILLER PIC X(01). DTSBD200 00553 10 FILLER PIC S9(05) COMP-3. DTSBD200 00554 10 FILLER PIC X(07) VALUE '00603 '. DTSBD200 00555 10 FILLER PIC X(30) DTSBD200 00556 VALUE 'RATING '. DTSBD200 00557 10 FILLER PIC X(30) DTSBD200 00558 VALUE 'RATE NOTICE '. DTSBD200 00559 10 FILLER PIC X(30) DTSBD200 00560 VALUE ' '. DTSBD200 00561 05 TRN-006-04-AREA. DTSBD200 00562 10 TRN-006-04-SUB PIC S9(04) COMP. DTSBD200 00563 10 FILLER PIC X(01). DTSBD200 00564 10 FILLER PIC S9(05) COMP-3. DTSBD200 00565 10 FILLER PIC X(07) VALUE '00604 '. DTSBD200 00566 10 FILLER PIC X(30) DTSBD200 00567 VALUE 'RATING '. DTSBD200 00568 10 FILLER PIC X(30) DTSBD200 00569 VALUE 'INVALID '. DTSBD200 00570 10 FILLER PIC X(30) DTSBD200 00571 VALUE ' '. DTSBD200 00572 05 TRN-006-05-AREA. DTSBD200 00573 10 TRN-006-05-SUB PIC S9(04) COMP. DTSBD200 00574 10 FILLER PIC X(01). DTSBD200 00575 10 FILLER PIC S9(05) COMP-3. DTSBD200 00576 10 FILLER PIC X(07) VALUE '00605 '. DTSBD200 00577 10 FILLER PIC X(30) DTSBD200 00578 VALUE 'RATING '. DTSBD200 00579 10 FILLER PIC X(30) DTSBD200 00580 VALUE 'INVALID '. DTSBD200 00581 10 FILLER PIC X(30) DTSBD200 00582 VALUE ' '. DTSBD200 00583 05 TRN-006-UNK-AREA. DTSBD200 00584 10 TRN-006-UNK-SUB PIC S9(04) COMP. DTSBD200 00585 10 FILLER PIC X(01). DTSBD200 00586 10 FILLER PIC S9(05) COMP-3. DTSBD200 00587 10 FILLER PIC X(07) VALUE '006 '. DTSBD200 00588 10 FILLER PIC X(30) DTSBD200 00589 VALUE 'RATING '. DTSBD200 00590 10 FILLER PIC X(30) DTSBD200 00591 VALUE 'UNKNOWN '. DTSBD200 00592 10 FILLER PIC X(30) DTSBD200 00593 VALUE ' '. DTSBD200 00594 05 TRN-011-01-AREA. DTSBD200 00595 10 TRN-011-01-SUB PIC S9(04) COMP. DTSBD200 00596 10 FILLER PIC X(01). DTSBD200 00597 10 FILLER PIC S9(05) COMP-3. DTSBD200 00598 10 FILLER PIC X(07) VALUE '01101 '. DTSBD200 00599 10 FILLER PIC X(30) DTSBD200 00600 VALUE 'COLLECTIONS '. DTSBD200 00601 10 FILLER PIC X(30) DTSBD200 00602 VALUE 'LIEN PACKAGE '. DTSBD200 00603 10 FILLER PIC X(30) DTSBD200 00604 VALUE ' '. DTSBD200 00605 05 TRN-011-02-AREA. DTSBD200 00606 10 TRN-011-02-SUB PIC S9(04) COMP. DTSBD200 00607 10 FILLER PIC X(01). DTSBD200 00608 10 FILLER PIC S9(05) COMP-3. DTSBD200 00609 10 FILLER PIC X(07) VALUE '01102 '. DTSBD200 00610 10 FILLER PIC X(30) DTSBD200 00611 VALUE 'COLLECTIONS '. DTSBD200 00612 10 FILLER PIC X(30) DTSBD200 00613 VALUE 'LIEN TICKLER '. DTSBD200 00614 10 FILLER PIC X(30) DTSBD200 00615 VALUE ' '. DTSBD200 00616 05 TRN-011-03-AREA. DTSBD200 00617 10 TRN-011-03-SUB PIC S9(04) COMP. DTSBD200 00618 10 FILLER PIC X(01). DTSBD200 00619 10 FILLER PIC S9(05) COMP-3. DTSBD200 00620 10 FILLER PIC X(07) VALUE '01103 '. DTSBD200 00621 10 FILLER PIC X(30) DTSBD200 00622 VALUE 'COLLECTIONS '. DTSBD200 00623 10 FILLER PIC X(30) DTSBD200 00624 VALUE 'DPC PACKAGE '. DTSBD200 00625 10 FILLER PIC X(30) DTSBD200 00626 VALUE ' '. DTSBD200 00627 05 TRN-011-04-AREA. DTSBD200 00628 10 TRN-011-04-SUB PIC S9(04) COMP. DTSBD200 00629 10 FILLER PIC X(01). DTSBD200 00630 10 FILLER PIC S9(05) COMP-3. DTSBD200 00631 10 FILLER PIC X(07) VALUE '01104 '. DTSBD200 00632 10 FILLER PIC X(30) DTSBD200 00633 VALUE 'COLLECTIONS '. DTSBD200 00634 10 FILLER PIC X(30) DTSBD200 00635 VALUE 'PENDING DPC TICKLER '. DTSBD200 00636 10 FILLER PIC X(30) DTSBD200 00637 VALUE ' '. DTSBD200 00638 05 TRN-011-05-AREA. DTSBD200 00639 10 TRN-011-05-SUB PIC S9(04) COMP. DTSBD200 00640 10 FILLER PIC X(01). DTSBD200 00641 10 FILLER PIC S9(05) COMP-3. DTSBD200 00642 10 FILLER PIC X(07) VALUE '01105 '. DTSBD200 00643 10 FILLER PIC X(30) DTSBD200 00644 VALUE 'COLLECTIONS '. DTSBD200 00645 10 FILLER PIC X(30) DTSBD200 00646 VALUE 'COMPROMISE '. DTSBD200 00647 10 FILLER PIC X(30) DTSBD200 00648 VALUE ' '. DTSBD200 00649 05 TRN-011-UNK-AREA. DTSBD200 00650 10 TRN-011-UNK-SUB PIC S9(04) COMP. DTSBD200 00651 10 FILLER PIC X(01). DTSBD200 00652 10 FILLER PIC S9(05) COMP-3. DTSBD200 00653 10 FILLER PIC X(07) VALUE '011 '. DTSBD200 00654 10 FILLER PIC X(30) DTSBD200 00655 VALUE 'COLLECTIONS '. DTSBD200 00656 10 FILLER PIC X(30) DTSBD200 00657 VALUE 'UNKNOWN '. DTSBD200 00658 10 FILLER PIC X(30) DTSBD200 00659 VALUE ' '. DTSBD200 00660 05 TRN-016-01-AREA. DTSBD200 00661 10 TRN-016-01-SUB PIC S9(04) COMP. DTSBD200 00662 10 FILLER PIC X(01). DTSBD200 00663 10 FILLER PIC S9(05) COMP-3. DTSBD200 00664 10 FILLER PIC X(07) VALUE '01601 '. DTSBD200 00665 10 FILLER PIC X(30) DTSBD200 00666 VALUE 'LMI EMPLOYER LEVEL '. DTSBD200 00667 10 FILLER PIC X(30) DTSBD200 00668 VALUE 'EMPLOYER LEVEL UPDATE '. DTSBD200 00669 10 FILLER PIC X(30) DTSBD200 00670 VALUE ' '. DTSBD200 00671 05 TRN-016-UNK-AREA. DTSBD200 00672 10 TRN-016-UNK-SUB PIC S9(04) COMP. DTSBD200 00673 10 FILLER PIC X(01). DTSBD200 00674 10 FILLER PIC S9(05) COMP-3. DTSBD200 00675 10 FILLER PIC X(07) VALUE '016 '. DTSBD200 00676 10 FILLER PIC X(30) DTSBD200 00677 VALUE 'LMI EMPLOYER LEVEL '. DTSBD200 00678 10 FILLER PIC X(30) DTSBD200 00679 VALUE 'UNKNOWN '. DTSBD200 00680 10 FILLER PIC X(30) DTSBD200 00681 VALUE ' '. DTSBD200 00682 05 TRN-021-01-AREA. DTSBD200 00683 10 TRN-021-01-SUB PIC S9(04) COMP. DTSBD200 00684 10 FILLER PIC X(01). DTSBD200 00685 10 FILLER PIC S9(05) COMP-3. DTSBD200 00686 10 FILLER PIC X(07) VALUE '02101 '. DTSBD200 00687 10 FILLER PIC X(30) DTSBD200 00688 VALUE 'FIELD SUPPORT DOWNLOAD '. DTSBD200 00689 10 FILLER PIC X(30) DTSBD200 00690 VALUE 'TAX '. DTSBD200 00691 10 FILLER PIC X(30) DTSBD200 00692 VALUE ' '. DTSBD200 00693 05 TRN-021-02-AREA. DTSBD200 00694 10 TRN-021-02-SUB PIC S9(04) COMP. DTSBD200 00695 10 FILLER PIC X(01). DTSBD200 00696 10 FILLER PIC S9(05) COMP-3. DTSBD200 00697 10 FILLER PIC X(07) VALUE '02102 '. DTSBD200 00698 10 FILLER PIC X(30) DTSBD200 00699 VALUE 'FIELD SUPPORT DOWNLOAD '. DTSBD200 00700 10 FILLER PIC X(30) DTSBD200 00701 VALUE 'WAGE '. DTSBD200 00702 10 FILLER PIC X(30) DTSBD200 00703 VALUE ' '. DTSBD200 00704 05 TRN-021-UNK-AREA. DTSBD200 00705 10 TRN-021-UNK-SUB PIC S9(04) COMP. DTSBD200 00706 10 FILLER PIC X(01). DTSBD200 00707 10 FILLER PIC S9(05) COMP-3. DTSBD200 00708 10 FILLER PIC X(07) VALUE '021 '. DTSBD200 00709 10 FILLER PIC X(30) DTSBD200 00710 VALUE 'FIELD SUPPORT DOWNLOAD '. DTSBD200 00711 10 FILLER PIC X(30) DTSBD200 00712 VALUE 'UNKNOWN '. DTSBD200 00713 10 FILLER PIC X(30) DTSBD200 00714 VALUE ' '. DTSBD200 00715 05 TRN-031-01-AREA. DTSBD200 00716 10 TRN-031-01-SUB PIC S9(04) COMP. DTSBD200 00717 10 FILLER PIC X(01). DTSBD200 00718 10 FILLER PIC S9(05) COMP-3. DTSBD200 00719 10 FILLER PIC X(07) VALUE '03101 '. DTSBD200 00720 10 FILLER PIC X(30) DTSBD200 00721 VALUE 'AUTOMATIC QUARTER PROCESSING '. DTSBD200 00722 10 FILLER PIC X(30) DTSBD200 00723 VALUE 'AUTO PROCESS '. DTSBD200 00724 10 FILLER PIC X(30) DTSBD200 00725 VALUE ' '. DTSBD200 00726 05 TRN-031-02-AREA. DTSBD200 00727 10 TRN-031-02-SUB PIC S9(04) COMP. DTSBD200 00728 10 FILLER PIC X(01). DTSBD200 00729 10 FILLER PIC S9(05) COMP-3. DTSBD200 00730 10 FILLER PIC X(07) VALUE '03102 '. DTSBD200 00731 10 FILLER PIC X(30) DTSBD200 00732 VALUE 'WAGE ONLY TRANSFER '. DTSBD200 00733 10 FILLER PIC X(30) DTSBD200 00734 VALUE 'WAGE TRANSFER '. DTSBD200 00735 10 FILLER PIC X(30) DTSBD200 00736 VALUE ' '. DTSBD200 00737 05 TRN-031-UNK-AREA. DTSBD200 00738 10 TRN-031-UNK-SUB PIC S9(04) COMP. DTSBD200 00739 10 FILLER PIC X(01). DTSBD200 00740 10 FILLER PIC S9(05) COMP-3. DTSBD200 00741 10 FILLER PIC X(07) VALUE '031 '. DTSBD200 00742 10 FILLER PIC X(30) DTSBD200 00743 VALUE 'AUTOMATIC QUARTER PROCESSING '. DTSBD200 00744 10 FILLER PIC X(30) DTSBD200 00745 VALUE 'UNKNOWN '. DTSBD200 00746 10 FILLER PIC X(30) DTSBD200 00747 VALUE ' '. DTSBD200 00748 05 TRN-036-01-AREA. DTSBD200 00749 10 TRN-036-01-SUB PIC S9(04) COMP. DTSBD200 00750 10 FILLER PIC X(01). DTSBD200 00751 10 FILLER PIC S9(05) COMP-3. DTSBD200 00752 10 FILLER PIC X(07) VALUE '03601 '. DTSBD200 00753 10 FILLER PIC X(30) DTSBD200 00754 VALUE 'PRINT UC 30 (AND R109) '. DTSBD200 00755 10 FILLER PIC X(30) DTSBD200 00756 VALUE 'FROM LIABILITY DETERMINATION '. DTSBD200 00757 10 FILLER PIC X(30) DTSBD200 00758 VALUE ' '. DTSBD200 00759 05 TRN-036-02-AREA. DTSBD200 00760 10 TRN-036-02-SUB PIC S9(04) COMP. DTSBD200 00761 10 FILLER PIC X(01). DTSBD200 00762 10 FILLER PIC S9(05) COMP-3. DTSBD200 00763 10 FILLER PIC X(07) VALUE '03602 '. DTSBD200 00764 10 FILLER PIC X(30) DTSBD200 00765 VALUE 'PRINT UC 30 (AND R109) '. DTSBD200 00766 10 FILLER PIC X(30) DTSBD200 00767 VALUE 'FROM ON-LINE REQUEST '. DTSBD200 00768 10 FILLER PIC X(30) DTSBD200 00769 VALUE ' '. DTSBD200 00770 05 TRN-036-03-AREA. DTSBD200 00771 10 TRN-036-03-SUB PIC S9(04) COMP. DTSBD200 00772 10 FILLER PIC X(01). DTSBD200 00773 10 FILLER PIC S9(05) COMP-3. DTSBD200 00774 10 FILLER PIC X(07) VALUE '03603 '. DTSBD200 00775 10 FILLER PIC X(30) DTSBD200 00776 VALUE 'PRINT UC 30 (AND R109) '. DTSBD200 00777 10 FILLER PIC X(30) DTSBD200 00778 VALUE 'FROM INACTIVATION '. DTSBD200 00779 10 FILLER PIC X(30) DTSBD200 00780 VALUE ' '. DTSBD200 00781 05 TRN-036-04-AREA. DTSBD200 00782 10 TRN-036-04-SUB PIC S9(04) COMP. DTSBD200 00783 10 FILLER PIC X(01). DTSBD200 00784 10 FILLER PIC S9(05) COMP-3. DTSBD200 00785 10 FILLER PIC X(07) VALUE '03604 '. DTSBD200 00786 10 FILLER PIC X(30) DTSBD200 00787 VALUE 'PRINT UC 30 (AND R109) '. DTSBD200 00788 10 FILLER PIC X(30) DTSBD200 00789 VALUE 'INVALID '. DTSBD200 00790 10 FILLER PIC X(30) DTSBD200 00791 VALUE ' '. DTSBD200 00792 05 TRN-036-05-AREA. DTSBD200 00793 10 TRN-036-05-SUB PIC S9(04) COMP. DTSBD200 00794 10 FILLER PIC X(01). DTSBD200 00795 10 FILLER PIC S9(05) COMP-3. DTSBD200 00796 10 FILLER PIC X(07) VALUE '03605 '. DTSBD200 00797 10 FILLER PIC X(30) DTSBD200 00798 VALUE 'PRINT UC 30 (AND R109) '. DTSBD200 00799 10 FILLER PIC X(30) DTSBD200 00800 VALUE 'INVALID '. DTSBD200 00801 10 FILLER PIC X(30) DTSBD200 00802 VALUE ' '. DTSBD200 00803 05 TRN-036-06-AREA. DTSBD200 00804 10 TRN-036-06-SUB PIC S9(04) COMP. DTSBD200 00805 10 FILLER PIC X(01). DTSBD200 00806 10 FILLER PIC S9(05) COMP-3. DTSBD200 00807 10 FILLER PIC X(07) VALUE '03606 '. DTSBD200 00808 10 FILLER PIC X(30) DTSBD200 00809 VALUE 'PRINT UC 30 (AND R109) '. DTSBD200 00810 10 FILLER PIC X(30) DTSBD200 00811 VALUE 'INVALID '. DTSBD200 00812 10 FILLER PIC X(30) DTSBD200 00813 VALUE ' '. DTSBD200 00814 05 TRN-036-UNK-AREA. DTSBD200 00815 10 TRN-036-UNK-SUB PIC S9(04) COMP. DTSBD200 00816 10 FILLER PIC X(01). DTSBD200 00817 10 FILLER PIC S9(05) COMP-3. DTSBD200 00818 10 FILLER PIC X(07) VALUE '036 '. DTSBD200 00819 10 FILLER PIC X(30) DTSBD200 00820 VALUE 'PRINT UC 30 (AND R109) '. DTSBD200 00821 10 FILLER PIC X(30) DTSBD200 00822 VALUE 'UNKNOWN '. DTSBD200 00823 10 FILLER PIC X(30) DTSBD200 00824 VALUE ' '. DTSBD200 00825 05 TRN-040-01-AREA. DTSBD200 00826 10 TRN-040-01-SUB PIC S9(04) COMP. DTSBD200 00827 10 FILLER PIC X(01). DTSBD200 00828 10 FILLER PIC S9(05) COMP-3. DTSBD200 00829 10 FILLER PIC X(07) VALUE '04001 '. DTSBD200 00830 10 FILLER PIC X(30) DTSBD200 00831 VALUE 'AUDIT EMPLOYER WEB '. DTSBD200 00832 10 FILLER PIC X(30) DTSBD200 00833 VALUE 'EMPLOYER MFAS UPDATE '. DTSBD200 00834 10 FILLER PIC X(30) DTSBD200 00835 VALUE ' '. DTSBD200 00836 05 TRN-040-02-AREA. DTSBD200 00837 10 TRN-040-02-SUB PIC S9(04) COMP. DTSBD200 00838 10 FILLER PIC X(01). DTSBD200 00839 10 FILLER PIC S9(05) COMP-3. DTSBD200 00840 10 FILLER PIC X(07) VALUE '04002 '. DTSBD200 00841 10 FILLER PIC X(30) DTSBD200 00842 VALUE 'AUDIT EMPLOYER WEB '. DTSBD200 00843 10 FILLER PIC X(30) DTSBD200 00844 VALUE 'EMPLOYER MAUR UPDATE '. DTSBD200 00845 10 FILLER PIC X(30) DTSBD200 00846 VALUE ' '. DTSBD200 00847 05 TRN-040-03-AREA. DTSBD200 00848 10 TRN-040-03-SUB PIC S9(04) COMP. DTSBD200 00849 10 FILLER PIC X(01). DTSBD200 00850 10 FILLER PIC S9(05) COMP-3. DTSBD200 00851 10 FILLER PIC X(07) VALUE '04003 '. DTSBD200 00852 10 FILLER PIC X(30) DTSBD200 00853 VALUE 'AUDIT EMPLOYER WEB '. DTSBD200 00854 10 FILLER PIC X(30) DTSBD200 00855 VALUE 'EMPLOYER MAUY UPDATE '. DTSBD200 00856 10 FILLER PIC X(30) DTSBD200 00857 VALUE ' '. DTSBD200 00858 05 TRN-040-UNK-AREA. DTSBD200 00859 10 TRN-040-UNK-SUB PIC S9(04) COMP. DTSBD200 00860 10 FILLER PIC X(01). DTSBD200 00861 10 FILLER PIC S9(05) COMP-3. DTSBD200 00862 10 FILLER PIC X(07) VALUE '040 '. DTSBD200 00863 10 FILLER PIC X(30) DTSBD200 00864 VALUE 'AUDIT EMPLOYER WEB DATA '. DTSBD200 00865 10 FILLER PIC X(30) DTSBD200 00866 VALUE 'UNKNOWN '. DTSBD200 00867 10 FILLER PIC X(30) DTSBD200 00868 VALUE ' '. DTSBD200 00869 05 TRN-051-R-OR-AREA. DTSBD200 00870 10 TRN-051-R-OR-SUB PIC S9(04) COMP. DTSBD200 00871 10 FILLER PIC X(01). DTSBD200 00872 10 FILLER PIC S9(05) COMP-3. DTSBD200 00873 10 FILLER PIC X(07) VALUE '051R OR'. DTSBD200 00874 10 FILLER PIC X(30) DTSBD200 00875 VALUE 'ACCOUNTING '. DTSBD200 00876 10 FILLER PIC X(30) DTSBD200 00877 VALUE 'QUARTERLY REPORT '. DTSBD200 00878 10 FILLER PIC X(30) DTSBD200 00879 VALUE 'ORIGINAL '. DTSBD200 00880 05 TRN-051-R-EA-AREA. DTSBD200 00881 10 TRN-051-R-EA-SUB PIC S9(04) COMP. DTSBD200 00882 10 FILLER PIC X(01). DTSBD200 00883 10 FILLER PIC S9(05) COMP-3. DTSBD200 00884 10 FILLER PIC X(07) VALUE '051R EA'. DTSBD200 00885 10 FILLER PIC X(30) DTSBD200 00886 VALUE 'ACCOUNTING '. DTSBD200 00887 10 FILLER PIC X(30) DTSBD200 00888 VALUE 'QUARTERLY REPORT '. DTSBD200 00889 10 FILLER PIC X(30) DTSBD200 00890 VALUE 'EMPLOYER AMENDMENT '. DTSBD200 00891 05 TRN-051-R-AU-AREA. DTSBD200 00892 10 TRN-051-R-AU-SUB PIC S9(04) COMP. DTSBD200 00893 10 FILLER PIC X(01). DTSBD200 00894 10 FILLER PIC S9(05) COMP-3. DTSBD200 00895 10 FILLER PIC X(07) VALUE '051R AU'. DTSBD200 00896 10 FILLER PIC X(30) DTSBD200 00897 VALUE 'ACCOUNTING '. DTSBD200 00898 10 FILLER PIC X(30) DTSBD200 00899 VALUE 'QUARTERLY REPORT '. DTSBD200 00900 10 FILLER PIC X(30) DTSBD200 00901 VALUE 'AUDIT '. DTSBD200 00902 05 TRN-051-R-FS-AREA. DTSBD200 00903 10 TRN-051-R-FS-SUB PIC S9(04) COMP. DTSBD200 00904 10 FILLER PIC X(01). DTSBD200 00905 10 FILLER PIC S9(05) COMP-3. DTSBD200 00906 10 FILLER PIC X(07) VALUE '051R FS'. DTSBD200 00907 10 FILLER PIC X(30) DTSBD200 00908 VALUE 'ACCOUNTING '. DTSBD200 00909 10 FILLER PIC X(30) DTSBD200 00910 VALUE 'QUARTERLY REPORT '. DTSBD200 00911 10 FILLER PIC X(30) DTSBD200 00912 VALUE 'FIELD SUPPORT '. DTSBD200 00913 05 TRN-051-R-AC-AREA. DTSBD200 00914 10 TRN-051-R-AC-SUB PIC S9(04) COMP. DTSBD200 00915 10 FILLER PIC X(01). DTSBD200 00916 10 FILLER PIC S9(05) COMP-3. DTSBD200 00917 10 FILLER PIC X(07) VALUE '051R AC'. DTSBD200 00918 10 FILLER PIC X(30) DTSBD200 00919 VALUE 'ACCOUNTING '. DTSBD200 00920 10 FILLER PIC X(30) DTSBD200 00921 VALUE 'QUARTERLY REPORT '. DTSBD200 00922 10 FILLER PIC X(30) DTSBD200 00923 VALUE 'ADMINISTRATIVE CORRECTION '. DTSBD200 00924 05 TRN-051-R-ES-AREA. DTSBD200 00925 10 TRN-051-R-ES-SUB PIC S9(04) COMP. DTSBD200 00926 10 FILLER PIC X(01). DTSBD200 00927 10 FILLER PIC S9(05) COMP-3. DTSBD200 00928 10 FILLER PIC X(07) VALUE '051R ES'. DTSBD200 00929 10 FILLER PIC X(30) DTSBD200 00930 VALUE 'ACCOUNTING '. DTSBD200 00931 10 FILLER PIC X(30) DTSBD200 00932 VALUE 'QUARTERLY REPORT '. DTSBD200 00933 10 FILLER PIC X(30) DTSBD200 00934 VALUE 'ESTIMATED '. DTSBD200 00935 05 TRN-051-R-WD-AREA. DTSBD200 00936 10 TRN-051-R-WD-SUB PIC S9(04) COMP. DTSBD200 00937 10 FILLER PIC X(01). DTSBD200 00938 10 FILLER PIC S9(05) COMP-3. DTSBD200 00939 10 FILLER PIC X(07) VALUE '051R WD'. DTSBD200 00940 10 FILLER PIC X(30) DTSBD200 00941 VALUE 'ACCOUNTING '. DTSBD200 00942 10 FILLER PIC X(30) DTSBD200 00943 VALUE 'QUARTERLY REPORT '. DTSBD200 00944 10 FILLER PIC X(30) DTSBD200 00945 VALUE 'WITHDRAWAL '. DTSBD200 00946 05 TRN-051-R-INVALID-1-AREA. DTSBD200 00947 10 TRN-051-R-INVALID-1-SUB PIC S9(04) COMP. DTSBD200 00948 10 FILLER PIC X(01). DTSBD200 00949 10 FILLER PIC S9(05) COMP-3. DTSBD200 00950 10 FILLER PIC X(07) VALUE '051R '. DTSBD200 00951 10 FILLER PIC X(30) DTSBD200 00952 VALUE 'ACCOUNTING '. DTSBD200 00953 10 FILLER PIC X(30) DTSBD200 00954 VALUE 'QUARTERLY REPORT '. DTSBD200 00955 10 FILLER PIC X(30) DTSBD200 00956 VALUE 'INVALID '. DTSBD200 00957 05 TRN-051-R-INVALID-2-AREA. DTSBD200 00958 10 TRN-051-R-INVALID-2-SUB PIC S9(04) COMP. DTSBD200 00959 10 FILLER PIC X(01). DTSBD200 00960 10 FILLER PIC S9(05) COMP-3. DTSBD200 00961 10 FILLER PIC X(07) VALUE '051R '. DTSBD200 00962 10 FILLER PIC X(30) DTSBD200 00963 VALUE 'ACCOUNTING '. DTSBD200 00964 10 FILLER PIC X(30) DTSBD200 00965 VALUE 'QUARTERLY REPORT '. DTSBD200 00966 10 FILLER PIC X(30) DTSBD200 00967 VALUE 'INVALID '. DTSBD200 00968 05 TRN-051-R-UNK-AREA. DTSBD200 00969 10 TRN-051-R-UNK-SUB PIC S9(04) COMP. DTSBD200 00970 10 FILLER PIC X(01). DTSBD200 00971 10 FILLER PIC S9(05) COMP-3. DTSBD200 00972 10 FILLER PIC X(07) VALUE '051R '. DTSBD200 00973 10 FILLER PIC X(30) DTSBD200 00974 VALUE 'ACCOUNTING '. DTSBD200 00975 10 FILLER PIC X(30) DTSBD200 00976 VALUE 'QUARTERLY REPORT '. DTSBD200 00977 10 FILLER PIC X(30) DTSBD200 00978 VALUE 'UNKNOWN '. DTSBD200 00979 05 TRN-051-P-PA-AREA. DTSBD200 00980 10 TRN-051-P-PA-SUB PIC S9(04) COMP. DTSBD200 00981 10 FILLER PIC X(01). DTSBD200 00982 10 FILLER PIC S9(05) COMP-3. DTSBD200 00983 10 FILLER PIC X(07) VALUE '051P PA'. DTSBD200 00984 10 FILLER PIC X(30) DTSBD200 00985 VALUE 'ACCOUNTING '. DTSBD200 00986 10 FILLER PIC X(30) DTSBD200 00987 VALUE 'PAYMENT '. DTSBD200 00988 10 FILLER PIC X(30) DTSBD200 00989 VALUE 'PAYMENT '. DTSBD200 00990 05 TRN-051-P-PR-AREA. DTSBD200 00991 10 TRN-051-P-PR-SUB PIC S9(04) COMP. DTSBD200 00992 10 FILLER PIC X(01). DTSBD200 00993 10 FILLER PIC S9(05) COMP-3. DTSBD200 00994 10 FILLER PIC X(07) VALUE '051P PR'. DTSBD200 00995 10 FILLER PIC X(30) DTSBD200 00996 VALUE 'ACCOUNTING '. DTSBD200 00997 10 FILLER PIC X(30) DTSBD200 00998 VALUE 'PAYMENT '. DTSBD200 00999 10 FILLER PIC X(30) DTSBD200 01000 VALUE 'PAYMENT REVERSAL '. DTSBD200 01001 05 TRN-051-P-RF-AREA. DTSBD200 01002 10 TRN-051-P-RF-SUB PIC S9(04) COMP. DTSBD200 01003 10 FILLER PIC X(01). DTSBD200 01004 10 FILLER PIC S9(05) COMP-3. DTSBD200 01005 10 FILLER PIC X(07) VALUE '051P RF'. DTSBD200 01006 10 FILLER PIC X(30) DTSBD200 01007 VALUE 'ACCOUNTING '. DTSBD200 01008 10 FILLER PIC X(30) DTSBD200 01009 VALUE 'PAYMENT '. DTSBD200 01010 10 FILLER PIC X(30) DTSBD200 01011 VALUE 'REFUND '. DTSBD200 01012 05 TRN-051-P-RR-AREA. DTSBD200 01013 10 TRN-051-P-RR-SUB PIC S9(04) COMP. DTSBD200 01014 10 FILLER PIC X(01). DTSBD200 01015 10 FILLER PIC S9(05) COMP-3. DTSBD200 01016 10 FILLER PIC X(07) VALUE '051P RR'. DTSBD200 01017 10 FILLER PIC X(30) DTSBD200 01018 VALUE 'ACCOUNTING '. DTSBD200 01019 10 FILLER PIC X(30) DTSBD200 01020 VALUE 'PAYMENT '. DTSBD200 01021 10 FILLER PIC X(30) DTSBD200 01022 VALUE 'REFUND REVERSAL '. DTSBD200 01023 05 TRN-051-P-NG-AREA. DTSBD200 01024 10 TRN-051-P-NG-SUB PIC S9(04) COMP. DTSBD200 01025 10 FILLER PIC X(01). DTSBD200 01026 10 FILLER PIC S9(05) COMP-3. DTSBD200 01027 10 FILLER PIC X(07) VALUE '051P NG'. DTSBD200 01028 10 FILLER PIC X(30) DTSBD200 01029 VALUE 'ACCOUNTING '. DTSBD200 01030 10 FILLER PIC X(30) DTSBD200 01031 VALUE 'PAYMENT '. DTSBD200 01032 10 FILLER PIC X(30) DTSBD200 01033 VALUE 'NO GOOD CHECK '. DTSBD200 01034 05 TRN-051-P-INVALID-1-AREA. DTSBD200 01035 10 TRN-051-P-INVALID-1-SUB PIC S9(04) COMP. DTSBD200 01036 10 FILLER PIC X(01). DTSBD200 01037 10 FILLER PIC S9(05) COMP-3. DTSBD200 01038 10 FILLER PIC X(07) VALUE '051P '. DTSBD200 01039 10 FILLER PIC X(30) DTSBD200 01040 VALUE 'ACCOUNTING '. DTSBD200 01041 10 FILLER PIC X(30) DTSBD200 01042 VALUE 'PAYMENT '. DTSBD200 01043 10 FILLER PIC X(30) DTSBD200 01044 VALUE 'INVALID '. DTSBD200 01045 05 TRN-051-P-INVALID-2-AREA. DTSBD200 01046 10 TRN-051-P-INVALID-2-SUB PIC S9(04) COMP. DTSBD200 01047 10 FILLER PIC X(01). DTSBD200 01048 10 FILLER PIC S9(05) COMP-3. DTSBD200 01049 10 FILLER PIC X(07) VALUE '051P '. DTSBD200 01050 10 FILLER PIC X(30) DTSBD200 01051 VALUE 'ACCOUNTING '. DTSBD200 01052 10 FILLER PIC X(30) DTSBD200 01053 VALUE 'PAYMENT '. DTSBD200 01054 10 FILLER PIC X(30) DTSBD200 01055 VALUE 'INVALID '. DTSBD200 01056 05 TRN-051-P-UNK-AREA. DTSBD200 01057 10 TRN-051-P-UNK-SUB PIC S9(04) COMP. DTSBD200 01058 10 FILLER PIC X(01). DTSBD200 01059 10 FILLER PIC S9(05) COMP-3. DTSBD200 01060 10 FILLER PIC X(07) VALUE '051P '. DTSBD200 01061 10 FILLER PIC X(30) DTSBD200 01062 VALUE 'ACCOUNTING '. DTSBD200 01063 10 FILLER PIC X(30) DTSBD200 01064 VALUE 'PAYMENT '. DTSBD200 01065 10 FILLER PIC X(30) DTSBD200 01066 VALUE 'UNKNOWN '. DTSBD200 01067 05 TRN-051-A-CH-AREA. DTSBD200 01068 10 TRN-051-A-CH-SUB PIC S9(04) COMP. DTSBD200 01069 10 FILLER PIC X(01). DTSBD200 01070 10 FILLER PIC S9(05) COMP-3. DTSBD200 01071 10 FILLER PIC X(07) VALUE '051A CH'. DTSBD200 01072 10 FILLER PIC X(30) DTSBD200 01073 VALUE 'ACCOUNTING '. DTSBD200 01074 10 FILLER PIC X(30) DTSBD200 01075 VALUE 'ADJUSTMENT '. DTSBD200 01076 10 FILLER PIC X(30) DTSBD200 01077 VALUE 'CHARGE '. DTSBD200 01078 05 TRN-051-A-WV-AREA. DTSBD200 01079 10 TRN-051-A-WV-SUB PIC S9(04) COMP. DTSBD200 01080 10 FILLER PIC X(01). DTSBD200 01081 10 FILLER PIC S9(05) COMP-3. DTSBD200 01082 10 FILLER PIC X(07) VALUE '051A WV'. DTSBD200 01083 10 FILLER PIC X(30) DTSBD200 01084 VALUE 'ACCOUNTING '. DTSBD200 01085 10 FILLER PIC X(30) DTSBD200 01086 VALUE 'ADJUSTMENT '. DTSBD200 01087 10 FILLER PIC X(30) DTSBD200 01088 VALUE 'WAIVER '. DTSBD200 01089 05 TRN-051-A-TL-AREA. DTSBD200 01090 10 TRN-051-A-TL-SUB PIC S9(04) COMP. DTSBD200 01091 10 FILLER PIC X(01). DTSBD200 01092 10 FILLER PIC S9(05) COMP-3. DTSBD200 01093 10 FILLER PIC X(07) VALUE '051A TL'. DTSBD200 01094 10 FILLER PIC X(30) DTSBD200 01095 VALUE 'ACCOUNTING '. DTSBD200 01096 10 FILLER PIC X(30) DTSBD200 01097 VALUE 'ADJUSTMENT '. DTSBD200 01098 10 FILLER PIC X(30) DTSBD200 01099 VALUE 'TOLERANCE '. DTSBD200 01100 05 TRN-051-A-CA-AREA. DTSBD200 01101 10 TRN-051-A-CA-SUB PIC S9(04) COMP. DTSBD200 01102 10 FILLER PIC X(01). DTSBD200 01103 10 FILLER PIC S9(05) COMP-3. DTSBD200 01104 10 FILLER PIC X(07) VALUE '051A CA'. DTSBD200 01105 10 FILLER PIC X(30) DTSBD200 01106 VALUE 'ACCOUNTING '. DTSBD200 01107 10 FILLER PIC X(30) DTSBD200 01108 VALUE 'ADJUSTMENT '. DTSBD200 01109 10 FILLER PIC X(30) DTSBD200 01110 VALUE 'AUTOMATIC INT AND PEN CHARGING'. DTSBD200 01111 05 TRN-051-A-CM-AREA. DTSBD200 01112 10 TRN-051-A-CM-SUB PIC S9(04) COMP. DTSBD200 01113 10 FILLER PIC X(01). DTSBD200 01114 10 FILLER PIC S9(05) COMP-3. DTSBD200 01115 10 FILLER PIC X(07) VALUE '051A CM'. DTSBD200 01116 10 FILLER PIC X(30) DTSBD200 01117 VALUE 'ACCOUNTING '. DTSBD200 01118 10 FILLER PIC X(30) DTSBD200 01119 VALUE 'ADJUSTMENT '. DTSBD200 01120 10 FILLER PIC X(30) DTSBD200 01121 VALUE 'MANUAL INT AND PEN CHARGING '. DTSBD200 01122 05 TRN-051-A-WG-AREA. DTSBD200 01123 10 TRN-051-A-WG-SUB PIC S9(04) COMP. DTSBD200 01124 10 FILLER PIC X(01). DTSBD200 01125 10 FILLER PIC S9(05) COMP-3. DTSBD200 01126 10 FILLER PIC X(07) VALUE '051A WG'. DTSBD200 01127 10 FILLER PIC X(30) DTSBD200 01128 VALUE 'ACCOUNTING '. DTSBD200 01129 10 FILLER PIC X(30) DTSBD200 01130 VALUE 'ADJUSTMENT '. DTSBD200 01131 10 FILLER PIC X(30) DTSBD200 01132 VALUE 'WAGE REPORT INDICATOR '. DTSBD200 01133 05 TRN-051-A-QD-AREA. DTSBD200 01134 10 TRN-051-A-QD-SUB PIC S9(04) COMP. DTSBD200 01135 10 FILLER PIC X(01). DTSBD200 01136 10 FILLER PIC S9(05) COMP-3. DTSBD200 01137 10 FILLER PIC X(07) VALUE '051A QD'. DTSBD200 01138 10 FILLER PIC X(30) DTSBD200 01139 VALUE 'ACCOUNTING '. DTSBD200 01140 10 FILLER PIC X(30) DTSBD200 01141 VALUE 'ADJUSTMENT '. DTSBD200 01142 10 FILLER PIC X(30) DTSBD200 01143 VALUE 'DUE DATES '. DTSBD200 01144 05 TRN-051-A-WD-AREA. DTSBD200 01145 10 TRN-051-A-WD-SUB PIC S9(04) COMP. DTSBD200 01146 10 FILLER PIC X(01). DTSBD200 01147 10 FILLER PIC S9(05) COMP-3. DTSBD200 01148 10 FILLER PIC X(07) VALUE '051A WD'. DTSBD200 01149 10 FILLER PIC X(30) DTSBD200 01150 VALUE 'ACCOUNTING '. DTSBD200 01151 10 FILLER PIC X(30) DTSBD200 01152 VALUE 'ADJUSTMENT '. DTSBD200 01153 10 FILLER PIC X(30) DTSBD200 01154 VALUE 'WAIVER DATES '. DTSBD200 01155 05 TRN-051-A-ID-AREA. DTSBD200 01156 10 TRN-051-A-ID-SUB PIC S9(04) COMP. DTSBD200 01157 10 FILLER PIC X(01). DTSBD200 01158 10 FILLER PIC S9(05) COMP-3. DTSBD200 01159 10 FILLER PIC X(07) VALUE '051A ID'. DTSBD200 01160 10 FILLER PIC X(30) DTSBD200 01161 VALUE 'ACCOUNTING '. DTSBD200 01162 10 FILLER PIC X(30) DTSBD200 01163 VALUE 'ADJUSTMENT '. DTSBD200 01164 10 FILLER PIC X(30) DTSBD200 01165 VALUE 'INTEREST CHARGE DATES '. DTSBD200 01166 05 TRN-051-A-WO-AREA. DTSBD200 01167 10 TRN-051-A-WO-SUB PIC S9(04) COMP. DTSBD200 01168 10 FILLER PIC X(01). DTSBD200 01169 10 FILLER PIC S9(05) COMP-3. DTSBD200 01170 10 FILLER PIC X(07) VALUE '051A WO'. DTSBD200 01171 10 FILLER PIC X(30) DTSBD200 01172 VALUE 'ACCOUNTING '. DTSBD200 01173 10 FILLER PIC X(30) DTSBD200 01174 VALUE 'ADJUSTMENT '. DTSBD200 01175 10 FILLER PIC X(30) DTSBD200 01176 VALUE 'WRITE OFF '. DTSBD200 01177 05 TRN-051-A-WR-AREA. DTSBD200 01178 10 TRN-051-A-WR-SUB PIC S9(04) COMP. DTSBD200 01179 10 FILLER PIC X(01). DTSBD200 01180 10 FILLER PIC S9(05) COMP-3. DTSBD200 01181 10 FILLER PIC X(07) VALUE '051A WR'. DTSBD200 01182 10 FILLER PIC X(30) DTSBD200 01183 VALUE 'ACCOUNTING '. DTSBD200 01184 10 FILLER PIC X(30) DTSBD200 01185 VALUE 'ADJUSTMENT '. DTSBD200 01186 10 FILLER PIC X(30) DTSBD200 01187 VALUE 'WRITE OFF REVERSAL '. DTSBD200 01188 05 TRN-051-A-INVALID-1-AREA. DTSBD200 01189 10 TRN-051-A-INVALID-1-SUB PIC S9(04) COMP. DTSBD200 01190 10 FILLER PIC X(01). DTSBD200 01191 10 FILLER PIC S9(05) COMP-3. DTSBD200 01192 10 FILLER PIC X(07) VALUE '051A '. DTSBD200 01193 10 FILLER PIC X(30) DTSBD200 01194 VALUE 'ACCOUNTING '. DTSBD200 01195 10 FILLER PIC X(30) DTSBD200 01196 VALUE 'ADJUSTMENT '. DTSBD200 01197 10 FILLER PIC X(30) DTSBD200 01198 VALUE 'INVALID '. DTSBD200 01199 05 TRN-051-A-INVALID-2-AREA. DTSBD200 01200 10 TRN-051-A-INVALID-2-SUB PIC S9(04) COMP. DTSBD200 01201 10 FILLER PIC X(01). DTSBD200 01202 10 FILLER PIC S9(05) COMP-3. DTSBD200 01203 10 FILLER PIC X(07) VALUE '051A '. DTSBD200 01204 10 FILLER PIC X(30) DTSBD200 01205 VALUE 'ACCOUNTING '. DTSBD200 01206 10 FILLER PIC X(30) DTSBD200 01207 VALUE 'ADJUSTMENT '. DTSBD200 01208 10 FILLER PIC X(30) DTSBD200 01209 VALUE 'INVALID '. DTSBD200 01210 05 TRN-051-A-UNK-AREA. DTSBD200 01211 10 TRN-051-A-UNK-SUB PIC S9(04) COMP. DTSBD200 01212 10 FILLER PIC X(01). DTSBD200 01213 10 FILLER PIC S9(05) COMP-3. DTSBD200 01214 10 FILLER PIC X(07) VALUE '051A '. DTSBD200 01215 10 FILLER PIC X(30) DTSBD200 01216 VALUE 'ACCOUNTING '. DTSBD200 01217 10 FILLER PIC X(30) DTSBD200 01218 VALUE 'ADJUSTMENT '. DTSBD200 01219 10 FILLER PIC X(30) DTSBD200 01220 VALUE 'UNKNOWN '. DTSBD200 01221 05 TRN-051-T-OR-AREA. DTSBD200 01222 10 TRN-051-T-OR-SUB PIC S9(04) COMP. DTSBD200 01223 10 FILLER PIC X(01). DTSBD200 01224 10 FILLER PIC S9(05) COMP-3. DTSBD200 01225 10 FILLER PIC X(07) VALUE '051T OR'. DTSBD200 01226 10 FILLER PIC X(30) DTSBD200 01227 VALUE 'ACCOUNTING '. DTSBD200 01228 10 FILLER PIC X(30) DTSBD200 01229 VALUE 'ANNUAL REPORT '. DTSBD200 01230 10 FILLER PIC X(30) DTSBD200 01231 VALUE 'ORIGINAL '. DTSBD200 01232 05 TRN-051-T-EA-AREA. DTSBD200 01233 10 TRN-051-T-EA-SUB PIC S9(04) COMP. DTSBD200 01234 10 FILLER PIC X(01). DTSBD200 01235 10 FILLER PIC S9(05) COMP-3. DTSBD200 01236 10 FILLER PIC X(07) VALUE '051T EA'. DTSBD200 01237 10 FILLER PIC X(30) DTSBD200 01238 VALUE 'ACCOUNTING '. DTSBD200 01239 10 FILLER PIC X(30) DTSBD200 01240 VALUE 'ANNUAL REPORT '. DTSBD200 01241 10 FILLER PIC X(30) DTSBD200 01242 VALUE 'EMPLOYER AMENDMENT '. DTSBD200 01243 05 TRN-051-T-AU-AREA. DTSBD200 01244 10 TRN-051-T-AU-SUB PIC S9(04) COMP. DTSBD200 01245 10 FILLER PIC X(01). DTSBD200 01246 10 FILLER PIC S9(05) COMP-3. DTSBD200 01247 10 FILLER PIC X(07) VALUE '051T AU'. DTSBD200 01248 10 FILLER PIC X(30) DTSBD200 01249 VALUE 'ACCOUNTING '. DTSBD200 01250 10 FILLER PIC X(30) DTSBD200 01251 VALUE 'ANNUAL REPORT '. DTSBD200 01252 10 FILLER PIC X(30) DTSBD200 01253 VALUE 'AUDIT '. DTSBD200 01254 05 TRN-051-T-FS-AREA. DTSBD200 01255 10 TRN-051-T-FS-SUB PIC S9(04) COMP. DTSBD200 01256 10 FILLER PIC X(01). DTSBD200 01257 10 FILLER PIC S9(05) COMP-3. DTSBD200 01258 10 FILLER PIC X(07) VALUE '051T FS'. DTSBD200 01259 10 FILLER PIC X(30) DTSBD200 01260 VALUE 'ACCOUNTING '. DTSBD200 01261 10 FILLER PIC X(30) DTSBD200 01262 VALUE 'ANNUAL REPORT '. DTSBD200 01263 10 FILLER PIC X(30) DTSBD200 01264 VALUE 'FIELD SUPPORT '. DTSBD200 01265 05 TRN-051-T-AC-AREA. DTSBD200 01266 10 TRN-051-T-AC-SUB PIC S9(04) COMP. DTSBD200 01267 10 FILLER PIC X(01). DTSBD200 01268 10 FILLER PIC S9(05) COMP-3. DTSBD200 01269 10 FILLER PIC X(07) VALUE '051T AC'. DTSBD200 01270 10 FILLER PIC X(30) DTSBD200 01271 VALUE 'ACCOUNTING '. DTSBD200 01272 10 FILLER PIC X(30) DTSBD200 01273 VALUE 'ANNUAL REPORT '. DTSBD200 01274 10 FILLER PIC X(30) DTSBD200 01275 VALUE 'ADMINISTRATIVE CORRECTION '. DTSBD200 01276 05 TRN-051-T-ES-AREA. DTSBD200 01277 10 TRN-051-T-ES-SUB PIC S9(04) COMP. DTSBD200 01278 10 FILLER PIC X(01). DTSBD200 01279 10 FILLER PIC S9(05) COMP-3. DTSBD200 01280 10 FILLER PIC X(07) VALUE '051T ES'. DTSBD200 01281 10 FILLER PIC X(30) DTSBD200 01282 VALUE 'ACCOUNTING '. DTSBD200 01283 10 FILLER PIC X(30) DTSBD200 01284 VALUE 'ANNUAL REPORT '. DTSBD200 01285 10 FILLER PIC X(30) DTSBD200 01286 VALUE 'ESTIMATED '. DTSBD200 01287 05 TRN-051-T-WD-AREA. DTSBD200 01288 10 TRN-051-T-WD-SUB PIC S9(04) COMP. DTSBD200 01289 10 FILLER PIC X(01). DTSBD200 01290 10 FILLER PIC S9(05) COMP-3. DTSBD200 01291 10 FILLER PIC X(07) VALUE '051T WD'. DTSBD200 01292 10 FILLER PIC X(30) DTSBD200 01293 VALUE 'ACCOUNTING '. DTSBD200 01294 10 FILLER PIC X(30) DTSBD200 01295 VALUE 'ANNUAL REPORT '. DTSBD200 01296 10 FILLER PIC X(30) DTSBD200 01297 VALUE 'WITHDRAWAL '. DTSBD200 01298 05 TRN-051-T-UNK-AREA. DTSBD200 01299 10 TRN-051-T-UNK-SUB PIC S9(04) COMP. DTSBD200 01300 10 FILLER PIC X(01). DTSBD200 01301 10 FILLER PIC S9(05) COMP-3. DTSBD200 01302 10 FILLER PIC X(07) VALUE '051T '. DTSBD200 01303 10 FILLER PIC X(30) DTSBD200 01304 VALUE 'ACCOUNTING '. DTSBD200 01305 10 FILLER PIC X(30) DTSBD200 01306 VALUE 'ANNUAL REPORT '. DTSBD200 01307 10 FILLER PIC X(30) DTSBD200 01308 VALUE 'UNKNOWN '. DTSBD200 01309 05 TRN-051-UNK-AREA. DTSBD200 01310 10 TRN-051-UNK-SUB PIC S9(04) COMP. DTSBD200 01311 10 FILLER PIC X(01). DTSBD200 01312 10 FILLER PIC S9(05) COMP-3. DTSBD200 01313 10 FILLER PIC X(07) VALUE '051 '. DTSBD200 01314 10 FILLER PIC X(30) DTSBD200 01315 VALUE 'ACCOUNTING '. DTSBD200 01316 10 FILLER PIC X(30) DTSBD200 01317 VALUE 'UNKNOWN '. DTSBD200 01318 10 FILLER PIC X(30) DTSBD200 01319 VALUE ' '. DTSBD200 01320 05 TRN-UNK-AREA. DTSBD200 01321 10 TRN-UNK-SUB PIC S9(04) COMP. DTSBD200 01322 10 FILLER PIC X(01). DTSBD200 01323 10 FILLER PIC S9(05) COMP-3. DTSBD200 01324 10 FILLER PIC X(07) VALUE ' '. DTSBD200 01325 10 FILLER PIC X(30) DTSBD200 01326 VALUE 'UNKNOWN '. DTSBD200 01327 10 FILLER PIC X(30) DTSBD200 01328 VALUE ' '. DTSBD200 01329 10 FILLER PIC X(30) DTSBD200 01330 VALUE ' '. DTSBD200 01331 SKIP3 DTSBD200 01332 01 FILLER REDEFINES TRN-TABLE. DTSBD200 01333 05 TRN-AREA OCCURS 92 TIMES DTSBD200 01334 INDEXED BY TRN-IDX. DTSBD200 01335 10 TRN-SUB PIC S9(04) COMP. DTSBD200 01336 10 TRN-IND PIC X(01). DTSBD200 01337 10 TRN-CNT PIC S9(05) COMP-3. DTSBD200 01338 10 TRN-TYP-CDE-TYP. DTSBD200 01339 15 TRN-REC-TYP PIC X(03). DTSBD200 01340 15 TRN-TRN-CDE PIC X(02). DTSBD200 01341 15 TRN-TRN-TYP PIC X(02). DTSBD200 01342 10 TRN-REC-TYP-DSCR PIC X(30). DTSBD200 01343 10 TRN-TRN-CDE-DSCR PIC X(30). DTSBD200 01344 10 TRN-TRN-TYP-DSCR PIC X(30). DTSBD200 01345 EJECT DTSBD200 01346 01 HDR1. DTSBD200 01347 05 FILLER PIC X(40) DTSBD200 01348 VALUE 'REC TRN '. DTSBD200 01349 05 FILLER PIC X(40) DTSBD200 01350 VALUE ' TRN '. DTSBD200 01351 05 FILLER PIC X(40) DTSBD200 01352 VALUE ' INC/ '. DTSBD200 01353 DTSBD200 01354 01 HDR2. DTSBD200 01355 05 FILLER PIC X(40) DTSBD200 01356 VALUE 'TYP REC DESCRIPTION CDE '. DTSBD200 01357 05 FILLER PIC X(40) DTSBD200 01358 VALUE ' CDE DESCRIPTION TYPE TYPE DE'. DTSBD200 01359 05 FILLER PIC X(40) DTSBD200 01360 VALUE 'SCRIPTION EXC COUNT '. DTSBD200 01361 DTSBD200 01362 01 DET1. DTSBD200 01363 05 DET1-REC-TYP PIC X(03). DTSBD200 01364 05 FILLER PIC X(02) VALUE SPACES.DTSBD200 01365 05 DET1-REC-TYP-DSCR PIC X(25). DTSBD200 01366 05 FILLER PIC X(05) VALUE SPACES.DTSBD200 01367 05 DET1-TRN-CDE PIC X(02). DTSBD200 01368 05 FILLER PIC X(02) VALUE SPACES.DTSBD200 01369 05 DET1-TRN-CDE-DSCR PIC X(25). DTSBD200 01370 05 FILLER PIC X(05) VALUE SPACES.DTSBD200 01371 05 DET1-TRN-TYP PIC X(02). DTSBD200 01372 05 FILLER PIC X(02) VALUE SPACES.DTSBD200 01373 05 DET1-TRN-TYP-DSCR PIC X(25). DTSBD200 01374 05 FILLER PIC X(05) VALUE SPACES.DTSBD200 01375 05 DET1-IND PIC X(03). DTSBD200 01376 05 FILLER PIC X(05) VALUE SPACES.DTSBD200 01377 05 DET1-CNT PIC ZZ,ZZ9. DTSBD200 01378 EJECT DTSBD200 01379 01 L941-LINK-AREA. DTSBD200 01380 ++INCLUDE DTSIL941 DTSBD200 01381 EJECT DTSBD200 01382 01 WRK-REC. DTSBD200 01383 ++INCLUDE DTSIRSK3 DTSBD200 01384 SKIP3 DTSBD200 01385 01 TSKL-REC. DTSBD200 01386 ++INCLUDE DTSITSKL DTSBD200 01387 SKIP3 DTSBD200 01388 01 T001-REC. DTSBD200 01389 ++INCLUDE DTSIT001 DTSBD200 01390 SKIP3 DTSBD200 01391 01 T002-REC. DTSBD200 01392 ++INCLUDE DTSIT002 DTSBD200 01393 SKIP3 DTSBD200 01394 01 T003-REC. DTSBD200 01395 ++INCLUDE DTSIT003 DTSBD200 01396 SKIP3 DTSBD200 01397 01 T006-REC. DTSBD200 01398 ++INCLUDE DTSIT006 DTSBD200 01399 SKIP3 DTSBD200 01400 01 T011-REC. DTSBD200 01401 ++INCLUDE DTSIT011 DTSBD200 01402 SKIP3 DTSBD200 01403 01 T016-REC. DTSBD200 01404 ++INCLUDE DTSIT016 DTSBD200 01405 SKIP3 DTSBD200 01406 01 T021-REC. DTSBD200 01407 ++INCLUDE DTSIT021 DTSBD200 01408 SKIP3 DTSBD200 01409 01 T031-REC. DTSBD200 01410 ++INCLUDE DTSIT031 DTSBD200 01411 SKIP3 DTSBD200 01412 01 T036-REC. DTSBD200 01413 ++INCLUDE DTSIT036 DTSBD200 01414 SKIP3 DTSBD200 01415 01 T040-REC. DTSBD200 01416 ++INCLUDE DTSIT040 DTSBD200 01417 SKIP3 DTSBD200 01418 01 T051-REC. DTSBD200 01419 ++INCLUDE DTSIT051 DTSBD200 01420 SKIP3 DTSBD200 01421 05 ARPT-REC REDEFINES T051-DATA-AREA. DTSBD200 01422 ++INCLUDE DTSIARPT DTSBD200 01423 SKIP3 DTSBD200 01424 05 APAY-REC REDEFINES T051-DATA-AREA. DTSBD200 01425 ++INCLUDE DTSIAPAY DTSBD200 01426 SKIP3 DTSBD200 01427 05 AADJ-REC REDEFINES T051-DATA-AREA. DTSBD200 01428 ++INCLUDE DTSIAADJ DTSBD200 01429 SKIP3 DTSBD200 01430 05 AATX-REC REDEFINES T051-DATA-AREA. DTSBD200 01431 ++INCLUDE DTSIAATX DTSBD200 01432 EJECT DTSBD200 01433 PROCEDURE DIVISION. DTSBD200 01434 DTSBD200 01435 DTSBD200 01436 PERFORM I1000-INITIATE THRU I1000-EXIT. DTSBD200 01437 DTSBD200 01438 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBD200 01439 DTSBD200 01440 PERFORM T1000-TERMINATE THRU T1000-EXIT. DTSBD200 01441 DTSBD200 01442 DTSBD200 01443 GOBACK. DTSBD200 01444 EJECT DTSBD200 01445 I1000-INITIATE. DTSBD200 01446 MOVE 'N' TO L941-TRACE-IND. DTSBD200 01447 DTSBD200 01448 MOVE WRK-MOD-NAME TO L941-MOD-NAME. DTSBD200 01449 DTSBD200 01450 PERFORM S941-OPEN-READ THRU S941-EXIT. DTSBD200 01451 DTSBD200 01452 PERFORM I1100-PARM THRU I1100-EXIT. DTSBD200 01453 I1000-EXIT. DTSBD200 01454 EXIT. DTSBD200 01455 EJECT DTSBD200 01456 I1100-PARM. DTSBD200 01457 PERFORM I1110-TBL-INIT THRU I1110-EXIT DTSBD200 01458 VARYING SUB FROM 1 BY 1 DTSBD200 01459 UNTIL SUB > WRK-TBL-MAX. DTSBD200 01460 DTSBD200 01461 OPEN INPUT PARM-FILE. DTSBD200 01462 DTSBD200 01463 MOVE 'N' TO PARM-EOF-IND. DTSBD200 01464 DTSBD200 01465 DISPLAY ' '. DTSBD200 01466 DTSBD200 01467 DISPLAY ' '. DTSBD200 01468 DTSBD200 01469 PERFORM I1120-READ-PARM THRU I1120-EXIT DTSBD200 01470 UNTIL PARM-EOF-IND = 'Y'. DTSBD200 01471 DTSBD200 01472 CLOSE PARM-FILE. DTSBD200 01473 I1100-EXIT. DTSBD200 01474 EXIT. DTSBD200 01475 SKIP3 DTSBD200 01476 I1110-TBL-INIT. DTSBD200 01477 MOVE SUB TO TRN-SUB (SUB). DTSBD200 01478 DTSBD200 01479 MOVE 'N' TO TRN-IND (SUB). DTSBD200 01480 DTSBD200 01481 MOVE +0 TO TRN-CNT (SUB). DTSBD200 01482 I1110-EXIT. DTSBD200 01483 EXIT. DTSBD200 01484 SKIP3 DTSBD200 01485 I1120-READ-PARM. DTSBD200 01486 READ PARM-FILE DTSBD200 01487 AT END DTSBD200 01488 MOVE 'Y' TO PARM-EOF-IND DTSBD200 01489 GO TO I1120-EXIT. DTSBD200 01490 DTSBD200 01491 DISPLAY '*** ' DTSBD200 01492 PARM-REC. DTSBD200 01493 DTSBD200 01494 IF PARM-REC-TYPE = '***' DTSBD200 01495 GO TO I1120-EXIT. DTSBD200 01496 DTSBD200 01497 IF PARM-REC-TYPE = 'ALL' DTSBD200 01498 PERFORM I1122-SET THRU I1122-EXIT DTSBD200 01499 VARYING WRK-TBL-SUB FROM 1 BY 1 DTSBD200 01500 UNTIL WRK-TBL-SUB > WRK-TBL-MAX DTSBD200 01501 ELSE DTSBD200 01502 IF PARM-REC-TYPE = '001' DTSBD200 01503 IF PARM-TRN-CD = '**' DTSBD200 01504 PERFORM I1122-SET THRU I1122-EXIT DTSBD200 01505 VARYING WRK-TBL-SUB FROM TRN-001-01-SUB BY 1 DTSBD200 01506 UNTIL WRK-TBL-SUB > TRN-001-UNK-SUB DTSBD200 01507 ELSE DTSBD200 01508 PERFORM I1121-LOCATE THRU I1121-EXIT DTSBD200 01509 VARYING WRK-TBL-SUB FROM 1 BY 1 DTSBD200 01510 UNTIL WRK-TBL-SUB > WRK-TBL-MAX DTSBD200 01511 ELSE DTSBD200 01512 IF PARM-REC-TYPE = '002' DTSBD200 01513 IF PARM-TRN-CD = '**' DTSBD200 01514 PERFORM I1122-SET THRU I1122-EXIT DTSBD200 01515 VARYING WRK-TBL-SUB FROM TRN-002-01-SUB BY 1 DTSBD200 01516 UNTIL WRK-TBL-SUB > TRN-002-UNK-SUB DTSBD200 01517 ELSE DTSBD200 01518 PERFORM I1121-LOCATE THRU I1121-EXIT DTSBD200 01519 VARYING WRK-TBL-SUB FROM 1 BY 1 DTSBD200 01520 UNTIL WRK-TBL-SUB > WRK-TBL-MAX DTSBD200 01521 ELSE DTSBD200 01522 IF PARM-REC-TYPE = '003' DTSBD200 01523 IF PARM-TRN-CD = '**' DTSBD200 01524 PERFORM I1122-SET THRU I1122-EXIT DTSBD200 01525 VARYING WRK-TBL-SUB FROM TRN-003-01-SUB BY 1 DTSBD200 01526 UNTIL WRK-TBL-SUB > TRN-003-UNK-SUB DTSBD200 01527 ELSE DTSBD200 01528 PERFORM I1121-LOCATE THRU I1121-EXIT DTSBD200 01529 VARYING WRK-TBL-SUB FROM 1 BY 1 DTSBD200 01530 UNTIL WRK-TBL-SUB > WRK-TBL-MAX DTSBD200 01531 ELSE DTSBD200 01532 IF PARM-REC-TYPE = '006' DTSBD200 01533 IF PARM-TRN-CD = '**' DTSBD200 01534 PERFORM I1122-SET THRU I1122-EXIT DTSBD200 01535 VARYING WRK-TBL-SUB FROM TRN-006-01-SUB BY 1 DTSBD200 01536 UNTIL WRK-TBL-SUB > TRN-006-UNK-SUB DTSBD200 01537 ELSE DTSBD200 01538 PERFORM I1121-LOCATE THRU I1121-EXIT DTSBD200 01539 VARYING WRK-TBL-SUB FROM 1 BY 1 DTSBD200 01540 UNTIL WRK-TBL-SUB > WRK-TBL-MAX DTSBD200 01541 ELSE DTSBD200 01542 IF PARM-REC-TYPE = '011' DTSBD200 01543 IF PARM-TRN-CD = '**' DTSBD200 01544 PERFORM I1122-SET THRU I1122-EXIT DTSBD200 01545 VARYING WRK-TBL-SUB FROM TRN-011-01-SUB BY 1 DTSBD200 01546 UNTIL WRK-TBL-SUB > TRN-011-UNK-SUB DTSBD200 01547 ELSE DTSBD200 01548 PERFORM I1121-LOCATE THRU I1121-EXIT DTSBD200 01549 VARYING WRK-TBL-SUB FROM 1 BY 1 DTSBD200 01550 UNTIL WRK-TBL-SUB > WRK-TBL-MAX DTSBD200 01551 ELSE DTSBD200 01552 IF PARM-REC-TYPE = '016' DTSBD200 01553 IF PARM-TRN-CD = '**' DTSBD200 01554 PERFORM I1122-SET THRU I1122-EXIT DTSBD200 01555 VARYING WRK-TBL-SUB FROM TRN-016-01-SUB BY 1 DTSBD200 01556 UNTIL WRK-TBL-SUB > TRN-016-UNK-SUB DTSBD200 01557 ELSE DTSBD200 01558 PERFORM I1121-LOCATE THRU I1121-EXIT DTSBD200 01559 VARYING WRK-TBL-SUB FROM 1 BY 1 DTSBD200 01560 UNTIL WRK-TBL-SUB > WRK-TBL-MAX DTSBD200 01561 ELSE DTSBD200 01562 IF PARM-REC-TYPE = '021' DTSBD200 01563 IF PARM-TRN-CD = '**' DTSBD200 01564 PERFORM I1122-SET THRU I1122-EXIT DTSBD200 01565 VARYING WRK-TBL-SUB FROM TRN-021-01-SUB BY 1 DTSBD200 01566 UNTIL WRK-TBL-SUB > TRN-021-UNK-SUB DTSBD200 01567 ELSE DTSBD200 01568 PERFORM I1121-LOCATE THRU I1121-EXIT DTSBD200 01569 VARYING WRK-TBL-SUB FROM 1 BY 1 DTSBD200 01570 UNTIL WRK-TBL-SUB > WRK-TBL-MAX DTSBD200 01571 ELSE DTSBD200 01572 IF PARM-REC-TYPE = '031' DTSBD200 01573 IF PARM-TRN-CD = '**' DTSBD200 01574 PERFORM I1122-SET THRU I1122-EXIT DTSBD200 01575 VARYING WRK-TBL-SUB FROM TRN-031-01-SUB BY 1 DTSBD200 01576 UNTIL WRK-TBL-SUB > TRN-031-UNK-SUB DTSBD200 01577 ELSE DTSBD200 01578 PERFORM I1121-LOCATE THRU I1121-EXIT DTSBD200 01579 VARYING WRK-TBL-SUB FROM 1 BY 1 DTSBD200 01580 UNTIL WRK-TBL-SUB > WRK-TBL-MAX DTSBD200 01581 ELSE DTSBD200 01582 IF PARM-REC-TYPE = '036' DTSBD200 01583 IF PARM-TRN-CD = '**' DTSBD200 01584 PERFORM I1122-SET THRU I1122-EXIT DTSBD200 01585 VARYING WRK-TBL-SUB FROM TRN-036-01-SUB BY 1 DTSBD200 01586 UNTIL WRK-TBL-SUB > TRN-036-UNK-SUB DTSBD200 01587 ELSE DTSBD200 01588 PERFORM I1121-LOCATE THRU I1121-EXIT DTSBD200 01589 VARYING WRK-TBL-SUB FROM 1 BY 1 DTSBD200 01590 UNTIL WRK-TBL-SUB > WRK-TBL-MAX DTSBD200 01591 ELSE DTSBD200 01592 IF PARM-REC-TYPE = '040' DTSBD200 01593 DISPLAY ' T040 TRANS ' DTSBD200 01594 IF PARM-TRN-CD = '**' DTSBD200 01595 PERFORM I1122-SET THRU I1122-EXIT DTSBD200 01596 VARYING WRK-TBL-SUB FROM TRN-040-01-SUB BY 1 DTSBD200 01597 UNTIL WRK-TBL-SUB > TRN-040-UNK-SUB DTSBD200 01598 ELSE DTSBD200 01599 PERFORM I1121-LOCATE THRU I1121-EXIT DTSBD200 01600 VARYING WRK-TBL-SUB FROM 1 BY 1 DTSBD200 01601 UNTIL WRK-TBL-SUB > WRK-TBL-MAX DTSBD200 01602 ELSE DTSBD200 01603 IF PARM-REC-TYPE = '051' DTSBD200 01604 IF PARM-TRN-CD = '**' DTSBD200 01605 PERFORM I1122-SET THRU I1122-EXIT DTSBD200 01606 VARYING WRK-TBL-SUB FROM TRN-051-R-OR-SUB BY 1 DTSBD200 01607 UNTIL WRK-TBL-SUB > TRN-051-UNK-SUB DTSBD200 01608 PERFORM I1122-SET THRU I1122-EXIT DTSBD200 01609 VARYING WRK-TBL-SUB FROM TRN-051-T-OR-SUB BY 1 DTSBD200 01610 UNTIL WRK-TBL-SUB > TRN-051-UNK-SUB DTSBD200 01611 ELSE DTSBD200 01612 IF PARM-TRN-CD = 'R ' DTSBD200 01613 IF PARM-TRN-TYPE = '**' DTSBD200 01614 PERFORM I1122-SET THRU I1122-EXIT DTSBD200 01615 VARYING WRK-TBL-SUB FROM TRN-051-R-OR-SUB BY 1 DTSBD200 01616 UNTIL WRK-TBL-SUB > TRN-051-R-UNK-SUB DTSBD200 01617 ELSE DTSBD200 01618 PERFORM I1121-LOCATE THRU I1121-EXIT DTSBD200 01619 VARYING WRK-TBL-SUB FROM 1 BY 1 DTSBD200 01620 UNTIL WRK-TBL-SUB > WRK-TBL-MAX DTSBD200 01621 ELSE DTSBD200 01622 IF PARM-TRN-CD = 'P ' DTSBD200 01623 IF PARM-TRN-TYPE = '**' DTSBD200 01624 PERFORM I1122-SET THRU I1122-EXIT DTSBD200 01625 VARYING WRK-TBL-SUB FROM TRN-051-P-PA-SUB BY 1 DTSBD200 01626 UNTIL WRK-TBL-SUB > TRN-051-P-UNK-SUB DTSBD200 01627 ELSE DTSBD200 01628 PERFORM I1121-LOCATE THRU I1121-EXIT DTSBD200 01629 VARYING WRK-TBL-SUB FROM 1 BY 1 DTSBD200 01630 UNTIL WRK-TBL-SUB > WRK-TBL-MAX DTSBD200 01631 ELSE DTSBD200 01632 IF PARM-TRN-CD = 'A ' DTSBD200 01633 IF PARM-TRN-TYPE = '**' DTSBD200 01634 PERFORM I1122-SET THRU I1122-EXIT DTSBD200 01635 VARYING WRK-TBL-SUB FROM TRN-051-A-CH-SUB BY 1 DTSBD200 01636 UNTIL WRK-TBL-SUB > TRN-051-A-UNK-SUB DTSBD200 01637 ELSE DTSBD200 01638 PERFORM I1121-LOCATE THRU I1121-EXIT DTSBD200 01639 VARYING WRK-TBL-SUB FROM 1 BY 1 DTSBD200 01640 UNTIL WRK-TBL-SUB > WRK-TBL-MAX. DTSBD200 01641 I1120-EXIT. DTSBD200 01642 EXIT. DTSBD200 01643 SKIP3 DTSBD200 01644 I1121-LOCATE. DTSBD200 01645 IF (PARM-REC-TYPE = TRN-REC-TYP (WRK-TBL-SUB)) DTSBD200 01646 AND DTSBD200 01647 (PARM-TRN-CD = TRN-TRN-CDE (WRK-TBL-SUB)) DTSBD200 01648 AND DTSBD200 01649 (PARM-TRN-TYPE = TRN-TRN-TYP (WRK-TBL-SUB)) DTSBD200 01650 MOVE 'Y' TO TRN-IND (WRK-TBL-SUB). DTSBD200 01651 I1121-EXIT. DTSBD200 01652 EXIT. DTSBD200 01653 SKIP3 DTSBD200 01654 I1122-SET. DTSBD200 01655 MOVE 'Y' TO TRN-IND (WRK-TBL-SUB). DTSBD200 01656 I1122-EXIT. DTSBD200 01657 EXIT. DTSBD200 01658 EJECT DTSBD200 01659 P1000-PROCESS. DTSBD200 01660 SORT SORT-FILE DTSBD200 01661 ON ASCENDING KEY SORT-KEY DTSBD200 01662 INPUT PROCEDURE P2000-PRE-SORT THRU P2000-EXIT DTSBD200 01663 OUTPUT PROCEDURE P3000-POST-SORT THRU P3000-EXIT. DTSBD200 01664 DTSBD200 01665 IF SORT-RETURN = +0 DTSBD200 01666 CONTINUE DTSBD200 01667 ELSE DTSBD200 01668 DISPLAY '***** DTSBD200 P1000 SORT FAILED - ' DTSBD200 01669 'MODULE ABENDING' DTSBD200 01670 PERFORM S999-ABEND THRU S999-EXIT. DTSBD200 01671 P1000-EXIT. DTSBD200 01672 EXIT. DTSBD200 01673 EJECT DTSBD200 01674 P2000-PRE-SORT. DTSBD200 01675 PERFORM P2100-INPUT-LOOP THRU P2100-EXIT DTSBD200 01676 UNTIL L941-NO-REC-88. DTSBD200 01677 P2000-EXIT. DTSBD200 01678 EXIT. DTSBD200 01679 SKIP3 DTSBD200 01680 P2100-INPUT-LOOP. DTSBD200 01681 PERFORM S941-READ-NEXT THRU S941-EXIT. DTSBD200 01682 DTSBD200 01683 IF L941-NO-REC-88 DTSBD200 01684 GO TO P2100-EXIT. DTSBD200 01685 DTSBD200 01686 DTSBD200 01687 MOVE WRK-REC TO TSKL-REC. DTSBD200 01688 DTSBD200 01689 MOVE LOW-VALUES TO SORT-KEY. DTSBD200 01690 DTSBD200 01691 DISPLAY ' P2100 TSKL REC TYPE ' TSKL-REC-TYPE. DTSBD200 01692 DTSBD200 01693 MOVE TSKL-EMP-NO TO SORT-KEY1-EMP-NO. DTSBD200 01694 DTSBD200 01695 IF TSKL-REGISTRATION-88 DTSBD200 01696 PERFORM P2110-REGISTRATION THRU P2110-EXIT DTSBD200 01697 ELSE DTSBD200 01698 IF TSKL-AUTO-EMP-STATUS-88 DTSBD200 01699 PERFORM P2115-STATUS THRU P2115-EXIT DTSBD200 01700 ELSE DTSBD200 01701 IF TSKL-NOTEPAD-88 DTSBD200 01702 PERFORM P2118-NOTEPAD THRU P2118-EXIT DTSBD200 01703 ELSE DTSBD200 01704 IF TSKL-RATING-88 DTSBD200 01705 PERFORM P2120-RATING THRU P2120-EXIT DTSBD200 01706 ELSE DTSBD200 01707 IF TSKL-COLLECTION-88 DTSBD200 01708 PERFORM P2130-COLLECTION THRU P2130-EXIT DTSBD200 01709 ELSE DTSBD200 01710 IF TSKL-LMI-EMP-88 DTSBD200 01711 PERFORM P2140-LMI-EMP THRU P2140-EXIT DTSBD200 01712 ELSE DTSBD200 01713 IF TSKL-FS-DOWNLOAD-88 DTSBD200 01714 PERFORM P2150-FIELD-SUPPORT THRU P2150-EXIT DTSBD200 01715 ELSE DTSBD200 01716 IF TSKL-AUTO-QTR-88 DTSBD200 01717 PERFORM P2160-AUTO-QTR THRU P2160-EXIT DTSBD200 01718 ELSE DTSBD200 01719 IF TSKL-RPT-PRINT-88 DTSBD200 01720 PERFORM P2170-RPT-PRINT THRU P2170-EXIT DTSBD200 01721 ELSE DTSBD200 01722 IF TSKL-ACCOUNTING-88 DTSBD200 01723 PERFORM P2180-ACCOUNTING THRU P2180-EXIT DTSBD200 01724 ELSE DTSBD200 01725 IF TSKL-WEB-AUDIT-88 DTSBD200 01726 DISPLAY ' P2100 040 TRANS ' DTSBD200 01727 PERFORM P2185-WEB-AUDIT THRU P2185-EXIT DTSBD200 01728 ELSE DTSBD200 01729 PERFORM P2190-INVALID-REC-TYPE THRU P2190-EXIT. DTSBD200 01730 DTSBD200 01731 DTSBD200 01732 COMPUTE VAR-CHAR-CNT = RSK3-LENGTH - 2. DTSBD200 01733 DTSBD200 01734 MOVE TSKL-REC TO SORT-DATA. DTSBD200 01735 DTSBD200 01736 DTSBD200 01737 MOVE +0 TO WRK-TBL-SUB. DTSBD200 01738 DTSBD200 01739 PERFORM P2200-SET-TBL-SUB THRU P2200-EXIT. DTSBD200 01740 DTSBD200 01741 IF WRK-TBL-SUB = 0 DTSBD200 01742 GO TO P2100-EXIT. DTSBD200 01743 DTSBD200 01744 DTSBD200 01745 ADD +1 TO TRN-CNT (WRK-TBL-SUB). DTSBD200 01746 DTSBD200 01747 DTSBD200 01748 IF TRN-IND (WRK-TBL-SUB) = 'Y' DTSBD200 01749 NEXT SENTENCE DTSBD200 01750 ELSE DTSBD200 01751 GO TO P2100-EXIT. DTSBD200 01752 DTSBD200 01753 RELEASE SORT-REC. DTSBD200 01754 P2100-EXIT. DTSBD200 01755 EXIT. DTSBD200 01756 SKIP3 DTSBD200 01757 P2110-REGISTRATION. DTSBD200 01758 MOVE TSKL-REC TO T001-REC. DTSBD200 01759 DTSBD200 01760 MOVE +200 TO SORT-KEY2-SEQ-NO. DTSBD200 01761 DTSBD200 01762 MOVE T001-TRN-CD TO SORT-KEY3-T001-TRN-CD. DTSBD200 01763 DTSBD200 01764 MOVE T001-SYS-DATE TO SORT-KEY3-T001-SYS-DATE. DTSBD200 01765 DTSBD200 01766 MOVE T001-SYS-TIME TO SORT-KEY3-T001-SYS-TIME. DTSBD200 01767 P2110-EXIT. DTSBD200 01768 EXIT. DTSBD200 01769 SKIP3 DTSBD200 01770 P2115-STATUS. DTSBD200 01771 MOVE TSKL-REC TO T002-REC. DTSBD200 01772 DTSBD200 01773 MOVE +2 TO SORT-KEY2-SEQ-NO. DTSBD200 01774 DTSBD200 01775 MOVE T002-TRN-CD TO SORT-KEY3-T002-TRN-CD. DTSBD200 01776 DTSBD200 01777 MOVE T002-SYS-DATE TO SORT-KEY3-T002-SYS-DATE. DTSBD200 01778 DTSBD200 01779 MOVE T002-SYS-TIME TO SORT-KEY3-T002-SYS-TIME. DTSBD200 01780 P2115-EXIT. DTSBD200 01781 EXIT. DTSBD200 01782 SKIP3 DTSBD200 01783 P2118-NOTEPAD. DTSBD200 01784 MOVE TSKL-REC TO T003-REC. DTSBD200 01785 DTSBD200 01786 MOVE +700 TO SORT-KEY2-SEQ-NO. DTSBD200 01787 DTSBD200 01788 MOVE T003-TRN-CD TO SORT-KEY3-T003-TRN-CD. DTSBD200 01789 DTSBD200 01790 MOVE T003-SYS-DATE TO SORT-KEY3-T003-SYS-DATE. DTSBD200 01791 DTSBD200 01792 MOVE T003-SYS-TIME TO SORT-KEY3-T003-SYS-TIME. DTSBD200 01793 P2118-EXIT. DTSBD200 01794 EXIT. DTSBD200 01795 SKIP3 DTSBD200 01796 P2120-RATING. DTSBD200 01797 MOVE TSKL-REC TO T006-REC. DTSBD200 01798 DTSBD200 01799 MOVE +500 TO SORT-KEY2-SEQ-NO. DTSBD200 01800 DTSBD200 01801 MOVE T006-SYS-DATE TO SORT-KEY3-T006-SYS-DATE. DTSBD200 01802 DTSBD200 01803 MOVE T006-SYS-TIME TO SORT-KEY3-T006-SYS-TIME. DTSBD200 01804 DTSBD200 01805 MOVE T006-START-YRQ TO SORT-KEY3-T006-YRQ. DTSBD200 01806 DTSBD200 01807 IF T006-UIRTE-NOTICE DTSBD200 01808 MOVE +0 TO SORT-KEY3-T006-SYS-DATE DTSBD200 01809 SORT-KEY3-T006-SYS-TIME. DTSBD200 01810 P2120-EXIT. DTSBD200 01811 EXIT. DTSBD200 01812 SKIP3 DTSBD200 01813 P2130-COLLECTION. DTSBD200 01814 MOVE TSKL-REC TO T011-REC. DTSBD200 01815 DTSBD200 01816 MOVE +300 TO SORT-KEY2-SEQ-NO. DTSBD200 01817 DTSBD200 01818 MOVE T011-TRN-CD TO SORT-KEY3-T011-TRN-CD. DTSBD200 01819 DTSBD200 01820 MOVE T011-ESTB-ABSTIME TO SORT-KEY3-T011-ESTB-ABSTIME. DTSBD200 01821 P2130-EXIT. DTSBD200 01822 EXIT. DTSBD200 01823 SKIP3 DTSBD200 01824 P2140-LMI-EMP. DTSBD200 01825 MOVE TSKL-REC TO T016-REC. DTSBD200 01826 DTSBD200 01827 MOVE +400 TO SORT-KEY2-SEQ-NO. DTSBD200 01828 DTSBD200 01829 MOVE T016-SYS-DATE TO SORT-KEY3-T016-SYS-DATE. DTSBD200 01830 DTSBD200 01831 MOVE T016-SYS-TIME TO SORT-KEY3-T016-SYS-TIME. DTSBD200 01832 P2140-EXIT. DTSBD200 01833 EXIT. DTSBD200 01834 SKIP3 DTSBD200 01835 P2150-FIELD-SUPPORT. DTSBD200 01836 MOVE +600 TO SORT-KEY2-SEQ-NO. DTSBD200 01837 DTSBD200 01838 MOVE TSKL-REC TO T021-REC. DTSBD200 01839 DTSBD200 01840 MOVE T021-ASSIGN-NO TO SORT-KEY3-T021-ASSIGN-NO. DTSBD200 01841 DTSBD200 01842 MOVE T021-TRN-CD TO SORT-KEY3-T021-TRN-CD. DTSBD200 01843 P2150-EXIT. DTSBD200 01844 EXIT. DTSBD200 01845 SKIP3 DTSBD200 01846 P2160-AUTO-QTR. DTSBD200 01847 MOVE TSKL-REC TO T031-REC. DTSBD200 01848 DTSBD200 01849 IF T031-AUTO-PROCESS DTSBD200 01850 MOVE +005 TO SORT-KEY2-SEQ-NO DTSBD200 01851 ELSE DTSBD200 01852 IF T031-WAGE-TRNSFR-ONLY DTSBD200 01853 MOVE +600 TO SORT-KEY2-SEQ-NO DTSBD200 01854 ELSE DTSBD200 01855 MOVE +600 TO SORT-KEY2-SEQ-NO DTSBD200 01856 END-IF DTSBD200 01857 END-IF. DTSBD200 01858 DTSBD200 01859 MOVE T031-START-YRQ TO SORT-KEY3-T031-START-YRQ. DTSBD200 01860 P2160-EXIT. DTSBD200 01861 EXIT. DTSBD200 01862 SKIP3 DTSBD200 01863 P2170-RPT-PRINT. DTSBD200 01864 MOVE TSKL-REC TO T036-REC. DTSBD200 01865 DTSBD200 01866 IF T036-LIAB-DETER DTSBD200 01867 MOVE +910 TO SORT-KEY2-SEQ-NO DTSBD200 01868 ELSE DTSBD200 01869 IF T036-INACTIVATION DTSBD200 01870 MOVE +920 TO SORT-KEY2-SEQ-NO DTSBD200 01871 ELSE DTSBD200 01872 IF T036-REQUEST DTSBD200 01873 MOVE +930 TO SORT-KEY2-SEQ-NO DTSBD200 01874 ELSE DTSBD200 01875 MOVE +940 TO SORT-KEY2-SEQ-NO. DTSBD200 01876 DTSBD200 01877 MOVE T036-START-YRQ TO SORT-KEY3-T036-START-YRQ. DTSBD200 01878 P2170-EXIT. DTSBD200 01879 EXIT. DTSBD200 01880 SKIP3 DTSBD200 01881 P2180-ACCOUNTING. DTSBD200 01882 MOVE TSKL-REC TO T051-REC. DTSBD200 01883 DTSBD200 01884 IF T051-ORIGIN-TRANSFER-88 DTSBD200 01885 PERFORM P2189-TRANSFER-ACCT-TRAN THRU P2189-EXIT DTSBD200 01886 ELSE DTSBD200 01887 IF AADJ-ADJ-88 DTSBD200 01888 IF AADJ-WAIVE-DATE-88 DTSBD200 01889 MOVE +006 TO SORT-KEY2-SEQ-NO DTSBD200 01890 ELSE DTSBD200 01891 IF AADJ-WRITE-OFF-88 DTSBD200 01892 MOVE +011 TO SORT-KEY2-SEQ-NO DTSBD200 01893 ELSE DTSBD200 01894 IF AADJ-WRITE-OFF-REV-88 DTSBD200 01895 MOVE +012 TO SORT-KEY2-SEQ-NO DTSBD200 01896 ELSE DTSBD200 01897 IF AADJ-CHARGE-88 DTSBD200 01898 MOVE +017 TO SORT-KEY2-SEQ-NO DTSBD200 01899 ELSE DTSBD200 01900 IF AADJ-WAIVE-88 DTSBD200 01901 MOVE +018 TO SORT-KEY2-SEQ-NO DTSBD200 01902 ELSE DTSBD200 01903 IF AADJ-AUTO-88 DTSBD200 01904 MOVE +014 TO SORT-KEY2-SEQ-NO DTSBD200 01905 ELSE DTSBD200 01906 IF AADJ-MANUAL-88 DTSBD200 01907 MOVE +015 TO SORT-KEY2-SEQ-NO DTSBD200 01908 ELSE DTSBD200 01909 MOVE +019 TO SORT-KEY2-SEQ-NO DTSBD200 01910 ELSE DTSBD200 01911 IF ARPT-RPT-88 DTSBD200 01912 MOVE +029 TO SORT-KEY2-SEQ-NO DTSBD200 01913 MOVE ARPT-YRQ TO SORT-KEY3-T051-YRQ DTSBD200 01914 ELSE DTSBD200 01915 IF AATX-ATX-88 DTSBD200 01916 MOVE +029 TO SORT-KEY2-SEQ-NO DTSBD200 01917 MOVE AATX-YRQ TO SORT-KEY3-T051-YRQ DTSBD200 01918 ELSE DTSBD200 01919 IF APAY-PAY-88 DTSBD200 01920 PERFORM P2181-APAY THRU P2181-EXIT DTSBD200 01921 ELSE DTSBD200 01922 MOVE +049 TO SORT-KEY2-SEQ-NO. DTSBD200 01923 DTSBD200 01924 MOVE ARPT-DOC-NO TO SORT-KEY3-T051-DOC-NO. DTSBD200 01925 P2180-EXIT. DTSBD200 01926 EXIT. DTSBD200 01927 SKIP3 DTSBD200 01928 P2181-APAY. DTSBD200 01929 IF APAY-REF-REV-88 DTSBD200 01930 MOVE +31 TO SORT-KEY2-SEQ-NO DTSBD200 01931 ELSE DTSBD200 01932 IF APAY-NG-CHECK-88 DTSBD200 01933 MOVE +32 TO SORT-KEY2-SEQ-NO DTSBD200 01934 IF APAY-CREDIT-88 DTSBD200 01935 MOVE LOW-VALUES TO SORT-KEY3-T051-HIGH-VALUE DTSBD200 01936 ELSE DTSBD200 01937 MOVE HIGH-VALUES TO SORT-KEY3-T051-HIGH-VALUE DTSBD200 01938 ELSE DTSBD200 01939 IF APAY-PAY-REV-88 DTSBD200 01940 MOVE +34 TO SORT-KEY2-SEQ-NO DTSBD200 01941 IF APAY-CREDIT-88 DTSBD200 01942 MOVE LOW-VALUES TO SORT-KEY3-T051-HIGH-VALUE DTSBD200 01943 ELSE DTSBD200 01944 MOVE HIGH-VALUES TO SORT-KEY3-T051-HIGH-VALUE DTSBD200 01945 ELSE DTSBD200 01946 IF APAY-REFUND-88 DTSBD200 01947 MOVE +38 TO SORT-KEY2-SEQ-NO DTSBD200 01948 ELSE DTSBD200 01949 IF APAY-PAYMENT-88 DTSBD200 01950 MOVE +37 TO SORT-KEY2-SEQ-NO DTSBD200 01951 IF (APAY-APPLIC-YRQ = 0) DTSBD200 01952 AND DTSBD200 01953 (APAY-APPLIC-IND = SPACE) DTSBD200 01954 MOVE HIGH-VALUES TO SORT-KEY3-T051-HIGH-VALUE DTSBD200 01955 MOVE APAY-RECEIVED-DATE DTSBD200 01956 TO SORT-KEY3-T051-RECEIVED-DATE DTSBD200 01957 ELSE DTSBD200 01958 MOVE APAY-APPLIC-YRQ DTSBD200 01959 TO SORT-KEY3-T051-APPLIC-YRQ DTSBD200 01960 MOVE APAY-APPLIC-IND DTSBD200 01961 TO SORT-KEY3-T051-APPLIC-IND DTSBD200 01962 ELSE DTSBD200 01963 MOVE +39 TO SORT-KEY2-SEQ-NO. DTSBD200 01964 P2181-EXIT. DTSBD200 01965 EXIT. DTSBD200 01966 SKIP3 DTSBD200 01967 P2185-WEB-AUDIT. DTSBD200 01968 DISPLAY ' P2185 SORT REC ' DTSBD200 01969 MOVE TSKL-REC TO T040-REC. DTSBD200 01970 DTSBD200 01971 MOVE +901 TO SORT-KEY2-SEQ-NO. DTSBD200 01972 DTSBD200 01973 MOVE T040-ASSIGN-NO TO SORT-KEY3-T040-ASSIGN-NO. DTSBD200 01974 DTSBD200 01975 MOVE T040-TRN-CD TO SORT-KEY3-T040-TRN-CD. DTSBD200 01976 P2185-EXIT. DTSBD200 01977 EXIT. DTSBD200 01978 SKIP3 DTSBD200 01979 P2189-TRANSFER-ACCT-TRAN. DTSBD200 01980 IF AADJ-ADJ-88 DTSBD200 01981 MOVE +19 TO SORT-KEY2-SEQ-NO DTSBD200 01982 ELSE DTSBD200 01983 IF ARPT-RPT-88 DTSBD200 01984 IF ARPT-WITHDRW-88 DTSBD200 01985 MOVE +003 TO SORT-KEY2-SEQ-NO DTSBD200 01986 ELSE DTSBD200 01987 MOVE +007 TO SORT-KEY2-SEQ-NO DTSBD200 01988 ELSE DTSBD200 01989 IF AATX-ATX-88 DTSBD200 01990 IF AATX-WITHDRW-88 DTSBD200 01991 MOVE +003 TO SORT-KEY2-SEQ-NO DTSBD200 01992 ELSE DTSBD200 01993 MOVE +007 TO SORT-KEY2-SEQ-NO DTSBD200 01994 ELSE DTSBD200 01995 IF APAY-PAY-88 DTSBD200 01996 IF APAY-PAY-REV-88 DTSBD200 01997 MOVE +001 TO SORT-KEY2-SEQ-NO DTSBD200 01998 ELSE DTSBD200 01999 IF APAY-PAYMENT-88 DTSBD200 02000 MOVE +009 TO SORT-KEY2-SEQ-NO DTSBD200 02001 ELSE DTSBD200 02002 MOVE +039 TO SORT-KEY2-SEQ-NO DTSBD200 02003 ELSE DTSBD200 02004 MOVE +049 TO SORT-KEY2-SEQ-NO. DTSBD200 02005 P2189-EXIT. DTSBD200 02006 EXIT. DTSBD200 02007 SKIP3 DTSBD200 02008 P2190-INVALID-REC-TYPE. DTSBD200 02009 MOVE +999 TO SORT-KEY2-SEQ-NO. DTSBD200 02010 P2190-EXIT. DTSBD200 02011 EXIT. DTSBD200 02012 EJECT DTSBD200 02013 P2200-SET-TBL-SUB. DTSBD200 02014 IF TSKL-REC-TYPE = '001' DTSBD200 02015 IF T001-TRN-CD = '01' DTSBD200 02016 MOVE TRN-001-01-SUB TO WRK-TBL-SUB DTSBD200 02017 ELSE DTSBD200 02018 IF T001-TRN-CD = '02' DTSBD200 02019 MOVE TRN-001-02-SUB TO WRK-TBL-SUB DTSBD200 02020 ELSE DTSBD200 02021 IF T001-TRN-CD = '03' DTSBD200 02022 MOVE TRN-001-03-SUB TO WRK-TBL-SUB DTSBD200 02023 ELSE DTSBD200 02024 IF T001-TRN-CD = '04' DTSBD200 02025 MOVE TRN-001-04-SUB TO WRK-TBL-SUB DTSBD200 02026 ELSE DTSBD200 02027 IF T001-TRN-CD = '05' DTSBD200 02028 MOVE TRN-001-05-SUB TO WRK-TBL-SUB DTSBD200 02029 ELSE DTSBD200 02030 IF T001-TRN-CD = '06' DTSBD200 02031 MOVE TRN-001-06-SUB TO WRK-TBL-SUB DTSBD200 02032 ELSE DTSBD200 02033 IF T001-TRN-CD = '07' DTSBD200 02034 MOVE TRN-001-07-SUB TO WRK-TBL-SUB DTSBD200 02035 ELSE DTSBD200 02036 MOVE TRN-001-UNK-SUB TO WRK-TBL-SUB DTSBD200 02037 ELSE DTSBD200 02038 IF TSKL-REC-TYPE = '002' DTSBD200 02039 IF T002-TRN-CD = '01' DTSBD200 02040 MOVE TRN-002-01-SUB TO WRK-TBL-SUB DTSBD200 02041 ELSE DTSBD200 02042 IF T002-TRN-CD = '02' DTSBD200 02043 MOVE TRN-002-02-SUB TO WRK-TBL-SUB DTSBD200 02044 ELSE DTSBD200 02045 IF T002-TRN-CD = '03' DTSBD200 02046 MOVE TRN-002-03-SUB TO WRK-TBL-SUB DTSBD200 02047 ELSE DTSBD200 02048 IF T002-TRN-CD = '04' DTSBD200 02049 MOVE TRN-002-04-SUB TO WRK-TBL-SUB DTSBD200 02050 ELSE DTSBD200 02051 IF T002-TRN-CD = '05' DTSBD200 02052 MOVE TRN-002-05-SUB TO WRK-TBL-SUB DTSBD200 02053 ELSE DTSBD200 02054 IF T002-TRN-CD = '06' DTSBD200 02055 MOVE TRN-002-06-SUB TO WRK-TBL-SUB DTSBD200 02056 ELSE DTSBD200 02057 MOVE TRN-002-UNK-SUB TO WRK-TBL-SUB DTSBD200 02058 ELSE DTSBD200 02059 IF TSKL-REC-TYPE = '003' DTSBD200 02060 IF T003-TRN-CD = '01' DTSBD200 02061 MOVE TRN-003-01-SUB TO WRK-TBL-SUB DTSBD200 02062 ELSE DTSBD200 02063 IF T003-TRN-CD = '02' DTSBD200 02064 MOVE TRN-003-02-SUB TO WRK-TBL-SUB DTSBD200 02065 ELSE DTSBD200 02066 MOVE TRN-003-UNK-SUB TO WRK-TBL-SUB DTSBD200 02067 ELSE DTSBD200 02068 IF TSKL-REC-TYPE = '006' DTSBD200 02069 IF T006-TRN-CD = '01' DTSBD200 02070 MOVE TRN-006-01-SUB TO WRK-TBL-SUB DTSBD200 02071 ELSE DTSBD200 02072 IF T006-TRN-CD = '02' DTSBD200 02073 MOVE TRN-006-02-SUB TO WRK-TBL-SUB DTSBD200 02074 ELSE DTSBD200 02075 IF T006-TRN-CD = '03' DTSBD200 02076 MOVE TRN-006-03-SUB TO WRK-TBL-SUB DTSBD200 02077 ELSE DTSBD200 02078 MOVE TRN-006-UNK-SUB TO WRK-TBL-SUB DTSBD200 02079 ELSE DTSBD200 02080 IF TSKL-REC-TYPE = '011' DTSBD200 02081 IF T011-TRN-CD = '01' DTSBD200 02082 MOVE TRN-011-01-SUB TO WRK-TBL-SUB DTSBD200 02083 ELSE DTSBD200 02084 IF T011-TRN-CD = '02' DTSBD200 02085 MOVE TRN-011-02-SUB TO WRK-TBL-SUB DTSBD200 02086 ELSE DTSBD200 02087 IF T011-TRN-CD = '03' DTSBD200 02088 MOVE TRN-011-03-SUB TO WRK-TBL-SUB DTSBD200 02089 ELSE DTSBD200 02090 IF T011-TRN-CD = '04' DTSBD200 02091 MOVE TRN-011-04-SUB TO WRK-TBL-SUB DTSBD200 02092 ELSE DTSBD200 02093 IF T011-TRN-CD = '05' DTSBD200 02094 MOVE TRN-011-05-SUB TO WRK-TBL-SUB DTSBD200 02095 ELSE DTSBD200 02096 MOVE TRN-011-UNK-SUB TO WRK-TBL-SUB DTSBD200 02097 ELSE DTSBD200 02098 IF TSKL-REC-TYPE = '016' DTSBD200 02099 IF T016-TRN-CD = '01' DTSBD200 02100 MOVE TRN-016-01-SUB TO WRK-TBL-SUB DTSBD200 02101 ELSE DTSBD200 02102 MOVE TRN-016-UNK-SUB TO WRK-TBL-SUB DTSBD200 02103 ELSE DTSBD200 02104 IF TSKL-REC-TYPE = '021' DTSBD200 02105 IF T021-TRN-CD = '01' DTSBD200 02106 MOVE TRN-021-01-SUB TO WRK-TBL-SUB DTSBD200 02107 ELSE DTSBD200 02108 IF T021-TRN-CD = '02' DTSBD200 02109 MOVE TRN-021-02-SUB TO WRK-TBL-SUB DTSBD200 02110 ELSE DTSBD200 02111 MOVE TRN-021-UNK-SUB TO WRK-TBL-SUB DTSBD200 02112 ELSE DTSBD200 02113 IF TSKL-REC-TYPE = '031' DTSBD200 02114 IF T031-TRN-CD = '01' DTSBD200 02115 MOVE TRN-031-01-SUB TO WRK-TBL-SUB DTSBD200 02116 ELSE DTSBD200 02117 IF T031-TRN-CD = '02' DTSBD200 02118 MOVE TRN-031-02-SUB TO WRK-TBL-SUB DTSBD200 02119 ELSE DTSBD200 02120 MOVE TRN-031-UNK-SUB TO WRK-TBL-SUB DTSBD200 02121 ELSE DTSBD200 02122 IF TSKL-REC-TYPE = '036' DTSBD200 02123 IF T036-TRN-CD = '01' DTSBD200 02124 MOVE TRN-036-01-SUB TO WRK-TBL-SUB DTSBD200 02125 ELSE DTSBD200 02126 IF T036-TRN-CD = '02' DTSBD200 02127 MOVE TRN-036-02-SUB TO WRK-TBL-SUB DTSBD200 02128 ELSE DTSBD200 02129 IF T036-TRN-CD = '03' DTSBD200 02130 MOVE TRN-036-03-SUB TO WRK-TBL-SUB DTSBD200 02131 ELSE DTSBD200 02132 IF T036-TRN-CD = '04' DTSBD200 02133 MOVE TRN-036-04-SUB TO WRK-TBL-SUB DTSBD200 02134 ELSE DTSBD200 02135 MOVE TRN-036-UNK-SUB TO WRK-TBL-SUB DTSBD200 02136 ELSE DTSBD200 02137 IF TSKL-REC-TYPE = '040' DTSBD200 02138 DISPLAY ' P2200 WEB AUDIT REC' DTSBD200 02139 IF T040-TRN-CD = '01' DTSBD200 02140 DISPLAY ' P2200 WEB AUDIT REC TYPE 01' DTSBD200 02141 MOVE TRN-040-01-SUB TO WRK-TBL-SUB DTSBD200 02142 ELSE DTSBD200 02143 IF T040-TRN-CD = '02' DTSBD200 02144 DISPLAY ' P2200 WEB AUDIT REC TYPE 02' DTSBD200 02145 MOVE TRN-040-02-SUB TO WRK-TBL-SUB DTSBD200 02146 ELSE DTSBD200 02147 IF T040-TRN-CD = '03' DTSBD200 02148 DISPLAY ' P2200 WEB AUDIT REC TYPE 03' DTSBD200 02149 MOVE TRN-040-03-SUB TO WRK-TBL-SUB DTSBD200 02150 ELSE DTSBD200 02151 DISPLAY ' P2200 WEB AUDIT REC TYPE UNK' DTSBD200 02152 MOVE TRN-040-UNK-SUB TO WRK-TBL-SUB DTSBD200 02153 ELSE DTSBD200 02154 IF TSKL-REC-TYPE = '051' DTSBD200 02155 IF ARPT-RPT-88 DTSBD200 02156 IF ARPT-ORIG-88 DTSBD200 02157 MOVE TRN-051-R-OR-SUB TO WRK-TBL-SUB DTSBD200 02158 ELSE DTSBD200 02159 IF ARPT-EMP-AMEND-88 DTSBD200 02160 MOVE TRN-051-R-EA-SUB TO WRK-TBL-SUB DTSBD200 02161 ELSE DTSBD200 02162 IF ARPT-AUDIT-88 DTSBD200 02163 MOVE TRN-051-R-AU-SUB TO WRK-TBL-SUB DTSBD200 02164 ELSE DTSBD200 02165 IF ARPT-FLD-SUP-88 DTSBD200 02166 MOVE TRN-051-R-FS-SUB TO WRK-TBL-SUB DTSBD200 02167 ELSE DTSBD200 02168 IF ARPT-ADMIN-CORR-88 DTSBD200 02169 MOVE TRN-051-R-AC-SUB TO WRK-TBL-SUB DTSBD200 02170 ELSE DTSBD200 02171 IF ARPT-ESTIM-88 DTSBD200 02172 MOVE TRN-051-R-ES-SUB TO WRK-TBL-SUB DTSBD200 02173 ELSE DTSBD200 02174 IF ARPT-WITHDRW-88 DTSBD200 02175 MOVE TRN-051-R-WD-SUB TO WRK-TBL-SUB DTSBD200 02176 ELSE DTSBD200 02177 MOVE TRN-051-R-UNK-SUB TO WRK-TBL-SUB DTSBD200 02178 ELSE DTSBD200 02179 IF APAY-PAY-88 DTSBD200 02180 IF APAY-PAYMENT-88 DTSBD200 02181 MOVE TRN-051-P-PA-SUB TO WRK-TBL-SUB DTSBD200 02182 ELSE DTSBD200 02183 IF APAY-PAY-REV-88 DTSBD200 02184 MOVE TRN-051-P-PR-SUB TO WRK-TBL-SUB DTSBD200 02185 ELSE DTSBD200 02186 IF APAY-REFUND-88 DTSBD200 02187 MOVE TRN-051-P-RF-SUB TO WRK-TBL-SUB DTSBD200 02188 ELSE DTSBD200 02189 IF APAY-REF-REV-88 DTSBD200 02190 MOVE TRN-051-P-RR-SUB TO WRK-TBL-SUB DTSBD200 02191 ELSE DTSBD200 02192 IF APAY-NG-CHECK-88 DTSBD200 02193 MOVE TRN-051-P-NG-SUB TO WRK-TBL-SUB DTSBD200 02194 ELSE DTSBD200 02195 MOVE TRN-051-P-UNK-SUB TO WRK-TBL-SUB DTSBD200 02196 ELSE DTSBD200 02197 IF AADJ-ADJ-88 DTSBD200 02198 IF AADJ-CHARGE-88 DTSBD200 02199 MOVE TRN-051-A-CH-SUB TO WRK-TBL-SUB DTSBD200 02200 ELSE DTSBD200 02201 IF AADJ-WAIVE-88 DTSBD200 02202 MOVE TRN-051-A-WV-SUB TO WRK-TBL-SUB DTSBD200 02203 ELSE DTSBD200 02204 IF AADJ-TOLER-88 DTSBD200 02205 MOVE TRN-051-A-TL-SUB TO WRK-TBL-SUB DTSBD200 02206 ELSE DTSBD200 02207 IF AADJ-AUTO-88 DTSBD200 02208 MOVE TRN-051-A-CA-SUB TO WRK-TBL-SUB DTSBD200 02209 ELSE DTSBD200 02210 IF AADJ-MANUAL-88 DTSBD200 02211 MOVE TRN-051-A-CM-SUB TO WRK-TBL-SUB DTSBD200 02212 ELSE DTSBD200 02213 IF AADJ-WAGE-RPT-88 DTSBD200 02214 MOVE TRN-051-A-WG-SUB TO WRK-TBL-SUB DTSBD200 02215 ELSE DTSBD200 02216 IF AADJ-DUE-DATE-88 DTSBD200 02217 MOVE TRN-051-A-QD-SUB TO WRK-TBL-SUB DTSBD200 02218 ELSE DTSBD200 02219 IF AADJ-WAIVE-DATE-88 DTSBD200 02220 MOVE TRN-051-A-WD-SUB TO WRK-TBL-SUB DTSBD200 02221 ELSE DTSBD200 02222 IF AADJ-INT-DATE-88 DTSBD200 02223 MOVE TRN-051-A-ID-SUB TO WRK-TBL-SUB DTSBD200 02224 ELSE DTSBD200 02225 IF AADJ-WRITE-OFF-88 DTSBD200 02226 MOVE TRN-051-A-WO-SUB TO WRK-TBL-SUB DTSBD200 02227 ELSE DTSBD200 02228 IF AADJ-WRITE-OFF-REV-88 DTSBD200 02229 MOVE TRN-051-A-WR-SUB TO WRK-TBL-SUB DTSBD200 02230 ELSE DTSBD200 02231 MOVE TRN-051-A-UNK-SUB TO WRK-TBL-SUB DTSBD200 02232 ELSE DTSBD200 02233 IF AATX-ATX-88 DTSBD200 02234 IF AATX-ORIG-88 DTSBD200 02235 MOVE TRN-051-T-OR-SUB TO WRK-TBL-SUB DTSBD200 02236 ELSE DTSBD200 02237 IF AATX-EMP-AMEND-88 DTSBD200 02238 MOVE TRN-051-T-EA-SUB TO WRK-TBL-SUB DTSBD200 02239 ELSE DTSBD200 02240 IF AATX-AUDIT-88 DTSBD200 02241 MOVE TRN-051-T-AU-SUB TO WRK-TBL-SUB DTSBD200 02242 ELSE DTSBD200 02243 IF AATX-FLD-SUP-88 DTSBD200 02244 MOVE TRN-051-T-FS-SUB TO WRK-TBL-SUB DTSBD200 02245 ELSE DTSBD200 02246 IF AATX-ADMIN-CORR-88 DTSBD200 02247 MOVE TRN-051-T-AC-SUB TO WRK-TBL-SUB DTSBD200 02248 ELSE DTSBD200 02249 IF AATX-ESTIM-88 DTSBD200 02250 MOVE TRN-051-T-ES-SUB TO WRK-TBL-SUB DTSBD200 02251 ELSE DTSBD200 02252 IF AATX-WITHDRW-88 DTSBD200 02253 MOVE TRN-051-T-WD-SUB TO WRK-TBL-SUB DTSBD200 02254 ELSE DTSBD200 02255 MOVE TRN-051-T-UNK-SUB TO WRK-TBL-SUB DTSBD200 02256 ELSE DTSBD200 02257 MOVE TRN-051-UNK-SUB TO WRK-TBL-SUB DTSBD200 02258 ELSE DTSBD200 02259 MOVE TRN-UNK-SUB TO WRK-TBL-SUB. DTSBD200 02260 P2200-EXIT. DTSBD200 02261 EXIT. DTSBD200 02262 EJECT DTSBD200 02263 P3000-POST-SORT. DTSBD200 02264 MOVE 'N' TO SORT-EOR-IND. DTSBD200 02265 DTSBD200 02266 PERFORM P3100-RETURN-LOOP THRU P3100-EXIT DTSBD200 02267 UNTIL SORT-EOR-IND = 'Y'. DTSBD200 02268 P3000-EXIT. DTSBD200 02269 EXIT. DTSBD200 02270 SKIP3 DTSBD200 02271 P3100-RETURN-LOOP. DTSBD200 02272 RETURN SORT-FILE DTSBD200 02273 AT END DTSBD200 02274 MOVE 'Y' TO SORT-EOR-IND DTSBD200 02275 GO TO P3100-EXIT. DTSBD200 02276 DTSBD200 02277 COMPUTE VAR-CHAR-CNT = RVAR-LENGTH - 2. DTSBD200 02278 DTSBD200 02279 MOVE SORT-DATA TO WRK-REC. DTSBD200 02280 DTSBD200 02281 DISPLAY ' BEFORE WRITE REC TYPE ' RSK3-REC-TYPE. DTSBD200 02282 PERFORM S946-TRN-REC-O THRU S946-EXIT. DTSBD200 02283 DISPLAY ' AFTER WRITE REC TYPE ' RSK3-REC-TYPE. DTSBD200 02284 P3100-EXIT. DTSBD200 02285 EXIT. DTSBD200 02286 EJECT DTSBD200 02287 T1000-TERMINATE. DTSBD200 02288 DISPLAY ' '. DTSBD200 02289 DTSBD200 02290 DISPLAY '*** DTSBD200 TERMINATION STATISTICS'. DTSBD200 02291 DTSBD200 02292 PERFORM S941-CLOSE THRU S941-EXIT. DTSBD200 02293 DTSBD200 02294 MOVE -1 TO RSK3-LENGTH. DTSBD200 02295 DTSBD200 02296 PERFORM S946-TRN-REC-O THRU S946-EXIT. DTSBD200 02297 DTSBD200 02298 PERFORM T1100-TRN-TABLE-DISP THRU T1100-EXIT. DTSBD200 02299 T1000-EXIT. DTSBD200 02300 EXIT. DTSBD200 02301 SKIP3 DTSBD200 02302 T1100-TRN-TABLE-DISP. DTSBD200 02303 DISPLAY ' '. DTSBD200 02304 DTSBD200 02305 DISPLAY ' '. DTSBD200 02306 DTSBD200 02307 DISPLAY HDR1. DTSBD200 02308 DTSBD200 02309 DISPLAY HDR2. DTSBD200 02310 DTSBD200 02311 DISPLAY ' '. DTSBD200 02312 DTSBD200 02313 PERFORM T1110-TRN-TABLE-LOOP THRU T1110-EXIT DTSBD200 02314 VARYING TRN-IDX FROM 1 BY 1 DTSBD200 02315 UNTIL TRN-IDX > WRK-TBL-MAX. DTSBD200 02316 T1100-EXIT. DTSBD200 02317 EXIT. DTSBD200 02318 SKIP3 DTSBD200 02319 T1110-TRN-TABLE-LOOP. DTSBD200 02320 MOVE TRN-REC-TYP (TRN-IDX) TO DET1-REC-TYP. DTSBD200 02321 DTSBD200 02322 MOVE TRN-TRN-CDE (TRN-IDX) TO DET1-TRN-CDE. DTSBD200 02323 DTSBD200 02324 MOVE TRN-TRN-TYP (TRN-IDX) TO DET1-TRN-TYP. DTSBD200 02325 DTSBD200 02326 MOVE TRN-REC-TYP-DSCR (TRN-IDX) TO DET1-REC-TYP-DSCR. DTSBD200 02327 DTSBD200 02328 MOVE TRN-TRN-CDE-DSCR (TRN-IDX) TO DET1-TRN-CDE-DSCR. DTSBD200 02329 DTSBD200 02330 MOVE TRN-TRN-TYP-DSCR (TRN-IDX) TO DET1-TRN-TYP-DSCR. DTSBD200 02331 DTSBD200 02332 IF TRN-IND (TRN-IDX) = 'Y' DTSBD200 02333 MOVE 'INC' TO DET1-IND DTSBD200 02334 ELSE DTSBD200 02335 MOVE 'EXC' TO DET1-IND. DTSBD200 02336 DTSBD200 02337 MOVE TRN-CNT (TRN-IDX) TO DET1-CNT. DTSBD200 02338 DTSBD200 02339 DISPLAY DET1. DTSBD200 02340 T1110-EXIT. DTSBD200 02341 EXIT. DTSBD200 02342 EJECT DTSBD200 02343 S941-OPEN-READ. DTSBD200 02344 SET L941-OPEN-READ-88 TO TRUE. DTSBD200 02345 GO TO S941-I. DTSBD200 02346 DTSBD200 02347 S941-READ-NEXT. DTSBD200 02348 SET L941-READ-NEXT-88 TO TRUE. DTSBD200 02349 GO TO S941-I. DTSBD200 02350 DTSBD200 02351 S941-CLOSE. DTSBD200 02352 SET L941-CLOSE-88 TO TRUE. DTSBD200 02353 GO TO S941-I. DTSBD200 02354 DTSBD200 02355 S941-I. DTSBD200 02356 CALL 'DTSBU941' USING L941-LINK-AREA DTSBD200 02357 WRK-REC. DTSBD200 02358 S941-EXIT. DTSBD200 02359 EXIT. DTSBD200 02360 SKIP3 DTSBD200 02361 S946-TRN-REC-O. DTSBD200 02362 CALL 'DTSBU946' USING WRK-REC. DTSBD200 02363 S946-EXIT. DTSBD200 02364 EXIT. DTSBD200 02365 SKIP3 DTSBD200 02366 S999-ABEND. DTSBD200 02367 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBD200 02368 S999-EXIT. DTSBD200 02369 EXIT. DTSBD200