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
