00001  IDENTIFICATION DIVISION.                                         06/19/13
00002  PROGRAM-ID.             DTSCS21.                                 DTSCS21
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV064
00004  DATE-WRITTEN.           NOVEMBER 1991.                           DTSCS21
00005  DATE-COMPILED.                                                   DTSCS21
00006      SKIP3                                                        DTSCS21
00007 *****                                                             DTSCS21
00008 *                                                                 DTSCS21
00009 *    FUNCTION:  BATCH SUMMARY INQUIRY/UPDATE SCREEN PROCESSOR.    DTSCS21
00010 *                                                                 DTSCS21
00011 *                                                                 DTSCS21
00012 *    MODIFICATION LOG:                                            DTSCS21
00013 *                                                                 DTSCS21
00014 *    05/09/95  AHDR-*-ITEM-CNT  WERE CHANGED TO  AHDR-*-TRAN-CNT. DTSCS21
00015 *              THEY NO LONGER INCLUDE THE CHECKS IN THE COUNTS.   DTSCS21
00016 *              WORK ORDER: CR076                PROGRAMMER: RHC   DTSCS21
00017 *                                                                 DTSCS21
00018 *    12/11/95  FAILURE TO INITIALIZE L019-S-ITEM-NO-AREA PRIOR    DTSCS21
00019 *              LINK TO DTSCU019 CAUSING INTERMITTANT ERROR.       DTSCS21
00020 *              INSERTED MOVE SPACES TO L019-S-ITEM-NO-AREA        DTSCS21
00021 *              INTO PARAGRAPHS P3000, S1110, AND S1120.           DTSCS21
00022 *              WORK ORDER: NONE                 PROGRAMMER: EHH   DTSCS21
00023 *                                                                 DTSCS21
00024 *    12/31/96  ADDED 88 LEVEL TO DTSIAHDR FOR ELECTRONIC FILER    DTSCS21
00025 *              BATCHES.  ONLY USED IN DTSBD140, SO TO SAVE MONEY  DTSCS21
00026 *              THIS PROGRAM WASN'T RECOMPILED.                    DTSCS21
00027 *              WORK ORDER:                      PROGRAMMER: MJA   DTSCS21
00028 *                                                                 DTSCS21
00029 *    08/04/97  MODIFY LOGIC TO REMOVE DELETE FUNCTION AS          DTSCS21
00030 *              CURRENTLY PERFORMED USING FUNCTION 11.             DTSCS21
00031 *              REFERENCE RFP: TCL 096           PROGRAMMER: FLS   DTSCS21
00032 *                                                                 DTSCS21
00033 *    11/07/97  MODIFICATIONS TO REFLECT THE TRANSFER OF UI TAX    DTSCS21
00034 *              FUNCTIONS FROM DLI TO DOR.                         DTSCS21
00035 *              REFERENCE RFP: TCL 208           PROGRAMMER: EHH   DTSCS21
00036 *                                                                 DTSCS21
00037 *    11/16/1998  REVIEWED AND MODIFIED FOR DC.                    DTSCS21
00038 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH   DTSCS21
00039 *                                                                 DTSCS21
00040 *    12/07/2005  ADDED BANK BATCH NUMBER.                         DTSCS21
00041 *                REFERENCE:                     PROGRAMMER: GD    DTSCS21
00042 *                                                                 DTSCS21
00043 *    03/13/2006  MODIFIED TO PREVENT CHANGE IN CONTROL TOTALS     DTSCS21
00044 *                EXCEPT BY DESIGNATED SUPERVISORS.                DTSCS21
00045 *                USER IDS ARE HARD-CODED IN P7200 AND P7300.      DTSCS21
00046 *                REFERENCE:                     PROGRAMMER: GD    DTSCS21
00047 *                                                                 DTSCS21
00048 *    09/26/2008  ADDED ID OF NEW ACCOUNTING SUPERVISOR TO LIST    DTSCS21
00049 *                OF THOSE AUTHORIZED TO MODIFY AN ACCOUNTING      DTSCS21
00050 *                HEADER. (P7200 AND P7300).                       DTSCS21
00051 *                REFERENCE:                     PROGRAMMER: GD    DTSCS21
00052 *                                                                 DTSCS21
00053 *    04/09/2009  MODIFIED TO PRINT DEPOSIT TICKET WHEN F6         DTSCS21
00054 *                KEY IS PRESSED.                                  DTSCS21
00055 *                REFERENCE:                     PROGRAMMER: GD    DTSCS21
00056 *                                                                 DTSCS21
00057 *    05/15/2009  MODIFIED DEPOSIT TICKET: ADDED ONE LETTER BATCH  DTSCS21
00058 *                TYPE IMMEDIATELY BEFORE BATCH NUMBER.  FOR       DTSCS21
00059 *                ONLINE BATCHES, THE TYPE IS "A," WHILE FOR       DTSCS21
00060 *                ICESA BATCHES, IT IS "B."                        DTSCS21
00061 *                REFERENCE:                     PROGRAMMER: GD    DTSCS21
00062 *                                                                 DTSCS21
00063 *    07/23/2009  ADDED USERID EUMJ01B (JALLOH MOHAMED) TO UPDATE  DTSCS21
00064 *                BATCHES.                                         DTSCS21
00065 *                REFERENCE:                     PROGRAMMER: ZL1   DTSCS21
00066 *                                                                 DTSCS21
00067 *    12/02/2009  ADDED SUPERVISOR LEVEL ACCESS TO UPDATE BATCHES  DTSCS21
00068 *                REFERENCE:                     PROGRAMMER: ZL1   DTSCS21
00069 *                                                                 DTSCS21
00070 *    12/22/2009  MODIFIED P8110, P8210, P8310 TO CALL DTSCU826    DTSCS21
00071 *                TO SAVE COPIES OF REPORT RECORDS WHEN ADDED      DTSCS21
00072 *                AND WHEN MODIFIED. THE RECORDS ARE SAVED         DTSCS21
00073 *                IN THE ACCOUNTING TRANSACTION HISTORY            DTSCS21
00074 *                FILE (ATH).                                      DTSCS21
00075 *                REFERENCE:                     PROGRAMMER: GD    DTSCS21
00076 *                                                                 DTSCS21
00077 *    02/10/2011  ADDED TREASURY DEPOSIT ID FIELD FOR WALK-IN      DTSCS21
00078 *                DEPOSITS.                                        DTSCS21
00079 *                REFERENCE:                     PROGRAMMER: GD    DTSCS21
00080 *                                                                 DTSCS21
00081 *    06/19/2013  MODIFIED RECEIVED DATE AND DEPOSIT DATE EDITS    DTSCS21
00082 *                TO ALLOW UPDATE OF BATCHES WHERE THE DATES       DTSCS21
00083 *                ARE MORE THAN ONE YEAR OLD.                      DTSCS21
00084 *                REFERENCE:                     PROGRAMMER: GD    DTSCS21
00085 *                                                                 DTSCS21
00086 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSCS21
00087 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSCS21
00088 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSCS21
00089 *                                                                 DTSCS21
00090 *                                                                 DTSCS21
00091 *  DESCRIPTION:                                                   DTSCS21
00092 *                                                                 DTSCS21
00093 *                                                                 DTSCS21
00094 *    CLEAR:                                                       DTSCS21
00095 *                                                                 DTSCS21
00096 *      FIELD DISPLAYED: NONE.                                     DTSCS21
00097 *                                                                 DTSCS21
00098 *                                                                 DTSCS21
00099 *    JUMP:                                                        DTSCS21
00100 *                                                                 DTSCS21
00101 *      STANDARD                                                   DTSCS21
00102 *                                                                 DTSCS21
00103 *                                                                 DTSCS21
00104 *    INQUIRY:                                                     DTSCS21
00105 *                                                                 DTSCS21
00106 *      CONTROL FIELDS: MAP-BATCH-NO-1 AND MAP-BATCH-NO-2.         DTSCS21
00107 *                                                                 DTSCS21
00108 *      JUMP IN: IF LCCM-BATCH-NO AHDR RECORD EXISTS               DTSCS21
00109 *                 DISPLAY LCCM-BATCH-NO AHDR RECORD               DTSCS21
00110 *               ELSE                                              DTSCS21
00111 *                 CLEAR.                                          DTSCS21
00112 *                                                                 DTSCS21
00113 *      ENTER:  SPECIAL LOGIC TO DISPLAY SUMMARY OF RANGE OF       DTSCS21
00114 *              BATCH HEADER RECORDS.  SEE SCREEN DESCRIPTION FOR  DTSCS21
00115 *              DETAILS.                                           DTSCS21
00116 *                                                                 DTSCS21
00117 *      F7, F8:  PAGE TO PRIOR, PAGE TO NEXT BATCH HEADER RECORD.  DTSCS21
00118 *               DO NOT BOTHER TO 'WRAP' PAGING.                   DTSCS21
00119 *                                                                 DTSCS21
00120 *      STANDARD LCCM-DOC-NO   MAINTENANCE.                        DTSCS21
00121 *                                                                 DTSCS21
00122 *      STANDARD LCCM-PRINTER-ID MAINTENANCE.                      DTSCS21
00123 *                                                                 DTSCS21
00124 *      USE LCCM-SCR-HOLD-AREA TO STORE CONTROL INFORMATION        DTSCS21
00125 *      BETWEEN TASKS.  OF COURSE, AT JUMP FROM SCREEN 21,         DTSCS21
00126 *      LCCM-SCR-HOLD-AREA IS CLEARED.                             DTSCS21
00127 *                                                                 DTSCS21
00128 *                                                                 DTSCS21
00129 *    PRINT:                                                       DTSCS21
00130 *                                                                 DTSCS21
00131 *      MAKE IT LOOK SOMETHING LIKE AN UPDATE (F5; LOCK SCREEN;    DTSCS21
00132 *      F12 OR ENTER).  USE TS Q 'P' TO COMMUNICATE PRINT LINES    DTSCS21
00133 *      TO DTSCU357.                                               DTSCS21
00134 *                                                                 DTSCS21
00135 *                                                                 DTSCS21
00136 *    UPDATE:                                                      DTSCS21
00137 *                                                                 DTSCS21
00138 *      ADD                                                        DTSCS21
00139 *                                                                 DTSCS21
00140 *        UTILIZE DTSCU373.                                        DTSCS21
00141 *                                                                 DTSCS21
00142 *                                                                 DTSCS21
00143 *      MOD                                                        DTSCS21
00144 *                                                                 DTSCS21
00145 *        A SINGLE BATCH MUST BE DISPLAYED.                        DTSCS21
00146 *        CHANGE OF MAP-BATCH-NO-1 DURING MOD IS AN ERROR.         DTSCS21
00147 *                                                                 DTSCS21
00148 *                                                                 DTSCS21
00149 *      DEL                                                        DTSCS21
00150 *                                                                 DTSCS21
00151 *        DELETE ALL ARPT, APAY, AND AADJ RECORDS ASSOCIATED       DTSCS21
00152 *        WITH MAP-BATCH-NO-1.  SET AHDR-ATC-FILE-* DATA ELEMENTS  DTSCS21
00153 *        TO ZERO.  SET AHDR-RELEASED-88 TO TRUE.                  DTSCS21
00154 *        DO NOT DELETE THE AHDR RECORD.  A SINGLE BATCH MUST BE   DTSCS21
00155 *        DISPLAYED PRIOR TO THE DELETE.  CHANGE OF MAP-BATCH-NO-1 DTSCS21
00156 *        DURING DEL IS AN ERROR.                                  DTSCS21
00157 *                                                                 DTSCS21
00158 *                                                                 DTSCS21
00159 *                                                                 DTSCS21
00160 *    RECORDS READ:                                                DTSCS21
00161 *                                                                 DTSCS21
00162 *      MASTER:                                                    DTSCS21
00163 *                                                                 DTSCS21
00164 *        NONE                                                     DTSCS21
00165 *                                                                 DTSCS21
00166 *                                                                 DTSCS21
00167 *      ALTERNATE INDEX:                                           DTSCS21
00168 *                                                                 DTSCS21
00169 *        NONE.                                                    DTSCS21
00170 *                                                                 DTSCS21
00171 *                                                                 DTSCS21
00172 *      REFERENCE:                                                 DTSCS21
00173 *                                                                 DTSCS21
00174 *        NONE.                                                    DTSCS21
00175 *                                                                 DTSCS21
00176 *                                                                 DTSCS21
00177 *      ACCOUNTING TRANSACTION COLLECTION:                         DTSCS21
00178 *                                                                 DTSCS21
00179 *        AHDR                                                     DTSCS21
00180 *        ARPT                                                     DTSCS21
00181 *        APAY                                                     DTSCS21
00182 *        AADJ                                                     DTSCS21
00183 *                                                                 DTSCS21
00184 *                                                                 DTSCS21
00185 *    RECORDS UPDATED:                                             DTSCS21
00186 *                                                                 DTSCS21
00187 *      MASTER:                                                    DTSCS21
00188 *                                                                 DTSCS21
00189 *        NONE.                                                    DTSCS21
00190 *                                                                 DTSCS21
00191 *                                                                 DTSCS21
00192 *      REFERENCE:                                                 DTSCS21
00193 *                                                                 DTSCS21
00194 *        NONE.                                                    DTSCS21
00195 *                                                                 DTSCS21
00196 *                                                                 DTSCS21
00197 *      ACCOUNTING TRANSACTION COLLECTION:                         DTSCS21
00198 *                                                                 DTSCS21
00199 *        AHDR (REWRITE)                                           DTSCS21
00200 *        ARPT (DELETE)                                            DTSCS21
00201 *        APAY (DELETE)                                            DTSCS21
00202 *        AADJ (DELETE)                                            DTSCS21
00203 *                                                                 DTSCS21
00204 *                                                                 DTSCS21
00205 *    ON-LINE ACTIVITY FILE RECORDS WRITTEN:                       DTSCS21
00206 *                                                                 DTSCS21
00207 *      NONE.                                                      DTSCS21
00208 *                                                                 DTSCS21
00209 *                                                                 DTSCS21
00210 *    TEMPORARY STORAGE USAGE:                                     DTSCS21
00211 *                                                                 DTSCS21
00212 *      P  COMMUNICATE PRINT LINES TO DTSCU357.                    DTSCS21
00213 *                                                                 DTSCS21
00214 *                                                                 DTSCS21
00215 *    MODULES LINKED TO:                                           DTSCS21
00216 *                                                                 DTSCS21
00217 *      DTSCU001  DATE EDIT/CONVERSION.                            DTSCS21
00218 *      DTSCU011  MONEY AMOUNT FROM SCREEN FORMAT/EDIT.            DTSCS21
00219 *      DTSCU013  COUNT (INTEGER) FROM SCREEN FORMAT/EDIT.         DTSCS21
00220 *      DTSCU015  DATE FROM SCREEN FORMAT/EDIT.                    DTSCS21
00221 *      DTSCU019  DOCUMENT NO FROM SCREEN FORMAT/EDIT.             DTSCS21
00222 *      DTSCU082  OPERATOR ID EDIT/LOOKUP.                         DTSCS21
00223 *      DTSCU357  ON-LINE PRINTING.                                DTSCS21
00224 *      DTSCU373  ACCOUNTING TRANSACTION FILE BATCH HEADER         DTSCS21
00225 *                RECORD ESTABLISH.                                DTSCS21
00226 *      DTSCU823  ACCOUNTING TRANSACTION FILE INPUT/OUTPUT.        DTSCS21
00227 *                                                                 DTSCS21
00228 *                                                                 DTSCS21
00229 *    VERMONT REFERENCE:                                           DTSCS21
00230 *                                                                 DTSCS21
00231 *      TXC110C.                                                   DTSCS21
00232 *                                                                 DTSCS21
00233 *****                                                             DTSCS21
00234                                                                   DTSCS21
00235  ENVIRONMENT DIVISION.                                            DTSCS21
00236                                                                   DTSCS21
00237  DATA DIVISION.                                                   DTSCS21
00238                                                                   DTSCS21
00239  WORKING-STORAGE SECTION.                                         DTSCS21
002395 77  PAN-VALET PICTURE X(24) VALUE '064DTSCS21   06/19/13'.       DTSCS21
00240  77  PAN-VALET PICTURE X(24) VALUE '003DTSCS21   06/19/13'.       DTSCS21
00241  77  PAN-VALET PICTURE X(24) VALUE '062DTSCS21   09/26/11'.       DTSCS21
00242                                                                   DTSCS21
00243  01  WRK-AREA.                                                    DTSCS21
00244      05  WRK-ABEND-CD                PIC  X(04)  VALUE 'S21 '.    DTSCS21
00245                                                                   DTSCS21
00246      05  WRK-SCR-ID.                                              DTSCS21
00247          10  WRK-SCR-ID-N            PIC  9(02)  VALUE 21.        DTSCS21
00248                                                                   DTSCS21
00249      05  WRK-F03-SCR-ID              PIC  X(02)  VALUE '20'.      DTSCS21
00250                                                                   DTSCS21
00251      05  LIT-MAX-DETAIL              PIC S9(04)  COMP VALUE +55.  DTSCS21
00252                                                                   DTSCS21
00253      05  SCR-ACCESS-IND              PIC X(01).                   DTSCS21
00254          88  SCR-ACCESS-INQ                  VALUE '1'.           DTSCS21
00255          88  SCR-ACCESS-UPDATE               VALUE '2' '3'.       DTSCS21
00256          88  SCR-ACCESS-SUPERVISOR           VALUE '3'.           DTSCS21
00257                                                                   DTSCS21
00258      05  CURSOR-SET-IND              PIC X(01).                   DTSCS21
00259          88  CURSOR-SET-YES                  VALUE 'Y'.           DTSCS21
00260          88  CURSOR-SET-NO                   VALUE 'N'.           DTSCS21
00261          88  CURSOR-SET-GOTO                 VALUE 'G'.           DTSCS21
00262                                                                   DTSCS21
00263      05  REQ-IND                     PIC X(01).                   DTSCS21
00264          88  REQ-CURSOR-TO-GOTO              VALUE 'G'.           DTSCS21
00265          88  REQ-ERROR                       VALUE 'O'.           DTSCS21
00266          88  REQ-JUMP                        VALUE 'J'.           DTSCS21
00267          88  REQ-UPDATE                      VALUE 'U'.           DTSCS21
00268          88  REQ-INQUIRE                     VALUE 'I'.           DTSCS21
00269          88  REQ-CLEAR                       VALUE 'C'.           DTSCS21
00270          88  REQ-EDIT                        VALUE 'E'.           DTSCS21
00271                                                                   DTSCS21
00272      05  RESP-IND                    PIC X(01).                   DTSCS21
00273          88  RESP-SEND-MSGONLY               VALUE 'O'.           DTSCS21
00274          88  RESP-SEND-MAP                   VALUE 'M'.           DTSCS21
00275          88  RESP-JUMP                       VALUE 'J'.           DTSCS21
00276          88  RESP-CURSOR-TO-GOTO             VALUE 'G'.           DTSCS21
00277                                                                   DTSCS21
00278      05  WRK-MSG-AREA                PIC  X(64).                  DTSCS21
00279                                                                   DTSCS21
00280      05  WRK-ATB-AN                  PIC  X(01).                  DTSCS21
00281                                                                   DTSCS21
00282      05  WRK-ATB-NUM                 PIC  X(01).                  DTSCS21
00283                                                                   DTSCS21
00284      05  WRK-RECORD-ACCUM-IND        PIC  X(01).                  DTSCS21
00285          88  WRK-RECORD-ACCUM-NO-88          VALUE 'N'.           DTSCS21
00286          88  WRK-RECORD-ACCUM-YES-88         VALUE 'Y'.           DTSCS21
00287                                                                   DTSCS21
00288      05  WRK-BATCH-NO-1-RESULT-IND       PIC  X(01).              DTSCS21
00289          88  WRK-BATCH-NO-1-NO-ENTRY         VALUE '0'.           DTSCS21
00290          88  WRK-BATCH-NO-1-VALID            VALUE '1'.           DTSCS21
00291          88  WRK-BATCH-NO-1-NOT-VALID        VALUE '2'.           DTSCS21
00292                                                                   DTSCS21
00293      05  WRK-BATCH-NO-2-RESULT-IND       PIC  X(01).              DTSCS21
00294          88  WRK-BATCH-NO-2-NO-ENTRY         VALUE '0'.           DTSCS21
00295          88  WRK-BATCH-NO-2-VALID            VALUE '1'.           DTSCS21
00296          88  WRK-BATCH-NO-2-NOT-VALID        VALUE '2'.           DTSCS21
00297                                                                   DTSCS21
00298      05  WRK-RECEIVED-DATE           PIC S9(09) COMP-3.           DTSCS21
00299                                                                   DTSCS21
00300      05  WRK-DEPOSIT-DATE            PIC S9(09) COMP-3.           DTSCS21
00301                                                                   DTSCS21
00302      05  WRK-DEPOSIT-ID              PIC  9(10).                  DTSCS21
00303                                                                   DTSCS21
00304      05  WRK-EMP-NO                  PIC  9(06).                  DTSCS21
00305      05  WRK-EMP-NO-X REDEFINES WRK-EMP-NO.                       DTSCS21
00306          10  WRK-EMP-NO-1            PIC  9(03).                  DTSCS21
00307          10  WRK-EMP-NO-2            PIC  9(03).                  DTSCS21
00308                                                                   DTSCS21
00309      05  WRK-TOT-REMIT               PIC S9(09)V9(02) COMP-3.     DTSCS21
00310                                                                   DTSCS21
00311      05  WRK-TOT-ITEMS               PIC S9(03)       COMP-3.     DTSCS21
00312                                                                   DTSCS21
00313      05  WRK-DISPLAY                 PIC 9(11).                   DTSCS21
00314                                                                   DTSCS21
00315      05  FILLER REDEFINES WRK-DISPLAY.                            DTSCS21
00316          10  FILLER                  PIC X(05).                   DTSCS21
00317          10  WRK-DISPLAY-YR          PIC X(02).                   DTSCS21
00318          10  WRK-DISPLAY-MO          PIC X(02).                   DTSCS21
00319          10  WRK-DISPLAY-DA          PIC X(02).                   DTSCS21
00320                                                                   DTSCS21
00321      05  WRK-ACCUMULATORS.                                        DTSCS21
00322          10  WRK-PAGE-CTR            PIC S9(05)       COMP-3.     DTSCS21
00323          10  WRK-DETAIL-CTR          PIC S9(05)       COMP-3.     DTSCS21
00324          10  WRK-CONTROL-TRAN-CNT    PIC S9(05)       COMP-3.     DTSCS21
00325          10  WRK-ATC-FILE-TRAN-CNT   PIC S9(05)       COMP-3.     DTSCS21
00326          10  WRK-PROC-TRAN-CNT       PIC S9(05)       COMP-3.     DTSCS21
00327          10  WRK-CONTROL-REMIT-AMT   PIC S9(09)V9(02) COMP-3.     DTSCS21
00328          10  WRK-ATC-FILE-REMIT-AMT  PIC S9(09)V9(02) COMP-3.     DTSCS21
00329          10  WRK-PROC-REMIT-AMT      PIC S9(09)V9(02) COMP-3.     DTSCS21
00330                                                                   DTSCS21
00331      05  WRK-LCCM-SCR-HOLD.                                       DTSCS21
00332          10  WRK-LCCM-PRINT-TYPE     PIC  X(03).                  DTSCS21
00333              88  WRK-LCCM-PRINT-REG-88  VALUE 'REG'.              DTSCS21
00334              88  WRK-LCCM-PRINT-DEP-88  VALUE 'DEP'.              DTSCS21
00335                                                                   DTSCS21
00336      05  SCREEN-HOLD-AREA.                                        DTSCS21
00337          10  WRK-BATCH-NO-1-AREA.                                 DTSCS21
00338              15  WRK-BATCH-NO-1-L    PIC S9(04) COMP.             DTSCS21
00339              15  WRK-BATCH-NO-1-A    PIC  X(01).                  DTSCS21
00340              15  WRK-BATCH-NO-1      PIC  9(05).                  DTSCS21
00341                                                                   DTSCS21
00342          10  WRK-BATCH-NO-2-AREA.                                 DTSCS21
00343              15  WRK-BATCH-NO-2-L    PIC S9(04) COMP.             DTSCS21
00344              15  WRK-BATCH-NO-2-A    PIC  X(01).                  DTSCS21
00345              15  WRK-BATCH-NO-2      PIC  9(05).                  DTSCS21
00346                                                                   DTSCS21
00347      05  WRK-E215-REMIT-AMT   PIC S9(09)V9(02) COMP-3.            DTSCS21
00348      05  WRK-E216-TRAN-CNT    PIC S9(05)       COMP-3.            DTSCS21
00349                                                                   DTSCS21
00350      05  WRK-AATH-ACTION             PIC  X(01).                  DTSCS21
00351          88  WRK-AATH-ACTION-ADD-88    VALUE 'A'.                 DTSCS21
00352          88  WRK-AATH-ACTION-UPD-88    VALUE 'U'.                 DTSCS21
00353          88  WRK-AATH-ACTION-DEL-88    VALUE 'D'.                 DTSCS21
00354                                                                   DTSCS21
00355  01  MSG-LITERALS.                                                DTSCS21
00356                                                                   DTSCS21
00357      05  MSG-E211-AREA.                                           DTSCS21
00358          10  FILLER                  PIC  X(04)  VALUE 'E211'.    DTSCS21
00359          10  FILLER                  PIC  X(30)                   DTSCS21
00360                VALUE 'PRINT FAILED                  '.            DTSCS21
00361          10  FILLER                  PIC  X(30)                   DTSCS21
00362                VALUE '                              '.            DTSCS21
00363                                                                   DTSCS21
00364      05  MSG-E212-AREA.                                           DTSCS21
00365          10  FILLER                  PIC  X(04)  VALUE 'E212'.    DTSCS21
00366          10  FILLER                  PIC  X(30)                   DTSCS21
00367                VALUE 'TRANSACTIONS PROCESSED - DELET'.            DTSCS21
00368          10  FILLER                  PIC  X(30)                   DTSCS21
00369                VALUE 'E NOT ALLOWED                 '.            DTSCS21
00370                                                                   DTSCS21
00371      05  MSG-E213-AREA.                                           DTSCS21
00372          10  FILLER                  PIC  X(04)  VALUE 'E213'.    DTSCS21
00373          10  FILLER                  PIC  X(30)                   DTSCS21
00374                VALUE 'NO RECORD FOR SPECIFIED BATCH '.            DTSCS21
00375          10  FILLER                  PIC  X(30)                   DTSCS21
00376                VALUE 'OR BATCH RANGE                '.            DTSCS21
00377                                                                   DTSCS21
00378      05  MSG-E214-AREA.                                           DTSCS21
00379          10  FILLER                  PIC  X(04)  VALUE 'E214'.    DTSCS21
00380          10  FILLER                  PIC  X(30)                   DTSCS21
00381                VALUE 'CHANGE NOT ALLOWED: TRANSACTIO'.            DTSCS21
00382          10  FILLER                  PIC  X(30)                   DTSCS21
00383                VALUE 'NS ON FILE                    '.            DTSCS21
00384                                                                   DTSCS21
00385      05  MSG-E215-AREA.                                           DTSCS21
00386          10  FILLER                  PIC  X(04)  VALUE 'E215'.    DTSCS21
00387          10  FILLER                  PIC  X(30)                   DTSCS21
00388                VALUE 'CONTROL REMIT AMT MAY NOT BE C'.            DTSCS21
00389          10  FILLER                  PIC  X(30)                   DTSCS21
00390                VALUE 'HANGED                        '.            DTSCS21
00391                                                                   DTSCS21
00392      05  MSG-E216-AREA.                                           DTSCS21
00393          10  FILLER                  PIC  X(04)  VALUE 'E216'.    DTSCS21
00394          10  FILLER                  PIC  X(30)                   DTSCS21
00395                VALUE 'CONTROL TRAN CNT MAY NOT BE CH'.            DTSCS21
00396          10  FILLER                  PIC  X(30)                   DTSCS21
00397                VALUE 'ANGED                         '.            DTSCS21
00398                                                                   DTSCS21
00399      05  MSG-E217-AREA.                                           DTSCS21
00400          10  FILLER                  PIC  X(04)  VALUE 'E217'.    DTSCS21
00401          10  FILLER                  PIC  X(30)                   DTSCS21
00402                VALUE 'DELETION NOT ALLOWED          '.            DTSCS21
00403          10  FILLER                  PIC  X(30)                   DTSCS21
00404                VALUE '                              '.            DTSCS21
00405                                                                   DTSCS21
00406      05  MSG-E218-AREA.                                           DTSCS21
00407          10  FILLER                  PIC  X(04)  VALUE 'E218'.    DTSCS21
00408          10  FILLER                  PIC  X(30)                   DTSCS21
00409                VALUE 'NOT BALANCED: DEPOSIT TICKET C'.            DTSCS21
00410          10  FILLER                  PIC  X(30)                   DTSCS21
00411                VALUE 'ANNOT BE PRINTED.             '.            DTSCS21
00412                                                                   DTSCS21
00413      05  MSG-E219-AREA.                                           DTSCS21
00414          10  FILLER                  PIC  X(04)  VALUE 'E219'.    DTSCS21
00415          10  FILLER                  PIC  X(30)                   DTSCS21
00416                VALUE 'BATCH IS HELD: DEPOSIT TICKET '.            DTSCS21
00417          10  FILLER                  PIC  X(30)                   DTSCS21
00418                VALUE 'CANNOT BE PRINTED.            '.            DTSCS21
00419                                                                   DTSCS21
00420      05  MSG-E220-AREA.                                           DTSCS21
00421          10  FILLER                  PIC  X(04)  VALUE 'E220'.    DTSCS21
00422          10  FILLER                  PIC  X(30)                   DTSCS21
00423                VALUE 'REMITTANCE NOT > 0: DEPOSIT TI'.            DTSCS21
00424          10  FILLER                  PIC  X(30)                   DTSCS21
00425                VALUE 'CKET CANNOT BE PRINTED.       '.            DTSCS21
00426                                                                   DTSCS21
00427      05  MSG-E221-AREA.                                           DTSCS21
00428          10  FILLER                  PIC  X(04)  VALUE 'E221'.    DTSCS21
00429          10  FILLER                  PIC  X(30)                   DTSCS21
00430                VALUE 'BATCH MUST CONTAIN ONLY PAYMEN'.            DTSCS21
00431          10  FILLER                  PIC  X(30)                   DTSCS21
00432                VALUE 'TS OR REPORTS.                '.            DTSCS21
00433                                                                   DTSCS21
00434      05  MSG-E222-AREA.                                           DTSCS21
00435          10  FILLER                  PIC  X(04)  VALUE 'E222'.    DTSCS21
00436          10  FILLER                  PIC  X(30)                   DTSCS21
00437                VALUE 'ENTER EITHER BANK BATCH OR DEP'.            DTSCS21
00438          10  FILLER                  PIC  X(30)                   DTSCS21
00439                VALUE 'OSIT ID .                     '.            DTSCS21
00440                                                                   DTSCS21
00441      05  MSG-E223-AREA.                                           DTSCS21
00442          10  FILLER                  PIC  X(04)  VALUE 'E223'.    DTSCS21
00443          10  FILLER                  PIC  X(30)                   DTSCS21
00444                VALUE 'DATE IS MORE THAN 1 YEAR OLD. '.            DTSCS21
00445          10  FILLER                  PIC  X(30)                   DTSCS21
00446                VALUE 'SUPERVISOR AUTHORITY NEEDED.  '.            DTSCS21
00447                                                                   DTSCS21
00448                                                                   DTSCS21
00449 /**************************************************************** DTSCS21
00450 * 201 PRINT AREA                                                  DTSCS21
00451 ***************************************************************** DTSCS21
00452                                                                   DTSCS21
00453  01  WRK-HEADING-1.                                               DTSCS21
00454      05  WRK-PROGRAM           PIC  X(05)  VALUE '201R1'.         DTSCS21
00455      05  FILLER                PIC  X(23)  VALUE SPACES.          DTSCS21
00456      05  FILLER                PIC  X(20)                         DTSCS21
00457            VALUE 'DISTRICT OF COLUMBIA'.                          DTSCS21
00458      05  FILLER                PIC  X(22)  VALUE SPACES.          DTSCS21
00459      05  WRK-SYS-DATE          PIC  X(08).                        DTSCS21
00460                                                                   DTSCS21
00461  01  WRK-HEADING-2.                                               DTSCS21
00462      05  FILLER                PIC  X(20)                         DTSCS21
00463            VALUE 'ROUTE TO: ACCOUNTING'.                          DTSCS21
00464      05  FILLER                PIC  X(12)  VALUE SPACES.          DTSCS21
00465      05  FILLER                PIC  X(12)  VALUE                  DTSCS21
00466            'TAX DIVISION'.                                        DTSCS21
00467      05  FILLER                PIC  X(26)  VALUE SPACES.          DTSCS21
00468      05  WRK-SYS-TIME          PIC  X(08).                        DTSCS21
00469                                                                   DTSCS21
00470  01  WRK-HEADING-3.                                               DTSCS21
00471      05  FILLER                PIC  X(16)  VALUE SPACES.          DTSCS21
00472      05  FILLER                PIC  X(44)  VALUE                  DTSCS21
00473         'ON-LINE ACCOUNTING TRANSACTION BATCH SUMMARY'.           DTSCS21
00474      05  FILLER                PIC  X(12)  VALUE SPACES.          DTSCS21
00475      05  WRK-PAGE              PIC  ZZ,ZZ9.                       DTSCS21
00476                                                                   DTSCS21
00477  01  WRK-HEADING-5.                                               DTSCS21
00478      05  FILLER                PIC  X(05)  VALUE SPACES.          DTSCS21
00479      05  FILLER                PIC  X(13)  VALUE 'START BATCH: '. DTSCS21
00480      05  WRK-HEADING-START     PIC  9(05).                        DTSCS21
00481      05  FILLER                PIC  X(55)  VALUE SPACES.          DTSCS21
00482                                                                   DTSCS21
00483  01  WRK-HEADING-6.                                               DTSCS21
00484      05  FILLER                PIC  X(05)  VALUE SPACES.          DTSCS21
00485      05  FILLER                PIC  X(13)  VALUE '  END BATCH: '. DTSCS21
00486      05  WRK-HEADING-END       PIC  9(05).                        DTSCS21
00487      05  FILLER                PIC  X(55)  VALUE SPACES.          DTSCS21
00488                                                                   DTSCS21
00489  01  WRK-HEADING-8.                                               DTSCS21
00490      05  FILLER                PIC  X(40)                         DTSCS21
00491            VALUE '       B  H             **** CONTROL ***'.      DTSCS21
00492      05  FILLER                PIC  X(38)                         DTSCS21
00493            VALUE '   *** ATC FILE ***   *** PROCESSED **'.        DTSCS21
00494                                                                   DTSCS21
00495  01  WRK-HEADING-9.                                               DTSCS21
00496      05  FILLER                PIC  X(40)                         DTSCS21
00497            VALUE '       A  L   DEPOSIT         REMIT  TRN'.      DTSCS21
00498      05  FILLER                PIC  X(38)                         DTSCS21
00499            VALUE '         REMIT  TRN         REMIT  TRN'.        DTSCS21
00500                                                                   DTSCS21
00501  01  WRK-HEADING-10.                                              DTSCS21
00502      05  FILLER                PIC  X(40)                         DTSCS21
00503            VALUE 'BATCH  L  D     DATE         AMOUNT  CNT'.      DTSCS21
00504      05  FILLER                PIC  X(38)                         DTSCS21
00505            VALUE '        AMOUNT  CNT        AMOUNT  CNT'.        DTSCS21
00506                                                                   DTSCS21
00507  01  WRK-DETAIL-LINE.                                             DTSCS21
00508      05  WRK-DETAIL-BATCH-NO          PIC  9(05).                 DTSCS21
00509      05  FILLER                       PIC  X(02) VALUE SPACES.    DTSCS21
00510      05  WRK-DETAIL-BALANCED-IND      PIC  X(01).                 DTSCS21
00511      05  FILLER                       PIC  X(02) VALUE SPACES.    DTSCS21
00512      05  WRK-DETAIL-HELD-IND          PIC  X(01).                 DTSCS21
00513      05  FILLER                       PIC  X(02) VALUE SPACES.    DTSCS21
00514      05  WRK-DETAIL-DEPOSIT-DATE      PIC  X(08).                 DTSCS21
00515      05  WRK-DETAIL-CONTROL-REMIT-AMT PIC  -------,--9.99.        DTSCS21
00516      05  FILLER                       PIC  X(01) VALUE SPACES.    DTSCS21
00517      05  WRK-DETAIL-CONTROL-TRAN-CNT  PIC  ZZZ9.                  DTSCS21
00518      05  WRK-DETAIL-ATC-FILE-REMIT-AMT PIC -------,--9.99.        DTSCS21
00519      05  FILLER                       PIC  X(01) VALUE SPACES.    DTSCS21
00520      05  WRK-DETAIL-ATC-FILE-TRAN-CNT PIC  ZZZ9.                  DTSCS21
00521      05  WRK-DETAIL-PROC-REMIT-AMT    PIC  -------,--9.99.        DTSCS21
00522      05  FILLER                       PIC  X(01) VALUE SPACES.    DTSCS21
00523      05  WRK-DETAIL-PROC-TRAN-CNT     PIC  ZZZ9.                  DTSCS21
00524                                                                   DTSCS21
00525  01  WRK-FOOTER-LINE.                                             DTSCS21
00526      05  FILLER                       PIC  X(05) VALUE 'TOTAL'.   DTSCS21
00527      05  FILLER                       PIC  X(16) VALUE SPACES.    DTSCS21
00528      05  WRK-FOOTER-CONTROL-REMIT-AMT PIC  -------,--9.99.        DTSCS21
00529      05  FILLER                       PIC  X(01) VALUE SPACES.    DTSCS21
00530      05  WRK-FOOTER-CONTROL-TRAN-CNT  PIC  ZZZ9.                  DTSCS21
00531      05  WRK-FOOTER-ATC-FILE-REMIT-AMT PIC -------,--9.99.        DTSCS21
00532      05  FILLER                       PIC  X(01) VALUE SPACES.    DTSCS21
00533      05  WRK-FOOTER-ATC-FILE-TRAN-CNT PIC  ZZZ9.                  DTSCS21
00534      05  WRK-FOOTER-PROC-REMIT-AMT    PIC  -------,--9.99.        DTSCS21
00535      05  FILLER                       PIC  X(01) VALUE SPACES.    DTSCS21
00536      05  WRK-FOOTER-PROC-TRAN-CNT     PIC  ZZZ9.                  DTSCS21
00537      EJECT                                                        DTSCS21
00538  01  WRK-DEPOSIT-HDR-1.                                           DTSCS21
00539      05  FILLER                PIC  X(21)  VALUE SPACES.          DTSCS21
00540      05  FILLER                PIC  X(36)                         DTSCS21
00541            VALUE 'DC DEPARTMENT OF EMPLOYMENT SERVICES'.          DTSCS21
00542      05  FILLER                PIC  X(21)  VALUE SPACES.          DTSCS21
00543                                                                   DTSCS21
00544  01  WRK-DEPOSIT-HDR-2.                                           DTSCS21
00545      05  FILLER                PIC  X(33)  VALUE SPACES.          DTSCS21
00546      05  FILLER                PIC  X(12)                         DTSCS21
00547            VALUE 'TAX DIVISION'.                                  DTSCS21
00548      05  FILLER                PIC  X(33)  VALUE SPACES.          DTSCS21
00549                                                                   DTSCS21
00550  01  WRK-DEPOSIT-HDR-3.                                           DTSCS21
00551      05  FILLER                PIC  X(29)  VALUE SPACES.          DTSCS21
00552      05  FILLER                PIC  X(19)                         DTSCS21
00553            VALUE 'BANK DEPOSIT TICKET'.                           DTSCS21
00554      05  FILLER                PIC  X(30)  VALUE SPACES.          DTSCS21
00555                                                                   DTSCS21
00556  01  WRK-DEPOSIT-HDR-4.                                           DTSCS21
00557      05  FILLER                PIC  X(07)                         DTSCS21
00558            VALUE 'BATCH: '.                                       DTSCS21
00559      05  FILLER                PIC  X(01)                         DTSCS21
00560            VALUE 'A'.                                             DTSCS21
00561      05  WRK-DEPOSIT-BATCH     PIC  9(05).                        DTSCS21
00562      05  FILLER                PIC  X(04)  VALUE SPACES.          DTSCS21
00563      05  FILLER                PIC  X(10)                         DTSCS21
00564            VALUE 'ACCT NBR: '.                                    DTSCS21
00565      05  WRK-DEPOSIT-ACCT      PIC  9(12)                         DTSCS21
00566            VALUE 610000001304.                                    DTSCS21
00567      05  FILLER                PIC  X(04)  VALUE SPACES.          DTSCS21
00568      05  FILLER                PIC  X(12)                         DTSCS21
00569            VALUE 'DEPOSIT DT: '.                                  DTSCS21
00570      05  WRK-DEPOSIT-DT-AREA.                                     DTSCS21
00571          10  WRK-DEPOSIT-MO    PIC  X(02).                        DTSCS21
00572          10  FILLER            PIC  X(01)  VALUE '/'.             DTSCS21
00573          10  WRK-DEPOSIT-DA    PIC  X(02).                        DTSCS21
00574          10  FILLER            PIC  X(01)  VALUE '/'.             DTSCS21
00575          10  WRK-DEPOSIT-YR    PIC  X(02).                        DTSCS21
00576      05  FILLER                PIC  X(04)  VALUE SPACES.          DTSCS21
00577      05  FILLER                PIC  X(06)                         DTSCS21
00578            VALUE 'OPID: '.                                        DTSCS21
00579      05  WRK-DEPOSIT-OPID      PIC  X(07).                        DTSCS21
00580                                                                   DTSCS21
00581  01  WRK-DEPOSIT-HDR-5.                                           DTSCS21
00582      05  FILLER                PIC  X(15)  VALUE SPACES.          DTSCS21
00583      05  FILLER                PIC  X(04)                         DTSCS21
00584            VALUE 'ITEM'.                                          DTSCS21
00585      05  FILLER                PIC  X(11)  VALUE SPACES.          DTSCS21
00586      05  FILLER                PIC  X(08)                         DTSCS21
00587            VALUE 'EMPLOYER'.                                      DTSCS21
00588      05  FILLER                PIC  X(13)  VALUE SPACES.          DTSCS21
00589      05  FILLER                PIC  X(12)                         DTSCS21
00590            VALUE 'CHECK AMOUNT'.                                  DTSCS21
00591      05  FILLER                PIC  X(15)  VALUE SPACES.          DTSCS21
00592                                                                   DTSCS21
00593  01  WRK-DEPOSIT-DTL.                                             DTSCS21
00594      05  FILLER                       PIC  X(15)  VALUE SPACES.   DTSCS21
00595      05  WRK-DEPOSIT-ITEM-NO          PIC  9(03).                 DTSCS21
00596      05  FILLER                       PIC  X(12)  VALUE SPACES.   DTSCS21
00597      05  WRK-DEPOSIT-EMP-NO-1         PIC  9(03).                 DTSCS21
00598      05  FILLER                       PIC  X(01)  VALUE SPACES.   DTSCS21
00599      05  WRK-DEPOSIT-EMP-NO-2         PIC  9(03).                 DTSCS21
00600      05  FILLER                       PIC  X(12)  VALUE SPACES.   DTSCS21
00601      05  WRK-DEPOSIT-AMT              PIC  ---,---,--9.99.        DTSCS21
00602      05  FILLER                       PIC  X(15)  VALUE SPACES.   DTSCS21
00603                                                                   DTSCS21
00604  01  WRK-DEPOSIT-FOOTER.                                          DTSCS21
00605      05  FILLER                PIC  X(15)                         DTSCS21
00606            VALUE 'TOTAL ITEMS:   '.                               DTSCS21
00607      05  WRK-DEP-TOT-ITEMS     PIC  9(03).                        DTSCS21
00608      05  FILLER                PIC  X(16)  VALUE SPACES.          DTSCS21
00609      05  FILLER                PIC  X(15)                         DTSCS21
00610            VALUE 'TOTAL REMIT:   '.                               DTSCS21
00611      05  WRK-DEP-TOT-REMIT     PIC  ---,---,--9.99.               DTSCS21
00612                                                                   DTSCS21
00613  01  L001-COMM-AREA.                                              DTSCS21
00614  ++INCLUDE DTSIL001                                               DTSCS21
00615      EJECT                                                        DTSCS21
00616  01  L011-COMM-AREA.                                              DTSCS21
00617  ++INCLUDE DTSIL011                                               DTSCS21
00618      EJECT                                                        DTSCS21
00619  01  L013-COMM-AREA.                                              DTSCS21
00620  ++INCLUDE DTSIL013                                               DTSCS21
00621      EJECT                                                        DTSCS21
00622  01  L015-COMM-AREA.                                              DTSCS21
00623  ++INCLUDE DTSIL015                                               DTSCS21
00624      EJECT                                                        DTSCS21
00625  01  L019-COMM-AREA.                                              DTSCS21
00626  ++INCLUDE DTSIL019                                               DTSCS21
00627      EJECT                                                        DTSCS21
00628  01  L082-COMM-AREA.                                              DTSCS21
00629  ++INCLUDE DTSIL082                                               DTSCS21
00630      EJECT                                                        DTSCS21
00631  01  L357-COMM-AREA.                                              DTSCS21
00632  ++INCLUDE DTSIL357                                               DTSCS21
00633      EJECT                                                        DTSCS21
00634  01  L373-COMM-AREA.                                              DTSCS21
00635  ++INCLUDE DTSIL373                                               DTSCS21
00636      EJECT                                                        DTSCS21
00637                                                                   DTSCS21
00638  01  L805-COMM-AREA.                                              DTSCS21
00639  ++INCLUDE DTSIL805                                               DTSCS21
00640      EJECT                                                        DTSCS21
00641                                                                   DTSCS21
00642  01  L823-COMM-AREA.                                              DTSCS21
00643      05  L823-CONTROL-BLOCK.                                      DTSCS21
00644  ++INCLUDE DTSIL823                                               DTSCS21
00645      EJECT                                                        DTSCS21
00646      05  ASKL-REC.                                                DTSCS21
00647  ++INCLUDE DTSIASKL                                               DTSCS21
00648      EJECT                                                        DTSCS21
00649  01  AHDR-REC.                                                    DTSCS21
00650  ++INCLUDE DTSIAHDR                                               DTSCS21
00651      EJECT                                                        DTSCS21
00652  01  APAY-REC.                                                    DTSCS21
00653  ++INCLUDE DTSIAPAY                                               DTSCS21
00654      EJECT                                                        DTSCS21
00655  01  ARPT-REC.                                                    DTSCS21
00656  ++INCLUDE DTSIARPT                                               DTSCS21
00657      EJECT                                                        DTSCS21
00658  01  AATX-REC.                                                    DTSCS21
00659  ++INCLUDE DTSIAATX                                               DTSCS21
00660      EJECT                                                        DTSCS21
00661  01  L826-COMM-AREA.                                              DTSCS21
00662      05  L826-CONTROL-BLOCK.                                      DTSCS21
00663  ++INCLUDE DTSIL826                                               DTSCS21
00664                                                                   DTSCS21
00665      05  AATH-REC.                                                DTSCS21
00666  ++INCLUDE DTSIAATH                                               DTSCS21
00667                                                                   DTSCS21
00668  01  R202-REC.                                                    DTSCS21
00669  ++INCLUDE DTSIR202                                               DTSCS21
00670                                                                   DTSCS21
00671  01  L825-COMM-AREA.                                              DTSCS21
00672      05  L825-CONTROL-BLOCK.                                      DTSCS21
00673  ++INCLUDE DTSIL825                                               DTSCS21
00674                                                                   DTSCS21
00675      05  RSKL-REC.                                                DTSCS21
00676  ++INCLUDE DTSIRSK1                                               DTSCS21
00677                                                                   DTSCS21
00678  01  L829-COMM-AREA.                                              DTSCS21
00679      05  L829-CONTROL-BLOCK.                                      DTSCS21
00680  ++INCLUDE DTSIL829                                               DTSCS21
00681                                                                   DTSCS21
00682      05  L829-REC.                                                DTSCS21
00683  ++INCLUDE DTSIXPTS                                               DTSCS21
00684      EJECT                                                        DTSCS21
00685  01  L851-COMM-AREA.                                              DTSCS21
00686  ++INCLUDE DTSIL851                                               DTSCS21
00687                                                                   DTSCS21
00688      05  MAP-AREA REDEFINES L851-MAP-AREA.                        DTSCS21
00689  ++INCLUDE DTSIS21                                                DTSCS21
00690      EJECT                                                        DTSCS21
00691  01  L880-COMM-AREA.                                              DTSCS21
00692      05  L880-CONTROL-BLOCK.                                      DTSCS21
00693  ++INCLUDE DTSIL880                                               DTSCS21
00694      EJECT                                                        DTSCS21
00695      05  WSKL-REC.                                                DTSCS21
00696  ++INCLUDE DTSIWSKL                                               DTSCS21
00697      EJECT                                                        DTSCS21
00698  01  W001-REC.                                                    DTSCS21
00699  ++INCLUDE DTSIW001                                               DTSCS21
00700      EJECT                                                        DTSCS21
00701  01  CATB-LITERALS.                                               DTSCS21
00702  ++INCLUDE DTSICATB                                               DTSCS21
00703      SKIP3                                                        DTSCS21
00704  01  CFKD-LITERALS.                                               DTSCS21
00705  ++INCLUDE DTSICFKD                                               DTSCS21
00706      SKIP3                                                        DTSCS21
00707  01  CECD-LITERALS.                                               DTSCS21
00708  ++INCLUDE DTSICECD                                               DTSCS21
00709      SKIP3                                                        DTSCS21
00710  01  CPCD-LITERALS.                                               DTSCS21
00711  ++INCLUDE DTSICPCD                                               DTSCS21
00712      EJECT                                                        DTSCS21
00713  LINKAGE SECTION.                                                 DTSCS21
00714                                                                   DTSCS21
00715  01  DFHCOMMAREA.                                                 DTSCS21
00716  ++INCLUDE DTSILCCM                                               DTSCS21
00717      EJECT                                                        DTSCS21
00718  PROCEDURE DIVISION.                                              DTSCS21
00719                                                                   DTSCS21
00720      MOVE +0 TO WRK-BATCH-NO-1                                    DTSCS21
00721                 WRK-BATCH-NO-2.                                   DTSCS21
00722                                                                   DTSCS21
00723      SET WRK-BATCH-NO-1-NO-ENTRY TO TRUE.                         DTSCS21
00724                                                                   DTSCS21
00725      SET WRK-BATCH-NO-2-NO-ENTRY TO TRUE.                         DTSCS21
00726                                                                   DTSCS21
00727                                                                   DTSCS21
00728      MOVE LOW-VALUES      TO MAP-AREA.                            DTSCS21
00729                                                                   DTSCS21
00730                                                                   DTSCS21
00731      SET CURSOR-SET-NO    TO TRUE.                                DTSCS21
00732                                                                   DTSCS21
00733                                                                   DTSCS21
00734      MOVE LCCM-SCR-NUM-ACCESS-IND (WRK-SCR-ID-N)                  DTSCS21
00735        TO SCR-ACCESS-IND.                                         DTSCS21
00736                                                                   DTSCS21
00737      MOVE LCCM-SCR-HOLD-AREA       TO WRK-LCCM-SCR-HOLD.          DTSCS21
00738      MOVE LOW-VALUES               TO LCCM-SCR-HOLD-AREA.         DTSCS21
00739                                                                   DTSCS21
00740      MOVE SPACE TO REQ-IND.                                       DTSCS21
00741                                                                   DTSCS21
00742      PERFORM P1000-ANALYZE-REQUEST THRU P1000-EXIT.               DTSCS21
00743                                                                   DTSCS21
00744                                                                   DTSCS21
00745 *-----------------------------------------------------            DTSCS21
00746 *    P1000-ANALYZE-REQUEST HAS DETERMINED, BASED ON THE           DTSCS21
00747 *    "AID" KEY PRESSED AND THE CONTEXT OF THE CURRENT             DTSCS21
00748 *    REQUEST WITHIN THE PSEUDO CONVERSATION, THE TYPE             DTSCS21
00749 *    OF ACTIVITY THE WORK STATION OPERATOR HAS REQUESTED.         DTSCS21
00750 *                                                                 DTSCS21
00751 *    THE REQUEST, REFLECTED IN REQ-IND WILL NOW BE                DTSCS21
00752 *    PROCESSED.                                                   DTSCS21
00753 *                                                                 DTSCS21
00754 *    THE REQUEST PROCESSING PARAGRAPHS WILL SET RESP-IND,         DTSCS21
00755 *    INDICATING THE TYPE OF RESPONSE TO BE SENT TO THE            DTSCS21
00756 *    WORK STATION OPERATOR.                                       DTSCS21
00757 *-----------------------------------------------------            DTSCS21
00758                                                                   DTSCS21
00759      MOVE SPACE TO RESP-IND.                                      DTSCS21
00760                                                                   DTSCS21
00761      IF REQ-ERROR                                                 DTSCS21
00762         PERFORM P2000-REQUEST-ERROR THRU P2000-EXIT               DTSCS21
00763      ELSE                                                         DTSCS21
00764      IF REQ-JUMP                                                  DTSCS21
00765         PERFORM P3000-REQUEST-JUMP THRU P3000-EXIT                DTSCS21
00766      ELSE                                                         DTSCS21
00767      IF REQ-CLEAR                                                 DTSCS21
00768         PERFORM P4000-REQUEST-CLEAR THRU P4000-EXIT               DTSCS21
00769      ELSE                                                         DTSCS21
00770      IF REQ-CURSOR-TO-GOTO                                        DTSCS21
00771         PERFORM P5000-CURSOR-TO-GOTO THRU P5000-EXIT              DTSCS21
00772      ELSE                                                         DTSCS21
00773      IF REQ-INQUIRE                                               DTSCS21
00774         PERFORM P6000-REQUEST-INQUIRE THRU P6000-EXIT             DTSCS21
00775      ELSE                                                         DTSCS21
00776      IF REQ-EDIT                                                  DTSCS21
00777         PERFORM P7000-REQUEST-EDIT THRU P7000-EXIT                DTSCS21
00778      ELSE                                                         DTSCS21
00779      IF REQ-UPDATE                                                DTSCS21
00780         PERFORM P8000-REQUEST-UPDATE THRU P8000-EXIT              DTSCS21
00781      ELSE                                                         DTSCS21
00782         GO TO S899-ABEND.                                         DTSCS21
00783                                                                   DTSCS21
00784                                                                   DTSCS21
00785 *-----------------------------------------------------            DTSCS21
00786 *    THE REQUEST PROCESSING PARAGRAPHS HAVE INDICATED             DTSCS21
00787 *    IN RESP-IND THE TYPE OF RESPONSE TO BE MADE.                 DTSCS21
00788 *-----------------------------------------------------            DTSCS21
00789                                                                   DTSCS21
00790      IF RESP-SEND-MAP                                             DTSCS21
00791          PERFORM S9300-SEND-MAP THRU S9300-EXIT                   DTSCS21
00792          SET LCCM-END-TASK-88 TO TRUE                             DTSCS21
00793      ELSE                                                         DTSCS21
00794      IF RESP-SEND-MSGONLY                                         DTSCS21
00795          PERFORM S9200-SEND-DATAONLY THRU S9200-EXIT              DTSCS21
00796          SET LCCM-END-TASK-88 TO TRUE                             DTSCS21
00797      ELSE                                                         DTSCS21
00798      IF RESP-JUMP                                                 DTSCS21
00799          SET LCCM-LINK-SCREEN-88 TO TRUE                          DTSCS21
00800      ELSE                                                         DTSCS21
00801      IF RESP-CURSOR-TO-GOTO                                       DTSCS21
00802          PERFORM S9200-SEND-DATAONLY THRU S9200-EXIT              DTSCS21
00803          SET LCCM-END-TASK-88 TO TRUE                             DTSCS21
00804      ELSE                                                         DTSCS21
00805          GO TO S899-ABEND.                                        DTSCS21
00806                                                                   DTSCS21
00807  MAINLINE-EXIT.                                                   DTSCS21
00808                                                                   DTSCS21
00809      EXEC CICS                                                    DTSCS21
00810          RETURN                                                   DTSCS21
00811      END-EXEC.                                                    DTSCS21
00812                                                                   DTSCS21
00813                                                                   DTSCS21
00814      GOBACK.                                                      DTSCS21
00815      EJECT                                                        DTSCS21
00816 /*****************************************************************DTSCS21
00817 * DETERMINE CURRENT SCREEN STATE AND REQUEST COMBINATION         *DTSCS21
00818 ******************************************************************DTSCS21
00819  P1000-ANALYZE-REQUEST.                                           DTSCS21
00820                                                                   DTSCS21
00821 *-----------------------------------------------------            DTSCS21
00822 *     IF SCREEN IS NOT CURRENTLY DISPLAYED (JUMP TO HERE)         DTSCS21
00823 *     THEN ANY KEY PRESSED WILL BE IGNORED (WILL BE               DTSCS21
00824 *     REPLACED WITH ENTER)                                        DTSCS21
00825 *-----------------------------------------------------            DTSCS21
00826                                                                   DTSCS21
00827      IF LCCM-SCR-ID NOT = WRK-SCR-ID                              DTSCS21
00828         SET LCCM-ENTER-88 TO TRUE                                 DTSCS21
00829         IF LCCM-BATCH-NO > ZERO                                   DTSCS21
00830             SET REQ-INQUIRE TO TRUE                               DTSCS21
00831             MOVE LCCM-BATCH-NO TO MAP-BATCH-NO-1-N                DTSCS21
00832         ELSE                                                      DTSCS21
00833             SET REQ-INQUIRE TO TRUE                               DTSCS21
00834         END-IF                                                    DTSCS21
00835         GO TO P1000-EXIT.                                         DTSCS21
00836                                                                   DTSCS21
00837                                                                   DTSCS21
00838 *-----------------------------------------------------            DTSCS21
00839 *      MAP IS RECEIVED                                            DTSCS21
00840 *-----------------------------------------------------            DTSCS21
00841                                                                   DTSCS21
00842      PERFORM S9100-RECEIVE THRU S9100-EXIT.                       DTSCS21
00843                                                                   DTSCS21
00844                                                                   DTSCS21
00845 *-----------------------------------------------------            DTSCS21
00846 *    CHECK FOR AID KEYS THAT DO NOT SEND DATA FROM THE            DTSCS21
00847 *    WORK STATION                                                 DTSCS21
00848 *-----------------------------------------------------            DTSCS21
00849                                                                   DTSCS21
00850      IF LCCM-CLEAR-88                                             DTSCS21
00851         SET REQ-CLEAR TO TRUE                                     DTSCS21
00852         GO TO P1000-EXIT.                                         DTSCS21
00853                                                                   DTSCS21
00854                                                                   DTSCS21
00855 *-----------------------------------------------------            DTSCS21
00856 *    IF IN UPDATE MODE, SPECIFIC KEYS MUST BE CHECKED             DTSCS21
00857 *-----------------------------------------------------            DTSCS21
00858                                                                   DTSCS21
00859      IF LCCM-SCR-UPDATE-LOCKED                                    DTSCS21
00860         PERFORM P1100-UPDATE-LOCKED THRU P1100-EXIT               DTSCS21
00861         GO TO P1000-EXIT.                                         DTSCS21
00862                                                                   DTSCS21
00863                                                                   DTSCS21
00864 *-----------------------------------------------------            DTSCS21
00865 *    PA2 IS A REQUEST TO POSITION CURSOR AT GO TO:                DTSCS21
00866 *-----------------------------------------------------            DTSCS21
00867                                                                   DTSCS21
00868      IF LCCM-PA2-88                                               DTSCS21
00869          SET REQ-CURSOR-TO-GOTO TO TRUE                           DTSCS21
00870          GO TO P1000-EXIT.                                        DTSCS21
00871                                                                   DTSCS21
00872                                                                   DTSCS21
00873 *-----------------------------------------------------            DTSCS21
00874 *    ALL OTHER PA KEYS ARE NOT ACTIVE                             DTSCS21
00875 *-----------------------------------------------------            DTSCS21
00876                                                                   DTSCS21
00877      IF LCCM-PA-88                                                DTSCS21
00878        PERFORM S804-INVALID-KEY THRU S804-EXIT                    DTSCS21
00879        SET REQ-ERROR TO TRUE                                      DTSCS21
00880        GO TO P1000-EXIT.                                          DTSCS21
00881                                                                   DTSCS21
00882                                                                   DTSCS21
00883 *-------------------------------------------------------          DTSCS21
00884 *    F12 PRESSED WHEN UPDATE NOT IN PROGRESS IS A                 DTSCS21
00885 *    REQUEST TO CLEAR THE SCREEN.                                 DTSCS21
00886 *-------------------------------------------------------          DTSCS21
00887                                                                   DTSCS21
00888      IF LCCM-F12-88                                               DTSCS21
00889          MOVE LOW-VALUES TO MAP-AREA                              DTSCS21
00890          SET REQ-CLEAR TO TRUE                                    DTSCS21
00891          GO TO P1000-EXIT.                                        DTSCS21
00892                                                                   DTSCS21
00893                                                                   DTSCS21
00894 *-----------------------------------------------------            DTSCS21
00895 *    IF EXIT KEY PRESSED, JUMP TO NEXT HIGHER FUNCTION            DTSCS21
00896 *-----------------------------------------------------            DTSCS21
00897                                                                   DTSCS21
00898      IF LCCM-F03-88                                               DTSCS21
00899         MOVE WRK-F03-SCR-ID TO LCCM-REQ-SCR-ID                    DTSCS21
00900         SET REQ-JUMP TO TRUE                                      DTSCS21
00901         GO TO P1000-EXIT.                                         DTSCS21
00902                                                                   DTSCS21
00903                                                                   DTSCS21
00904 *-----------------------------------------------------            DTSCS21
00905 *    IF PRIOR SCREEN KEY PRESSED, JUMP TO PREVIOUS SCREEN         DTSCS21
00906 *-----------------------------------------------------            DTSCS21
00907                                                                   DTSCS21
00908      IF LCCM-F04-88                                               DTSCS21
00909         MOVE LCCM-PRIOR-SCR-ID TO LCCM-REQ-SCR-ID                 DTSCS21
00910         SET REQ-JUMP TO TRUE                                      DTSCS21
00911         GO TO P1000-EXIT.                                         DTSCS21
00912                                                                   DTSCS21
00913                                                                   DTSCS21
00914 *---------------------------------------------------------        DTSCS21
00915 *    IF CORRESPONDENCE SCREEN KEY PRESSED, JUMP TO                DTSCS21
00916 *    CORRESPONDENCE SCREEN.                                       DTSCS21
00917 *---------------------------------------------------------        DTSCS21
00918                                                                   DTSCS21
00919      IF LCCM-F14-88                                               DTSCS21
00920         MOVE LCCM-CORR-SCR-ID TO LCCM-REQ-SCR-ID                  DTSCS21
00921         SET REQ-JUMP TO TRUE                                      DTSCS21
00922         GO TO P1000-EXIT.                                         DTSCS21
00923                                                                   DTSCS21
00924                                                                   DTSCS21
00925 *-----------------------------------------------------            DTSCS21
00926 *    IF DIFFERENT SCREEN TYPE IS REQUESTED, JUMP TO               DTSCS21
00927 *    REQUESTED SCREEN TYPE                                        DTSCS21
00928 *-----------------------------------------------------            DTSCS21
00929                                                                   DTSCS21
00930      IF MAP-GOTO = SPACES OR LOW-VALUES OR WRK-SCR-ID             DTSCS21
00931         NEXT SENTENCE                                             DTSCS21
00932      ELSE                                                         DTSCS21
00933        MOVE MAP-GOTO TO LCCM-REQ-SCR-ID                           DTSCS21
00934        SET REQ-JUMP TO TRUE                                       DTSCS21
00935        GO TO P1000-EXIT.                                          DTSCS21
00936                                                                   DTSCS21
00937                                                                   DTSCS21
00938 *-----------------------------------------------------            DTSCS21
00939 *    IF REQUEST TO UPDATE THE DATA (ADD,MOD,DEL)                  DTSCS21
00940 *          VERIFY USER ACCESS TO PERFORM UPDATE                   DTSCS21
00941 *-----------------------------------------------------            DTSCS21
00942                                                                   DTSCS21
00943      IF LCCM-F05-88                                               DTSCS21
00944      OR LCCM-F06-88                                               DTSCS21
00945         SET REQ-EDIT TO TRUE                                      DTSCS21
00946         GO TO P1000-EXIT.                                         DTSCS21
00947                                                                   DTSCS21
00948      IF LCCM-F09-88                                               DTSCS21
00949          OR LCCM-F10-88                                           DTSCS21
00950          OR LCCM-F23-88                                           DTSCS21
00951         IF SCR-ACCESS-UPDATE                                      DTSCS21
00952            SET REQ-EDIT TO TRUE                                   DTSCS21
00953            GO TO P1000-EXIT                                       DTSCS21
00954         ELSE                                                      DTSCS21
00955            PERFORM S804-INVALID-KEY THRU S804-EXIT                DTSCS21
00956            SET REQ-ERROR TO TRUE                                  DTSCS21
00957            GO TO P1000-EXIT.                                      DTSCS21
00958                                                                   DTSCS21
00959                                                                   DTSCS21
00960 *-----------------------------------------------------            DTSCS21
00961 *    IF INQUIRY REQUEST KEY PRESSED (ENTER, F7, OR F8)            DTSCS21
00962 *    INDICATE INQUIRY REQUEST                                     DTSCS21
00963 *-----------------------------------------------------            DTSCS21
00964                                                                   DTSCS21
00965      IF LCCM-ENTER-88                                             DTSCS21
00966      OR LCCM-F07-88                                               DTSCS21
00967      OR LCCM-F08-88                                               DTSCS21
00968          SET REQ-INQUIRE TO TRUE                                  DTSCS21
00969          GO TO P1000-EXIT.                                        DTSCS21
00970                                                                   DTSCS21
00971                                                                   DTSCS21
00972 *-----------------------------------------------------            DTSCS21
00973 *     ANY OTHER KEY IS INVALID                                    DTSCS21
00974 *-----------------------------------------------------            DTSCS21
00975                                                                   DTSCS21
00976      PERFORM S804-INVALID-KEY THRU S804-EXIT.                     DTSCS21
00977                                                                   DTSCS21
00978      SET REQ-ERROR TO TRUE.                                       DTSCS21
00979  P1000-EXIT.                                                      DTSCS21
00980      EXIT.                                                        DTSCS21
00981                                                                   DTSCS21
00982                                                                   DTSCS21
00983                                                                   DTSCS21
00984 ******************************************************************DTSCS21
00985 * THE SCREEN IS LOCKED FOR UPDATE AND THE USER CONFIRMS HIS WISH *DTSCS21
00986 ******************************************************************DTSCS21
00987                                                                   DTSCS21
00988  P1100-UPDATE-LOCKED.                                             DTSCS21
00989 *-----------------------------------------------------            DTSCS21
00990 *    IF THE SCREEN IS "LOCKED FOR UPDATE", THEN                   DTSCS21
00991 *    THE ONLY VALID OPERATOR REQUESTS ARE ENTER                   DTSCS21
00992 *    (CONFIRMING UPDATE) OR F12 (CANCELLING UPDATE).              DTSCS21
00993 *-----------------------------------------------------            DTSCS21
00994                                                                   DTSCS21
00995      IF LCCM-ENTER-88 OR LCCM-F12-88                              DTSCS21
00996         SET REQ-UPDATE TO TRUE                                    DTSCS21
00997      ELSE                                                         DTSCS21
00998         SET REQ-ERROR TO TRUE                                     DTSCS21
00999         IF LCCM-SCR-ADD-LOCKED                                    DTSCS21
01000            MOVE PMSG-ADD-CONFIRM TO LCCM-MSG-ID                   DTSCS21
01001         ELSE                                                      DTSCS21
01002         IF LCCM-SCR-MOD-LOCKED                                    DTSCS21
01003             MOVE PMSG-MOD-CONFIRM TO LCCM-MSG-ID                  DTSCS21
01004         ELSE                                                      DTSCS21
01005         IF LCCM-SCR-DEL-LOCKED                                    DTSCS21
01006             MOVE PMSG-DEL-CONFIRM TO LCCM-MSG-ID                  DTSCS21
01007         ELSE                                                      DTSCS21
01008         IF LCCM-SCR-PRT-LOCKED                                    DTSCS21
01009             MOVE PMSG-PRINT-CONFIRM TO LCCM-MSG-ID                DTSCS21
01010         ELSE                                                      DTSCS21
01011             GO TO S899-ABEND.                                     DTSCS21
01012  P1100-EXIT.                                                      DTSCS21
01013      EXIT.                                                        DTSCS21
01014 /*****************************************************************DTSCS21
01015 * ANALYZE REQUEST HAS DETERMINED AN ERROR THAT MUST BE REPORTED. *DTSCS21
01016 * VERIFY THAT A MESSAGE HAS BEEN FILLED IN.                      *DTSCS21
01017 ******************************************************************DTSCS21
01018                                                                   DTSCS21
01019  P2000-REQUEST-ERROR.                                             DTSCS21
01020      IF LCCM-MSG                                                  DTSCS21
01021         SET RESP-SEND-MSGONLY TO TRUE                             DTSCS21
01022      ELSE                                                         DTSCS21
01023         GO TO S899-ABEND.                                         DTSCS21
01024  P2000-EXIT.                                                      DTSCS21
01025      EXIT.                                                        DTSCS21
01026 /*****************************************************************DTSCS21
01027 * JUMP TO A DIFFERENT SCREEN TYPE WAS REQUESTED                  *DTSCS21
01028 ******************************************************************DTSCS21
01029                                                                   DTSCS21
01030  P3000-REQUEST-JUMP.                                              DTSCS21
01031 *-----------------------------------------------------            DTSCS21
01032 *    VERIFY THAT THE REQUESTED SCREEN EXISTS AND IS ACCESSIBLE    DTSCS21
01033 *    BY USER                                                      DTSCS21
01034 *-----------------------------------------------------            DTSCS21
01035                                                                   DTSCS21
01036      PERFORM S803-REQ-SCR-ID-EDIT THRU S803-EXIT.                 DTSCS21
01037                                                                   DTSCS21
01038                                                                   DTSCS21
01039 *-----------------------------------------------------            DTSCS21
01040 *    VERIFICATION RETURN LCCM-MSG IF ERROR DETECTED               DTSCS21
01041 *-----------------------------------------------------            DTSCS21
01042                                                                   DTSCS21
01043      IF LCCM-MSG                                                  DTSCS21
01044         SET RESP-SEND-MSGONLY TO TRUE                             DTSCS21
01045         SET CURSOR-SET-GOTO TO TRUE                               DTSCS21
01046         GO TO P3000-EXIT.                                         DTSCS21
01047                                                                   DTSCS21
01048                                                                   DTSCS21
01049      MOVE MAP-BATCH-NO-1-AREA TO L019-S-BATCH-NO-AREA.            DTSCS21
01050                                                                   DTSCS21
01051      MOVE SPACES TO L019-S-ITEM-NO-AREA.                          DTSCS21
01052                                                                   DTSCS21
01053      PERFORM S019-BATCH-NO-FROM-SCREEN THRU S019-EXIT.            DTSCS21
01054                                                                   DTSCS21
01055      IF L019-BATCH-NO > +0                                        DTSCS21
01056          IF L019-BATCH-NO  NOT =  LCCM-BATCH-NO                   DTSCS21
01057              MOVE L019-BATCH-NO TO LCCM-BATCH-NO                  DTSCS21
01058              MOVE +0 TO LCCM-ITEM-NO.                             DTSCS21
01059                                                                   DTSCS21
01060                                                                   DTSCS21
01061 *-----------------------------------------------------            DTSCS21
01062 *    CLEAN UP INDICATORS AND PAGING STORAGE PRIOR TO LEAVING      DTSCS21
01063 *-----------------------------------------------------            DTSCS21
01064                                                                   DTSCS21
01065      MOVE LOW-VALUES TO LCCM-SCR-STATUS                           DTSCS21
01066                         LCCM-SCR-HOLD-AREA.                       DTSCS21
01067                                                                   DTSCS21
01068      MOVE +0 TO LCCM-SCR-ABSTIME.                                 DTSCS21
01069                                                                   DTSCS21
01070      SET RESP-JUMP TO TRUE.                                       DTSCS21
01071  P3000-EXIT.                                                      DTSCS21
01072      EXIT.                                                        DTSCS21
01073 /*****************************************************************DTSCS21
01074 * CLEAR KEY WAS PRESSED                                          *DTSCS21
01075 ******************************************************************DTSCS21
01076                                                                   DTSCS21
01077  P4000-REQUEST-CLEAR.                                             DTSCS21
01078                                                                   DTSCS21
01079 *-----------------------------------------------------            DTSCS21
01080 *   CLEAN UP INDICATORS AND PAGING STORAGE.  RESET KEY            DTSCS21
01081 *   FIELDS FROM EARLIER REQUESTS                                  DTSCS21
01082 *-----------------------------------------------------            DTSCS21
01083                                                                   DTSCS21
01084      IF LCCM-BATCH-NO > ZERO                                      DTSCS21
01085          MOVE LCCM-BATCH-NO TO MAP-BATCH-NO-1-N                   DTSCS21
01086                                                                   DTSCS21
01087      MOVE ZERO TO LCCM-BATCH-NO                                   DTSCS21
01088                   LCCM-ITEM-NO.                                   DTSCS21
01089                                                                   DTSCS21
01090      MOVE LOW-VALUES              TO LCCM-SCR-HOLD-AREA.          DTSCS21
01091                                                                   DTSCS21
01092      MOVE LCCM-TASK-START-ABSTIME TO LCCM-SCR-ABSTIME.            DTSCS21
01093                                                                   DTSCS21
01094      SET LCCM-SCR-CLEAR TO TRUE.                                  DTSCS21
01095                                                                   DTSCS21
01096      IF SCR-ACCESS-UPDATE                                         DTSCS21
01097          PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT           DTSCS21
01098      ELSE                                                         DTSCS21
01099          PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT.             DTSCS21
01100                                                                   DTSCS21
01101      SET RESP-SEND-MAP TO TRUE.                                   DTSCS21
01102  P4000-EXIT.                                                      DTSCS21
01103      EXIT.                                                        DTSCS21
01104 /*****************************************************************DTSCS21
01105 * POSITION CURSOR ON GO TO FIELD WAS REQUESTED                   *DTSCS21
01106 ******************************************************************DTSCS21
01107                                                                   DTSCS21
01108  P5000-CURSOR-TO-GOTO.                                            DTSCS21
01109      SET CURSOR-SET-GOTO TO TRUE.                                 DTSCS21
01110      SET RESP-CURSOR-TO-GOTO TO TRUE.                             DTSCS21
01111  P5000-EXIT.                                                      DTSCS21
01112      EXIT.                                                        DTSCS21
01113 /*****************************************************************DTSCS21
01114 * INQUIRY WAS REQUESTED                                          *DTSCS21
01115 ******************************************************************DTSCS21
01116                                                                   DTSCS21
01117  P6000-REQUEST-INQUIRE.                                           DTSCS21
01118      MOVE MAP-BATCH-NO-1-AREA TO WRK-BATCH-NO-1-AREA.             DTSCS21
01119                                                                   DTSCS21
01120      MOVE MAP-BATCH-NO-2-AREA TO WRK-BATCH-NO-2-AREA.             DTSCS21
01121                                                                   DTSCS21
01122      MOVE LOW-VALUES TO MAP-AREA.                                 DTSCS21
01123                                                                   DTSCS21
01124      MOVE WRK-BATCH-NO-1-AREA TO MAP-BATCH-NO-1-AREA.             DTSCS21
01125                                                                   DTSCS21
01126      MOVE WRK-BATCH-NO-2-AREA TO MAP-BATCH-NO-2-AREA.             DTSCS21
01127                                                                   DTSCS21
01128      SET LCCM-SCR-CLEAR TO TRUE.                                  DTSCS21
01129                                                                   DTSCS21
01130      MOVE LCCM-TASK-START-ABSTIME TO LCCM-SCR-ABSTIME.            DTSCS21
01131                                                                   DTSCS21
01132      SET RESP-SEND-MAP TO TRUE.                                   DTSCS21
01133                                                                   DTSCS21
01134                                                                   DTSCS21
01135      IF SCR-ACCESS-UPDATE                                         DTSCS21
01136          PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT           DTSCS21
01137      ELSE                                                         DTSCS21
01138          PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT.             DTSCS21
01139                                                                   DTSCS21
01140                                                                   DTSCS21
01141      PERFORM S1100-EDIT-KEY THRU S1100-EXIT.                      DTSCS21
01142                                                                   DTSCS21
01143      IF LCCM-MSG                                                  DTSCS21
01144          GO TO P6000-EXIT.                                        DTSCS21
01145                                                                   DTSCS21
01146                                                                   DTSCS21
01147      PERFORM P6100-LOCATE-REC THRU P6100-EXIT.                    DTSCS21
01148                                                                   DTSCS21
01149                                                                   DTSCS21
01150      IF WRK-BATCH-NO-1 = LCCM-BATCH-NO                            DTSCS21
01151          NEXT SENTENCE                                            DTSCS21
01152      ELSE                                                         DTSCS21
01153          MOVE WRK-BATCH-NO-1 TO LCCM-BATCH-NO                     DTSCS21
01154          MOVE +0 TO LCCM-ITEM-NO.                                 DTSCS21
01155                                                                   DTSCS21
01156                                                                   DTSCS21
01157      SET WRK-RECORD-ACCUM-NO-88 TO TRUE.                          DTSCS21
01158                                                                   DTSCS21
01159      PERFORM P6990-INIT-ACCUMALATERS THRU P6990-EXIT.             DTSCS21
01160                                                                   DTSCS21
01161                                                                   DTSCS21
01162 *--------------------------------------------------------------   DTSCS21
01163 * IF NO RECORD WAS FOUND SAY SO.  IF A SINGLE RECORD WAS          DTSCS21
01164 * REQUESTED DO THE ONE RECORD OTHERWISE ACCUMALATE THE RANGE      DTSCS21
01165 * UNTIL NO RECORD WAS FOUND OR WE EXCEED THE RANGE                DTSCS21
01166 *--------------------------------------------------------------   DTSCS21
01167                                                                   DTSCS21
01168      IF L823-NO-REC-88                                            DTSCS21
01169         MOVE EMSG-NO-RECORD TO WRK-MSG-AREA                       DTSCS21
01170         PERFORM S1111-ERROR THRU S1111-EXIT                       DTSCS21
01171         GO TO P6000-EXIT                                          DTSCS21
01172      ELSE                                                         DTSCS21
01173         IF WRK-BATCH-NO-2-NO-ENTRY                                DTSCS21
01174            PERFORM P6950-ACCUMALATE THRU P6950-EXIT               DTSCS21
01175         ELSE                                                      DTSCS21
01176            PERFORM P6950-ACCUMALATE THRU P6950-EXIT               DTSCS21
01177              UNTIL L823-NO-REC-88                                 DTSCS21
01178                 OR ASKL-BATCH-NO > WRK-BATCH-NO-2.                DTSCS21
01179                                                                   DTSCS21
01180                                                                   DTSCS21
01181 *--------------------------------------------------------------   DTSCS21
01182 * IF AT LEAST ONE RECORD WAS ACCUMALATED THEN FORMAT THE SCREEN   DTSCS21
01183 * OTHERWISE TELL THEM THAT THERE ARE NO RECORDS ON THE FILE       DTSCS21
01184 * OR AT LEAST NONE WITHIN THE SELECTED RANGE                      DTSCS21
01185 *--------------------------------------------------------------   DTSCS21
01186                                                                   DTSCS21
01187      IF WRK-RECORD-ACCUM-YES-88                                   DTSCS21
01188         PERFORM P6900-CONSTRUCT-SCREEN THRU P6900-EXIT            DTSCS21
01189      ELSE                                                         DTSCS21
01190         MOVE MSG-E213-AREA TO LCCM-MSG-AREA                       DTSCS21
01191         GO TO P6000-EXIT                                          DTSCS21
01192      END-IF.                                                      DTSCS21
01193                                                                   DTSCS21
01194                                                                   DTSCS21
01195 *-------------------------------------------------------------    DTSCS21
01196 * IF A RANGE OF RECORDS IS SHOWN THEN WE WILL NOT ALLOW THEM      DTSCS21
01197 * TO MODIFY THE INFORMATION THAT IS ON THE SCREEN                 DTSCS21
01198 *-------------------------------------------------------------    DTSCS21
01199                                                                   DTSCS21
01200      IF WRK-BATCH-NO-2-VALID                                      DTSCS21
01201         SET LCCM-SCR-CLEAR TO TRUE                                DTSCS21
01202         PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT               DTSCS21
01203      ELSE                                                         DTSCS21
01204         SET LCCM-SCR-INQUIRE TO TRUE                              DTSCS21
01205      END-IF.                                                      DTSCS21
01206  P6000-EXIT.                                                      DTSCS21
01207      EXIT.                                                        DTSCS21
01208      EJECT                                                        DTSCS21
01209  P6100-LOCATE-REC.                                                DTSCS21
01210 *------------------------------------------------------------     DTSCS21
01211 *    BASE THE PAGING LOGIC BASED ON THE BATCH(ES) ENTERED         DTSCS21
01212 *    ON THE SCREEN.                                               DTSCS21
01213 *    USE THE DATA IN WRK-BATCH-NO-2 TO CONTROL THE START OF       DTSCS21
01214 *    THE PAGING DOWN (IT MAY HAVE BEEN COPIED FROM BATCH-NO-1)    DTSCS21
01215 *------------------------------------------------------------     DTSCS21
01216                                                                   DTSCS21
01217      MOVE LOW-VALUES TO ASKL-KEY-AREA.                            DTSCS21
01218                                                                   DTSCS21
01219      IF LCCM-F08-88                                               DTSCS21
01220         MOVE WRK-BATCH-NO-2-AREA TO WRK-BATCH-NO-1-AREA           DTSCS21
01221         MOVE WRK-BATCH-NO-2 TO MAP-BATCH-NO-1-N.                  DTSCS21
01222                                                                   DTSCS21
01223                                                                   DTSCS21
01224                                                                   DTSCS21
01225 *------------------------------------------------------------     DTSCS21
01226 * IF THEY PRESSED A PAGING KEY                                    DTSCS21
01227 * DISABLE THE RANGE REQUEST BUT ALLOW FOR THE LAST HDR ON FILE    DTSCS21
01228 *------------------------------------------------------------     DTSCS21
01229                                                                   DTSCS21
01230      IF LCCM-F07-88                                               DTSCS21
01231      OR LCCM-F08-88                                               DTSCS21
01232          MOVE 99999 TO WRK-BATCH-NO-2                             DTSCS21
01233          MOVE SPACE TO MAP-BATCH-NO-2                             DTSCS21
01234          SET WRK-BATCH-NO-2-NO-ENTRY TO TRUE.                     DTSCS21
01235                                                                   DTSCS21
01236                                                                   DTSCS21
01237      MOVE WRK-BATCH-NO-1 TO ASKL-BATCH-NO.                        DTSCS21
01238                                                                   DTSCS21
01239      MOVE +0 TO ASKL-ITEM-NO.                                     DTSCS21
01240                                                                   DTSCS21
01241      PERFORM S823-START-BROWSE THRU S823-EXIT.                    DTSCS21
01242                                                                   DTSCS21
01243      IF L823-NO-REC-88                                            DTSCS21
01244         MOVE EMSG-NO-RECORD TO WRK-MSG-AREA                       DTSCS21
01245         PERFORM S1111-ERROR THRU S1111-EXIT                       DTSCS21
01246         GO TO P6100-EXIT.                                         DTSCS21
01247                                                                   DTSCS21
01248      MOVE ASKL-REC             TO AHDR-REC.                       DTSCS21
01249                                                                   DTSCS21
01250      PERFORM S823-END-BROWSE   THRU S823-EXIT.                    DTSCS21
01251                                                                   DTSCS21
01252      IF LCCM-F05-88                                               DTSCS21
01253      OR LCCM-F06-88                                               DTSCS21
01254         GO TO P6100-EXIT                                          DTSCS21
01255      END-IF.                                                      DTSCS21
01256                                                                   DTSCS21
01257 *------------------------------------------------------------     DTSCS21
01258 * IF A RANGE WAS REQUESTED AND THE RECORD READ IS NOT OUTSIDE THE DTSCS21
01259 * REQUESTED RANGE THEN MODIFY THE RANGE PARAMETERS DISPLAYED TO   DTSCS21
01260 * REFLECT WHAT THE FIRST RECORD IN THE RANGE IS                   DTSCS21
01261 * IF A RANGE WAS NOT SELECTED AND THEY ASKED FOR A SPECIFIC BATCH DTSCS21
01262 * AND WE DID NOT GET AN EXACT HIT THEN SET NO-REC-88 TO TRUE      DTSCS21
01263 *------------------------------------------------------------     DTSCS21
01264                                                                   DTSCS21
01265      IF WRK-BATCH-NO-2-VALID                                      DTSCS21
01266         IF AHDR-BATCH-NO > MAP-BATCH-NO-2-N                       DTSCS21
01267            GO TO P6100-EXIT                                       DTSCS21
01268         ELSE                                                      DTSCS21
01269            MOVE AHDR-BATCH-NO TO MAP-BATCH-NO-1-N                 DTSCS21
01270            MOVE AHDR-BATCH-NO TO WRK-BATCH-NO-1                   DTSCS21
01271      ELSE                                                         DTSCS21
01272      IF LCCM-ENTER-88                                             DTSCS21
01273      AND AHDR-BATCH-NO NOT = WRK-BATCH-NO-1                       DTSCS21
01274          SET L823-NO-REC-88 TO TRUE                               DTSCS21
01275      ELSE                                                         DTSCS21
01276      IF LCCM-F08-88                                               DTSCS21
01277         AND AHDR-BATCH-NO >  WRK-BATCH-NO-1                       DTSCS21
01278          MOVE AHDR-BATCH-NO TO MAP-BATCH-NO-1-N                   DTSCS21
01279          MOVE AHDR-BATCH-NO TO WRK-BATCH-NO-1                     DTSCS21
01280          GO TO P6100-EXIT.                                        DTSCS21
01281                                                                   DTSCS21
01282                                                                   DTSCS21
01283      IF LCCM-ENTER-88                                             DTSCS21
01284         GO TO P6100-EXIT.                                         DTSCS21
01285                                                                   DTSCS21
01286                                                                   DTSCS21
01287      IF LCCM-F07-88                                               DTSCS21
01288          PERFORM P6120-PREV-REC THRU P6120-EXIT                   DTSCS21
01289          GO TO P6100-EXIT.                                        DTSCS21
01290                                                                   DTSCS21
01291                                                                   DTSCS21
01292      IF LCCM-F08-88                                               DTSCS21
01293          PERFORM P6130-NEXT-REC THRU P6130-EXIT                   DTSCS21
01294          GO TO P6100-EXIT.                                        DTSCS21
01295                                                                   DTSCS21
01296                                                                   DTSCS21
01297      GO TO S899-ABEND.                                            DTSCS21
01298  P6100-EXIT.                                                      DTSCS21
01299      EXIT.                                                        DTSCS21
01300                                                                   DTSCS21
01301                                                                   DTSCS21
01302                                                                   DTSCS21
01303  P6120-PREV-REC.                                                  DTSCS21
01304      PERFORM S823-START-BROWSE THRU S823-EXIT.                    DTSCS21
01305                                                                   DTSCS21
01306      IF L823-NO-REC-88                                            DTSCS21
01307          MOVE PMSG-FIRST-PAGE TO LCCM-MSG-ID                      DTSCS21
01308          SET L823-OK-88 TO TRUE                                   DTSCS21
01309          GO TO P6120-EXIT.                                        DTSCS21
01310                                                                   DTSCS21
01311                                                                   DTSCS21
01312      PERFORM S823-READ-PREV THRU S823-EXIT.                       DTSCS21
01313                                                                   DTSCS21
01314      IF L823-NO-REC-88                                            DTSCS21
01315          MOVE PMSG-FIRST-PAGE TO LCCM-MSG-ID                      DTSCS21
01316          SET L823-OK-88 TO TRUE                                   DTSCS21
01317          GO TO P6120-EXIT.                                        DTSCS21
01318                                                                   DTSCS21
01319                                                                   DTSCS21
01320      PERFORM S823-READ-PREV THRU S823-EXIT.                       DTSCS21
01321                                                                   DTSCS21
01322      IF L823-NO-REC-88                                            DTSCS21
01323          MOVE PMSG-FIRST-PAGE TO LCCM-MSG-ID                      DTSCS21
01324          SET L823-OK-88 TO TRUE                                   DTSCS21
01325          GO TO P6120-EXIT.                                        DTSCS21
01326                                                                   DTSCS21
01327                                                                   DTSCS21
01328      PERFORM S823-END-BROWSE THRU S823-EXIT.                      DTSCS21
01329                                                                   DTSCS21
01330                                                                   DTSCS21
01331      MOVE +0 TO ASKL-ITEM-NO.                                     DTSCS21
01332                                                                   DTSCS21
01333      PERFORM S823-READ THRU S823-EXIT.                            DTSCS21
01334                                                                   DTSCS21
01335      IF L823-NO-REC-88                                            DTSCS21
01336          MOVE PMSG-FIRST-PAGE TO LCCM-MSG-ID                      DTSCS21
01337          SET L823-OK-88 TO TRUE                                   DTSCS21
01338          GO TO P6120-EXIT.                                        DTSCS21
01339                                                                   DTSCS21
01340                                                                   DTSCS21
01341      MOVE ASKL-REC TO AHDR-REC.                                   DTSCS21
01342                                                                   DTSCS21
01343      MOVE AHDR-BATCH-NO TO MAP-BATCH-NO-1-N                       DTSCS21
01344                            WRK-BATCH-NO-1.                        DTSCS21
01345  P6120-EXIT.                                                      DTSCS21
01346      EXIT.                                                        DTSCS21
01347                                                                   DTSCS21
01348                                                                   DTSCS21
01349                                                                   DTSCS21
01350  P6130-NEXT-REC.                                                  DTSCS21
01351      ADD 1 TO ASKL-BATCH-NO.                                      DTSCS21
01352                                                                   DTSCS21
01353      MOVE 0 TO ASKL-ITEM-NO.                                      DTSCS21
01354                                                                   DTSCS21
01355      PERFORM S823-START-BROWSE THRU S823-EXIT.                    DTSCS21
01356                                                                   DTSCS21
01357      IF L823-NO-REC-88                                            DTSCS21
01358         MOVE PMSG-LAST-PAGE TO LCCM-MSG-ID                        DTSCS21
01359         SET L823-OK-88 TO TRUE                                    DTSCS21
01360         GO TO P6130-EXIT.                                         DTSCS21
01361                                                                   DTSCS21
01362                                                                   DTSCS21
01363      MOVE ASKL-REC TO AHDR-REC.                                   DTSCS21
01364                                                                   DTSCS21
01365                                                                   DTSCS21
01366      MOVE AHDR-BATCH-NO TO MAP-BATCH-NO-1-N                       DTSCS21
01367                            WRK-BATCH-NO-1.                        DTSCS21
01368                                                                   DTSCS21
01369                                                                   DTSCS21
01370      PERFORM S823-END-BROWSE THRU S823-EXIT.                      DTSCS21
01371  P6130-EXIT.                                                      DTSCS21
01372      EXIT.                                                        DTSCS21
01373 /*****************************************************************DTSCS21
01374 * THE RECORD WAS FOUND SO FORMAT AND PLACE ALL FIELDS            *DTSCS21
01375 ******************************************************************DTSCS21
01376                                                                   DTSCS21
01377  P6900-CONSTRUCT-SCREEN.                                          DTSCS21
01378      MOVE LCCM-PRINTER-ID TO MAP-PRINTER-ID.                      DTSCS21
01379                                                                   DTSCS21
01380      PERFORM P6910-FROM-WRK THRU P6910-EXIT.                      DTSCS21
01381  P6900-EXIT.                                                      DTSCS21
01382      EXIT.                                                        DTSCS21
01383                                                                   DTSCS21
01384                                                                   DTSCS21
01385                                                                   DTSCS21
01386  P6910-FROM-WRK.                                                  DTSCS21
01387      IF WRK-BATCH-NO-2-NO-ENTRY                                   DTSCS21
01388         PERFORM P6911-NO-RANGE THRU P6911-EXIT.                   DTSCS21
01389                                                                   DTSCS21
01390                                                                   DTSCS21
01391      MOVE  WRK-CONTROL-REMIT-AMT TO MAP-CONTROL-REMIT-AMT-N.      DTSCS21
01392                                                                   DTSCS21
01393      MOVE  WRK-CONTROL-TRAN-CNT TO MAP-CONTROL-TRAN-CNT-N.        DTSCS21
01394                                                                   DTSCS21
01395      MOVE  WRK-ATC-FILE-REMIT-AMT TO MAP-ATC-FILE-REMIT-AMT-N.    DTSCS21
01396                                                                   DTSCS21
01397      MOVE  WRK-ATC-FILE-TRAN-CNT TO MAP-ATC-FILE-TRAN-CNT-N.      DTSCS21
01398                                                                   DTSCS21
01399      MOVE  WRK-PROC-REMIT-AMT TO MAP-PROC-REMIT-AMT-N.            DTSCS21
01400                                                                   DTSCS21
01401      MOVE  WRK-PROC-TRAN-CNT TO MAP-PROC-TRAN-CNT-N.              DTSCS21
01402                                                                   DTSCS21
01403      COMPUTE MAP-BALANCE-REMIT-AMT-N                              DTSCS21
01404        = WRK-CONTROL-REMIT-AMT - WRK-ATC-FILE-REMIT-AMT.          DTSCS21
01405                                                                   DTSCS21
01406      COMPUTE MAP-BALANCE-TRAN-CNT-N                               DTSCS21
01407        =  WRK-CONTROL-TRAN-CNT - WRK-ATC-FILE-TRAN-CNT.           DTSCS21
01408  P6910-EXIT.                                                      DTSCS21
01409      EXIT.                                                        DTSCS21
01410                                                                   DTSCS21
01411                                                                   DTSCS21
01412                                                                   DTSCS21
01413  P6911-NO-RANGE.                                                  DTSCS21
01414      MOVE AHDR-BATCH-HELD-IND TO MAP-BATCH-HELD-IND.              DTSCS21
01415                                                                   DTSCS21
01416      MOVE AHDR-ANNUAL-BATCH-IND TO MAP-ANNUAL-BATCH-IND.          DTSCS21
01417                                                                   DTSCS21
01418      IF AHDR-BATCH-BALANCED-YES-88                                DTSCS21
01419          MOVE 'BALANCED' TO MAP-STATUS-DSCR-1                     DTSCS21
01420      ELSE                                                         DTSCS21
01421          MOVE 'NOT BALANCED' TO MAP-STATUS-DSCR-1.                DTSCS21
01422                                                                   DTSCS21
01423                                                                   DTSCS21
01424      IF AHDR-BATCH-HELD-YES-88                                    DTSCS21
01425          MOVE 'HELD' TO MAP-STATUS-DSCR-2                         DTSCS21
01426      ELSE                                                         DTSCS21
01427          MOVE SPACES TO MAP-STATUS-DSCR-2.                        DTSCS21
01428                                                                   DTSCS21
01429                                                                   DTSCS21
01430      IF AHDR-PROC-TRAN-CNT > +0                                   DTSCS21
01431          MOVE 'PART PROCESSED' TO MAP-STATUS-DSCR-3               DTSCS21
01432      ELSE                                                         DTSCS21
01433          MOVE SPACES TO MAP-STATUS-DSCR-3.                        DTSCS21
01434                                                                   DTSCS21
01435                                                                   DTSCS21
01436      MOVE AHDR-RECEIVED-DATE TO WRK-DISPLAY.                      DTSCS21
01437                                                                   DTSCS21
01438      MOVE WRK-DISPLAY-MO TO MAP-RECEIVED-DATE-MO.                 DTSCS21
01439                                                                   DTSCS21
01440      MOVE WRK-DISPLAY-DA TO MAP-RECEIVED-DATE-DA.                 DTSCS21
01441                                                                   DTSCS21
01442      MOVE WRK-DISPLAY-YR TO MAP-RECEIVED-DATE-YR.                 DTSCS21
01443                                                                   DTSCS21
01444                                                                   DTSCS21
01445      MOVE AHDR-DEPOSIT-DATE TO WRK-DISPLAY.                       DTSCS21
01446                                                                   DTSCS21
01447      MOVE WRK-DISPLAY-MO TO MAP-DEPOSIT-DATE-MO.                  DTSCS21
01448                                                                   DTSCS21
01449      MOVE WRK-DISPLAY-DA TO MAP-DEPOSIT-DATE-DA.                  DTSCS21
01450                                                                   DTSCS21
01451      MOVE WRK-DISPLAY-YR TO MAP-DEPOSIT-DATE-YR.                  DTSCS21
01452                                                                   DTSCS21
01453                                                                   DTSCS21
01454      MOVE  AHDR-LAST-USED-ITEM-NO TO MAP-LAST-USED-ITEM-NO-N.     DTSCS21
01455                                                                   DTSCS21
01456      MOVE AHDR-BANK-BATCH-NO      TO MAP-BANK-BATCH-N.            DTSCS21
01457                                                                   DTSCS21
01458      IF AHDR-DEPOSIT-ID IS NUMERIC                                DTSCS21
01459         MOVE AHDR-DEPOSIT-ID        TO MAP-DEPOSIT-ID-N           DTSCS21
01460      ELSE                                                         DTSCS21
01461         MOVE ZERO                   TO MAP-DEPOSIT-ID             DTSCS21
01462      END-IF.                                                      DTSCS21
01463                                                                   DTSCS21
01464      MOVE  AHDR-ESTB-OP-ID TO MAP-ESTB-OP-ID.                     DTSCS21
01465                                                                   DTSCS21
01466                                                                   DTSCS21
01467      MOVE AHDR-ESTB-DATE TO L001-FED-8-DATE-9.                    DTSCS21
01468                                                                   DTSCS21
01469      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSCS21
01470                                                                   DTSCS21
01471      MOVE L001-SLASH-DATE TO MAP-ESTB-DATE.                       DTSCS21
01472                                                                   DTSCS21
01473                                                                   DTSCS21
01474      IF AHDR-CHNG-DATE > 0                                        DTSCS21
01475         MOVE AHDR-CHNG-OP-ID TO MAP-CHNG-OP-ID                    DTSCS21
01476         MOVE AHDR-CHNG-DATE TO L001-FED-8-DATE-9                  DTSCS21
01477         PERFORM S001-FROM-FED-8 THRU S001-EXIT                    DTSCS21
01478         MOVE L001-SLASH-DATE TO MAP-CHNG-DATE.                    DTSCS21
01479  P6911-EXIT. EXIT.                                                DTSCS21
01480                                                                   DTSCS21
01481                                                                   DTSCS21
01482                                                                   DTSCS21
01483  P6950-ACCUMALATE.                                                DTSCS21
01484      SET WRK-RECORD-ACCUM-YES-88 TO TRUE.                         DTSCS21
01485                                                                   DTSCS21
01486      ADD  AHDR-CONTROL-TRAN-CNT TO WRK-CONTROL-TRAN-CNT.          DTSCS21
01487                                                                   DTSCS21
01488      ADD  AHDR-ATC-FILE-TRAN-CNT TO WRK-ATC-FILE-TRAN-CNT.        DTSCS21
01489                                                                   DTSCS21
01490      ADD  AHDR-PROC-TRAN-CNT TO WRK-PROC-TRAN-CNT.                DTSCS21
01491                                                                   DTSCS21
01492      ADD  AHDR-CONTROL-REMIT-AMT TO WRK-CONTROL-REMIT-AMT.        DTSCS21
01493                                                                   DTSCS21
01494      ADD  AHDR-ATC-FILE-REMIT-AMT TO WRK-ATC-FILE-REMIT-AMT.      DTSCS21
01495                                                                   DTSCS21
01496      ADD  AHDR-PROC-REMIT-AMT TO WRK-PROC-REMIT-AMT.              DTSCS21
01497                                                                   DTSCS21
01498                                                                   DTSCS21
01499      IF WRK-BATCH-NO-2-NO-ENTRY                                   DTSCS21
01500        OR WRK-BATCH-NO-1                                          DTSCS21
01501         = WRK-BATCH-NO-2                                          DTSCS21
01502          SET L823-NO-REC-88 TO TRUE                               DTSCS21
01503          GO TO P6950-EXIT.                                        DTSCS21
01504                                                                   DTSCS21
01505                                                                   DTSCS21
01506      MOVE AHDR-BATCH-NO TO MAP-BATCH-NO-2-N.                      DTSCS21
01507                                                                   DTSCS21
01508                                                                   DTSCS21
01509      ADD 1 TO ASKL-BATCH-NO.                                      DTSCS21
01510                                                                   DTSCS21
01511      MOVE 0 TO ASKL-ITEM-NO.                                      DTSCS21
01512                                                                   DTSCS21
01513      PERFORM S823-START-BROWSE THRU S823-EXIT                     DTSCS21
01514                                                                   DTSCS21
01515      IF L823-OK-88                                                DTSCS21
01516         MOVE ASKL-REC TO AHDR-REC                                 DTSCS21
01517         PERFORM S823-END-BROWSE THRU S823-EXIT.                   DTSCS21
01518  P6950-EXIT. EXIT.                                                DTSCS21
01519                                                                   DTSCS21
01520                                                                   DTSCS21
01521                                                                   DTSCS21
01522  P6990-INIT-ACCUMALATERS.                                         DTSCS21
01523      MOVE +0 TO WRK-CONTROL-REMIT-AMT                             DTSCS21
01524                 WRK-CONTROL-TRAN-CNT                              DTSCS21
01525                 WRK-ATC-FILE-REMIT-AMT                            DTSCS21
01526                 WRK-ATC-FILE-TRAN-CNT                             DTSCS21
01527                 WRK-PROC-REMIT-AMT                                DTSCS21
01528                 WRK-PROC-TRAN-CNT.                                DTSCS21
01529                                                                   DTSCS21
01530  P6990-EXIT.                                                      DTSCS21
01531      EXIT.                                                        DTSCS21
01532 /*****************************************************************DTSCS21
01533 * FUNCTION KEY TO ADD, MOD OR DEL THE RECORD WAS PRESSED.        *DTSCS21
01534 ******************************************************************DTSCS21
01535                                                                   DTSCS21
01536  P7000-REQUEST-EDIT.                                              DTSCS21
01537      PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT.              DTSCS21
01538                                                                   DTSCS21
01539      IF LCCM-F09-88                                               DTSCS21
01540         PERFORM P7100-EDIT-ADD THRU P7100-EXIT                    DTSCS21
01541      ELSE                                                         DTSCS21
01542      IF LCCM-F10-88                                               DTSCS21
01543          PERFORM P7200-EDIT-MOD THRU P7200-EXIT                   DTSCS21
01544      ELSE                                                         DTSCS21
01545      IF LCCM-F23-88                                               DTSCS21
01546          PERFORM P7300-EDIT-DEL THRU P7300-EXIT                   DTSCS21
01547      ELSE                                                         DTSCS21
01548      IF LCCM-F05-88                                               DTSCS21
01549          PERFORM P7400-EDIT-PRT THRU P7400-EXIT                   DTSCS21
01550      ELSE                                                         DTSCS21
01551      IF LCCM-F06-88                                               DTSCS21
01552          PERFORM P7500-EDIT-DEP-PRT THRU P7500-EXIT               DTSCS21
01553      ELSE                                                         DTSCS21
01554          GO TO S899-ABEND.                                        DTSCS21
01555                                                                   DTSCS21
01556                                                                   DTSCS21
01557 *------------------------------------------------------           DTSCS21
01558 *  SCREEN STATUS IS NOT CHANGED IF AN ERROR IS DETECTED.          DTSCS21
01559 *  IN ORDER TO CONTINUE TO ATTEMPT A MOD THE SCREEN MUST          DTSCS21
01560 *  REMAIN IN 'INQUIRE' STATUS.                                    DTSCS21
01561 *------------------------------------------------------           DTSCS21
01562                                                                   DTSCS21
01563      IF LCCM-MSG                                                  DTSCS21
01564         NEXT SENTENCE                                             DTSCS21
01565      ELSE                                                         DTSCS21
01566         PERFORM S5100-SET-LOCK-ATTRB THRU S5100-EXIT              DTSCS21
01567         IF LCCM-F09-88                                            DTSCS21
01568            SET LCCM-SCR-ADD-LOCKED TO TRUE                        DTSCS21
01569            MOVE PMSG-ADD-CONFIRM TO LCCM-MSG-ID                   DTSCS21
01570         ELSE                                                      DTSCS21
01571         IF LCCM-F10-88                                            DTSCS21
01572             SET LCCM-SCR-MOD-LOCKED TO TRUE                       DTSCS21
01573             MOVE PMSG-MOD-CONFIRM TO LCCM-MSG-ID                  DTSCS21
01574         ELSE                                                      DTSCS21
01575         IF LCCM-F23-88                                            DTSCS21
01576             SET LCCM-SCR-DEL-LOCKED TO TRUE                       DTSCS21
01577             MOVE PMSG-DEL-CONFIRM TO LCCM-MSG-ID                  DTSCS21
01578         ELSE                                                      DTSCS21
01579         IF LCCM-F05-88                                            DTSCS21
01580         OR LCCM-F06-88                                            DTSCS21
01581             SET LCCM-SCR-PRT-LOCKED TO TRUE                       DTSCS21
01582             MOVE PMSG-PRINT-CONFIRM TO LCCM-MSG-ID.               DTSCS21
01583                                                                   DTSCS21
01584                                                                   DTSCS21
01585      SET RESP-SEND-MAP TO TRUE.                                   DTSCS21
01586  P7000-EXIT.                                                      DTSCS21
01587      EXIT.                                                        DTSCS21
01588 /*****************************************************************DTSCS21
01589 * ADD FUNCTION WAS REQUESTED                                     *DTSCS21
01590 ******************************************************************DTSCS21
01591                                                                   DTSCS21
01592  P7100-EDIT-ADD.                                                  DTSCS21
01593 *-----------------------------------------------------            DTSCS21
01594 *    ADDITION REQUIRES THAT THE SCREEN WAS CLEARED FIRST          DTSCS21
01595 *-----------------------------------------------------            DTSCS21
01596                                                                   DTSCS21
01597      IF NOT LCCM-SCR-CLEAR                                        DTSCS21
01598         MOVE EMSG-ADD-PRECEDED TO LCCM-MSG-ID                     DTSCS21
01599         GO TO P7100-EXIT.                                         DTSCS21
01600                                                                   DTSCS21
01601                                                                   DTSCS21
01602 *-----------------------------------------------------            DTSCS21
01603 *    MAP-BATCH-NO MAY NOT BE ENTERED DURING THE ADD               DTSCS21
01604 *-----------------------------------------------------            DTSCS21
01605                                                                   DTSCS21
01606      PERFORM S1100-EDIT-KEY THRU S1100-EXIT.                      DTSCS21
01607                                                                   DTSCS21
01608      IF LCCM-MSG                                                  DTSCS21
01609          GO TO P7100-EXIT.                                        DTSCS21
01610                                                                   DTSCS21
01611                                                                   DTSCS21
01612      PERFORM S1000-SCREEN-EDITS THRU S1000-EXIT.                  DTSCS21
01613                                                                   DTSCS21
01614 *-----------------------------------------------------            DTSCS21
01615 * IF THEY DIDN'T CLEAR THE SCREEN PROPERLY THEN DATA MAY BE LEFT  DTSCS21
01616 * FROM THE PREVIOUS REQUEST (INQ RANGE LEAVES SCREEN IN CLEAR     DTSCS21
01617 * STATE) BLANK OUT NON-ENTRY FIELDS                               DTSCS21
01618 *-----------------------------------------------------            DTSCS21
01619                                                                   DTSCS21
01620      MOVE SPACES TO MAP-ATC-FILE-REMIT-AMT                        DTSCS21
01621                     MAP-ATC-FILE-TRAN-CNT                         DTSCS21
01622                     MAP-BALANCE-REMIT-AMT                         DTSCS21
01623                     MAP-BALANCE-TRAN-CNT                          DTSCS21
01624                     MAP-PROC-REMIT-AMT                            DTSCS21
01625                     MAP-PROC-TRAN-CNT.                            DTSCS21
01626  P7100-EXIT.                                                      DTSCS21
01627      EXIT.                                                        DTSCS21
01628 /*****************************************************************DTSCS21
01629 * MODIFICATION FUNCTION WAS REQUESTED                            *DTSCS21
01630 ******************************************************************DTSCS21
01631                                                                   DTSCS21
01632  P7200-EDIT-MOD.                                                  DTSCS21
01633 *-----------------------------------------------------            DTSCS21
01634 *    MODIFICATION REQUIRES THAT A RECORD WAS SUCCESSFULLY         DTSCS21
01635 *    INQUIRED                                                     DTSCS21
01636 *-----------------------------------------------------            DTSCS21
01637                                                                   DTSCS21
01638      IF NOT LCCM-SCR-INQUIRE                                      DTSCS21
01639         MOVE EMSG-MOD-PRECEDED TO LCCM-MSG-ID                     DTSCS21
01640         GO TO P7200-EXIT.                                         DTSCS21
01641                                                                   DTSCS21
01642                                                                   DTSCS21
01643      PERFORM S1000-SCREEN-EDITS THRU S1000-EXIT.                  DTSCS21
01644                                                                   DTSCS21
01645                                                                   DTSCS21
01646 *-----------------------------------------------------            DTSCS21
01647 *    MAP-BATCH-NO MAY NOT BE CHANGED DURING THE MOD               DTSCS21
01648 *-----------------------------------------------------            DTSCS21
01649                                                                   DTSCS21
01650      PERFORM S1100-EDIT-KEY THRU S1100-EXIT.                      DTSCS21
01651                                                                   DTSCS21
01652      IF LCCM-MSG                                                  DTSCS21
01653          GO TO P7200-EXIT.                                        DTSCS21
01654                                                                   DTSCS21
01655                                                                   DTSCS21
01656      IF LCCM-BATCH-NO NOT = WRK-BATCH-NO-1                        DTSCS21
01657         MOVE EMSG-NO-FIELD-CHANGE-UPDATE TO WRK-MSG-AREA          DTSCS21
01658         PERFORM S1111-ERROR THRU S1111-EXIT                       DTSCS21
01659         GO TO P7200-EXIT.                                         DTSCS21
01660                                                                   DTSCS21
01661      MOVE LOW-VALUES TO ASKL-KEY-AREA.                            DTSCS21
01662                                                                   DTSCS21
01663      MOVE WRK-BATCH-NO-1 TO ASKL-BATCH-NO.                        DTSCS21
01664                                                                   DTSCS21
01665      MOVE +0 TO ASKL-ITEM-NO.                                     DTSCS21
01666                                                                   DTSCS21
01667      PERFORM S823-READ THRU S823-EXIT.                            DTSCS21
01668                                                                   DTSCS21
01669      IF L823-NO-REC-88                                            DTSCS21
01670          MOVE EMSG-NO-RECORD TO WRK-MSG-AREA                      DTSCS21
01671          PERFORM S1111-ERROR THRU S1111-EXIT                      DTSCS21
01672          GO TO P7200-EXIT.                                        DTSCS21
01673                                                                   DTSCS21
01674      MOVE ASKL-REC TO AHDR-REC.                                   DTSCS21
01675                                                                   DTSCS21
01676      MOVE MAP-CONTROL-REMIT-AMT-N  TO WRK-E215-REMIT-AMT.         DTSCS21
01677      IF WRK-E215-REMIT-AMT      NOT = AHDR-CONTROL-REMIT-AMT      DTSCS21
01678         IF SCR-ACCESS-SUPERVISOR                                  DTSCS21
01679            NEXT SENTENCE                                          DTSCS21
01680         ELSE                                                      DTSCS21
01681            MOVE MSG-E215-AREA  TO WRK-MSG-AREA                    DTSCS21
01682            PERFORM S1201-ERROR THRU S1201-EXIT                    DTSCS21
01683            GO TO P7200-EXIT.                                      DTSCS21
01684                                                                   DTSCS21
01685      MOVE MAP-CONTROL-TRAN-CNT-N   TO WRK-E216-TRAN-CNT.          DTSCS21
01686      IF WRK-E216-TRAN-CNT      NOT = AHDR-CONTROL-TRAN-CNT        DTSCS21
01687         IF SCR-ACCESS-SUPERVISOR                                  DTSCS21
01688            NEXT SENTENCE                                          DTSCS21
01689         ELSE                                                      DTSCS21
01690            MOVE MSG-E216-AREA  TO WRK-MSG-AREA                    DTSCS21
01691            PERFORM S1301-ERROR THRU S1301-EXIT                    DTSCS21
01692            GO TO P7200-EXIT.                                      DTSCS21
01693                                                                   DTSCS21
01694 *&   IF MAP-ANNUAL-BATCH-IND NOT = AHDR-ANNUAL-BATCH-IND          DTSCS21
01695 *       IF AHDR-ATC-FILE-TRAN-CNT = +0                            DTSCS21
01696 *          NEXT SENTENCE                                          DTSCS21
01697 *       ELSE                                                      DTSCS21
01698 *          MOVE MSG-E214-AREA  TO WRK-MSG-AREA                    DTSCS21
01699 *          PERFORM S1801-ERROR THRU S1801-EXIT                    DTSCS21
01700 *&         GO TO P7200-EXIT.                                      DTSCS21
01701                                                                   DTSCS21
01702  P7200-EXIT.                                                      DTSCS21
01703      EXIT.                                                        DTSCS21
01704 /*****************************************************************DTSCS21
01705 * DELETE FUNCTION WAS REQUESTED                                  *DTSCS21
01706 ******************************************************************DTSCS21
01707                                                                   DTSCS21
01708  P7300-EDIT-DEL.                                                  DTSCS21
01709         IF SCR-ACCESS-SUPERVISOR                                  DTSCS21
01710            NEXT SENTENCE                                          DTSCS21
01711         ELSE                                                      DTSCS21
01712            MOVE MSG-E217-AREA  TO WRK-MSG-AREA                    DTSCS21
01713            PERFORM S1111-ERROR THRU S1111-EXIT                    DTSCS21
01714            GO TO P7300-EXIT.                                      DTSCS21
01715                                                                   DTSCS21
01716 *-----------------------------------------------------            DTSCS21
01717 *    DELETION REQUIRES THAT A RECORD WAS SUCCESSFULLY             DTSCS21
01718 *    INQUIRED                                                     DTSCS21
01719 *-----------------------------------------------------            DTSCS21
01720                                                                   DTSCS21
01721      IF NOT LCCM-SCR-INQUIRE                                      DTSCS21
01722         MOVE EMSG-DEL-PRECEDED TO LCCM-MSG-ID                     DTSCS21
01723         GO TO P7300-EXIT.                                         DTSCS21
01724                                                                   DTSCS21
01725                                                                   DTSCS21
01726 *-----------------------------------------------------            DTSCS21
01727 *    MAP-BATCH-NO MAY NOT BE CHANGED DURING THE DEL               DTSCS21
01728 *-----------------------------------------------------            DTSCS21
01729                                                                   DTSCS21
01730      PERFORM S1100-EDIT-KEY THRU S1100-EXIT.                      DTSCS21
01731                                                                   DTSCS21
01732      IF LCCM-MSG                                                  DTSCS21
01733          GO TO P7300-EXIT.                                        DTSCS21
01734                                                                   DTSCS21
01735                                                                   DTSCS21
01736      IF LCCM-BATCH-NO NOT = WRK-BATCH-NO-1                        DTSCS21
01737         MOVE EMSG-NO-FIELD-CHANGE-UPDATE TO WRK-MSG-AREA          DTSCS21
01738         PERFORM S1111-ERROR THRU S1111-EXIT                       DTSCS21
01739         GO TO P7300-EXIT.                                         DTSCS21
01740                                                                   DTSCS21
01741                                                                   DTSCS21
01742      MOVE LOW-VALUES TO ASKL-KEY-AREA.                            DTSCS21
01743                                                                   DTSCS21
01744      MOVE WRK-BATCH-NO-1 TO ASKL-BATCH-NO.                        DTSCS21
01745                                                                   DTSCS21
01746      MOVE +0 TO ASKL-ITEM-NO.                                     DTSCS21
01747                                                                   DTSCS21
01748      PERFORM S823-READ THRU S823-EXIT.                            DTSCS21
01749                                                                   DTSCS21
01750      IF L823-OK-88                                                DTSCS21
01751          MOVE ASKL-REC TO AHDR-REC                                DTSCS21
01752          IF AHDR-PROC-TRAN-CNT > +0                               DTSCS21
01753              MOVE MSG-E212-AREA TO WRK-MSG-AREA                   DTSCS21
01754              PERFORM S1111-ERROR THRU S1111-EXIT                  DTSCS21
01755              GO TO P7300-EXIT.                                    DTSCS21
01756  P7300-EXIT.                                                      DTSCS21
01757      EXIT.                                                        DTSCS21
01758 /*****************************************************************DTSCS21
01759 * PRINT FUNCTION WAS REQUESTED                                  * DTSCS21
01760 ******************************************************************DTSCS21
01761                                                                   DTSCS21
01762  P7400-EDIT-PRT.                                                  DTSCS21
01763      IF SCR-ACCESS-UPDATE                                         DTSCS21
01764          PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT           DTSCS21
01765      ELSE                                                         DTSCS21
01766          PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT.             DTSCS21
01767                                                                   DTSCS21
01768                                                                   DTSCS21
01769      PERFORM S1700-MAP-PRINTER-ID THRU S1700-EXIT.                DTSCS21
01770                                                                   DTSCS21
01771      IF LCCM-MSG                                                  DTSCS21
01772          GO TO P7400-EXIT.                                        DTSCS21
01773                                                                   DTSCS21
01774                                                                   DTSCS21
01775 *-----------------------------------------------------            DTSCS21
01776 *    PRINT REQUIRES THAT A RECORD WAS SUCCESSFULLY                DTSCS21
01777 *    INQUIRED BUT THE SCREEN COULD BE IN A CLEAR STATE            DTSCS21
01778 *    SO WE'LL INQUIRE FIRST TO MAKE SURE ITS OK TO PRINT          DTSCS21
01779 *-----------------------------------------------------            DTSCS21
01780                                                                   DTSCS21
01781      IF (MAP-BATCH-NO-1 = SPACES OR LOW-VALUES)                   DTSCS21
01782              AND                                                  DTSCS21
01783         (MAP-BATCH-NO-2 = SPACES OR LOW-VALUES)                   DTSCS21
01784          MOVE 1 TO MAP-BATCH-NO-1-N                               DTSCS21
01785          MOVE 99999 TO MAP-BATCH-NO-2-N.                          DTSCS21
01786                                                                   DTSCS21
01787      SET WRK-LCCM-PRINT-REG-88     TO TRUE.                       DTSCS21
01788      MOVE WRK-LCCM-SCR-HOLD        TO LCCM-SCR-HOLD-AREA.         DTSCS21
01789                                                                   DTSCS21
01790      SET LCCM-ENTER-88 TO TRUE.                                   DTSCS21
01791                                                                   DTSCS21
01792      PERFORM P6000-REQUEST-INQUIRE THRU P6000-EXIT.               DTSCS21
01793                                                                   DTSCS21
01794      SET LCCM-F05-88 TO TRUE.                                     DTSCS21
01795                                                                   DTSCS21
01796      IF WRK-RECORD-ACCUM-YES-88                                   DTSCS21
01797         NEXT SENTENCE                                             DTSCS21
01798      ELSE                                                         DTSCS21
01799         MOVE MSG-E213-AREA TO LCCM-MSG-AREA                       DTSCS21
01800         GO TO P7400-EXIT.                                         DTSCS21
01801  P7400-EXIT.                                                      DTSCS21
01802      EXIT.                                                        DTSCS21
01803 /*****************************************************************DTSCS21
01804 * PRINT DEPOSIT TICKET FUNCTION REQUESTED                       * DTSCS21
01805 ******************************************************************DTSCS21
01806                                                                   DTSCS21
01807  P7500-EDIT-DEP-PRT.                                              DTSCS21
01808      IF SCR-ACCESS-UPDATE                                         DTSCS21
01809          PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT           DTSCS21
01810      ELSE                                                         DTSCS21
01811          PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT.             DTSCS21
01812                                                                   DTSCS21
01813      PERFORM S1100-EDIT-KEY THRU S1100-EXIT.                      DTSCS21
01814                                                                   DTSCS21
01815      IF LCCM-MSG                                                  DTSCS21
01816          GO TO P7500-EXIT                                         DTSCS21
01817      END-IF.                                                      DTSCS21
01818                                                                   DTSCS21
01819      MOVE LOW-VALUES TO ASKL-KEY-AREA.                            DTSCS21
01820                                                                   DTSCS21
01821      MOVE WRK-BATCH-NO-1 TO ASKL-BATCH-NO.                        DTSCS21
01822                                                                   DTSCS21
01823      MOVE +0 TO ASKL-ITEM-NO.                                     DTSCS21
01824                                                                   DTSCS21
01825      PERFORM S823-READ THRU S823-EXIT.                            DTSCS21
01826                                                                   DTSCS21
01827      IF L823-OK-88                                                DTSCS21
01828          MOVE ASKL-REC             TO AHDR-REC                    DTSCS21
01829      END-IF.                                                      DTSCS21
01830                                                                   DTSCS21
01831      PERFORM S2000-DEPOSIT-TKT     THRU S2000-EXIT.               DTSCS21
01832                                                                   DTSCS21
01833      IF LCCM-MSG                                                  DTSCS21
01834          GO TO P7500-EXIT.                                        DTSCS21
01835                                                                   DTSCS21
01836      SET WRK-LCCM-PRINT-DEP-88     TO TRUE.                       DTSCS21
01837      MOVE WRK-LCCM-SCR-HOLD        TO LCCM-SCR-HOLD-AREA.         DTSCS21
01838                                                                   DTSCS21
01839 **   SET LCCM-ENTER-88 TO TRUE.                                   DTSCS21
01840                                                                   DTSCS21
01841      PERFORM P6000-REQUEST-INQUIRE THRU P6000-EXIT.               DTSCS21
01842                                                                   DTSCS21
01843 **   SET LCCM-F06-88 TO TRUE.                                     DTSCS21
01844                                                                   DTSCS21
01845  P7500-EXIT.                                                      DTSCS21
01846      EXIT.                                                        DTSCS21
01847 /*****************************************************************DTSCS21
01848 * THE UPDATE/ADD/DELETE FUNCTION WAS CONFIRMED OR CANCELED       *DTSCS21
01849 ******************************************************************DTSCS21
01850                                                                   DTSCS21
01851  P8000-REQUEST-UPDATE.                                            DTSCS21
01852      IF LCCM-SCR-ADD-LOCKED                                       DTSCS21
01853         PERFORM P8100-ADD THRU P8100-EXIT                         DTSCS21
01854      ELSE                                                         DTSCS21
01855      IF LCCM-SCR-MOD-LOCKED                                       DTSCS21
01856         PERFORM P8200-MOD THRU P8200-EXIT                         DTSCS21
01857      ELSE                                                         DTSCS21
01858      IF LCCM-SCR-DEL-LOCKED                                       DTSCS21
01859         PERFORM P8300-DEL THRU P8300-EXIT                         DTSCS21
01860      ELSE                                                         DTSCS21
01861      IF LCCM-SCR-PRT-LOCKED                                       DTSCS21
01862         IF WRK-LCCM-PRINT-REG-88                                  DTSCS21
01863            PERFORM P8400-PRT THRU P8400-EXIT                      DTSCS21
01864         ELSE                                                      DTSCS21
01865            IF WRK-LCCM-PRINT-DEP-88                               DTSCS21
01866               PERFORM P8500-DEP-PRT THRU P8500-EXIT               DTSCS21
01867            ELSE                                                   DTSCS21
01868               GO TO S899-ABEND                                    DTSCS21
01869            END-IF                                                 DTSCS21
01870         END-IF                                                    DTSCS21
01871      ELSE                                                         DTSCS21
01872         GO TO S899-ABEND.                                         DTSCS21
01873                                                                   DTSCS21
01874                                                                   DTSCS21
01875      SET RESP-SEND-MAP TO TRUE.                                   DTSCS21
01876  P8000-EXIT.                                                      DTSCS21
01877      EXIT.                                                        DTSCS21
01878 /*****************************************************************DTSCS21
01879 *                                                                *DTSCS21
01880 ******************************************************************DTSCS21
01881                                                                   DTSCS21
01882  P8100-ADD.                                                       DTSCS21
01883      SET LCCM-SCR-CLEAR TO TRUE.                                  DTSCS21
01884                                                                   DTSCS21
01885                                                                   DTSCS21
01886      PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT.              DTSCS21
01887                                                                   DTSCS21
01888                                                                   DTSCS21
01889      IF LCCM-F12-88                                               DTSCS21
01890         MOVE PMSG-ADD-CANCELED TO LCCM-MSG-ID                     DTSCS21
01891         GO TO P8100-EXIT.                                         DTSCS21
01892                                                                   DTSCS21
01893                                                                   DTSCS21
01894      PERFORM P8110-CONSTRUCT-AHDR THRU P8110-EXIT.                DTSCS21
01895                                                                   DTSCS21
01896                                                                   DTSCS21
01897 ** INQUIRE AFTER ADD                                              DTSCS21
01898                                                                   DTSCS21
01899      SET LCCM-ENTER-88 TO TRUE.                                   DTSCS21
01900                                                                   DTSCS21
01901      PERFORM P6000-REQUEST-INQUIRE THRU P6000-EXIT.               DTSCS21
01902                                                                   DTSCS21
01903      MOVE PMSG-ADD-SUCCESSFUL TO LCCM-MSG-ID.                     DTSCS21
01904  P8100-EXIT.                                                      DTSCS21
01905      EXIT.                                                        DTSCS21
01906                                                                   DTSCS21
01907                                                                   DTSCS21
01908                                                                   DTSCS21
01909  P8110-CONSTRUCT-AHDR.                                            DTSCS21
01910      MOVE LCCM-OP-ID TO L373-ESTB-OP-ID.                          DTSCS21
01911                                                                   DTSCS21
01912      PERFORM S373-ADD-HDR THRU S373-EXIT.                         DTSCS21
01913                                                                   DTSCS21
01914      MOVE L373-BATCH-NO TO MAP-BATCH-NO-1                         DTSCS21
01915                            WRK-BATCH-NO-1.                        DTSCS21
01916                                                                   DTSCS21
01917      MOVE LOW-VALUES TO ASKL-KEY-AREA.                            DTSCS21
01918                                                                   DTSCS21
01919      MOVE L373-BATCH-NO TO ASKL-BATCH-NO.                         DTSCS21
01920                                                                   DTSCS21
01921      MOVE +0 TO ASKL-ITEM-NO.                                     DTSCS21
01922                                                                   DTSCS21
01923      PERFORM S823-READ THRU S823-EXIT.                            DTSCS21
01924                                                                   DTSCS21
01925 ** SHOULD NEVER HAPPEN BUT ...                                    DTSCS21
01926                                                                   DTSCS21
01927      IF L823-NO-REC-88                                            DTSCS21
01928          GO TO S899-ABEND.                                        DTSCS21
01929                                                                   DTSCS21
01930                                                                   DTSCS21
01931      MOVE ASKL-REC TO AHDR-REC.                                   DTSCS21
01932                                                                   DTSCS21
01933                                                                   DTSCS21
01934      MOVE MAP-RECEIVED-DATE-AREA TO L015-S-DATE-AREA.             DTSCS21
01935                                                                   DTSCS21
01936      PERFORM S015-DATE-FROM-SCREEN THRU S015-EXIT.                DTSCS21
01937                                                                   DTSCS21
01938      IF L015-VALID                                                DTSCS21
01939          MOVE L015-DATE TO AHDR-RECEIVED-DATE.                    DTSCS21
01940                                                                   DTSCS21
01941                                                                   DTSCS21
01942      MOVE MAP-DEPOSIT-DATE-AREA TO L015-S-DATE-AREA.              DTSCS21
01943                                                                   DTSCS21
01944      PERFORM S015-DATE-FROM-SCREEN THRU S015-EXIT.                DTSCS21
01945                                                                   DTSCS21
01946      IF L015-VALID                                                DTSCS21
01947          MOVE L015-DATE TO AHDR-DEPOSIT-DATE.                     DTSCS21
01948                                                                   DTSCS21
01949                                                                   DTSCS21
01950      MOVE MAP-BATCH-HELD-IND TO AHDR-BATCH-HELD-IND.              DTSCS21
01951                                                                   DTSCS21
01952      MOVE MAP-CONTROL-REMIT-AMT-AREA TO L011-S-AMT-AREA.          DTSCS21
01953                                                                   DTSCS21
01954      PERFORM S011-REMIT-AMT THRU S011-EXIT.                       DTSCS21
01955                                                                   DTSCS21
01956      MOVE L011-AMT TO AHDR-CONTROL-REMIT-AMT.                     DTSCS21
01957                                                                   DTSCS21
01958                                                                   DTSCS21
01959      MOVE MAP-CONTROL-TRAN-CNT-AREA TO L013-S-CNT-AREA.           DTSCS21
01960                                                                   DTSCS21
01961      PERFORM S013-TRAN-CNT THRU S013-EXIT.                        DTSCS21
01962                                                                   DTSCS21
01963      MOVE L013-CNT TO AHDR-CONTROL-TRAN-CNT.                      DTSCS21
01964                                                                   DTSCS21
01965                                                                   DTSCS21
01966      IF (AHDR-CONTROL-REMIT-AMT = AHDR-ATC-FILE-REMIT-AMT)        DTSCS21
01967                AND                                                DTSCS21
01968         (AHDR-CONTROL-TRAN-CNT = AHDR-ATC-FILE-TRAN-CNT)          DTSCS21
01969          SET AHDR-BATCH-BALANCED-YES-88 TO TRUE                   DTSCS21
01970      ELSE                                                         DTSCS21
01971          SET AHDR-BATCH-BALANCED-NO-88 TO TRUE.                   DTSCS21
01972                                                                   DTSCS21
01973                                                                   DTSCS21
01974      MOVE MAP-ANNUAL-BATCH-IND  TO AHDR-ANNUAL-BATCH-IND.         DTSCS21
01975                                                                   DTSCS21
01976      MOVE MAP-BANK-BATCH-N        TO AHDR-BANK-BATCH-NO.          DTSCS21
01977                                                                   DTSCS21
01978      IF MAP-DEPOSIT-ID-N IS NUMERIC                               DTSCS21
01979         MOVE MAP-DEPOSIT-ID-N     TO AHDR-DEPOSIT-ID              DTSCS21
01980      ELSE                                                         DTSCS21
01981         MOVE +0                   TO AHDR-DEPOSIT-ID              DTSCS21
01982      END-IF.                                                      DTSCS21
01983                                                                   DTSCS21
01984                                                                   DTSCS21
01985      MOVE AHDR-REC                TO ASKL-REC.                    DTSCS21
01986                                                                   DTSCS21
01987      PERFORM S823-REWRITE         THRU S823-EXIT.                 DTSCS21
01988                                                                   DTSCS21
01989      SET WRK-AATH-ACTION-ADD-88   TO TRUE.                        DTSCS21
01990      PERFORM S826-WRITE-ATH       THRU S826-EXIT.                 DTSCS21
01991                                                                   DTSCS21
01992  P8110-EXIT.                                                      DTSCS21
01993      EXIT.                                                        DTSCS21
01994 /*****************************************************************DTSCS21
01995 * IF ENTER OR CANCEL, MODULE IS SET TO INQUIRY REGARDLESS        *DTSCS21
01996 ******************************************************************DTSCS21
01997                                                                   DTSCS21
01998  P8200-MOD.                                                       DTSCS21
01999      SET LCCM-SCR-INQUIRE TO TRUE.                                DTSCS21
02000                                                                   DTSCS21
02001      PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT.              DTSCS21
02002                                                                   DTSCS21
02003                                                                   DTSCS21
02004      IF LCCM-F12-88                                               DTSCS21
02005         MOVE PMSG-MOD-CANCELED       TO LCCM-MSG-ID               DTSCS21
02006         GO TO P8200-EXIT.                                         DTSCS21
02007                                                                   DTSCS21
02008                                                                   DTSCS21
02009      PERFORM S1100-EDIT-KEY          THRU S1100-EXIT.             DTSCS21
02010                                                                   DTSCS21
02011                                                                   DTSCS21
02012      PERFORM P8210-CONSTRUCT-AHDR    THRU P8210-EXIT.             DTSCS21
02013                                                                   DTSCS21
02014                                                                   DTSCS21
02015 *****  INQUIRE AFTER MODIFY.                                      DTSCS21
02016                                                                   DTSCS21
02017      SET LCCM-ENTER-88 TO TRUE.                                   DTSCS21
02018                                                                   DTSCS21
02019      PERFORM P6000-REQUEST-INQUIRE THRU P6000-EXIT.               DTSCS21
02020                                                                   DTSCS21
02021                                                                   DTSCS21
02022      MOVE PMSG-MOD-SUCCESSFUL        TO LCCM-MSG-ID.              DTSCS21
02023  P8200-EXIT.                                                      DTSCS21
02024      EXIT.                                                        DTSCS21
02025                                                                   DTSCS21
02026                                                                   DTSCS21
02027                                                                   DTSCS21
02028  P8210-CONSTRUCT-AHDR.                                            DTSCS21
02029      MOVE LOW-VALUES TO ASKL-KEY-AREA.                            DTSCS21
02030                                                                   DTSCS21
02031      MOVE WRK-BATCH-NO-1 TO ASKL-BATCH-NO.                        DTSCS21
02032                                                                   DTSCS21
02033      MOVE +0 TO ASKL-ITEM-NO.                                     DTSCS21
02034                                                                   DTSCS21
02035      PERFORM S823-READ THRU S823-EXIT.                            DTSCS21
02036                                                                   DTSCS21
02037      IF L823-NO-REC-88                                            DTSCS21
02038          MOVE MSG-E214-AREA  TO WRK-MSG-AREA                      DTSCS21
02039          PERFORM S1801-ERROR THRU S1801-EXIT                      DTSCS21
02040          GO TO P8210-EXIT.                                        DTSCS21
02041                                                                   DTSCS21
02042                                                                   DTSCS21
02043      MOVE ASKL-REC TO AHDR-REC.                                   DTSCS21
02044                                                                   DTSCS21
02045      MOVE LCCM-CURR-RUN-DATE TO AHDR-CHNG-DATE.                   DTSCS21
02046                                                                   DTSCS21
02047                                                                   DTSCS21
02048      MOVE LCCM-OP-ID TO AHDR-CHNG-OP-ID.                          DTSCS21
02049                                                                   DTSCS21
02050                                                                   DTSCS21
02051      MOVE MAP-BATCH-HELD-IND TO AHDR-BATCH-HELD-IND.              DTSCS21
02052                                                                   DTSCS21
02053                                                                   DTSCS21
02054      MOVE MAP-DEPOSIT-DATE-AREA TO L015-S-DATE-AREA.              DTSCS21
02055                                                                   DTSCS21
02056      PERFORM S015-DATE-FROM-SCREEN THRU S015-EXIT.                DTSCS21
02057                                                                   DTSCS21
02058      MOVE L015-DATE TO AHDR-DEPOSIT-DATE.                         DTSCS21
02059                                                                   DTSCS21
02060                                                                   DTSCS21
02061      MOVE MAP-RECEIVED-DATE-AREA TO L015-S-DATE-AREA.             DTSCS21
02062                                                                   DTSCS21
02063      PERFORM S015-DATE-FROM-SCREEN THRU S015-EXIT.                DTSCS21
02064                                                                   DTSCS21
02065      MOVE L015-DATE TO AHDR-RECEIVED-DATE.                        DTSCS21
02066                                                                   DTSCS21
02067                                                                   DTSCS21
02068      MOVE MAP-CONTROL-REMIT-AMT-AREA TO L011-S-AMT-AREA.          DTSCS21
02069                                                                   DTSCS21
02070      PERFORM S011-REMIT-AMT THRU S011-EXIT.                       DTSCS21
02071                                                                   DTSCS21
02072      MOVE L011-AMT TO AHDR-CONTROL-REMIT-AMT.                     DTSCS21
02073                                                                   DTSCS21
02074                                                                   DTSCS21
02075      MOVE MAP-CONTROL-TRAN-CNT-AREA TO L013-S-CNT-AREA.           DTSCS21
02076                                                                   DTSCS21
02077      PERFORM S013-TRAN-CNT THRU S013-EXIT.                        DTSCS21
02078                                                                   DTSCS21
02079      MOVE L013-CNT TO AHDR-CONTROL-TRAN-CNT.                      DTSCS21
02080                                                                   DTSCS21
02081                                                                   DTSCS21
02082      IF (AHDR-CONTROL-REMIT-AMT = AHDR-ATC-FILE-REMIT-AMT)        DTSCS21
02083                 AND                                               DTSCS21
02084         (AHDR-CONTROL-TRAN-CNT = AHDR-ATC-FILE-TRAN-CNT)          DTSCS21
02085          SET AHDR-BATCH-BALANCED-YES-88 TO TRUE                   DTSCS21
02086      ELSE                                                         DTSCS21
02087          SET AHDR-BATCH-BALANCED-NO-88 TO TRUE.                   DTSCS21
02088                                                                   DTSCS21
02089      IF MAP-ANNUAL-BATCH-VALID-88                                 DTSCS21
02090         IF MAP-ANNUAL-BATCH-IND NOT = AHDR-ANNUAL-BATCH-IND       DTSCS21
02091            MOVE MAP-ANNUAL-BATCH-IND TO AHDR-ANNUAL-BATCH-IND.    DTSCS21
02092                                                                   DTSCS21
02093      MOVE MAP-BANK-BATCH-N      TO AHDR-BANK-BATCH-NO.            DTSCS21
02094                                                                   DTSCS21
02095      IF MAP-DEPOSIT-ID-N IS NUMERIC                               DTSCS21
02096         MOVE MAP-DEPOSIT-ID-N   TO AHDR-DEPOSIT-ID                DTSCS21
02097      ELSE                                                         DTSCS21
02098         MOVE +0                 TO AHDR-DEPOSIT-ID                DTSCS21
02099      END-IF.                                                      DTSCS21
02100                                                                   DTSCS21
02101                                                                   DTSCS21
02102      MOVE AHDR-REC TO ASKL-REC.                                   DTSCS21
02103                                                                   DTSCS21
02104      PERFORM S823-REWRITE THRU S823-EXIT.                         DTSCS21
02105                                                                   DTSCS21
02106      SET WRK-AATH-ACTION-UPD-88   TO TRUE.                        DTSCS21
02107      PERFORM S826-WRITE-ATH       THRU S826-EXIT.                 DTSCS21
02108                                                                   DTSCS21
02109  P8210-EXIT.                                                      DTSCS21
02110      EXIT.                                                        DTSCS21
02111 /*****************************************************************DTSCS21
02112 * IF ENTER OR CANCEL, MODULE IS SET TO INQUIRY REGARDLESS        *DTSCS21
02113 ******************************************************************DTSCS21
02114                                                                   DTSCS21
02115  P8300-DEL.                                                       DTSCS21
02116      SET LCCM-SCR-INQUIRE TO TRUE.                                DTSCS21
02117                                                                   DTSCS21
02118      PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT.              DTSCS21
02119                                                                   DTSCS21
02120                                                                   DTSCS21
02121      IF LCCM-F12-88                                               DTSCS21
02122         MOVE PMSG-DEL-CANCELED TO LCCM-MSG-ID                     DTSCS21
02123         GO TO P8300-EXIT.                                         DTSCS21
02124                                                                   DTSCS21
02125                                                                   DTSCS21
02126      PERFORM S1100-EDIT-KEY THRU S1100-EXIT.                      DTSCS21
02127                                                                   DTSCS21
02128                                                                   DTSCS21
02129      PERFORM P8310-DELETE THRU P8310-EXIT.                        DTSCS21
02130                                                                   DTSCS21
02131      IF LCCM-MSG                                                  DTSCS21
02132          GO TO P8300-EXIT.                                        DTSCS21
02133                                                                   DTSCS21
02134      PERFORM P8320-DELETE-WAGES THRU P8320-EXIT.                  DTSCS21
02135                                                                   DTSCS21
02136      IF LCCM-MSG                                                  DTSCS21
02137          GO TO P8300-EXIT.                                        DTSCS21
02138                                                                   DTSCS21
02139                                                                   DTSCS21
02140      MOVE LOW-VALUES TO MAP-AREA.                                 DTSCS21
02141                                                                   DTSCS21
02142      MOVE WRK-BATCH-NO-1 TO MAP-BATCH-NO-1.                       DTSCS21
02143                                                                   DTSCS21
02144      SET LCCM-SCR-CLEAR TO TRUE.                                  DTSCS21
02145                                                                   DTSCS21
02146                                                                   DTSCS21
02147 ** INQUIRE AFTER DEL                                              DTSCS21
02148                                                                   DTSCS21
02149      SET LCCM-ENTER-88 TO TRUE.                                   DTSCS21
02150                                                                   DTSCS21
02151      PERFORM P6000-REQUEST-INQUIRE THRU P6000-EXIT.               DTSCS21
02152                                                                   DTSCS21
02153      MOVE PMSG-DEL-SUCCESSFUL TO LCCM-MSG-ID.                     DTSCS21
02154  P8300-EXIT.                                                      DTSCS21
02155      EXIT.                                                        DTSCS21
02156      EJECT                                                        DTSCS21
02157  P8310-DELETE.                                                    DTSCS21
02158      MOVE LOW-VALUES TO ASKL-KEY-AREA.                            DTSCS21
02159                                                                   DTSCS21
02160      MOVE WRK-BATCH-NO-1 TO ASKL-BATCH-NO.                        DTSCS21
02161                                                                   DTSCS21
02162      MOVE +0 TO ASKL-ITEM-NO.                                     DTSCS21
02163                                                                   DTSCS21
02164      PERFORM S823-READ THRU S823-EXIT.                            DTSCS21
02165                                                                   DTSCS21
02166      IF L823-NO-REC-88                                            DTSCS21
02167          MOVE EMSG-NO-RECORD TO WRK-MSG-AREA                      DTSCS21
02168          PERFORM S1111-ERROR THRU S1111-EXIT                      DTSCS21
02169          GO TO P8310-EXIT.                                        DTSCS21
02170                                                                   DTSCS21
02171                                                                   DTSCS21
02172      MOVE ASKL-REC TO AHDR-REC.                                   DTSCS21
02173                                                                   DTSCS21
02174                                                                   DTSCS21
02175      MOVE +0 TO AHDR-CONTROL-TRAN-CNT                             DTSCS21
02176                 AHDR-ATC-FILE-TRAN-CNT                            DTSCS21
02177                 AHDR-PROC-TRAN-CNT                                DTSCS21
02178                 AHDR-CONTROL-REMIT-AMT                            DTSCS21
02179                 AHDR-ATC-FILE-REMIT-AMT                           DTSCS21
02180                 AHDR-PROC-REMIT-AMT                               DTSCS21
02181                 AHDR-LAST-USED-ITEM-NO                            DTSCS21
02182                 AHDR-DEPOSIT-ID.                                  DTSCS21
02183                                                                   DTSCS21
02184      SET AHDR-BATCH-BALANCED-YES-88 TO TRUE.                      DTSCS21
02185                                                                   DTSCS21
02186      SET AHDR-BATCH-HELD-NO-88 TO TRUE.                           DTSCS21
02187                                                                   DTSCS21
02188      MOVE AHDR-REC          TO ASKL-REC.                          DTSCS21
02189                                                                   DTSCS21
02190      PERFORM S823-REWRITE  THRU S823-EXIT.                        DTSCS21
02191                                                                   DTSCS21
02192      SET WRK-AATH-ACTION-DEL-88   TO TRUE.                        DTSCS21
02193      PERFORM S826-WRITE-ATH       THRU S826-EXIT.                 DTSCS21
02194                                                                   DTSCS21
02195      MOVE +1 TO ASKL-ITEM-NO.                                     DTSCS21
02196                                                                   DTSCS21
02197      PERFORM S823-START-BROWSE THRU S823-EXIT.                    DTSCS21
02198                                                                   DTSCS21
02199      PERFORM P8311-DELETE-LOOP THRU P8311-EXIT                    DTSCS21
02200        UNTIL L823-NO-REC-88.                                      DTSCS21
02201  P8310-EXIT.                                                      DTSCS21
02202      EXIT.                                                        DTSCS21
02203                                                                   DTSCS21
02204                                                                   DTSCS21
02205                                                                   DTSCS21
02206  P8311-DELETE-LOOP.                                               DTSCS21
02207      IF ASKL-BATCH-NO = WRK-BATCH-NO-1                            DTSCS21
02208          NEXT SENTENCE                                            DTSCS21
02209      ELSE                                                         DTSCS21
02210          PERFORM S823-END-BROWSE THRU S823-EXIT                   DTSCS21
02211          SET L823-NO-REC-88 TO TRUE                               DTSCS21
02212          GO TO P8311-EXIT.                                        DTSCS21
02213                                                                   DTSCS21
02214                                                                   DTSCS21
02215      PERFORM S823-END-BROWSE THRU S823-EXIT.                      DTSCS21
02216                                                                   DTSCS21
02217                                                                   DTSCS21
02218      PERFORM S823-DELETE     THRU S823-EXIT.                      DTSCS21
02219                                                                   DTSCS21
02220                                                                   DTSCS21
02221      PERFORM S823-START-BROWSE THRU S823-EXIT.                    DTSCS21
02222  P8311-EXIT.                                                      DTSCS21
02223      EXIT.                                                        DTSCS21
02224                                                                   DTSCS21
02225  P8320-DELETE-WAGES.                                              DTSCS21
02226      MOVE LOW-VALUES TO WSKL-KEY-AREA.                            DTSCS21
02227                                                                   DTSCS21
02228      MOVE WRK-BATCH-NO-1 TO WSKL-BATCH-NO.                        DTSCS21
02229                                                                   DTSCS21
02230      MOVE +0 TO WSKL-ITEM-NO.                                     DTSCS21
02231                                                                   DTSCS21
02232      PERFORM S880-START-BROWSE THRU S880-EXIT.                    DTSCS21
02233                                                                   DTSCS21
02234      IF L880-NO-REC-88                                            DTSCS21
02235          GO TO P8320-EXIT                                         DTSCS21
02236      ELSE                                                         DTSCS21
02237          PERFORM P8321-DELETE-LOOP  THRU P8321-EXIT               DTSCS21
02238             UNTIL L880-NO-REC-88.                                 DTSCS21
02239                                                                   DTSCS21
02240  P8320-EXIT.                                                      DTSCS21
02241      EXIT.                                                        DTSCS21
02242                                                                   DTSCS21
02243  P8321-DELETE-LOOP.                                               DTSCS21
02244      IF WSKL-BATCH-NO = WRK-BATCH-NO-1                            DTSCS21
02245          NEXT SENTENCE                                            DTSCS21
02246      ELSE                                                         DTSCS21
02247          PERFORM S880-END-BROWSE THRU S880-EXIT                   DTSCS21
02248          SET L880-NO-REC-88 TO TRUE                               DTSCS21
02249          GO TO P8321-EXIT.                                        DTSCS21
02250                                                                   DTSCS21
02251      PERFORM S880-END-BROWSE THRU S880-EXIT.                      DTSCS21
02252                                                                   DTSCS21
02253      PERFORM S880-DELETE     THRU S880-EXIT.                      DTSCS21
02254                                                                   DTSCS21
02255      PERFORM S880-START-BROWSE THRU S880-EXIT.                    DTSCS21
02256                                                                   DTSCS21
02257  P8321-EXIT.                                                      DTSCS21
02258      EXIT.                                                        DTSCS21
02259                                                                   DTSCS21
02260  P8400-PRT.                                                       DTSCS21
02261      SET LCCM-SCR-CLEAR TO TRUE.                                  DTSCS21
02262                                                                   DTSCS21
02263      IF SCR-ACCESS-UPDATE                                         DTSCS21
02264          PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT           DTSCS21
02265      ELSE                                                         DTSCS21
02266          PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT.             DTSCS21
02267                                                                   DTSCS21
02268                                                                   DTSCS21
02269      IF LCCM-F12-88                                               DTSCS21
02270         SET LCCM-ENTER-88 TO TRUE                                 DTSCS21
02271         PERFORM P6000-REQUEST-INQUIRE THRU P6000-EXIT             DTSCS21
02272         MOVE PMSG-PRINT-CANCELED TO LCCM-MSG-ID                   DTSCS21
02273         GO TO P8400-EXIT.                                         DTSCS21
02274                                                                   DTSCS21
02275                                                                   DTSCS21
02276      PERFORM P8410-PRINT THRU P8410-EXIT.                         DTSCS21
02277                                                                   DTSCS21
02278      IF LCCM-MSG                                                  DTSCS21
02279         GO TO P8400-EXIT.                                         DTSCS21
02280                                                                   DTSCS21
02281                                                                   DTSCS21
02282      PERFORM P6000-REQUEST-INQUIRE THRU P6000-EXIT.               DTSCS21
02283                                                                   DTSCS21
02284      MOVE PMSG-PRINT-SUCCESSFUL TO LCCM-MSG-ID.                   DTSCS21
02285  P8400-EXIT.                                                      DTSCS21
02286      EXIT.                                                        DTSCS21
02287                                                                   DTSCS21
02288                                                                   DTSCS21
02289                                                                   DTSCS21
02290  P8410-PRINT.                                                     DTSCS21
02291      MOVE +0 TO WRK-PAGE-CTR.                                     DTSCS21
02292                                                                   DTSCS21
02293      MOVE +0 TO WRK-DETAIL-CTR.                                   DTSCS21
02294                                                                   DTSCS21
02295      PERFORM S1100-EDIT-KEY THRU S1100-EXIT.                      DTSCS21
02296                                                                   DTSCS21
02297      PERFORM P6100-LOCATE-REC THRU P6100-EXIT.                    DTSCS21
02298                                                                   DTSCS21
02299      IF LCCM-MSG                                                  DTSCS21
02300          GO TO P8410-EXIT.                                        DTSCS21
02301                                                                   DTSCS21
02302                                                                   DTSCS21
02303      SET WRK-RECORD-ACCUM-NO-88 TO TRUE.                          DTSCS21
02304                                                                   DTSCS21
02305      PERFORM P6990-INIT-ACCUMALATERS THRU P6990-EXIT.             DTSCS21
02306                                                                   DTSCS21
02307      PERFORM P8440-INIT-PRINT THRU P8440-EXIT.                    DTSCS21
02308                                                                   DTSCS21
02309      PERFORM P8450-HEADING THRU P8450-EXIT.                       DTSCS21
02310                                                                   DTSCS21
02311      PERFORM P8420-ACCUMALATE THRU P8420-EXIT                     DTSCS21
02312        UNTIL L823-NO-REC-88                                       DTSCS21
02313           OR ASKL-BATCH-NO > WRK-BATCH-NO-2.                      DTSCS21
02314                                                                   DTSCS21
02315      IF LCCM-MSG                                                  DTSCS21
02316         PERFORM S829-DELETE-QUEUE THRU S829-EXIT                  DTSCS21
02317         GO TO P8410-EXIT.                                         DTSCS21
02318                                                                   DTSCS21
02319                                                                   DTSCS21
02320      IF WRK-RECORD-ACCUM-YES-88                                   DTSCS21
02321         CONTINUE                                                  DTSCS21
02322      ELSE                                                         DTSCS21
02323         PERFORM S829-DELETE-QUEUE THRU S829-EXIT                  DTSCS21
02324         MOVE MSG-E213-AREA TO LCCM-MSG-AREA                       DTSCS21
02325         GO TO P8410-EXIT.                                         DTSCS21
02326                                                                   DTSCS21
02327      PERFORM P8430-TOTALS THRU P8430-EXIT.                        DTSCS21
02328                                                                   DTSCS21
02329      IF WRK-BATCH-NO-2-NO-ENTRY                                   DTSCS21
02330         SET LCCM-SCR-INQUIRE TO TRUE                              DTSCS21
02331         IF SCR-ACCESS-UPDATE                                      DTSCS21
02332            PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT.        DTSCS21
02333                                                                   DTSCS21
02334      PERFORM S357-LINK-PRINT THRU S357-EXIT.                      DTSCS21
02335                                                                   DTSCS21
02336      IF L357-FAILED-88                                            DTSCS21
02337          MOVE MSG-E211-AREA TO WRK-MSG-AREA                       DTSCS21
02338          PERFORM S1501-ERROR THRU S1501-EXIT.                     DTSCS21
02339  P8410-EXIT.                                                      DTSCS21
02340      EXIT.                                                        DTSCS21
02341                                                                   DTSCS21
02342                                                                   DTSCS21
02343                                                                   DTSCS21
02344  P8420-ACCUMALATE.                                                DTSCS21
02345      ADD 1 TO WRK-DETAIL-CTR.                                     DTSCS21
02346                                                                   DTSCS21
02347      IF WRK-DETAIL-CTR > LIT-MAX-DETAIL                           DTSCS21
02348         MOVE 1 TO WRK-DETAIL-CTR                                  DTSCS21
02349         PERFORM P8450-HEADING THRU P8450-EXIT.                    DTSCS21
02350                                                                   DTSCS21
02351      SET WRK-RECORD-ACCUM-YES-88 TO TRUE.                         DTSCS21
02352                                                                   DTSCS21
02353      ADD AHDR-CONTROL-TRAN-CNT TO WRK-CONTROL-TRAN-CNT.           DTSCS21
02354                                                                   DTSCS21
02355      ADD AHDR-ATC-FILE-TRAN-CNT TO WRK-ATC-FILE-TRAN-CNT.         DTSCS21
02356                                                                   DTSCS21
02357      ADD AHDR-PROC-TRAN-CNT TO WRK-PROC-TRAN-CNT.                 DTSCS21
02358                                                                   DTSCS21
02359      ADD AHDR-CONTROL-REMIT-AMT TO WRK-CONTROL-REMIT-AMT.         DTSCS21
02360                                                                   DTSCS21
02361      ADD AHDR-ATC-FILE-REMIT-AMT TO WRK-ATC-FILE-REMIT-AMT.       DTSCS21
02362                                                                   DTSCS21
02363      ADD AHDR-PROC-REMIT-AMT TO WRK-PROC-REMIT-AMT.               DTSCS21
02364                                                                   DTSCS21
02365                                                                   DTSCS21
02366                                                                   DTSCS21
02367      MOVE AHDR-BATCH-NO TO WRK-DETAIL-BATCH-NO.                   DTSCS21
02368                                                                   DTSCS21
02369      MOVE AHDR-BATCH-BALANCED-IND                                 DTSCS21
02370        TO WRK-DETAIL-BALANCED-IND.                                DTSCS21
02371                                                                   DTSCS21
02372      MOVE AHDR-BATCH-HELD-IND                                     DTSCS21
02373        TO WRK-DETAIL-HELD-IND.                                    DTSCS21
02374                                                                   DTSCS21
02375      MOVE AHDR-DEPOSIT-DATE TO L001-FED-8-DATE-9.                 DTSCS21
02376                                                                   DTSCS21
02377      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSCS21
02378                                                                   DTSCS21
02379      MOVE L001-SLASH-DATE TO WRK-DETAIL-DEPOSIT-DATE.             DTSCS21
02380                                                                   DTSCS21
02381      MOVE AHDR-CONTROL-REMIT-AMT                                  DTSCS21
02382        TO WRK-DETAIL-CONTROL-REMIT-AMT.                           DTSCS21
02383                                                                   DTSCS21
02384      MOVE AHDR-CONTROL-TRAN-CNT                                   DTSCS21
02385        TO WRK-DETAIL-CONTROL-TRAN-CNT.                            DTSCS21
02386                                                                   DTSCS21
02387      MOVE AHDR-ATC-FILE-REMIT-AMT                                 DTSCS21
02388        TO WRK-DETAIL-ATC-FILE-REMIT-AMT.                          DTSCS21
02389                                                                   DTSCS21
02390      MOVE AHDR-ATC-FILE-TRAN-CNT                                  DTSCS21
02391        TO WRK-DETAIL-ATC-FILE-TRAN-CNT.                           DTSCS21
02392                                                                   DTSCS21
02393      MOVE AHDR-PROC-REMIT-AMT                                     DTSCS21
02394        TO WRK-DETAIL-PROC-REMIT-AMT.                              DTSCS21
02395                                                                   DTSCS21
02396      MOVE AHDR-PROC-TRAN-CNT                                      DTSCS21
02397        TO WRK-DETAIL-PROC-TRAN-CNT.                               DTSCS21
02398                                                                   DTSCS21
02399                                                                   DTSCS21
02400      SET XPTS-DS-88 TO TRUE.                                      DTSCS21
02401                                                                   DTSCS21
02402      MOVE WRK-DETAIL-LINE TO XPTS-DATA.                           DTSCS21
02403                                                                   DTSCS21
02404      ADD 1 TO L829-ITEM-NO.                                       DTSCS21
02405                                                                   DTSCS21
02406      PERFORM S829-WRITE-ITEM THRU S829-EXIT.                      DTSCS21
02407                                                                   DTSCS21
02408      IF NOT L829-OK-88                                            DTSCS21
02409          MOVE MSG-E211-AREA TO LCCM-MSG-AREA                      DTSCS21
02410          GO TO P8420-EXIT.                                        DTSCS21
02411                                                                   DTSCS21
02412                                                                   DTSCS21
02413      IF WRK-BATCH-NO-2-NO-ENTRY                                   DTSCS21
02414         OR WRK-BATCH-NO-1                                         DTSCS21
02415           = WRK-BATCH-NO-2                                        DTSCS21
02416          SET L823-NO-REC-88 TO TRUE                               DTSCS21
02417          GO TO P8420-EXIT.                                        DTSCS21
02418                                                                   DTSCS21
02419                                                                   DTSCS21
02420      ADD 1 TO ASKL-BATCH-NO.                                      DTSCS21
02421                                                                   DTSCS21
02422      MOVE 0 TO ASKL-ITEM-NO.                                      DTSCS21
02423                                                                   DTSCS21
02424      PERFORM S823-START-BROWSE THRU S823-EXIT.                    DTSCS21
02425                                                                   DTSCS21
02426      IF L823-OK-88                                                DTSCS21
02427         MOVE ASKL-REC TO AHDR-REC                                 DTSCS21
02428         PERFORM S823-END-BROWSE THRU S823-EXIT.                   DTSCS21
02429  P8420-EXIT.                                                      DTSCS21
02430      EXIT.                                                        DTSCS21
02431                                                                   DTSCS21
02432                                                                   DTSCS21
02433                                                                   DTSCS21
02434  P8430-TOTALS.                                                    DTSCS21
02435 * NEED 3 LINES (1 LINE TRIPLE SPACED) TO PRINT TOTALS.            DTSCS21
02436                                                                   DTSCS21
02437      IF WRK-DETAIL-CTR > LIT-MAX-DETAIL - 2                       DTSCS21
02438         PERFORM P8450-HEADING THRU P8450-EXIT.                    DTSCS21
02439                                                                   DTSCS21
02440      MOVE WRK-CONTROL-REMIT-AMT                                   DTSCS21
02441        TO WRK-FOOTER-CONTROL-REMIT-AMT.                           DTSCS21
02442                                                                   DTSCS21
02443      MOVE WRK-CONTROL-TRAN-CNT                                    DTSCS21
02444        TO WRK-FOOTER-CONTROL-TRAN-CNT.                            DTSCS21
02445                                                                   DTSCS21
02446      MOVE WRK-ATC-FILE-REMIT-AMT                                  DTSCS21
02447        TO WRK-FOOTER-ATC-FILE-REMIT-AMT.                          DTSCS21
02448                                                                   DTSCS21
02449      MOVE WRK-ATC-FILE-TRAN-CNT                                   DTSCS21
02450        TO WRK-FOOTER-ATC-FILE-TRAN-CNT.                           DTSCS21
02451                                                                   DTSCS21
02452      MOVE WRK-PROC-REMIT-AMT                                      DTSCS21
02453        TO WRK-FOOTER-PROC-REMIT-AMT.                              DTSCS21
02454                                                                   DTSCS21
02455      MOVE WRK-PROC-TRAN-CNT                                       DTSCS21
02456        TO WRK-FOOTER-PROC-TRAN-CNT.                               DTSCS21
02457                                                                   DTSCS21
02458                                                                   DTSCS21
02459      SET XPTS-TS-88 TO TRUE.                                      DTSCS21
02460                                                                   DTSCS21
02461      MOVE WRK-FOOTER-LINE TO XPTS-DATA.                           DTSCS21
02462                                                                   DTSCS21
02463      PERFORM S829-WRITE-ITEM        THRU S829-EXIT.               DTSCS21
02464  P8430-EXIT.                                                      DTSCS21
02465      EXIT.                                                        DTSCS21
02466                                                                   DTSCS21
02467                                                                   DTSCS21
02468                                                                   DTSCS21
02469  P8440-INIT-PRINT.                                                DTSCS21
02470 *-----------------------------------------------------------------DTSCS21
02471 * CLEAN UP AND INITIALIZE TS QUEUE AREA.                          DTSCS21
02472 *-----------------------------------------------------------------DTSCS21
02473                                                                   DTSCS21
02474      MOVE 0 TO L829-ITEM-NO.                                      DTSCS21
02475                                                                   DTSCS21
02476      MOVE LENGTH OF L829-REC TO L829-REC-LENGTH.                  DTSCS21
02477                                                                   DTSCS21
02478      SET L829-DEFAULT-STORAGE-88 TO TRUE.                         DTSCS21
02479                                                                   DTSCS21
02480      MOVE LCCM-TS-NAME-PREFIX TO L829-QUEUE-NAME-PREFIX.          DTSCS21
02481                                                                   DTSCS21
02482      MOVE 'P' TO L829-QUEUE-NAME-SUFFIX.                          DTSCS21
02483                                                                   DTSCS21
02484      PERFORM S829-DELETE-QUEUE THRU S829-EXIT.                    DTSCS21
02485                                                                   DTSCS21
02486      MOVE LCCM-PRINTER-ID TO L357-PRINTER-ID.                     DTSCS21
02487                                                                   DTSCS21
02488      MOVE L829-QUEUE-NAME TO L357-QUEUE-NAME.                     DTSCS21
02489  P8440-EXIT.                                                      DTSCS21
02490      EXIT.                                                        DTSCS21
02491 /*****************************************************************DTSCS21
02492 * BUILD REPORT HEADING (FIRST 10 LINES DISPLAYED ON EACH PAGE)    DTSCS21
02493 ******************************************************************DTSCS21
02494  P8450-HEADING.                                                   DTSCS21
02495      ADD 1 TO WRK-PAGE-CTR.                                       DTSCS21
02496                                                                   DTSCS21
02497      MOVE WRK-PAGE-CTR TO WRK-PAGE.                               DTSCS21
02498                                                                   DTSCS21
02499      MOVE LCCM-TASK-START-DISP-DATE TO WRK-SYS-DATE.              DTSCS21
02500                                                                   DTSCS21
02501      MOVE LCCM-TASK-START-DISP-TIME TO WRK-SYS-TIME.              DTSCS21
02502                                                                   DTSCS21
02503                                                                   DTSCS21
02504      SET XPTS-FF-88 TO TRUE.                                      DTSCS21
02505                                                                   DTSCS21
02506      MOVE WRK-HEADING-1 TO XPTS-DATA.                             DTSCS21
02507                                                                   DTSCS21
02508      PERFORM S829-WRITE-ITEM THRU S829-EXIT.                      DTSCS21
02509                                                                   DTSCS21
02510                                                                   DTSCS21
02511      SET XPTS-SS-88 TO TRUE.                                      DTSCS21
02512                                                                   DTSCS21
02513      MOVE WRK-HEADING-2 TO XPTS-DATA.                             DTSCS21
02514                                                                   DTSCS21
02515      PERFORM S829-WRITE-ITEM THRU S829-EXIT.                      DTSCS21
02516                                                                   DTSCS21
02517                                                                   DTSCS21
02518      SET XPTS-SS-88 TO TRUE.                                      DTSCS21
02519                                                                   DTSCS21
02520      MOVE WRK-HEADING-3 TO XPTS-DATA.                             DTSCS21
02521                                                                   DTSCS21
02522      PERFORM S829-WRITE-ITEM THRU S829-EXIT.                      DTSCS21
02523                                                                   DTSCS21
02524                                                                   DTSCS21
02525      MOVE WRK-BATCH-NO-1 TO WRK-HEADING-START.                    DTSCS21
02526                                                                   DTSCS21
02527      SET XPTS-DS-88 TO TRUE.                                      DTSCS21
02528                                                                   DTSCS21
02529      MOVE WRK-HEADING-5 TO XPTS-DATA.                             DTSCS21
02530                                                                   DTSCS21
02531      PERFORM S829-WRITE-ITEM THRU S829-EXIT.                      DTSCS21
02532                                                                   DTSCS21
02533                                                                   DTSCS21
02534      MOVE WRK-BATCH-NO-2 TO WRK-HEADING-END.                      DTSCS21
02535                                                                   DTSCS21
02536      SET XPTS-SS-88 TO TRUE.                                      DTSCS21
02537                                                                   DTSCS21
02538      MOVE WRK-HEADING-6 TO XPTS-DATA.                             DTSCS21
02539                                                                   DTSCS21
02540      PERFORM S829-WRITE-ITEM THRU S829-EXIT.                      DTSCS21
02541                                                                   DTSCS21
02542                                                                   DTSCS21
02543      SET XPTS-DS-88 TO TRUE.                                      DTSCS21
02544                                                                   DTSCS21
02545      MOVE WRK-HEADING-8 TO XPTS-DATA.                             DTSCS21
02546                                                                   DTSCS21
02547      PERFORM S829-WRITE-ITEM THRU S829-EXIT.                      DTSCS21
02548                                                                   DTSCS21
02549                                                                   DTSCS21
02550      SET XPTS-SS-88 TO TRUE.                                      DTSCS21
02551                                                                   DTSCS21
02552      MOVE WRK-HEADING-9 TO XPTS-DATA.                             DTSCS21
02553                                                                   DTSCS21
02554      PERFORM S829-WRITE-ITEM THRU S829-EXIT.                      DTSCS21
02555                                                                   DTSCS21
02556                                                                   DTSCS21
02557      SET XPTS-SS-88 TO TRUE.                                      DTSCS21
02558                                                                   DTSCS21
02559      MOVE WRK-HEADING-10 TO XPTS-DATA.                            DTSCS21
02560                                                                   DTSCS21
02561      PERFORM S829-WRITE-ITEM THRU S829-EXIT.                      DTSCS21
02562  P8450-EXIT.                                                      DTSCS21
02563      EXIT.                                                        DTSCS21
02564                                                                   DTSCS21
02565 *-----------------------------------------------------------------DTSCS21
02566 * PRINT DEPOSIT TICKET                                            DTSCS21
02567 *-----------------------------------------------------------------DTSCS21
02568  P8500-DEP-PRT.                                                   DTSCS21
02569      SET LCCM-SCR-CLEAR TO TRUE.                                  DTSCS21
02570                                                                   DTSCS21
02571      IF SCR-ACCESS-UPDATE                                         DTSCS21
02572          PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT           DTSCS21
02573      ELSE                                                         DTSCS21
02574          PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT.             DTSCS21
02575                                                                   DTSCS21
02576                                                                   DTSCS21
02577      IF LCCM-F12-88                                               DTSCS21
02578         SET LCCM-ENTER-88 TO TRUE                                 DTSCS21
02579         PERFORM P6000-REQUEST-INQUIRE THRU P6000-EXIT             DTSCS21
02580         MOVE PMSG-PRINT-CANCELED TO LCCM-MSG-ID                   DTSCS21
02581         GO TO P8500-EXIT.                                         DTSCS21
02582                                                                   DTSCS21
02583                                                                   DTSCS21
02584      PERFORM P8510-PRINT THRU P8510-EXIT.                         DTSCS21
02585                                                                   DTSCS21
02586      IF LCCM-MSG                                                  DTSCS21
02587         GO TO P8500-EXIT.                                         DTSCS21
02588                                                                   DTSCS21
02589      PERFORM P8550-WRITE-R202      THRU P8550-EXIT.               DTSCS21
02590                                                                   DTSCS21
02591      PERFORM P6000-REQUEST-INQUIRE THRU P6000-EXIT.               DTSCS21
02592                                                                   DTSCS21
02593      MOVE PMSG-PRINT-SUCCESSFUL TO LCCM-MSG-ID.                   DTSCS21
02594  P8500-EXIT.                                                      DTSCS21
02595      EXIT.                                                        DTSCS21
02596                                                                   DTSCS21
02597  P8510-PRINT.                                                     DTSCS21
02598      MOVE +0                     TO WRK-PAGE-CTR                  DTSCS21
02599                                     WRK-DETAIL-CTR                DTSCS21
02600                                     WRK-TOT-REMIT                 DTSCS21
02601                                     WRK-TOT-ITEMS.                DTSCS21
02602                                                                   DTSCS21
02603      PERFORM S1100-EDIT-KEY      THRU S1100-EXIT.                 DTSCS21
02604                                                                   DTSCS21
02605 ***  ENSURE THAT DEPOSIT TICKET IS FOR ONLY 1 BATCH ***           DTSCS21
02606      SET WRK-BATCH-NO-2-NO-ENTRY TO TRUE.                         DTSCS21
02607                                                                   DTSCS21
02608      PERFORM P6100-LOCATE-REC    THRU P6100-EXIT.                 DTSCS21
02609                                                                   DTSCS21
02610      IF LCCM-MSG                                                  DTSCS21
02611          GO TO P8510-EXIT.                                        DTSCS21
02612                                                                   DTSCS21
02613 *******************************************************           DTSCS21
02614 * NOTE: THE SAME PARAGRAPH USED IN P8400 IS USED HERE.            DTSCS21
02615 *******************************************************           DTSCS21
02616      PERFORM P8440-INIT-PRINT THRU P8440-EXIT.                    DTSCS21
02617                                                                   DTSCS21
02618      PERFORM P8520-HEADING THRU P8520-EXIT.                       DTSCS21
02619                                                                   DTSCS21
02620      PERFORM P8530-GET-PAYMENTS  THRU P8530-EXIT.                 DTSCS21
02621                                                                   DTSCS21
02622      IF LCCM-MSG                                                  DTSCS21
02623         PERFORM S829-DELETE-QUEUE THRU S829-EXIT                  DTSCS21
02624         GO TO P8510-EXIT.                                         DTSCS21
02625                                                                   DTSCS21
02626                                                                   DTSCS21
02627      PERFORM P8540-FOOTER THRU P8540-EXIT.                        DTSCS21
02628                                                                   DTSCS21
02629      SET LCCM-SCR-INQUIRE              TO TRUE                    DTSCS21
02630      IF SCR-ACCESS-UPDATE                                         DTSCS21
02631         PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT            DTSCS21
02632      END-IF.                                                      DTSCS21
02633                                                                   DTSCS21
02634      PERFORM S357-LINK-PRINT THRU S357-EXIT.                      DTSCS21
02635                                                                   DTSCS21
02636      IF L357-FAILED-88                                            DTSCS21
02637          MOVE MSG-E211-AREA TO WRK-MSG-AREA                       DTSCS21
02638          PERFORM S1501-ERROR THRU S1501-EXIT.                     DTSCS21
02639  P8510-EXIT.                                                      DTSCS21
02640      EXIT.                                                        DTSCS21
02641                                                                   DTSCS21
02642 /*****************************************************************DTSCS21
02643 * BUILD REPORT HEADING (FIRST 9 LINES DISPLAYED ON EACH PAGE)     DTSCS21
02644 ******************************************************************DTSCS21
02645  P8520-HEADING.                                                   DTSCS21
02646      ADD 1 TO WRK-PAGE-CTR.                                       DTSCS21
02647                                                                   DTSCS21
02648      MOVE WRK-PAGE-CTR TO WRK-PAGE.                               DTSCS21
02649                                                                   DTSCS21
02650      MOVE LCCM-TASK-START-DISP-DATE TO WRK-SYS-DATE.              DTSCS21
02651                                                                   DTSCS21
02652      MOVE LCCM-TASK-START-DISP-TIME TO WRK-SYS-TIME.              DTSCS21
02653                                                                   DTSCS21
02654                                                                   DTSCS21
02655 **   SET XPTS-FF-88 TO TRUE.                                      DTSCS21
02656                                                                   DTSCS21
02657      MOVE WRK-DEPOSIT-HDR-1    TO XPTS-DATA.                      DTSCS21
02658                                                                   DTSCS21
02659      ADD +1                    TO L829-ITEM-NO.                   DTSCS21
02660                                                                   DTSCS21
02661      PERFORM S829-WRITE-ITEM THRU S829-EXIT.                      DTSCS21
02662                                                                   DTSCS21
02663                                                                   DTSCS21
02664      SET XPTS-SS-88 TO TRUE.                                      DTSCS21
02665                                                                   DTSCS21
02666      MOVE WRK-DEPOSIT-HDR-2    TO XPTS-DATA.                      DTSCS21
02667                                                                   DTSCS21
02668      ADD +1                    TO L829-ITEM-NO.                   DTSCS21
02669                                                                   DTSCS21
02670      PERFORM S829-WRITE-ITEM THRU S829-EXIT.                      DTSCS21
02671                                                                   DTSCS21
02672                                                                   DTSCS21
02673      SET XPTS-SS-88 TO TRUE.                                      DTSCS21
02674                                                                   DTSCS21
02675      MOVE WRK-DEPOSIT-HDR-3    TO XPTS-DATA.                      DTSCS21
02676                                                                   DTSCS21
02677      ADD +1                    TO L829-ITEM-NO.                   DTSCS21
02678                                                                   DTSCS21
02679      PERFORM S829-WRITE-ITEM THRU S829-EXIT.                      DTSCS21
02680                                                                   DTSCS21
02681                                                                   DTSCS21
02682      MOVE WRK-BATCH-NO-1       TO WRK-DEPOSIT-BATCH.              DTSCS21
02683      MOVE MAP-DEPOSIT-DATE-MO  TO WRK-DEPOSIT-MO.                 DTSCS21
02684      MOVE MAP-DEPOSIT-DATE-DA  TO WRK-DEPOSIT-DA.                 DTSCS21
02685      MOVE MAP-DEPOSIT-DATE-YR  TO WRK-DEPOSIT-YR.                 DTSCS21
02686                                                                   DTSCS21
02687      MOVE LCCM-OP-ID           TO WRK-DEPOSIT-OPID.               DTSCS21
02688                                                                   DTSCS21
02689      SET XPTS-DS-88 TO TRUE.                                      DTSCS21
02690                                                                   DTSCS21
02691      MOVE WRK-DEPOSIT-HDR-4    TO XPTS-DATA.                      DTSCS21
02692                                                                   DTSCS21
02693      ADD +1                    TO L829-ITEM-NO.                   DTSCS21
02694                                                                   DTSCS21
02695      PERFORM S829-WRITE-ITEM THRU S829-EXIT.                      DTSCS21
02696                                                                   DTSCS21
02697      SET XPTS-DS-88 TO TRUE.                                      DTSCS21
02698                                                                   DTSCS21
02699      MOVE WRK-DEPOSIT-HDR-5    TO XPTS-DATA.                      DTSCS21
02700                                                                   DTSCS21
02701      ADD +1                    TO L829-ITEM-NO.                   DTSCS21
02702                                                                   DTSCS21
02703      PERFORM S829-WRITE-ITEM THRU S829-EXIT.                      DTSCS21
02704                                                                   DTSCS21
02705  P8520-EXIT.                                                      DTSCS21
02706      EXIT.                                                        DTSCS21
02707                                                                   DTSCS21
02708  P8530-GET-PAYMENTS.                                              DTSCS21
02709      MOVE WRK-BATCH-NO-1                TO ASKL-BATCH-NO.         DTSCS21
02710                                                                   DTSCS21
02711      MOVE +1                            TO ASKL-ITEM-NO.          DTSCS21
02712                                                                   DTSCS21
02713      PERFORM S823-START-BROWSE          THRU S823-EXIT.           DTSCS21
02714                                                                   DTSCS21
02715      PERFORM                                                      DTSCS21
02716        UNTIL L823-NO-REC-88                                       DTSCS21
02717          IF ASKL-BATCH-NO NOT = WRK-BATCH-NO-1                    DTSCS21
02718             SET L823-NO-REC-88          TO TRUE                   DTSCS21
02719          ELSE                                                     DTSCS21
02720             EVALUATE TRUE                                         DTSCS21
02721               WHEN ASKL-PAY-88                                    DTSCS21
02722                 MOVE ASKL-REC             TO APAY-REC             DTSCS21
02723                 PERFORM P8531-PAY-DETAIL  THRU P8531-EXIT         DTSCS21
02724                                                                   DTSCS21
02725               WHEN ASKL-RPT-88                                    DTSCS21
02726                 MOVE ASKL-REC             TO ARPT-REC             DTSCS21
02727                 PERFORM P8532-RPT-DETAIL  THRU P8532-EXIT         DTSCS21
02728                                                                   DTSCS21
02729               WHEN ASKL-ATX-88                                    DTSCS21
02730                 MOVE ASKL-REC             TO AATX-REC             DTSCS21
02731                 PERFORM P8533-ATX-DETAIL  THRU P8533-EXIT         DTSCS21
02732             END-EVALUATE                                          DTSCS21
02733             PERFORM S823-READ-NEXT    THRU S823-EXIT              DTSCS21
02734          END-IF                                                   DTSCS21
02735      END-PERFORM.                                                 DTSCS21
02736                                                                   DTSCS21
02737      PERFORM S823-END-BROWSE             THRU S823-EXIT.          DTSCS21
02738                                                                   DTSCS21
02739  P8530-EXIT.                                                      DTSCS21
02740      EXIT.                                                        DTSCS21
02741                                                                   DTSCS21
02742  P8531-PAY-DETAIL.                                                DTSCS21
02743      IF APAY-REMIT-AMT NOT > ZERO                                 DTSCS21
02744         GO TO P8531-EXIT                                          DTSCS21
02745      END-IF.                                                      DTSCS21
02746                                                                   DTSCS21
02747      MOVE APAY-ITEM-NO              TO WRK-DEPOSIT-ITEM-NO.       DTSCS21
02748      MOVE APAY-EMP-NO               TO WRK-EMP-NO.                DTSCS21
02749      MOVE WRK-EMP-NO-1              TO WRK-DEPOSIT-EMP-NO-1.      DTSCS21
02750      MOVE WRK-EMP-NO-2              TO WRK-DEPOSIT-EMP-NO-2.      DTSCS21
02751      MOVE APAY-REMIT-AMT            TO WRK-DEPOSIT-AMT.           DTSCS21
02752      ADD APAY-REMIT-AMT             TO WRK-TOT-REMIT.             DTSCS21
02753      ADD +1                         TO WRK-TOT-ITEMS.             DTSCS21
02754                                                                   DTSCS21
02755      ADD 1                          TO WRK-DETAIL-CTR.            DTSCS21
02756                                                                   DTSCS21
02757      IF WRK-DETAIL-CTR > LIT-MAX-DETAIL                           DTSCS21
02758         MOVE 1                      TO WRK-DETAIL-CTR             DTSCS21
02759         SET XPTS-FF-88              TO TRUE                       DTSCS21
02760         PERFORM P8520-HEADING       THRU P8520-EXIT               DTSCS21
02761      END-IF.                                                      DTSCS21
02762                                                                   DTSCS21
02763      SET XPTS-SS-88                 TO TRUE.                      DTSCS21
02764      MOVE WRK-DEPOSIT-DTL           TO XPTS-DATA.                 DTSCS21
02765      ADD +1                         TO L829-ITEM-NO.              DTSCS21
02766                                                                   DTSCS21
02767      PERFORM S829-WRITE-ITEM        THRU S829-EXIT.               DTSCS21
02768                                                                   DTSCS21
02769  P8531-EXIT.                                                      DTSCS21
02770      EXIT.                                                        DTSCS21
02771                                                                   DTSCS21
02772  P8532-RPT-DETAIL.                                                DTSCS21
02773      IF ARPT-REMIT-AMT NOT > ZERO                                 DTSCS21
02774         GO TO P8532-EXIT                                          DTSCS21
02775      END-IF.                                                      DTSCS21
02776                                                                   DTSCS21
02777      MOVE ARPT-ITEM-NO              TO WRK-DEPOSIT-ITEM-NO.       DTSCS21
02778      MOVE ARPT-EMP-NO               TO WRK-EMP-NO.                DTSCS21
02779      MOVE WRK-EMP-NO-1              TO WRK-DEPOSIT-EMP-NO-1.      DTSCS21
02780      MOVE WRK-EMP-NO-2              TO WRK-DEPOSIT-EMP-NO-2.      DTSCS21
02781      MOVE ARPT-REMIT-AMT            TO WRK-DEPOSIT-AMT.           DTSCS21
02782      ADD ARPT-REMIT-AMT             TO WRK-TOT-REMIT.             DTSCS21
02783      ADD +1                         TO WRK-TOT-ITEMS.             DTSCS21
02784                                                                   DTSCS21
02785      ADD 1                          TO WRK-DETAIL-CTR.            DTSCS21
02786                                                                   DTSCS21
02787      IF WRK-DETAIL-CTR > LIT-MAX-DETAIL                           DTSCS21
02788         MOVE 1                      TO WRK-DETAIL-CTR             DTSCS21
02789         SET XPTS-FF-88              TO TRUE                       DTSCS21
02790         PERFORM P8520-HEADING       THRU P8520-EXIT               DTSCS21
02791      END-IF.                                                      DTSCS21
02792                                                                   DTSCS21
02793      SET XPTS-SS-88                 TO TRUE.                      DTSCS21
02794      MOVE WRK-DEPOSIT-DTL           TO XPTS-DATA.                 DTSCS21
02795      ADD +1                         TO L829-ITEM-NO.              DTSCS21
02796                                                                   DTSCS21
02797      PERFORM S829-WRITE-ITEM        THRU S829-EXIT.               DTSCS21
02798                                                                   DTSCS21
02799  P8532-EXIT.                                                      DTSCS21
02800      EXIT.                                                        DTSCS21
02801                                                                   DTSCS21
02802  P8533-ATX-DETAIL.                                                DTSCS21
02803      IF AATX-REMIT-AMT NOT > ZERO                                 DTSCS21
02804         GO TO P8533-EXIT                                          DTSCS21
02805      END-IF.                                                      DTSCS21
02806                                                                   DTSCS21
02807      MOVE AATX-ITEM-NO              TO WRK-DEPOSIT-ITEM-NO.       DTSCS21
02808      MOVE AATX-EMP-NO               TO WRK-EMP-NO.                DTSCS21
02809      MOVE WRK-EMP-NO-1              TO WRK-DEPOSIT-EMP-NO-1.      DTSCS21
02810      MOVE WRK-EMP-NO-2              TO WRK-DEPOSIT-EMP-NO-2.      DTSCS21
02811      MOVE AATX-REMIT-AMT            TO WRK-DEPOSIT-AMT.           DTSCS21
02812      ADD AATX-REMIT-AMT             TO WRK-TOT-REMIT.             DTSCS21
02813      ADD +1                         TO WRK-TOT-ITEMS.             DTSCS21
02814                                                                   DTSCS21
02815      ADD 1                          TO WRK-DETAIL-CTR.            DTSCS21
02816                                                                   DTSCS21
02817      IF WRK-DETAIL-CTR > LIT-MAX-DETAIL                           DTSCS21
02818         MOVE 1                      TO WRK-DETAIL-CTR             DTSCS21
02819         SET XPTS-FF-88              TO TRUE                       DTSCS21
02820         PERFORM P8520-HEADING       THRU P8520-EXIT               DTSCS21
02821      END-IF.                                                      DTSCS21
02822                                                                   DTSCS21
02823      SET XPTS-SS-88                 TO TRUE.                      DTSCS21
02824      MOVE WRK-DEPOSIT-DTL           TO XPTS-DATA.                 DTSCS21
02825      ADD +1                         TO L829-ITEM-NO.              DTSCS21
02826                                                                   DTSCS21
02827      PERFORM S829-WRITE-ITEM        THRU S829-EXIT.               DTSCS21
02828                                                                   DTSCS21
02829  P8533-EXIT.                                                      DTSCS21
02830      EXIT.                                                        DTSCS21
02831                                                                   DTSCS21
02832  P8540-FOOTER.                                                    DTSCS21
02833 * NEED 3 LINES (1 LINE TRIPLE SPACED) TO PRINT TOTALS.            DTSCS21
02834                                                                   DTSCS21
02835      IF WRK-DETAIL-CTR > LIT-MAX-DETAIL - 2                       DTSCS21
02836         PERFORM P8520-HEADING THRU P8520-EXIT                     DTSCS21
02837      END-IF.                                                      DTSCS21
02838                                                                   DTSCS21
02839      MOVE WRK-TOT-ITEMS           TO WRK-DEP-TOT-ITEMS.           DTSCS21
02840                                                                   DTSCS21
02841      MOVE WRK-TOT-REMIT           TO WRK-DEP-TOT-REMIT.           DTSCS21
02842      ADD +1                       TO L829-ITEM-NO.                DTSCS21
02843                                                                   DTSCS21
02844      SET XPTS-TS-88               TO TRUE.                        DTSCS21
02845                                                                   DTSCS21
02846      MOVE WRK-DEPOSIT-FOOTER      TO XPTS-DATA.                   DTSCS21
02847                                                                   DTSCS21
02848      PERFORM S829-WRITE-ITEM      THRU S829-EXIT.                 DTSCS21
02849                                                                   DTSCS21
02850  P8540-EXIT.                                                      DTSCS21
02851      EXIT.                                                        DTSCS21
02852                                                                   DTSCS21
02853  P8550-WRITE-R202.                                                DTSCS21
02854      MOVE LENGTH OF R202-REC      TO R202-LENGTH.                 DTSCS21
02855      MOVE AHDR-BATCH-NO           TO R202-BATCH-NO.               DTSCS21
02856      SET R202-BATCH-TAX-88        TO TRUE.                        DTSCS21
02857      MOVE AHDR-CONTROL-REMIT-AMT  TO R202-CONTROL-REMIT-AMT.      DTSCS21
02858      MOVE AHDR-CONTROL-TRAN-CNT   TO R202-CONTROL-TRAN-CNT.       DTSCS21
02859      MOVE AHDR-ESTB-DATE          TO R202-BATCH-ESTB-DATE.        DTSCS21
02860      MOVE LCCM-CURR-RUN-DATE      TO R202-APPROVED-DATE.          DTSCS21
02861      MOVE LCCM-OP-ID              TO R202-APPROVED-OPID.          DTSCS21
02862                                                                   DTSCS21
02863      MOVE R202-REC                TO RSKL-REC.                    DTSCS21
02864      PERFORM S825-WRITE           THRU S825-EXIT.                 DTSCS21
02865                                                                   DTSCS21
02866  P8550-EXIT.                                                      DTSCS21
02867      EXIT.                                                        DTSCS21
02868                                                                   DTSCS21
02869 /*****************************************************************DTSCS21
02870 * LINKS TO UTILITY MODULES                                        DTSCS21
02871 ******************************************************************DTSCS21
02872                                                                   DTSCS21
02873  S001-FROM-FED-8.                                                 DTSCS21
02874      SET L001-FROM-FED-8 TO TRUE.                                 DTSCS21
02875      GO TO S001-DATE.                                             DTSCS21
02876                                                                   DTSCS21
02877 *S001-FROM-ABS-DATE.                                              DTSCS21
02878 *****SET L001-FROM-ABS-DAY TO TRUE.                               DTSCS21
02879 *****GO TO S001-DATE.                                             DTSCS21
02880                                                                   DTSCS21
02881  S001-DATE.                                                       DTSCS21
02882      EXEC CICS LINK                                               DTSCS21
02883          PROGRAM('DTSCU001')                                      DTSCS21
02884          COMMAREA(L001-COMM-AREA)                                 DTSCS21
02885      END-EXEC.                                                    DTSCS21
02886  S001-EXIT.                                                       DTSCS21
02887      EXIT.                                                        DTSCS21
02888                                                                   DTSCS21
02889                                                                   DTSCS21
02890  S011-REMIT-AMT.                                                  DTSCS21
02891      MOVE -9999999.99 TO L011-MIN-AMT.                            DTSCS21
02892      MOVE +9999999.99 TO L011-MAX-AMT.                            DTSCS21
02893      GO TO S011-MONEY-FROM-SCREEN.                                DTSCS21
02894                                                                   DTSCS21
02895  S011-MONEY-FROM-SCREEN.                                          DTSCS21
02896      EXEC CICS LINK                                               DTSCS21
02897          PROGRAM('DTSCU011')                                      DTSCS21
02898          COMMAREA(L011-COMM-AREA)                                 DTSCS21
02899      END-EXEC.                                                    DTSCS21
02900  S011-EXIT.                                                       DTSCS21
02901      EXIT.                                                        DTSCS21
02902                                                                   DTSCS21
02903                                                                   DTSCS21
02904                                                                   DTSCS21
02905  S013-TRAN-CNT.                                                   DTSCS21
02906      MOVE +0 TO L013-MIN-CNT.                                     DTSCS21
02907      MOVE +999 TO L013-MAX-CNT.                                   DTSCS21
02908      GO TO S013-COUNT-FROM-SCREEN.                                DTSCS21
02909                                                                   DTSCS21
02910  S013-BANK-BATCH-NO.                                              DTSCS21
02911      MOVE +0 TO L013-MIN-CNT.                                     DTSCS21
02912      MOVE +9999 TO L013-MAX-CNT.                                  DTSCS21
02913      GO TO S013-COUNT-FROM-SCREEN.                                DTSCS21
02914                                                                   DTSCS21
02915  S013-DEPOSIT-ID.                                                 DTSCS21
02916      MOVE +0 TO L013-MIN-CNT.                                     DTSCS21
02917      MOVE +999999999  TO L013-MAX-CNT.                            DTSCS21
02918      GO TO S013-COUNT-FROM-SCREEN.                                DTSCS21
02919                                                                   DTSCS21
02920  S013-COUNT-FROM-SCREEN.                                          DTSCS21
02921      EXEC CICS LINK                                               DTSCS21
02922          PROGRAM('DTSCU013')                                      DTSCS21
02923          COMMAREA(L013-COMM-AREA)                                 DTSCS21
02924      END-EXEC.                                                    DTSCS21
02925  S013-EXIT.                                                       DTSCS21
02926      EXIT.                                                        DTSCS21
02927                                                                   DTSCS21
02928                                                                   DTSCS21
02929                                                                   DTSCS21
02930  S015-DATE-FROM-SCREEN.                                           DTSCS21
02931      EXEC CICS LINK                                               DTSCS21
02932          PROGRAM('DTSCU015')                                      DTSCS21
02933          COMMAREA(L015-COMM-AREA)                                 DTSCS21
02934      END-EXEC.                                                    DTSCS21
02935  S015-EXIT.                                                       DTSCS21
02936      EXIT.                                                        DTSCS21
02937                                                                   DTSCS21
02938                                                                   DTSCS21
02939                                                                   DTSCS21
02940  S019-BATCH-NO-FROM-SCREEN.                                       DTSCS21
02941      EXEC CICS LINK                                               DTSCS21
02942          PROGRAM('DTSCU019')                                      DTSCS21
02943          COMMAREA(L019-COMM-AREA)                                 DTSCS21
02944      END-EXEC.                                                    DTSCS21
02945  S019-EXIT.                                                       DTSCS21
02946      EXIT.                                                        DTSCS21
02947                                                                   DTSCS21
02948                                                                   DTSCS21
02949                                                                   DTSCS21
02950  S082-OP-ID-LOOKUP.                                               DTSCS21
02951      EXEC CICS LINK                                               DTSCS21
02952          PROGRAM('DTSCU082')                                      DTSCS21
02953          COMMAREA(L082-COMM-AREA)                                 DTSCS21
02954      END-EXEC.                                                    DTSCS21
02955                                                                   DTSCS21
02956      IF L082-FILE-CLOSED                                          DTSCS21
02957          MOVE L082-MSG-AREA TO LCCM-MSG-AREA                      DTSCS21
02958          SET LCCM-REQ-SCR-SF-88 TO TRUE                           DTSCS21
02959          SET LCCM-LINK-SCREEN-88 TO TRUE                          DTSCS21
02960          GO TO MAINLINE-EXIT.                                     DTSCS21
02961  S082-EXIT.                                                       DTSCS21
02962      EXIT.                                                        DTSCS21
02963                                                                   DTSCS21
02964                                                                   DTSCS21
02965                                                                   DTSCS21
02966  S357-LINK-PRINT.                                                 DTSCS21
02967      SET L357-EJECT-PAGE-88 TO TRUE.                              DTSCS21
02968                                                                   DTSCS21
02969      EXEC CICS                                                    DTSCS21
02970          LINK                                                     DTSCS21
02971              PROGRAM ('DTSCU357')                                 DTSCS21
02972              COMMAREA (L357-COMM-AREA)                            DTSCS21
02973      END-EXEC.                                                    DTSCS21
02974  S357-EXIT.                                                       DTSCS21
02975      EXIT.                                                        DTSCS21
02976                                                                   DTSCS21
02977                                                                   DTSCS21
02978                                                                   DTSCS21
02979  S373-ADD-HDR.                                                    DTSCS21
02980      EXEC CICS LINK                                               DTSCS21
02981          PROGRAM ('DTSCU373')                                     DTSCS21
02982          COMMAREA (L373-COMM-AREA)                                DTSCS21
02983      END-EXEC.                                                    DTSCS21
02984                                                                   DTSCS21
02985      IF L373-FILE-CLOSED                                          DTSCS21
02986          MOVE L373-MSG-AREA TO LCCM-MSG-AREA                      DTSCS21
02987          SET LCCM-REQ-SCR-SF-88 TO TRUE                           DTSCS21
02988          SET LCCM-LINK-SCREEN-88 TO TRUE                          DTSCS21
02989          GO TO MAINLINE-EXIT.                                     DTSCS21
02990  S373-EXIT.                                                       DTSCS21
02991      EXIT.                                                        DTSCS21
02992                                                                   DTSCS21
02993                                                                   DTSCS21
02994                                                                   DTSCS21
02995  S803-REQ-SCR-ID-EDIT.                                            DTSCS21
02996      EXEC CICS LINK                                               DTSCS21
02997          PROGRAM ('DTSCU803')                                     DTSCS21
02998          COMMAREA (DFHCOMMAREA)                                   DTSCS21
02999      END-EXEC.                                                    DTSCS21
03000  S803-EXIT.                                                       DTSCS21
03001      EXIT.                                                        DTSCS21
03002                                                                   DTSCS21
03003                                                                   DTSCS21
03004                                                                   DTSCS21
03005  S804-INVALID-KEY.                                                DTSCS21
03006      EXEC CICS LINK                                               DTSCS21
03007          PROGRAM ('DTSCU804')                                     DTSCS21
03008          COMMAREA (DFHCOMMAREA)                                   DTSCS21
03009      END-EXEC.                                                    DTSCS21
03010  S804-EXIT.                                                       DTSCS21
03011      EXIT.                                                        DTSCS21
03012                                                                   DTSCS21
03013                                                                   DTSCS21
03014                                                                   DTSCS21
03015  S805-MSG-AREA.                                                   DTSCS21
03016      MOVE LCCM-MSG-AREA TO L805-MSG-AREA                          DTSCS21
03017                                                                   DTSCS21
03018      EXEC CICS LINK                                               DTSCS21
03019          PROGRAM ('DTSCU805')                                     DTSCS21
03020          COMMAREA (L805-COMM-AREA)                                DTSCS21
03021      END-EXEC.                                                    DTSCS21
03022                                                                   DTSCS21
03023      MOVE L805-S-MSG-AREA TO MAP-MSG-AREA.                        DTSCS21
03024  S805-EXIT.                                                       DTSCS21
03025      EXIT.                                                        DTSCS21
03026                                                                   DTSCS21
03027                                                                   DTSCS21
03028                                                                   DTSCS21
03029  S823-READ.                                                       DTSCS21
03030      SET L823-READ-88 TO TRUE.                                    DTSCS21
03031      GO TO S823-IO.                                               DTSCS21
03032                                                                   DTSCS21
03033  S823-START-BROWSE.                                               DTSCS21
03034      SET L823-START-BROWSE-88 TO TRUE.                            DTSCS21
03035      GO TO S823-IO.                                               DTSCS21
03036                                                                   DTSCS21
03037  S823-READ-NEXT.                                                  DTSCS21
03038      SET L823-READ-NEXT-88 TO TRUE.                               DTSCS21
03039      GO TO S823-IO.                                               DTSCS21
03040                                                                   DTSCS21
03041  S823-READ-PREV.                                                  DTSCS21
03042      SET L823-READ-PREV-88 TO TRUE.                               DTSCS21
03043      GO TO S823-IO.                                               DTSCS21
03044                                                                   DTSCS21
03045  S823-END-BROWSE.                                                 DTSCS21
03046      SET L823-END-BROWSE-88 TO TRUE.                              DTSCS21
03047      GO TO S823-IO.                                               DTSCS21
03048                                                                   DTSCS21
03049  S823-REWRITE.                                                    DTSCS21
03050      SET L823-REWRITE-88 TO TRUE.                                 DTSCS21
03051      GO TO S823-IO.                                               DTSCS21
03052                                                                   DTSCS21
03053  S823-WRITE.                                                      DTSCS21
03054      SET L823-WRITE-88 TO TRUE.                                   DTSCS21
03055      GO TO S823-IO.                                               DTSCS21
03056                                                                   DTSCS21
03057  S823-DELETE.                                                     DTSCS21
03058      SET L823-DELETE-88 TO TRUE.                                  DTSCS21
03059      GO TO S823-IO.                                               DTSCS21
03060                                                                   DTSCS21
03061  S823-IO.                                                         DTSCS21
03062      EXEC CICS LINK                                               DTSCS21
03063          PROGRAM ('DTSCU823')                                     DTSCS21
03064          COMMAREA (L823-COMM-AREA)                                DTSCS21
03065      END-EXEC.                                                    DTSCS21
03066                                                                   DTSCS21
03067      IF L823-FILE-CLOSED-88                                       DTSCS21
03068          MOVE L823-MSG-AREA TO LCCM-MSG-AREA                      DTSCS21
03069          SET LCCM-REQ-SCR-SF-88 TO TRUE                           DTSCS21
03070          SET LCCM-LINK-SCREEN-88 TO TRUE                          DTSCS21
03071          GO TO MAINLINE-EXIT.                                     DTSCS21
03072  S823-EXIT.                                                       DTSCS21
03073      EXIT.                                                        DTSCS21
03074                                                                   DTSCS21
03075  S825-WRITE.                                                      DTSCS21
03076      SET L825-WRITE-88 TO TRUE.                                   DTSCS21
03077      GO TO S825-O.                                                DTSCS21
03078                                                                   DTSCS21
03079  S825-O.                                                          DTSCS21
03080                                                                   DTSCS21
03081      EXEC CICS LINK                                               DTSCS21
03082          PROGRAM ('DTSCU825')                                     DTSCS21
03083          COMMAREA (L825-COMM-AREA)                                DTSCS21
03084      END-EXEC.                                                    DTSCS21
03085                                                                   DTSCS21
03086       IF L825-FILE-CLOSED-88                                      DTSCS21
03087           MOVE L825-MSG-AREA TO LCCM-MSG-AREA                     DTSCS21
03088           SET LCCM-REQ-SCR-SF-88 TO TRUE                          DTSCS21
03089           SET LCCM-LINK-SCREEN-88 TO TRUE                         DTSCS21
03090           GO TO MAINLINE-EXIT.                                    DTSCS21
03091  S825-EXIT.                                                       DTSCS21
03092      EXIT.                                                        DTSCS21
03093                                                                   DTSCS21
03094  S826-WRITE-ATH.                                                  DTSCS21
03095      MOVE LOW-VALUES            TO AATH-REC.                      DTSCS21
03096                                                                   DTSCS21
03097      MOVE WRK-BATCH-NO-1        TO AATH-BATCH-NO.                 DTSCS21
03098      MOVE +0                    TO AATH-ITEM-NO.                  DTSCS21
03099      MOVE AHDR-DATA-AREA        TO AATH-DATA-AREA.                DTSCS21
03100      MOVE LCCM-OP-ID            TO AATH-OP-ID.                    DTSCS21
03101      MOVE ZERO                  TO AATH-DATE                      DTSCS21
03102                                     AATH-TIME.                    DTSCS21
03103      MOVE WRK-AATH-ACTION       TO AATH-ACTION.                   DTSCS21
03104                                                                   DTSCS21
03105      EXEC CICS LINK                                               DTSCS21
03106          PROGRAM ('DTSCU826')                                     DTSCS21
03107          COMMAREA (L826-COMM-AREA)                                DTSCS21
03108      END-EXEC.                                                    DTSCS21
03109                                                                   DTSCS21
03110      IF L826-FILE-CLOSED-88                                       DTSCS21
03111          MOVE L826-MSG-AREA TO LCCM-MSG-AREA                      DTSCS21
03112          SET LCCM-REQ-SCR-SF-88 TO TRUE                           DTSCS21
03113          SET LCCM-LINK-SCREEN-88 TO TRUE                          DTSCS21
03114          GO TO MAINLINE-EXIT.                                     DTSCS21
03115                                                                   DTSCS21
03116  S826-EXIT.                                                       DTSCS21
03117      EXIT.                                                        DTSCS21
03118                                                                   DTSCS21
03119                                                                   DTSCS21
03120  S829-DELETE-QUEUE.                                               DTSCS21
03121      SET L829-DELETE-QUEUE-88 TO TRUE.                            DTSCS21
03122      GO TO S829-TS-IO.                                            DTSCS21
03123                                                                   DTSCS21
03124  S829-WRITE-ITEM.                                                 DTSCS21
03125      SET L829-WRITE-88 TO TRUE.                                   DTSCS21
03126      GO TO S829-TS-IO.                                            DTSCS21
03127                                                                   DTSCS21
03128  S829-TS-IO.                                                      DTSCS21
03129      EXEC CICS                                                    DTSCS21
03130          LINK                                                     DTSCS21
03131              PROGRAM ('DTSCU829')                                 DTSCS21
03132              COMMAREA (L829-COMM-AREA)                            DTSCS21
03133      END-EXEC.                                                    DTSCS21
03134  S829-EXIT.                                                       DTSCS21
03135      EXIT.                                                        DTSCS21
03136                                                                   DTSCS21
03137                                                                   DTSCS21
03138  S851-SCREEN-PROCESSING.                                          DTSCS21
03139      EXEC CICS LINK                                               DTSCS21
03140          PROGRAM ('DTSCU851')                                     DTSCS21
03141          COMMAREA (L851-COMM-AREA)                                DTSCS21
03142      END-EXEC.                                                    DTSCS21
03143  S851-EXIT.                                                       DTSCS21
03144      EXIT.                                                        DTSCS21
03145                                                                   DTSCS21
03146                                                                   DTSCS21
03147  S880-START-BROWSE.                                               DTSCS21
03148      SET L880-START-BROWSE-88 TO TRUE.                            DTSCS21
03149      GO TO S880-WAGE-IO.                                          DTSCS21
03150                                                                   DTSCS21
03151  S880-READ-NEXT.                                                  DTSCS21
03152      SET L880-READ-NEXT-88 TO TRUE.                               DTSCS21
03153      GO TO S880-WAGE-IO.                                          DTSCS21
03154                                                                   DTSCS21
03155  S880-END-BROWSE.                                                 DTSCS21
03156      SET L880-END-BROWSE-88 TO TRUE.                              DTSCS21
03157      GO TO S880-WAGE-IO.                                          DTSCS21
03158                                                                   DTSCS21
03159  S880-DELETE.                                                     DTSCS21
03160      SET L880-DELETE-88 TO TRUE.                                  DTSCS21
03161      GO TO S880-WAGE-IO.                                          DTSCS21
03162                                                                   DTSCS21
03163  S880-WAGE-IO.                                                    DTSCS21
03164      EXEC CICS LINK                                               DTSCS21
03165          PROGRAM ('DTSCU880')                                     DTSCS21
03166          COMMAREA (L880-COMM-AREA)                                DTSCS21
03167      END-EXEC.                                                    DTSCS21
03168                                                                   DTSCS21
03169      IF L880-FILE-CLOSED-88                                       DTSCS21
03170          MOVE L880-MSG-AREA TO LCCM-MSG-AREA                      DTSCS21
03171          SET LCCM-REQ-SCR-SF-88 TO TRUE                           DTSCS21
03172          SET LCCM-LINK-SCREEN-88 TO TRUE                          DTSCS21
03173          GO TO MAINLINE-EXIT.                                     DTSCS21
03174  S880-EXIT.                                                       DTSCS21
03175      EXIT.                                                        DTSCS21
03176                                                                   DTSCS21
03177                                                                   DTSCS21
03178                                                                   DTSCS21
03179  S899-ABEND.                                                      DTSCS21
03180      EXEC CICS ABEND                                              DTSCS21
03181          ABCODE(WRK-ABEND-CD)                                     DTSCS21
03182      END-EXEC.                                                    DTSCS21
03183  S899-EXIT.                                                       DTSCS21
03184      EXIT.                                                        DTSCS21
03185 /*****************************************************************DTSCS21
03186 *    EDIT THE INFORMATION ON THE SCREEN.                         *DTSCS21
03187 ******************************************************************DTSCS21
03188                                                                   DTSCS21
03189  S1000-SCREEN-EDITS.                                              DTSCS21
03190      PERFORM S1200-CONTROL-REMIT-AMT THRU S1200-EXIT.             DTSCS21
03191                                                                   DTSCS21
03192      PERFORM S1300-CONTROL-TRAN-CNT THRU S1300-EXIT.              DTSCS21
03193                                                                   DTSCS21
03194      PERFORM S1400-BATCH-HELD-IND THRU S1400-EXIT.                DTSCS21
03195                                                                   DTSCS21
03196      PERFORM S1500-RECEIVED-DATE THRU S1500-EXIT.                 DTSCS21
03197                                                                   DTSCS21
03198      PERFORM S1600-DEPOSIT-DATE THRU S1600-EXIT.                  DTSCS21
03199                                                                   DTSCS21
03200      PERFORM S1700-MAP-PRINTER-ID THRU S1700-EXIT.                DTSCS21
03201                                                                   DTSCS21
03202      PERFORM S1800-ANNUAL-BATCH-IND  THRU S1800-EXIT.             DTSCS21
03203                                                                   DTSCS21
03204      PERFORM S1900-BANK-BATCH-NO     THRU S1900-EXIT.             DTSCS21
03205                                                                   DTSCS21
03206      PERFORM S1950-DEPOSIT-ID        THRU S1950-EXIT.             DTSCS21
03207                                                                   DTSCS21
03208                                                                   DTSCS21
03209      IF LCCM-F06-88                                               DTSCS21
03210         PERFORM S2000-DEPOSIT-TKT       THRU S2000-EXIT           DTSCS21
03211      END-IF.                                                      DTSCS21
03212                                                                   DTSCS21
03213                                                                   DTSCS21
03214  S1000-EXIT.                                                      DTSCS21
03215      EXIT.                                                        DTSCS21
03216      EJECT                                                        DTSCS21
03217  S1100-EDIT-KEY.                                                  DTSCS21
03218      SET WRK-BATCH-NO-1-NO-ENTRY TO TRUE.                         DTSCS21
03219                                                                   DTSCS21
03220      SET WRK-BATCH-NO-2-NO-ENTRY TO TRUE.                         DTSCS21
03221                                                                   DTSCS21
03222      PERFORM S1110-BATCH-NO-1 THRU S1110-EXIT.                    DTSCS21
03223                                                                   DTSCS21
03224      PERFORM S1120-BATCH-NO-2 THRU S1120-EXIT.                    DTSCS21
03225  S1100-EXIT.                                                      DTSCS21
03226      EXIT.                                                        DTSCS21
03227 /*****************************************************************DTSCS21
03228 *                                                                 DTSCS21
03229 ******************************************************************DTSCS21
03230  S1110-BATCH-NO-1.                                                DTSCS21
03231      MOVE MAP-BATCH-NO-1-AREA TO L019-S-BATCH-NO-AREA.            DTSCS21
03232                                                                   DTSCS21
03233      MOVE SPACES TO L019-S-ITEM-NO-AREA.                          DTSCS21
03234                                                                   DTSCS21
03235      PERFORM S019-BATCH-NO-FROM-SCREEN THRU S019-EXIT.            DTSCS21
03236                                                                   DTSCS21
03237                                                                   DTSCS21
03238      IF L019-NO-ENTRY                                             DTSCS21
03239         IF LCCM-F09-88                                            DTSCS21
03240             OR LCCM-F07-88                                        DTSCS21
03241             OR LCCM-F08-88                                        DTSCS21
03242            MOVE 0 TO WRK-BATCH-NO-1                               DTSCS21
03243            GO TO S1110-EXIT                                       DTSCS21
03244         ELSE                                                      DTSCS21
03245            SET WRK-BATCH-NO-1-NO-ENTRY TO TRUE                    DTSCS21
03246            MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA               DTSCS21
03247            PERFORM S1111-ERROR THRU S1111-EXIT                    DTSCS21
03248            GO TO S1110-EXIT.                                      DTSCS21
03249                                                                   DTSCS21
03250                                                                   DTSCS21
03251      IF L019-NOT-VALID                                            DTSCS21
03252         IF LCCM-F09-88                                            DTSCS21
03253            MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-AREA            DTSCS21
03254            PERFORM S1111-ERROR THRU S1111-EXIT                    DTSCS21
03255            GO TO S1110-EXIT                                       DTSCS21
03256         ELSE                                                      DTSCS21
03257            SET WRK-BATCH-NO-1-NOT-VALID TO TRUE                   DTSCS21
03258            MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA              DTSCS21
03259            PERFORM S1111-ERROR THRU S1111-EXIT                    DTSCS21
03260            GO TO S1110-EXIT.                                      DTSCS21
03261                                                                   DTSCS21
03262                                                                   DTSCS21
03263      IF LCCM-F09-88                                               DTSCS21
03264         MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-AREA               DTSCS21
03265         PERFORM S1111-ERROR THRU S1111-EXIT                       DTSCS21
03266         GO TO S1110-EXIT.                                         DTSCS21
03267                                                                   DTSCS21
03268                                                                   DTSCS21
03269      SET WRK-BATCH-NO-1-VALID TO TRUE.                            DTSCS21
03270                                                                   DTSCS21
03271      MOVE L019-BATCH-NO TO WRK-BATCH-NO-1.                        DTSCS21
03272  S1110-EXIT.                                                      DTSCS21
03273      EXIT.                                                        DTSCS21
03274                                                                   DTSCS21
03275                                                                   DTSCS21
03276                                                                   DTSCS21
03277  S1111-ERROR.                                                     DTSCS21
03278      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-BATCH-NO-1-A.         DTSCS21
03279                                                                   DTSCS21
03280      IF LCCM-NO-MSG                                               DTSCS21
03281         MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                        DTSCS21
03282         MOVE CATB-CURSOR TO MAP-BATCH-NO-1-L                      DTSCS21
03283         SET CURSOR-SET-YES TO TRUE.                               DTSCS21
03284  S1111-EXIT.                                                      DTSCS21
03285      EXIT.                                                        DTSCS21
03286 /*****************************************************************DTSCS21
03287 *                                                                 DTSCS21
03288 ******************************************************************DTSCS21
03289  S1120-BATCH-NO-2.                                                DTSCS21
03290      MOVE MAP-BATCH-NO-2-AREA TO L019-S-BATCH-NO-AREA.            DTSCS21
03291                                                                   DTSCS21
03292      MOVE SPACES TO L019-S-ITEM-NO-AREA.                          DTSCS21
03293                                                                   DTSCS21
03294      PERFORM S019-BATCH-NO-FROM-SCREEN THRU S019-EXIT.            DTSCS21
03295                                                                   DTSCS21
03296                                                                   DTSCS21
03297      IF L019-NO-ENTRY                                             DTSCS21
03298         IF LCCM-F09-88                                            DTSCS21
03299             OR LCCM-F10-88                                        DTSCS21
03300             OR LCCM-F23-88                                        DTSCS21
03301             OR LCCM-F06-88                                        DTSCS21
03302            GO TO S1120-EXIT                                       DTSCS21
03303         ELSE                                                      DTSCS21
03304            MOVE WRK-BATCH-NO-1-AREA TO WRK-BATCH-NO-2-AREA        DTSCS21
03305            SET WRK-BATCH-NO-2-NO-ENTRY TO TRUE                    DTSCS21
03306            GO TO S1120-EXIT.                                      DTSCS21
03307                                                                   DTSCS21
03308                                                                   DTSCS21
03309      IF LCCM-F09-88                                               DTSCS21
03310          OR LCCM-F10-88                                           DTSCS21
03311          OR LCCM-F23-88                                           DTSCS21
03312          OR LCCM-F06-88                                           DTSCS21
03313         MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-AREA               DTSCS21
03314         PERFORM S1121-ERROR THRU S1121-EXIT                       DTSCS21
03315         GO TO S1120-EXIT.                                         DTSCS21
03316                                                                   DTSCS21
03317                                                                   DTSCS21
03318      IF L019-NOT-VALID                                            DTSCS21
03319         SET WRK-BATCH-NO-2-NOT-VALID TO TRUE                      DTSCS21
03320         MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA                 DTSCS21
03321         PERFORM S1121-ERROR THRU S1121-EXIT                       DTSCS21
03322         GO TO S1120-EXIT.                                         DTSCS21
03323                                                                   DTSCS21
03324                                                                   DTSCS21
03325      IF WRK-BATCH-NO-1-VALID                                      DTSCS21
03326         IF WRK-BATCH-NO-1 = WRK-BATCH-NO-2                        DTSCS21
03327            SET WRK-BATCH-NO-2-NO-ENTRY TO TRUE                    DTSCS21
03328            GO TO S1120-EXIT.                                      DTSCS21
03329                                                                   DTSCS21
03330                                                                   DTSCS21
03331      SET WRK-BATCH-NO-2-VALID TO TRUE.                            DTSCS21
03332                                                                   DTSCS21
03333      MOVE L019-BATCH-NO TO WRK-BATCH-NO-2.                        DTSCS21
03334                                                                   DTSCS21
03335                                                                   DTSCS21
03336      IF WRK-BATCH-NO-1-VALID                                      DTSCS21
03337         IF WRK-BATCH-NO-1 > WRK-BATCH-NO-2                        DTSCS21
03338            MOVE EMSG-CROSS-EDIT TO WRK-MSG-AREA                   DTSCS21
03339            PERFORM S1111-ERROR THRU S1111-EXIT                    DTSCS21
03340            PERFORM S1121-ERROR THRU S1121-EXIT                    DTSCS21
03341            GO TO S1120-EXIT.                                      DTSCS21
03342                                                                   DTSCS21
03343  S1120-EXIT.                                                      DTSCS21
03344      EXIT.                                                        DTSCS21
03345                                                                   DTSCS21
03346                                                                   DTSCS21
03347                                                                   DTSCS21
03348  S1121-ERROR.                                                     DTSCS21
03349      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-BATCH-NO-2-A          DTSCS21
03350                                                                   DTSCS21
03351      IF LCCM-NO-MSG                                               DTSCS21
03352         MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                        DTSCS21
03353         MOVE CATB-CURSOR TO MAP-BATCH-NO-2-L                      DTSCS21
03354         SET CURSOR-SET-YES TO TRUE.                               DTSCS21
03355  S1121-EXIT.                                                      DTSCS21
03356      EXIT.                                                        DTSCS21
03357 /*****************************************************************DTSCS21
03358 *                                                                *DTSCS21
03359 ******************************************************************DTSCS21
03360  S1200-CONTROL-REMIT-AMT.                                         DTSCS21
03361      MOVE MAP-CONTROL-REMIT-AMT-AREA TO L011-S-AMT-AREA.          DTSCS21
03362                                                                   DTSCS21
03363      PERFORM S011-REMIT-AMT THRU S011-EXIT.                       DTSCS21
03364                                                                   DTSCS21
03365      IF L011-NO-ENTRY                                             DTSCS21
03366 ***      MOVE +0 TO MAP-CONTROL-REMIT-AMT-N                       DTSCS21
03367          MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA                 DTSCS21
03368          PERFORM S1201-ERROR THRU S1201-EXIT                      DTSCS21
03369      ELSE                                                         DTSCS21
03370      IF L011-VALID                                                DTSCS21
03371          MOVE L011-AMT TO MAP-CONTROL-REMIT-AMT-N                 DTSCS21
03372      ELSE                                                         DTSCS21
03373      IF L011-INVALID-NEGATIVE                                     DTSCS21
03374          MOVE EMSG-INVALID-NEGATIVE TO WRK-MSG-AREA               DTSCS21
03375          PERFORM S1201-ERROR THRU S1201-EXIT                      DTSCS21
03376      ELSE                                                         DTSCS21
03377      IF L011-EXCEEDS-MIN-MAX                                      DTSCS21
03378          MOVE EMSG-EXCEEDS-MIN-MAX TO WRK-MSG-AREA                DTSCS21
03379          PERFORM S1201-ERROR THRU S1201-EXIT                      DTSCS21
03380      ELSE                                                         DTSCS21
03381          MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA                DTSCS21
03382          PERFORM S1201-ERROR THRU S1201-EXIT.                     DTSCS21
03383  S1200-EXIT.                                                      DTSCS21
03384      EXIT.                                                        DTSCS21
03385                                                                   DTSCS21
03386                                                                   DTSCS21
03387                                                                   DTSCS21
03388  S1201-ERROR.                                                     DTSCS21
03389      MOVE CATB-UNPROT-NORM-NUM-MDTON                              DTSCS21
03390        TO MAP-CONTROL-REMIT-AMT-A.                                DTSCS21
03391                                                                   DTSCS21
03392      IF LCCM-NO-MSG                                               DTSCS21
03393         MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                        DTSCS21
03394         MOVE CATB-CURSOR TO MAP-CONTROL-REMIT-AMT-L               DTSCS21
03395         SET CURSOR-SET-YES TO TRUE.                               DTSCS21
03396  S1201-EXIT.                                                      DTSCS21
03397      EXIT.                                                        DTSCS21
03398 /*****************************************************************DTSCS21
03399 *                                                                *DTSCS21
03400 ******************************************************************DTSCS21
03401  S1300-CONTROL-TRAN-CNT.                                          DTSCS21
03402      MOVE MAP-CONTROL-TRAN-CNT-AREA TO L013-S-CNT-AREA.           DTSCS21
03403                                                                   DTSCS21
03404      PERFORM S013-TRAN-CNT THRU S013-EXIT.                        DTSCS21
03405                                                                   DTSCS21
03406      IF L013-NO-ENTRY                                             DTSCS21
03407 ***      MOVE +0 TO MAP-CONTROL-TRAN-CNT-N                        DTSCS21
03408          MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA                 DTSCS21
03409          PERFORM S1301-ERROR THRU S1301-EXIT                      DTSCS21
03410      ELSE                                                         DTSCS21
03411      IF L013-VALID                                                DTSCS21
03412          MOVE L013-CNT TO MAP-CONTROL-TRAN-CNT-N                  DTSCS21
03413      ELSE                                                         DTSCS21
03414      IF L013-INVALID-NEGATIVE                                     DTSCS21
03415          MOVE EMSG-INVALID-NEGATIVE TO WRK-MSG-AREA               DTSCS21
03416          PERFORM S1301-ERROR THRU S1301-EXIT                      DTSCS21
03417      ELSE                                                         DTSCS21
03418      IF L013-EXCEEDS-MIN-MAX                                      DTSCS21
03419          MOVE EMSG-EXCEEDS-MIN-MAX TO WRK-MSG-AREA                DTSCS21
03420          PERFORM S1301-ERROR THRU S1301-EXIT                      DTSCS21
03421      ELSE                                                         DTSCS21
03422          MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA                DTSCS21
03423          PERFORM S1301-ERROR THRU S1301-EXIT.                     DTSCS21
03424  S1300-EXIT.                                                      DTSCS21
03425      EXIT.                                                        DTSCS21
03426                                                                   DTSCS21
03427                                                                   DTSCS21
03428                                                                   DTSCS21
03429  S1301-ERROR.                                                     DTSCS21
03430      MOVE CATB-UNPROT-NORM-NUM-MDTON                              DTSCS21
03431        TO MAP-CONTROL-TRAN-CNT-A.                                 DTSCS21
03432                                                                   DTSCS21
03433      IF LCCM-NO-MSG                                               DTSCS21
03434         MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                        DTSCS21
03435         MOVE CATB-CURSOR TO MAP-CONTROL-TRAN-CNT-L                DTSCS21
03436         SET CURSOR-SET-YES TO TRUE.                               DTSCS21
03437  S1301-EXIT.                                                      DTSCS21
03438      EXIT.                                                        DTSCS21
03439 /*****************************************************************DTSCS21
03440 *                                                                *DTSCS21
03441 ******************************************************************DTSCS21
03442  S1400-BATCH-HELD-IND.                                            DTSCS21
03443      IF MAP-BATCH-HELD-IND = LOW-VALUES OR SPACE                  DTSCS21
03444         SET MAP-BATCH-HELD-NO-88 TO TRUE                          DTSCS21
03445      ELSE                                                         DTSCS21
03446      IF NOT MAP-BATCH-HELD-VALID-88                               DTSCS21
03447         MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA                 DTSCS21
03448         PERFORM S1401-ERROR THRU S1401-EXIT.                      DTSCS21
03449  S1400-EXIT.                                                      DTSCS21
03450      EXIT.                                                        DTSCS21
03451                                                                   DTSCS21
03452                                                                   DTSCS21
03453                                                                   DTSCS21
03454  S1401-ERROR.                                                     DTSCS21
03455      MOVE CATB-UNPROT-NORM-AN-MDTON                               DTSCS21
03456        TO MAP-BATCH-HELD-IND-A.                                   DTSCS21
03457                                                                   DTSCS21
03458      IF LCCM-NO-MSG                                               DTSCS21
03459         MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                        DTSCS21
03460         MOVE CATB-CURSOR TO MAP-BATCH-HELD-IND-L                  DTSCS21
03461         SET CURSOR-SET-YES TO TRUE.                               DTSCS21
03462  S1401-EXIT.                                                      DTSCS21
03463      EXIT.                                                        DTSCS21
03464 /*****************************************************************DTSCS21
03465 *                                                                *DTSCS21
03466 ******************************************************************DTSCS21
03467  S1500-RECEIVED-DATE.                                             DTSCS21
03468      MOVE MAP-RECEIVED-DATE-AREA TO L015-S-DATE-AREA.             DTSCS21
03469                                                                   DTSCS21
03470      PERFORM S015-DATE-FROM-SCREEN THRU S015-EXIT.                DTSCS21
03471                                                                   DTSCS21
03472      IF L015-NO-ENTRY                                             DTSCS21
03473         IF LCCM-F09-88                                            DTSCS21
03474            GO TO S1500-EXIT                                       DTSCS21
03475         ELSE                                                      DTSCS21
03476            MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA               DTSCS21
03477            PERFORM S1501-ERROR THRU S1501-EXIT                    DTSCS21
03478            GO TO S1500-EXIT                                       DTSCS21
03479      ELSE                                                         DTSCS21
03480      IF L015-NOT-VALID                                            DTSCS21
03481         MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA                 DTSCS21
03482         PERFORM S1501-ERROR THRU S1501-EXIT                       DTSCS21
03483         GO TO S1500-EXIT.                                         DTSCS21
03484                                                                   DTSCS21
03485      IF L015-DATE > LCCM-CURR-RUN-DATE                            DTSCS21
03486          MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA                DTSCS21
03487          PERFORM S1501-ERROR THRU S1501-EXIT                      DTSCS21
03488          GO TO S1500-EXIT.                                        DTSCS21
03489                                                                   DTSCS21
03490      MOVE LCCM-CURR-RUN-DATE TO L001-FED-8-DATE-9.                DTSCS21
03491                                                                   DTSCS21
03492      SUBTRACT 1 FROM L001-FED-8-YR.                               DTSCS21
03493                                                                   DTSCS21
03494      IF L015-DATE < L001-FED-8-DATE-9                             DTSCS21
03495         IF SCR-ACCESS-SUPERVISOR                                  DTSCS21
03496            NEXT SENTENCE                                          DTSCS21
03497         ELSE                                                      DTSCS21
03498            MOVE MSG-E223-AREA  TO WRK-MSG-AREA                    DTSCS21
03499            PERFORM S1501-ERROR THRU S1501-EXIT                    DTSCS21
03500            GO TO S1500-EXIT                                       DTSCS21
03501         END-IF                                                    DTSCS21
03502      END-IF.                                                      DTSCS21
03503                                                                   DTSCS21
03504  S1500-EXIT.                                                      DTSCS21
03505      EXIT.                                                        DTSCS21
03506                                                                   DTSCS21
03507                                                                   DTSCS21
03508                                                                   DTSCS21
03509  S1501-ERROR.                                                     DTSCS21
03510      MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-RECEIVED-DATE-MO-A     DTSCS21
03511                                        MAP-RECEIVED-DATE-DA-A     DTSCS21
03512                                        MAP-RECEIVED-DATE-YR-A.    DTSCS21
03513                                                                   DTSCS21
03514      IF LCCM-NO-MSG                                               DTSCS21
03515         MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                        DTSCS21
03516         MOVE CATB-CURSOR TO MAP-RECEIVED-DATE-MO-L                DTSCS21
03517         SET CURSOR-SET-YES TO TRUE.                               DTSCS21
03518  S1501-EXIT.                                                      DTSCS21
03519      EXIT.                                                        DTSCS21
03520 /*****************************************************************DTSCS21
03521 *                                                                *DTSCS21
03522 ******************************************************************DTSCS21
03523  S1600-DEPOSIT-DATE.                                              DTSCS21
03524      MOVE MAP-DEPOSIT-DATE-AREA TO L015-S-DATE-AREA.              DTSCS21
03525                                                                   DTSCS21
03526      PERFORM S015-DATE-FROM-SCREEN THRU S015-EXIT.                DTSCS21
03527                                                                   DTSCS21
03528      IF L015-NO-ENTRY                                             DTSCS21
03529         IF LCCM-F09-88                                            DTSCS21
03530            GO TO S1600-EXIT                                       DTSCS21
03531         ELSE                                                      DTSCS21
03532            MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA               DTSCS21
03533            PERFORM S1601-ERROR THRU S1601-EXIT                    DTSCS21
03534            GO TO S1600-EXIT                                       DTSCS21
03535      ELSE                                                         DTSCS21
03536      IF L015-NOT-VALID                                            DTSCS21
03537         MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA                 DTSCS21
03538         PERFORM S1601-ERROR THRU S1601-EXIT                       DTSCS21
03539         GO TO S1600-EXIT.                                         DTSCS21
03540                                                                   DTSCS21
03541      IF L015-DATE > LCCM-NEXT-RUN-DATE                            DTSCS21
03542          MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA                DTSCS21
03543          PERFORM S1601-ERROR THRU S1601-EXIT                      DTSCS21
03544          GO TO S1600-EXIT.                                        DTSCS21
03545                                                                   DTSCS21
03546      MOVE LCCM-NEXT-RUN-DATE TO L001-FED-8-DATE-9.                DTSCS21
03547                                                                   DTSCS21
03548      SUBTRACT 1 FROM L001-FED-8-YR.                               DTSCS21
03549                                                                   DTSCS21
03550      IF L015-DATE < L001-FED-8-DATE-9                             DTSCS21
03551         IF SCR-ACCESS-SUPERVISOR                                  DTSCS21
03552            NEXT SENTENCE                                          DTSCS21
03553         ELSE                                                      DTSCS21
03554            MOVE MSG-E223-AREA  TO WRK-MSG-AREA                    DTSCS21
03555            PERFORM S1601-ERROR THRU S1601-EXIT                    DTSCS21
03556            GO TO S1600-EXIT                                       DTSCS21
03557         END-IF                                                    DTSCS21
03558      END-IF.                                                      DTSCS21
03559                                                                   DTSCS21
03560  S1600-EXIT.                                                      DTSCS21
03561      EXIT.                                                        DTSCS21
03562                                                                   DTSCS21
03563                                                                   DTSCS21
03564                                                                   DTSCS21
03565  S1601-ERROR.                                                     DTSCS21
03566      MOVE CATB-UNPROT-NORM-NUM-MDTON                              DTSCS21
03567        TO MAP-DEPOSIT-DATE-MO-A                                   DTSCS21
03568           MAP-DEPOSIT-DATE-DA-A                                   DTSCS21
03569           MAP-DEPOSIT-DATE-YR-A.                                  DTSCS21
03570                                                                   DTSCS21
03571      IF LCCM-NO-MSG                                               DTSCS21
03572         MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                        DTSCS21
03573         MOVE CATB-CURSOR TO MAP-DEPOSIT-DATE-MO-L                 DTSCS21
03574         SET CURSOR-SET-YES TO TRUE.                               DTSCS21
03575  S1601-EXIT.                                                      DTSCS21
03576      EXIT.                                                        DTSCS21
03577 /*****************************************************************DTSCS21
03578 *                                                                *DTSCS21
03579 ******************************************************************DTSCS21
03580  S1700-MAP-PRINTER-ID.                                            DTSCS21
03581      IF MAP-PRINTER-ID EQUAL LOW-VALUES OR SPACES                 DTSCS21
03582         IF LCCM-NO-PRINTER                                        DTSCS21
03583            IF LCCM-F05-88                                         DTSCS21
03584            OR LCCM-F06-88                                         DTSCS21
03585               MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA            DTSCS21
03586               PERFORM S1701-ERROR THRU S1701-EXIT                 DTSCS21
03587            ELSE                                                   DTSCS21
03588               CONTINUE                                            DTSCS21
03589         ELSE                                                      DTSCS21
03590            MOVE LCCM-PRINTER-ID TO MAP-PRINTER-ID                 DTSCS21
03591      ELSE                                                         DTSCS21
03592         MOVE MAP-PRINTER-ID TO LCCM-PRINTER-ID.                   DTSCS21
03593  S1700-EXIT.                                                      DTSCS21
03594      EXIT.                                                        DTSCS21
03595                                                                   DTSCS21
03596                                                                   DTSCS21
03597                                                                   DTSCS21
03598  S1701-ERROR.                                                     DTSCS21
03599      MOVE CATB-UNPROT-NORM-AN-MDTON                               DTSCS21
03600        TO MAP-PRINTER-ID-A.                                       DTSCS21
03601                                                                   DTSCS21
03602      IF LCCM-NO-MSG                                               DTSCS21
03603         MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                        DTSCS21
03604         MOVE CATB-CURSOR TO MAP-PRINTER-ID-L                      DTSCS21
03605         SET CURSOR-SET-YES TO TRUE.                               DTSCS21
03606  S1701-EXIT. EXIT.                                                DTSCS21
03607                                                                   DTSCS21
03608 /*****************************************************************DTSCS21
03609 *                                                                *DTSCS21
03610 ******************************************************************DTSCS21
03611  S1800-ANNUAL-BATCH-IND.                                          DTSCS21
03612      IF MAP-ANNUAL-BATCH-IND = LOW-VALUES OR SPACE                DTSCS21
03613         SET MAP-ANNUAL-BATCH-NO-88 TO TRUE                        DTSCS21
03614      ELSE                                                         DTSCS21
03615         IF LCCM-F09-88                                            DTSCS21
03616            IF NOT MAP-ANNUAL-BATCH-VALID-88                       DTSCS21
03617               MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA           DTSCS21
03618               PERFORM S1801-ERROR THRU S1801-EXIT.                DTSCS21
03619                                                                   DTSCS21
03620  S1800-EXIT. EXIT.                                                DTSCS21
03621                                                                   DTSCS21
03622  S1801-ERROR.                                                     DTSCS21
03623      MOVE CATB-UNPROT-NORM-AN-MDTON                               DTSCS21
03624        TO MAP-ANNUAL-BATCH-A.                                     DTSCS21
03625                                                                   DTSCS21
03626      IF LCCM-NO-MSG                                               DTSCS21
03627         MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                        DTSCS21
03628         MOVE CATB-CURSOR TO MAP-ANNUAL-BATCH-L                    DTSCS21
03629         SET CURSOR-SET-YES TO TRUE.                               DTSCS21
03630  S1801-EXIT. EXIT.                                                DTSCS21
03631                                                                   DTSCS21
03632  S1900-BANK-BATCH-NO.                                             DTSCS21
03633      MOVE MAP-BANK-BATCH-AREA TO L013-S-CNT-AREA.                 DTSCS21
03634                                                                   DTSCS21
03635      PERFORM S013-BANK-BATCH-NO THRU S013-EXIT.                   DTSCS21
03636                                                                   DTSCS21
03637      EVALUATE TRUE                                                DTSCS21
03638        WHEN L013-NO-ENTRY                                         DTSCS21
03639           IF LCCM-OP-ID (1:4) = 'TDEC'                            DTSCS21
03640              MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA             DTSCS21
03641              PERFORM S1901-ERROR THRU S1901-EXIT                  DTSCS21
03642           ELSE                                                    DTSCS21
03643              MOVE +0 TO MAP-BANK-BATCH-N                          DTSCS21
03644           END-IF                                                  DTSCS21
03645                                                                   DTSCS21
03646        WHEN L013-VALID                                            DTSCS21
03647             MOVE L013-CNT TO MAP-BANK-BATCH-N                     DTSCS21
03648                                                                   DTSCS21
03649        WHEN L013-INVALID-NEGATIVE                                 DTSCS21
03650             MOVE EMSG-INVALID-NEGATIVE TO WRK-MSG-AREA            DTSCS21
03651             PERFORM S1901-ERROR THRU S1901-EXIT                   DTSCS21
03652                                                                   DTSCS21
03653        WHEN L013-EXCEEDS-MIN-MAX                                  DTSCS21
03654          MOVE EMSG-EXCEEDS-MIN-MAX TO WRK-MSG-AREA                DTSCS21
03655          PERFORM S1901-ERROR THRU S1901-EXIT                      DTSCS21
03656                                                                   DTSCS21
03657        WHEN OTHER                                                 DTSCS21
03658          MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA                DTSCS21
03659          PERFORM S1901-ERROR THRU S1901-EXIT                      DTSCS21
03660      END-EVALUATE.                                                DTSCS21
03661  S1900-EXIT.                                                      DTSCS21
03662      EXIT.                                                        DTSCS21
03663                                                                   DTSCS21
03664  S1901-ERROR.                                                     DTSCS21
03665      MOVE CATB-UNPROT-NORM-NUM-MDTON                              DTSCS21
03666        TO MAP-BANK-BATCH-A.                                       DTSCS21
03667                                                                   DTSCS21
03668      IF LCCM-NO-MSG                                               DTSCS21
03669         MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                        DTSCS21
03670         MOVE CATB-CURSOR TO MAP-BANK-BATCH-L                      DTSCS21
03671         SET CURSOR-SET-YES TO TRUE.                               DTSCS21
03672  S1901-EXIT.                                                      DTSCS21
03673      EXIT.                                                        DTSCS21
03674                                                                   DTSCS21
03675  S1950-DEPOSIT-ID.                                                DTSCS21
03676      MOVE MAP-CONTROL-REMIT-AMT-AREA TO L011-S-AMT-AREA.          DTSCS21
03677      PERFORM S011-REMIT-AMT          THRU S011-EXIT.              DTSCS21
03678                                                                   DTSCS21
03679      MOVE MAP-DEPOSIT-ID-AREA TO L013-S-CNT-AREA.                 DTSCS21
03680                                                                   DTSCS21
03681      PERFORM S013-DEPOSIT-ID    THRU S013-EXIT.                   DTSCS21
03682                                                                   DTSCS21
03683      EVALUATE TRUE                                                DTSCS21
03684        WHEN L013-NO-ENTRY                                         DTSCS21
03685           MOVE +0 TO MAP-DEPOSIT-ID-N                             DTSCS21
03686 **        IF L011-AMT > 0                                         DTSCS21
03687 *            IF WRK-BATCH-NO-1 > 69787                            DTSCS21
03688 *            AND LCCM-OP-ID (1:4) = 'TDEC'                        DTSCS21
03689 *               MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA          DTSCS21
03690 *               PERFORM S1951-ERROR THRU S1951-EXIT               DTSCS21
03691 *            ELSE                                                 DTSCS21
03692 *               MOVE +0 TO MAP-DEPOSIT-ID-N                       DTSCS21
03693 *            END-IF                                               DTSCS21
03694 **        END-IF                                                  DTSCS21
03695                                                                   DTSCS21
03696        WHEN L013-VALID                                            DTSCS21
03697           MOVE L013-CNT            TO WRK-DEPOSIT-ID              DTSCS21
03698           MOVE WRK-DEPOSIT-ID      TO MAP-DEPOSIT-ID-N            DTSCS21
03699                                                                   DTSCS21
03700 **     WHEN L013-VALID                                            DTSCS21
03701 *         IF L011-AMT NOT > 0                                     DTSCS21
03702 *            MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-AREA          DTSCS21
03703 *            PERFORM S1951-ERROR THRU S1951-EXIT                  DTSCS21
03704 *            MOVE +0 TO MAP-DEPOSIT-ID-N                          DTSCS21
03705 *         ELSE                                                    DTSCS21
03706 *            MOVE L013-CNT         TO WRK-DEPOSIT-ID              DTSCS21
03707 *            MOVE WRK-DEPOSIT-ID   TO MAP-DEPOSIT-ID-N            DTSCS21
03708 **        END-IF                                                  DTSCS21
03709                                                                   DTSCS21
03710        WHEN L013-INVALID-NEGATIVE                                 DTSCS21
03711           MOVE EMSG-INVALID-NEGATIVE TO WRK-MSG-AREA              DTSCS21
03712           PERFORM S1951-ERROR THRU S1951-EXIT                     DTSCS21
03713                                                                   DTSCS21
03714        WHEN L013-EXCEEDS-MIN-MAX                                  DTSCS21
03715           MOVE EMSG-EXCEEDS-MIN-MAX TO WRK-MSG-AREA               DTSCS21
03716           PERFORM S1951-ERROR THRU S1951-EXIT                     DTSCS21
03717                                                                   DTSCS21
03718        WHEN OTHER                                                 DTSCS21
03719          MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA                DTSCS21
03720          PERFORM S1951-ERROR THRU S1951-EXIT                      DTSCS21
03721      END-EVALUATE.                                                DTSCS21
03722                                                                   DTSCS21
03723 **   IF L013-VALID                                                DTSCS21
03724 *       IF (MAP-BANK-BATCH-N > ZERO                               DTSCS21
03725 *       AND MAP-DEPOSIT-ID-N > ZERO)                              DTSCS21
03726 *          MOVE MSG-E222-AREA       TO LCCM-MSG-AREA              DTSCS21
03727 *          PERFORM S1951-ERROR      THRU S1951-EXIT               DTSCS21
03728 *          PERFORM S1901-ERROR      THRU S1901-EXIT               DTSCS21
03729 *       END-IF                                                    DTSCS21
03730 **   END-IF.                                                      DTSCS21
03731                                                                   DTSCS21
03732  S1950-EXIT.                                                      DTSCS21
03733      EXIT.                                                        DTSCS21
03734                                                                   DTSCS21
03735  S1951-ERROR.                                                     DTSCS21
03736      MOVE CATB-UNPROT-NORM-NUM-MDTON                              DTSCS21
03737        TO MAP-DEPOSIT-ID-A.                                       DTSCS21
03738                                                                   DTSCS21
03739      IF LCCM-NO-MSG                                               DTSCS21
03740         MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                        DTSCS21
03741         MOVE CATB-CURSOR TO MAP-DEPOSIT-ID-L                      DTSCS21
03742         SET CURSOR-SET-YES TO TRUE.                               DTSCS21
03743  S1951-EXIT.                                                      DTSCS21
03744      EXIT.                                                        DTSCS21
03745                                                                   DTSCS21
03746                                                                   DTSCS21
03747  S2000-DEPOSIT-TKT.                                               DTSCS21
03748      PERFORM S2100-BATCH-HELD           THRU S2100-EXIT.          DTSCS21
03749      IF LCCM-MSG                                                  DTSCS21
03750         GO TO S2000-EXIT                                          DTSCS21
03751      END-IF.                                                      DTSCS21
03752                                                                   DTSCS21
03753      PERFORM S2200-BATCH-BALANCED       THRU S2200-EXIT.          DTSCS21
03754      IF LCCM-MSG                                                  DTSCS21
03755         GO TO S2000-EXIT                                          DTSCS21
03756      END-IF.                                                      DTSCS21
03757                                                                   DTSCS21
03758      PERFORM S2300-REMIT-AMT            THRU S2300-EXIT.          DTSCS21
03759      IF LCCM-MSG                                                  DTSCS21
03760         GO TO S2000-EXIT                                          DTSCS21
03761      END-IF.                                                      DTSCS21
03762                                                                   DTSCS21
03763      PERFORM S2400-CHK-TRANSACTIONS     THRU S2400-EXIT.          DTSCS21
03764                                                                   DTSCS21
03765  S2000-EXIT.                                                      DTSCS21
03766      EXIT.                                                        DTSCS21
03767                                                                   DTSCS21
03768  S2100-BATCH-HELD.                                                DTSCS21
03769      IF MAP-BATCH-HELD-YES-88                                     DTSCS21
03770      OR AHDR-BATCH-HELD-YES-88                                    DTSCS21
03771         MOVE MSG-E219-AREA       TO LCCM-MSG-AREA                 DTSCS21
03772         MOVE CATB-UNPROT-NORM-AN-MDTON                            DTSCS21
03773                                  TO MAP-BATCH-HELD-IND-A          DTSCS21
03774         MOVE CATB-CURSOR         TO MAP-BATCH-HELD-IND-L          DTSCS21
03775         SET CURSOR-SET-YES       TO TRUE                          DTSCS21
03776      END-IF.                                                      DTSCS21
03777                                                                   DTSCS21
03778  S2100-EXIT.                                                      DTSCS21
03779      EXIT.                                                        DTSCS21
03780                                                                   DTSCS21
03781  S2200-BATCH-BALANCED.                                            DTSCS21
03782      IF AHDR-BATCH-BALANCED-NO-88                                 DTSCS21
03783         MOVE MSG-E218-AREA               TO LCCM-MSG-AREA         DTSCS21
03784         MOVE CATB-UNPROT-NORM-NUM-MDTON  TO MAP-BATCH-NO-1-A      DTSCS21
03785         MOVE CATB-CURSOR                 TO MAP-BATCH-NO-1-L      DTSCS21
03786         SET CURSOR-SET-YES               TO TRUE                  DTSCS21
03787      END-IF.                                                      DTSCS21
03788                                                                   DTSCS21
03789  S2200-EXIT.                                                      DTSCS21
03790      EXIT.                                                        DTSCS21
03791                                                                   DTSCS21
03792  S2300-REMIT-AMT.                                                 DTSCS21
03793      MOVE MAP-CONTROL-REMIT-AMT-AREA     TO L011-S-AMT-AREA.      DTSCS21
03794      PERFORM S011-REMIT-AMT              THRU S011-EXIT.          DTSCS21
03795      IF L011-AMT NOT > ZERO                                       DTSCS21
03796         MOVE MSG-E220-AREA               TO LCCM-MSG-AREA         DTSCS21
03797         MOVE CATB-UNPROT-NORM-NUM-MDTON                           DTSCS21
03798                                  TO MAP-CONTROL-REMIT-AMT-A       DTSCS21
03799         MOVE CATB-CURSOR         TO MAP-CONTROL-REMIT-AMT-L       DTSCS21
03800      END-IF.                                                      DTSCS21
03801                                                                   DTSCS21
03802  S2300-EXIT.                                                      DTSCS21
03803      EXIT.                                                        DTSCS21
03804                                                                   DTSCS21
03805  S2400-CHK-TRANSACTIONS.                                          DTSCS21
03806      MOVE WRK-BATCH-NO-1                TO ASKL-BATCH-NO.         DTSCS21
03807                                                                   DTSCS21
03808      MOVE +1                            TO ASKL-ITEM-NO.          DTSCS21
03809                                                                   DTSCS21
03810      PERFORM S823-START-BROWSE          THRU S823-EXIT.           DTSCS21
03811                                                                   DTSCS21
03812      PERFORM                                                      DTSCS21
03813        UNTIL L823-NO-REC-88                                       DTSCS21
03814          IF ASKL-BATCH-NO NOT = WRK-BATCH-NO-1                    DTSCS21
03815             SET L823-NO-REC-88          TO TRUE                   DTSCS21
03816          ELSE                                                     DTSCS21
03817             EVALUATE TRUE                                         DTSCS21
03818               WHEN ASKL-PAY-88                                    DTSCS21
03819                 MOVE ASKL-REC             TO APAY-REC             DTSCS21
03820                 PERFORM S2410-CHECK-PAY   THRU S2410-EXIT         DTSCS21
03821                                                                   DTSCS21
03822               WHEN ASKL-RPT-88                                    DTSCS21
03823                 MOVE ASKL-REC             TO ARPT-REC             DTSCS21
03824                 PERFORM S2420-CHECK-RPT   THRU S2420-EXIT         DTSCS21
03825                                                                   DTSCS21
03826               WHEN ASKL-ATX-88                                    DTSCS21
03827                 MOVE ASKL-REC             TO AATX-REC             DTSCS21
03828                 PERFORM S2430-CHECK-ATX   THRU S2430-EXIT         DTSCS21
03829                                                                   DTSCS21
03830               WHEN OTHER                                          DTSCS21
03831                  MOVE MSG-E221-AREA      TO LCCM-MSG-AREA         DTSCS21
03832                  MOVE CATB-UNPROT-NORM-NUM-MDTON                  DTSCS21
03833                                          TO MAP-BATCH-NO-1-A      DTSCS21
03834                  MOVE CATB-CURSOR        TO MAP-BATCH-NO-1-L      DTSCS21
03835                  SET CURSOR-SET-YES      TO TRUE                  DTSCS21
03836             END-EVALUATE                                          DTSCS21
03837             PERFORM S823-READ-NEXT    THRU S823-EXIT              DTSCS21
03838          END-IF                                                   DTSCS21
03839      END-PERFORM.                                                 DTSCS21
03840                                                                   DTSCS21
03841      PERFORM S823-END-BROWSE             THRU S823-EXIT.          DTSCS21
03842                                                                   DTSCS21
03843  S2400-EXIT.                                                      DTSCS21
03844      EXIT.                                                        DTSCS21
03845                                                                   DTSCS21
03846  S2410-CHECK-PAY.                                                 DTSCS21
03847      IF APAY-OR-PAY-88                                            DTSCS21
03848      OR APAY-PAYMENT-88                                           DTSCS21
03849         NEXT SENTENCE                                             DTSCS21
03850      ELSE                                                         DTSCS21
03851         MOVE MSG-E221-AREA               TO LCCM-MSG-AREA         DTSCS21
03852         MOVE CATB-UNPROT-NORM-NUM-MDTON  TO MAP-BATCH-NO-1-A      DTSCS21
03853         MOVE CATB-CURSOR                 TO MAP-BATCH-NO-1-L      DTSCS21
03854         SET CURSOR-SET-YES               TO TRUE                  DTSCS21
03855         GO TO S2410-EXIT                                          DTSCS21
03856      END-IF.                                                      DTSCS21
03857                                                                   DTSCS21
03858      IF APAY-REMIT-AMT < ZERO                                     DTSCS21
03859         MOVE MSG-E218-AREA               TO LCCM-MSG-AREA         DTSCS21
03860         MOVE CATB-UNPROT-NORM-NUM-MDTON  TO MAP-BATCH-NO-1-A      DTSCS21
03861         MOVE CATB-CURSOR                 TO MAP-BATCH-NO-1-L      DTSCS21
03862         SET CURSOR-SET-YES               TO TRUE                  DTSCS21
03863         GO TO S2410-EXIT                                          DTSCS21
03864      END-IF.                                                      DTSCS21
03865                                                                   DTSCS21
03866  S2410-EXIT.                                                      DTSCS21
03867      EXIT.                                                        DTSCS21
03868                                                                   DTSCS21
03869  S2420-CHECK-RPT.                                                 DTSCS21
03870      IF ARPT-WITHDRW-88                                           DTSCS21
03871         MOVE MSG-E221-AREA               TO LCCM-MSG-AREA         DTSCS21
03872         MOVE CATB-UNPROT-NORM-NUM-MDTON  TO MAP-BATCH-NO-1-A      DTSCS21
03873         MOVE CATB-CURSOR                 TO MAP-BATCH-NO-1-L      DTSCS21
03874         SET CURSOR-SET-YES               TO TRUE                  DTSCS21
03875         GO TO S2420-EXIT                                          DTSCS21
03876      END-IF.                                                      DTSCS21
03877                                                                   DTSCS21
03878      IF ARPT-REMIT-AMT-NO-ENTRY-88                                DTSCS21
03879         MOVE MSG-E220-AREA               TO LCCM-MSG-AREA         DTSCS21
03880         MOVE CATB-UNPROT-NORM-NUM-MDTON  TO MAP-BATCH-NO-1-A      DTSCS21
03881         MOVE CATB-CURSOR                 TO MAP-BATCH-NO-1-L      DTSCS21
03882         SET CURSOR-SET-YES               TO TRUE                  DTSCS21
03883      ELSE                                                         DTSCS21
03884         IF ARPT-REMIT-AMT < 0                                     DTSCS21
03885            MOVE MSG-E220-AREA               TO LCCM-MSG-AREA      DTSCS21
03886            MOVE CATB-UNPROT-NORM-NUM-MDTON  TO MAP-BATCH-NO-1-A   DTSCS21
03887            MOVE CATB-CURSOR                 TO MAP-BATCH-NO-1-L   DTSCS21
03888            SET CURSOR-SET-YES               TO TRUE               DTSCS21
03889         END-IF                                                    DTSCS21
03890      END-IF.                                                      DTSCS21
03891                                                                   DTSCS21
03892  S2420-EXIT.                                                      DTSCS21
03893      EXIT.                                                        DTSCS21
03894                                                                   DTSCS21
03895  S2430-CHECK-ATX.                                                 DTSCS21
03896      IF AATX-ORIG-88                                              DTSCS21
03897      OR AATX-SUPPLEM-88                                           DTSCS21
03898         NEXT SENTENCE                                             DTSCS21
03899      ELSE                                                         DTSCS21
03900         MOVE MSG-E221-AREA               TO LCCM-MSG-AREA         DTSCS21
03901         MOVE CATB-UNPROT-NORM-NUM-MDTON  TO MAP-BATCH-NO-1-A      DTSCS21
03902         MOVE CATB-CURSOR                 TO MAP-BATCH-NO-1-L      DTSCS21
03903         SET CURSOR-SET-YES               TO TRUE                  DTSCS21
03904         GO TO S2430-EXIT                                          DTSCS21
03905      END-IF.                                                      DTSCS21
03906                                                                   DTSCS21
03907      IF AATX-REMIT-AMT-NO-ENTRY-88                                DTSCS21
03908         MOVE MSG-E220-AREA               TO LCCM-MSG-AREA         DTSCS21
03909         MOVE CATB-UNPROT-NORM-NUM-MDTON  TO MAP-BATCH-NO-1-A      DTSCS21
03910         MOVE CATB-CURSOR                 TO MAP-BATCH-NO-1-L      DTSCS21
03911         SET CURSOR-SET-YES               TO TRUE                  DTSCS21
03912      ELSE                                                         DTSCS21
03913         IF AATX-REMIT-AMT < 0                                     DTSCS21
03914            MOVE MSG-E220-AREA               TO LCCM-MSG-AREA      DTSCS21
03915            MOVE CATB-UNPROT-NORM-NUM-MDTON  TO MAP-BATCH-NO-1-A   DTSCS21
03916            MOVE CATB-CURSOR                 TO MAP-BATCH-NO-1-L   DTSCS21
03917            SET CURSOR-SET-YES               TO TRUE               DTSCS21
03918         END-IF                                                    DTSCS21
03919      END-IF.                                                      DTSCS21
03920                                                                   DTSCS21
03921  S2430-EXIT.                                                      DTSCS21
03922      EXIT.                                                        DTSCS21
03923                                                                   DTSCS21
03924 /*****************************************************************DTSCS21
03925 * LOCK SCREEN FOR UPDATE CONFIRMATION                            *DTSCS21
03926 ******************************************************************DTSCS21
03927  S5100-SET-LOCK-ATTRB.                                            DTSCS21
03928      MOVE CATB-ASKIP-BRT-MDTON TO WRK-ATB-AN                      DTSCS21
03929                                   WRK-ATB-NUM.                    DTSCS21
03930                                                                   DTSCS21
03931      PERFORM S5900-SET-ATTRB THRU S5900-EXIT.                     DTSCS21
03932                                                                   DTSCS21
03933      MOVE CATB-ASKIP-BRT-MDTON TO MAP-BATCH-NO-1-A                DTSCS21
03934                                   MAP-BATCH-NO-2-A                DTSCS21
03935                                   MAP-GOTO-A.                     DTSCS21
03936  S5100-EXIT.                                                      DTSCS21
03937      EXIT.                                                        DTSCS21
03938                                                                   DTSCS21
03939                                                                   DTSCS21
03940                                                                   DTSCS21
03941 ******************************************************************DTSCS21
03942 * SET ATTIBUTE BYTES FOR UPDATE ACCESS                           *DTSCS21
03943 ******************************************************************DTSCS21
03944  S5200-SET-UPDATE-ATTRB.                                          DTSCS21
03945      MOVE CATB-UNPROT-BRT-AN-MDTON TO WRK-ATB-AN.                 DTSCS21
03946                                                                   DTSCS21
03947      MOVE CATB-UNPROT-BRT-NUM-MDTON TO WRK-ATB-NUM.               DTSCS21
03948                                                                   DTSCS21
03949                                                                   DTSCS21
03950      PERFORM S5900-SET-ATTRB THRU S5900-EXIT.                     DTSCS21
03951  S5200-EXIT.                                                      DTSCS21
03952      EXIT.                                                        DTSCS21
03953                                                                   DTSCS21
03954                                                                   DTSCS21
03955                                                                   DTSCS21
03956 ******************************************************************DTSCS21
03957 *  SET ATTRIBUTE BYTES FOR INQUIRY STATUS                        *DTSCS21
03958 ******************************************************************DTSCS21
03959  S5300-SET-INQ-ATTRB.                                             DTSCS21
03960      MOVE CATB-ASKIP-BRT-MDTOFF TO WRK-ATB-AN                     DTSCS21
03961                                    WRK-ATB-NUM.                   DTSCS21
03962                                                                   DTSCS21
03963      PERFORM S5900-SET-ATTRB THRU S5900-EXIT.                     DTSCS21
03964                                                                   DTSCS21
03965      MOVE CATB-UNPROT-BRT-AN-MDTON TO MAP-PRINTER-ID-A.           DTSCS21
03966  S5300-EXIT.                                                      DTSCS21
03967      EXIT.                                                        DTSCS21
03968                                                                   DTSCS21
03969                                                                   DTSCS21
03970                                                                   DTSCS21
03971  S5900-SET-ATTRB.                                                 DTSCS21
03972      MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-BATCH-NO-1-A           DTSCS21
03973                                        MAP-BATCH-NO-2-A.          DTSCS21
03974                                                                   DTSCS21
03975      MOVE WRK-ATB-NUM                                             DTSCS21
03976        TO MAP-BANK-BATCH-A.                                       DTSCS21
03977                                                                   DTSCS21
03978      MOVE WRK-ATB-NUM                                             DTSCS21
03979        TO MAP-DEPOSIT-ID-A.                                       DTSCS21
03980                                                                   DTSCS21
03981      MOVE WRK-ATB-NUM                                             DTSCS21
03982        TO MAP-CONTROL-REMIT-AMT-A                                 DTSCS21
03983           MAP-CONTROL-TRAN-CNT-A.                                 DTSCS21
03984                                                                   DTSCS21
03985      MOVE WRK-ATB-NUM                                             DTSCS21
03986        TO MAP-RECEIVED-DATE-MO-A                                  DTSCS21
03987           MAP-RECEIVED-DATE-DA-A                                  DTSCS21
03988           MAP-RECEIVED-DATE-YR-A.                                 DTSCS21
03989                                                                   DTSCS21
03990      MOVE WRK-ATB-NUM                                             DTSCS21
03991        TO MAP-DEPOSIT-DATE-MO-A                                   DTSCS21
03992           MAP-DEPOSIT-DATE-DA-A                                   DTSCS21
03993           MAP-DEPOSIT-DATE-YR-A.                                  DTSCS21
03994                                                                   DTSCS21
03995      MOVE WRK-ATB-AN                                              DTSCS21
03996        TO MAP-BATCH-HELD-IND-A                                    DTSCS21
03997           MAP-ANNUAL-BATCH-A                                      DTSCS21
03998           MAP-PRINTER-ID-A.                                       DTSCS21
03999                                                                   DTSCS21
04000                                                                   DTSCS21
04001      MOVE CATB-ASKIP-BRT-MDTON                                    DTSCS21
04002        TO MAP-STATUS-DSCR-1-A                                     DTSCS21
04003           MAP-STATUS-DSCR-2-A                                     DTSCS21
04004           MAP-STATUS-DSCR-3-A                                     DTSCS21
04005           MAP-LAST-USED-ITEM-NO-A                                 DTSCS21
04006           MAP-ATC-FILE-REMIT-AMT-A                                DTSCS21
04007           MAP-ATC-FILE-TRAN-CNT-A                                 DTSCS21
04008           MAP-BALANCE-REMIT-AMT-A                                 DTSCS21
04009           MAP-BALANCE-TRAN-CNT-A                                  DTSCS21
04010           MAP-PROC-REMIT-AMT-A                                    DTSCS21
04011           MAP-PROC-TRAN-CNT-A                                     DTSCS21
04012           MAP-ESTB-OP-ID-A                                        DTSCS21
04013           MAP-ESTB-DATE-A                                         DTSCS21
04014           MAP-CHNG-OP-ID-A                                        DTSCS21
04015           MAP-CHNG-DATE-A.                                        DTSCS21
04016                                                                   DTSCS21
04017      MOVE CATB-UNPROT-BRT-AN-MDTON TO MAP-GOTO-A.                 DTSCS21
04018  S5900-EXIT.                                                      DTSCS21
04019      EXIT.                                                        DTSCS21
04020 /*****************************************************************DTSCS21
04021 * MAP ROUTINES                                                   *DTSCS21
04022 ******************************************************************DTSCS21
04023  S9100-RECEIVE.                                                   DTSCS21
04024      SET L851-RECEIVE-88 TO TRUE.                                 DTSCS21
04025                                                                   DTSCS21
04026      MOVE WRK-SCR-ID TO L851-SCR-ID.                              DTSCS21
04027                                                                   DTSCS21
04028      PERFORM S851-SCREEN-PROCESSING THRU S851-EXIT.               DTSCS21
04029                                                                   DTSCS21
04030      MOVE L851-AID TO LCCM-AID.                                   DTSCS21
04031                                                                   DTSCS21
04032      MOVE L851-CURSOR TO LCCM-CURSOR.                             DTSCS21
04033  S9100-EXIT.                                                      DTSCS21
04034      EXIT.                                                        DTSCS21
04035                                                                   DTSCS21
04036                                                                   DTSCS21
04037                                                                   DTSCS21
04038  S9200-SEND-DATAONLY.                                             DTSCS21
04039      MOVE LOW-VALUES TO MAP-AREA.                                 DTSCS21
04040                                                                   DTSCS21
04041      IF LCCM-NO-MSG                                               DTSCS21
04042          NEXT SENTENCE                                            DTSCS21
04043      ELSE                                                         DTSCS21
04044          PERFORM S805-MSG-AREA THRU S805-EXIT.                    DTSCS21
04045                                                                   DTSCS21
04046      IF CURSOR-SET-GOTO                                           DTSCS21
04047          MOVE CATB-CURSOR TO MAP-GOTO-L                           DTSCS21
04048      ELSE                                                         DTSCS21
04049          MOVE CATB-CURSOR TO MAP-BATCH-NO-1-L.                    DTSCS21
04050                                                                   DTSCS21
04051      SET L851-SEND-DATAONLY-88 TO TRUE.                           DTSCS21
04052                                                                   DTSCS21
04053      PERFORM S9900-PREPARE-SEND THRU S9900-EXIT.                  DTSCS21
04054                                                                   DTSCS21
04055      PERFORM S851-SCREEN-PROCESSING THRU S851-EXIT.               DTSCS21
04056  S9200-EXIT.                                                      DTSCS21
04057      EXIT.                                                        DTSCS21
04058                                                                   DTSCS21
04059                                                                   DTSCS21
04060                                                                   DTSCS21
04061  S9300-SEND-MAP.                                                  DTSCS21
04062      MOVE  LCCM-TASK-START-DISP-DATE TO MAP-SYS-DATE.             DTSCS21
04063                                                                   DTSCS21
04064      MOVE  SPACES TO MAP-SYS-TIME.                                DTSCS21
04065                                                                   DTSCS21
04066      MOVE  LCCM-TASK-START-DISP-TIME TO MAP-SYS-TIME.             DTSCS21
04067                                                                   DTSCS21
04068      MOVE  LCCM-CICS-REGION-NAME TO MAP-CICS-REGION-NAME.         DTSCS21
04069                                                                   DTSCS21
04070      IF SCR-ACCESS-UPDATE                                         DTSCS21
04071          PERFORM S9310-UPDATE-FKEYS THRU S9310-EXIT               DTSCS21
04072      ELSE                                                         DTSCS21
04073          PERFORM S9320-INQUIRY-FKEYS THRU S9320-EXIT.             DTSCS21
04074                                                                   DTSCS21
04075      PERFORM S9330-DSCR-FIELDS THRU S9330-EXIT.                   DTSCS21
04076                                                                   DTSCS21
04077      PERFORM S805-MSG-AREA THRU S805-EXIT.                        DTSCS21
04078                                                                   DTSCS21
04079      IF CURSOR-SET-NO                                             DTSCS21
04080          MOVE CATB-CURSOR TO MAP-BATCH-NO-1-L.                    DTSCS21
04081                                                                   DTSCS21
04082      SET L851-SEND-88 TO TRUE.                                    DTSCS21
04083                                                                   DTSCS21
04084      PERFORM S9900-PREPARE-SEND THRU S9900-EXIT.                  DTSCS21
04085                                                                   DTSCS21
04086      PERFORM S851-SCREEN-PROCESSING THRU S851-EXIT.               DTSCS21
04087  S9300-EXIT.                                                      DTSCS21
04088      EXIT.                                                        DTSCS21
04089                                                                   DTSCS21
04090                                                                   DTSCS21
04091                                                                   DTSCS21
04092  S9310-UPDATE-FKEYS.                                              DTSCS21
04093      PERFORM S9320-INQUIRY-FKEYS THRU S9320-EXIT.                 DTSCS21
04094                                                                   DTSCS21
04095      IF LCCM-SCR-CLEAR                                            DTSCS21
04096          MOVE CFKD-ADD TO MAP-KEY-ADD                             DTSCS21
04097      ELSE                                                         DTSCS21
04098      IF LCCM-SCR-INQUIRE                                          DTSCS21
04099          MOVE CFKD-MOD TO MAP-KEY-MOD                             DTSCS21
04100          MOVE CFKD-DEL TO MAP-KEY-DEL                             DTSCS21
04101      ELSE                                                         DTSCS21
04102      IF LCCM-SCR-UPDATE-LOCKED                                    DTSCS21
04103         MOVE LOW-VALUES TO MAP-KEY-PRINT                          DTSCS21
04104                            MAP-DEPOSIT-PRT                        DTSCS21
04105                            MAP-KEY-BACK                           DTSCS21
04106                            MAP-KEY-FWRD.                          DTSCS21
04107  S9310-EXIT.                                                      DTSCS21
04108      EXIT.                                                        DTSCS21
04109                                                                   DTSCS21
04110                                                                   DTSCS21
04111                                                                   DTSCS21
04112  S9320-INQUIRY-FKEYS.                                             DTSCS21
04113      MOVE 'F5=PRINT' TO MAP-KEY-PRINT.                            DTSCS21
04114                                                                   DTSCS21
04115      MOVE 'F6=PRINT DEPOSIT TKT' TO MAP-DEPOSIT-PRT.              DTSCS21
04116                                                                   DTSCS21
04117      MOVE CFKD-BACKWARD TO MAP-KEY-BACK.                          DTSCS21
04118                                                                   DTSCS21
04119      MOVE CFKD-FORWARD TO MAP-KEY-FWRD.                           DTSCS21
04120                                                                   DTSCS21
04121      MOVE LOW-VALUES TO MAP-KEY-ADD                               DTSCS21
04122                         MAP-KEY-MOD                               DTSCS21
04123                         MAP-KEY-DEL.                              DTSCS21
04124  S9320-EXIT.                                                      DTSCS21
04125      EXIT.                                                        DTSCS21
04126                                                                   DTSCS21
04127                                                                   DTSCS21
04128                                                                   DTSCS21
04129  S9330-DSCR-FIELDS.                                               DTSCS21
04130      IF MAP-PRINTER-ID = LOW-VALUES OR SPACES                     DTSCS21
04131         MOVE LCCM-PRINTER-ID TO MAP-PRINTER-ID.                   DTSCS21
04132                                                                   DTSCS21
04133                                                                   DTSCS21
04134      IF MAP-ESTB-OP-ID = LOW-VALUES OR SPACES                     DTSCS21
04135          MOVE LOW-VALUES TO MAP-ESTB-OP-ID-DSCR                   DTSCS21
04136      ELSE                                                         DTSCS21
04137          IF MAP-ESTB-OP-ID = LCCM-OP-ID                           DTSCS21
04138              MOVE LCCM-OP-NAME TO MAP-ESTB-OP-ID-DSCR             DTSCS21
04139          ELSE                                                     DTSCS21
04140              MOVE MAP-ESTB-OP-ID TO L082-OP-ID                    DTSCS21
04141              PERFORM S082-OP-ID-LOOKUP THRU S082-EXIT             DTSCS21
04142              MOVE L082-NAME TO MAP-ESTB-OP-ID-DSCR.               DTSCS21
04143                                                                   DTSCS21
04144                                                                   DTSCS21
04145      IF MAP-CHNG-OP-ID = LOW-VALUES OR SPACES                     DTSCS21
04146          MOVE LOW-VALUES TO MAP-CHNG-OP-ID-DSCR                   DTSCS21
04147      ELSE                                                         DTSCS21
04148          IF MAP-CHNG-OP-ID = LCCM-OP-ID                           DTSCS21
04149              MOVE LCCM-OP-NAME TO MAP-CHNG-OP-ID-DSCR             DTSCS21
04150          ELSE                                                     DTSCS21
04151              MOVE MAP-CHNG-OP-ID TO L082-OP-ID                    DTSCS21
04152              PERFORM S082-OP-ID-LOOKUP THRU S082-EXIT             DTSCS21
04153              MOVE L082-NAME TO MAP-CHNG-OP-ID-DSCR.               DTSCS21
04154  S9330-EXIT.                                                      DTSCS21
04155      EXIT.                                                        DTSCS21
04156                                                                   DTSCS21
04157                                                                   DTSCS21
04158                                                                   DTSCS21
04159  S9900-PREPARE-SEND.                                              DTSCS21
04160      MOVE WRK-SCR-ID TO L851-SCR-ID                               DTSCS21
04161                         LCCM-SCR-ID.                              DTSCS21
04162                                                                   DTSCS21
04163      MOVE LCCM-OP-ALARM-IND TO L851-ALARM-IND.                    DTSCS21
04164                                                                   DTSCS21
04165      MOVE LCCM-MSG-TYPE TO L851-MSG-TYPE.                         DTSCS21
04166  S9900-EXIT.                                                      DTSCS21
04167      EXIT.                                                        DTSCS21
