2371 lines
188 KiB
COBOL
2371 lines
188 KiB
COBOL
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
|