00001  IDENTIFICATION DIVISION.                                         06/12/15
00002  PROGRAM-ID.             DTSCS24.                                 DTSCS24
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV115
00004  DATE-WRITTEN.           NOVEMBER 1991.                           DTSCS24
00005  DATE-COMPILED.                                                   DTSCS24
00006      SKIP3                                                        DTSCS24
00007 *****                                                             DTSCS24
00008 *                                                                 DTSCS24
00009 *    FUNCTION:  REPORT ENTRY SCREEN PROCESSOR.                    DTSCS24
00010 *                                                                 DTSCS24
00011 *                                                                 DTSCS24
00012 *    MODIFICATION LOG:                                            DTSCS24
00013 *                                                                 DTSCS24
00014 *    11/06/91  INITIAL DEVELOPMENT.                               DTSCS24
00015 *              WORK ORDER:                      PROGRAMMER: TCL   DTSCS24
00016 *                                                                 DTSCS24
00017 *    12/08/94  ALTER SELECTED ERROR MESSAGES TO #E051.            DTSCS24
00018 *              WORK ORDER: TPR003               PROGRAMMER: RHC   DTSCS24
00019 *                                                                 DTSCS24
00020 *    01/13/95  CHANGE RATE ENTRY FIELDS FROM FIVE TO THREE        DTSCS24
00021 *              CHARACTERS LONG.  (ONLY CHANGES: DTSCM24, DTSIS24.)DTSCS24
00022 *              WORK ORDER: CR038                PROGRAMMER: RHC   DTSCS24
00023 *                                                                 DTSCS24
00024 *    01/30/95  SPLIT OP INTO SUFFIX AND PREFIX, PREFIX OPTIONAL.  DTSCS24
00025 *              WORK ORDER: CR041                PROGRAMMER: RHC   DTSCS24
00026 *                                                                 DTSCS24
00027 *    05/11/95  AHDR-*-ITEM-CNT  WERE CHANGED TO  AHDR-*-TRAN-CNT. DTSCS24
00028 *              THEY NO LONGER INCLUDE THE CHECKS IN THE COUNTS.   DTSCS24
00029 *              WORK ORDER: CR076                PROGRAMMER: RHC   DTSCS24
00030 *                                                                 DTSCS24
00031 *    03/11/97  E243 ERROR CHANGED TO 1ST DAY OF 3RD MONTH INSTEAD DTSCS24
00032 *              OF 15TH DAY OF 3RD MONTH.                          DTSCS24
00033 *              WORK ORDER: JANICE&CO.           PROGRAMMER: SFW   DTSCS24
00034 *                                                                 DTSCS24
00035 *    11/24/1998  REVIEWED AND MODIFIED FOR DC.                    DTSCS24
00036 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH   DTSCS24
00037 *                                                                 DTSCS24
00038 *    05/13/1999  DO NOT ALLOW ENTRY OF A REPORT FOR A YRQ         DTSCS24
00039 *                <= LCCM-PICKUP-YRQ.                              DTSCS24
00040 *                REFERENCE: PICKUP DIR          PROGRAMMER: EHH   DTSCS24
00041 *                                                                 DTSCS24
00042 *    02/10/2000  MODIFIED P8101.  IF WRK-EMP-NO = ZERO DO NOT     DTSCS24
00043 *                NOT CHECK FOR DUPLICATE ENTRY.  IF PREVIOUS      DTSCS24
00044 *                REPORT WAS ENTERED WITHOUT AN ACCOUNT NUMBER     DTSCS24
00045 *                AND THE CURRENT REPORT IS ENTERED WITHOUT AN     DTSCS24
00046 *                ACCOUNT NUMBER, THE CURRENT TRANSACTION WILL     DTSCS24
00047 *                FAIL WITH ERROR MESSAGE E24B (DUPLICATE ENTRY).  DTSCS24
00048 *                REFERENCE: PICKUP DIR          PROGRAMMER: EHH   DTSCS24
00049 *                                                                 DTSCS24
00050 *    05/02/2000  MODIFIED S3300 TO ALLOW TDEC, ENTERING REPORTS   DTSCS24
00051 *                UNDER MINIMAL EDITS, TO KEY IN THE RECEIVED      DTSCS24
00052 *                DATE.  CHANGE RESULTS FROM MEETING WITH TDEC     DTSCS24
00053 *                TO CLARIFY PROCEDURES FOR ENTERING BATCHES       DTSCS24
00054 *                RECEIVED AFTER GRACE PERIOD.                     DTSCS24
00055 *                REFERENCE: MEETING W/TDEC      PROGRAMMER: GD    DTSCS24
00056 *                                                                 DTSCS24
00057 *    04/21/2003  MODIFIED TO INITIALIZE TRACE NUMBER (USED FOR    DTSCS24
00058 *                REPORTS AND PAYMENTS ENTERED THROUGH THE WEB     DTSCS24
00059 *                OR IVR) ON ARPT TRANSACTIONS.                    DTSCS24
00060 *                REFERENCE: EFT                 PROGRAMMER: GD    DTSCS24
00061 *                                                                 DTSCS24
00062 *    07/01/2004  MODIFIED P6100 TO JUMP TO SCREEN 27 WHEN         DTSCS24
00063 *                FINDING AN ANNUAL REPORT TRANSACTION DURING A    DTSCS24
00064 *                BROWSE.                                          DTSCS24
00065 *                ADDED CODE TO P8920 TO INITALIZE PSEUDO DOC      DTSCS24
00066 *                NUMBER TO ZERO.                                  DTSCS24
00067 *                REFERENCE:                     PROGRAMMER: GD    DTSCS24
00068 *                                                                 DTSCS24
00069 *    07/20/2004  CREATE R204 REPORT RECORD WHEN ACCOUNT NUMBER    DTSCS24
00070 *                IS CHANGED. REPORT IS USED TO UPDATE WAGE ITEMS  DTSCS24
00071 *                ENTERED UNDER THE OLD ACCOUNT NUMBER.            DTSCS24
00072 *                REFERENCE:                     PROGRAMMER: GD    DTSCS24
00073 *                                                                 DTSCS24
00074 *    08/10/2004  ADDED YRQ AND OP ID TO R204 REPORT.              DTSCS24
00075 *                REFERENCE:                     PROGRAMMER: GD    DTSCS24
00076 *                                                                 DTSCS24
00077 *    09/07/2004  DO NOT ALLOW ANY REPORT TRANSACTIONS TO BE       DTSCS24
00078 *                FOR QUARTERS THAT ARE PART OF A COMPROMISE       DTSCS24
00079 *                SETTLEMENT. TO AMEND THE REPORT, THE SETTLEMENT  DTSCS24
00080 *                MUST FIRST BE WITHDRAWN.                         DTSCS24
00081 *                REFERENCE:                     PROGRAMMER: GD    DTSCS24
00082 *                                                                 DTSCS24
00083 *    02/09/2005  MODIFIED S3200 TO TEST FOR RESP OP-ID =          DTSCS24
00084 *                'MAG UC30' OR 'WEB UC30'. FOR REPORTS            DTSCS24
00085 *                SUBMITTED ELECTRONICALLY, ALLOW EXISTENCE        DTSCS24
00086 *                OF RESPONSIBLE OP-ID EVEN IF THE RESPONSIBLE     DTSCS24
00087 *                ACTIVITY = 'VOL.'                                DTSCS24
00088 *                REFERENCE: ICESA REPORTING     PROGRAMMER: GD    DTSCS24
00089 *                                                                 DTSCS24
00090 *    02/17/2005  MODIFIED S1400-YRQ TO PREVENT FILING OF          DTSCS24
00091 *                REPORTS PRIOR TO THE FIRST DAY OF THE LAST       DTSCS24
00092 *                MONTH OF THE QUARTER. EDIT WAS ORIGINALLY IN     DTSCS24
00093 *                S4900, WHERE IT COULD BE OVERRIDDEN.             DTSCS24
00094 *                REFERENCE:                     PROGRAMMER: GD    DTSCS24
00095 *                                                                 DTSCS24
00096 *    03/13/2006  MODIFIED P7300: DELETION ONLY ALLOWED FOR        DTSCS24
00097 *                DESIGNATED USERS.  USER IDS ARE HARD-CODED       DTSCS24
00098 *                IN P7300.                                        DTSCS24
00099 *                REFERENCE:                     PROGRAMMER: GD    DTSCS24
00100 *                                                                 DTSCS24
00101 *    03/15/2006  MODIFIED TO ALLOW ZERO-WAGE REPORTS FOR          DTSCS24
00102 *                INACTIVE EMPLOYERS TO PASS TO THE UPDATE         DTSCS24
00103 *                WITH PASSED-FULL-EDITS SET TO YES.               DTSCS24
00104 *                DTSBD371 WILL ADD AN EVENT LOG RECORD            DTSCS24
00105 *                BUT NOT PROCESS THE REPORT. THIS ELIMINATES      DTSCS24
00106 *                THE NEED FOR STAFF TO DELETE THE REPORT FROM     DTSCS24
00107 *                THE ACCOUNTING BATCH.                            DTSCS24
00108 *                REFERENCE:                     PROGRAMMER: GD    DTSCS24
00109 *                                                                 DTSCS24
00110 *    09/15/2006  ADDED PROCESSING TO WRITE R906 RECORDS TO        DTSCS24
00111 *                TRACK UPDATES TO ACCOUNTING TRANSACTIONS.        DTSCS24
00112 *                THE PROCESS USES DTSCU221.                       DTSCS24
00113 *                REFERENCE: ACTIVITY TRACKING   PROGRAMMER: GD    DTSCS24
00114 *                                                                 DTSCS24
00115 *    02/12/2007  MODIFIED P8220, P8910 FOR PSEUDO BATCH AND       DTSCS24
00116 *                ITEM NUMBERS. P8220 SAVES NUMBERS FROM ARPT      DTSCS24
00117 *                IN WORKING-STORAGE DURING EDIT. WORKING-         DTSCS24
00118 *                STORAGE FIELDS ARE SET TO ZERO IF NUMBERS DO     DTSCS24
00119 *                NOT EXIST. P8910 MOVES THE SAVED NUMBERS         DTSCS24
00120 *                BACK TO THE ARPT RECORD BEFORE SAVING.           DTSCS24
00121 *                REFERENCE:                     PROGRAMMER: GD    DTSCS24
00122 *                                                                 DTSCS24
00123 *                                                                 DTSCS24
00124 *    08/20/2008  RECOMPILED. NEWEST LOAD MODULE WAS NOT IN        DTSCS24
00125 *                PRODUCTION.  AS A RESULT, WAGES WERE NOT         DTSCS24
00126 *                RELEASED FROM WTC FILE FROM AMENDED REPORTS.     DTSCS24
00127 *                REFERENCE:                     PROGRAMMER: GD    DTSCS24
00128 *                                                                 DTSCS24
00129 *    09/26/2008  UPDATED P7300 TO ALLOW NEW ACCOUNTING            DTSCS24
00130 *                SUPERVISOR TO DELETE TRANSACTIONS.               DTSCS24
00131 *                REFERENCE:                     PROGRAMMER: GD    DTSCS24
00132 *                                                                 DTSCS24
00133 *    05/20/2009  MODIFIED YRQ EDIT IN S1400: IF REPORT IS BEING   DTSCS24
00134 *                WITHDRAWN, MSG-E243 IS NOT RELEVANT.             DTSCS24
00135 *                REFERENCE:                     PROGRAMMER: GD    DTSCS24
00136 *                                                                 DTSCS24
00137 *    05/21/2009  MODIFIED PROCESS FOR WITHDRAWING REPORTS.        DTSCS24
00138 *                ONLY REQUIRED FIELDS ARE EMP NUMBER, NAME        DTSCS24
00139 *                CHECK, QUARTER AND REPORT TYPE.                  DTSCS24
00140 *                PROGRAM WILL CALCULATE WAGE AMOUNTS.             DTSCS24
00141 *                REFERENCE:                     PROGRAMMER: GD    DTSCS24
00142 *                                                                 DTSCS24
00143 *    07/23/2009  ADDED USERID EUMJ01B (JALLOH MOHAMED).           DTSCS24
00144 *                REFERENCE:                     PROGRAMMER: ZL1   DTSCS24
00145 *                                                                 DTSCS24
00146 *    08/06/2009  ADDED EDITS TO S4200 (RATED EMPLOYERS):          DTSCS24
00147 *                   ERROR IF FIRST QTR ORIG RPT AND               DTSCS24
00148 *                   TOT WAGE > 0 BUT TAX WAGE = 0                 DTSCS24
00149 *                   ERROR IF ORIG RPT AND TAX WAGE = 0            DTSCS24
00150 *                   BUT REMITTANCE > 0.                           DTSCS24
00151 *                BOTH ERRORS CAN BE OVERRIDDEN.                   DTSCS24
00152 *                REFERENCE:                     PROGRAMMER: GD    DTSCS24
00153 *                                                                 DTSCS24
00154 *    12/17/2009  MODIFIED P8110, P8210, P8300 TO CALL DTSCU826    DTSCS24
00155 *                TO SAVE COPIES OF REPORT RECORDS WHEN ADDED      DTSCS24
00156 *                AND WHEN MODIFIED. THE RECORDS ARE SAVED         DTSCS24
00157 *                IN THE ACCOUNTING TRANSACTION HISTORY            DTSCS24
00158 *                FILE (ATH).                                      DTSCS24
00159 *                REFERENCE:                     PROGRAMMER: GD    DTSCS24
00160 *                                                                 DTSCS24
00161 *    04/05/2013  MODIFIED FOR NEW ANNUAL REPORTING PROCESS        DTSCS24
00162 *                REFERENCE: TKT 1474            PROGRAMMER: GD    DTSCS24
00163 *                                                                 DTSCS24
00164 *    09/25/2013  CHANGED SELECTION FOR CHANGED EMPLOYER NUMBERS.  DTSCS24
00165 *                SAVE INFORMATION IF THE NUMBER IS CHANGED        DTSCS24
00166 *                FROM ZERO.  PREVIOUSLY, A RECORD WAS SAVED       DTSCS24
00167 *                ONLY IF THE OLD NUMBER WAS > ZERO.               DTSCS24
00168 *                REFERENCE: TKT 2017            PROGRAMMER: GD    DTSCS24
00169 *                                                                 DTSCS24
00170 *                                                                 DTSCS24
00171 *    05/05/2015  CHANGED SELECTION FOR VALIDATING RESP OP ID TO   DTSCS24
00172 *                INCLUDE REPORTS FROM ESSP.                       DTSCS24
00173                  MAP-RESPONSIBLE-OP-ID = 'MAG UC30' OR 'WEB UC30' DTSCS24
00174 *                * OR 'WEBESSP' FOR ESSP REPORTS AND PAYMENTS ZL1 DTSCS24
00175 *                                                                 DTSCS24
00176 *                                                                 DTSCS24
00177 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSCS24
00178 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSCS24
00179 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSCS24
00180 *                                                                 DTSCS24
00181 *                                                                 DTSCS24
00182 *  DESCRIPTION:                                                   DTSCS24
00183 *                                                                 DTSCS24
00184 *                                                                 DTSCS24
00185 *    CLEAR:                                                       DTSCS24
00186 *                                                                 DTSCS24
00187 *      FIELD DISPLAYED:                                           DTSCS24
00188 *                                                                 DTSCS24
00189 *        MAP-BATCH-NO                                             DTSCS24
00190 *          (FROM LCCM-BATCH-NO;  MOVE +0 TO LCCM-BATCH-NO;        DTSCS24
00191 *             MOVE +0 TO LCCM-ITEM-NO)                            DTSCS24
00192 *                                                                 DTSCS24
00193 *        MAP-ENTRY-MODE                                           DTSCS24
00194 *          (FROM LCCM-ENTRY-MODE)                                 DTSCS24
00195 *                                                                 DTSCS24
00196 *        MAP-MAX-ITEMS                                            DTSCS24
00197 *          (FROM LCCM-TRAN-MAX)                                   DTSCS24
00198 *                                                                 DTSCS24
00199 *                                                                 DTSCS24
00200 *    JUMP:                                                        DTSCS24
00201 *                                                                 DTSCS24
00202 *      STANDAD                                                    DTSCS24
00203 *                                                                 DTSCS24
00204 *                                                                 DTSCS24
00205 *    INQUIRY:                                                     DTSCS24
00206 *                                                                 DTSCS24
00207 *                                                                 DTSCS24
00208 *      CONTROL FIELDS: MAP-DOC-NO (MAP-BATCH-NO AND MAP-ITEM-NO)  DTSCS24
00209 *                                                                 DTSCS24
00210 *                                                                 DTSCS24
00211 *      JUMP IN:                                                   DTSCS24
00212 *                                                                 DTSCS24
00213 *        IF LCCM-BATCH-NO = 0                                     DTSCS24
00214 *            CLEAR                                                DTSCS24
00215 *        ELSE                                                     DTSCS24
00216 *            IF LCCM-ITEM-NO = 0                                  DTSCS24
00217 *                CLEAR                                            DTSCS24
00218 *            ELSE                                                 DTSCS24
00219 *                IF LCCM-DOC-NO EXISTS ON ACCT TRAN FILE          DTSCS24
00220 *                    IF LCCM-DOC-NO IS AN ARPT RECORD             DTSCS24
00221 *                        DISPLAY THE ARPT RECORD                  DTSCS24
00222 *                    ELSE                                         DTSCS24
00223 *                        CLEAR; DISPLAY 'NOT REPORT' MESSAGE      DTSCS24
00224 *                ELSE                                             DTSCS24
00225 *                    CLEAR; DISPLAY 'NO RECORD' MESSAGE.          DTSCS24
00226 *                                                                 DTSCS24
00227 *                                                                 DTSCS24
00228 *      F9                                                         DTSCS24
00229 *                                                                 DTSCS24
00230 *        IF MAP-BATCH-NO ENTERED                                  DTSCS24
00231 *            IF MAP-ITEM-NO ENTERED                               DTSCS24
00232 *                IF MAP-DOC-NO EXISTS ON THE ACCT TRAN FILE       DTSCS24
00233 *                    IF MAP-DOC-NO ON ACT FILE IS AN ARPT RECORD  DTSCS24
00234 *                        DISPLAY MAP-DOC-NO RECORD FROM ACT FILE  DTSCS24
00235 *                    ELSE                                         DTSCS24
00236 *                        CLEAR; DISPLAY 'NOT REPORT' MESSAGE      DTSCS24
00237 *                ELSE                                             DTSCS24
00238 *                    CLEAR; DISPLAY 'NO RECORD' MESSAGE           DTSCS24
00239 *            ELSE                                                 DTSCS24
00240 *                CLEAR; DISPLAY 'PLEASE ENTER' MESSAGE            DTSCS24
00241 *        ELSE                                                     DTSCS24
00242 *        IF LCCM-BATCH-NO = 0                                     DTSCS24
00243 *            CLEAR; DISPLAY 'PLEASE ENTER' MESSAGE                DTSCS24
00244 *        ELSE                                                     DTSCS24
00245 *            IF LCCM-ITEM-NO = 0                                  DTSCS24
00246 *                CLEAR; DISPLAY 'PLEASE ENTER' MESSAGE            DTSCS24
00247 *            ELSE                                                 DTSCS24
00248 *                IF LCCM-DOC-NO EXISTS ON THE ACCT TRAN FILE      DTSCS24
00249 *                    IF LCCM-DOC-NO ON ACT FILE IS AN ARPT RECORD DTSCS24
00250 *                        DISPLAY LCCM-DOC-NO RECORD FROM ACT FILE DTSCS24
00251 *                    ELSE                                         DTSCS24
00252 *                        CLEAR; DISPLAY 'NOT REPORT' MESSAGE      DTSCS24
00253 *                ELSE                                             DTSCS24
00254 *                    CLEAR; DISPLAY 'NO RECORD MESSAGE.           DTSCS24
00255 *                                                                 DTSCS24
00256 *                                                                 DTSCS24
00257 *      F7, F8: DISPLAY PRIOR/NEXT A* RECORD.  BREAK ON            DTSCS24
00258 *              A*-BATCH-NO.  IF THE PRIOR/NEXT RECORD ENCOUNTERED DTSCS24
00259 *              IS NOT AN ARPT RECORD (BUT IS IN MAP-BATCH-NO),    DTSCS24
00260 *              AUTOMATICALLY JUMP TO THE APPROPRIATE SCREEN AND   DTSCS24
00261 *              DISPLAY THE RECORD.                                DTSCS24
00262 *                                                                 DTSCS24
00263 *                                                                 DTSCS24
00264 *    LCCM-CURRENT-VALUES-AREA MAINTENANCE:                        DTSCS24
00265 *                                                                 DTSCS24
00266 *      LCCM-DOC-NO MAINTENANCE.                                   DTSCS24
00267 *                                                                 DTSCS24
00268 *      LCCM-EMP-NO MAINTENANCE.                                   DTSCS24
00269 *                                                                 DTSCS24
00270 *      LCCM-ENTRY-MODE MAINTENANCE.                               DTSCS24
00271 *                                                                 DTSCS24
00272 *      LCCM-TRAN-MAX MAINTENANCE.                                 DTSCS24
00273 *                                                                 DTSCS24
00274 *                                                                 DTSCS24
00275 *    UPDATE:                                                      DTSCS24
00276 *                                                                 DTSCS24
00277 *                                                                 DTSCS24
00278 *                                                                 DTSCS24
00279 *      ADD                                                        DTSCS24
00280 *                                                                 DTSCS24
00281 *       THE 'ENTER' KEY INDICATES THE "ADD" FUNCTION.  THE "ADD"  DTSCS24
00282 *       VERIFICATION FUNCTION IS DISABLED.                        DTSCS24
00283 *                                                                 DTSCS24
00284 *       IF MAP-ITEM-NO IS NOT SPECIFIED, (THE SYSTEM WILL         DTSCS24
00285 *       ASSIGN THE NEXT AVAIABLE ITEM NUMBER TO THE ACCOUNTING    DTSCS24
00286 *       TRANSACTION.   CALLING DTSCU372 (WITH L372-UPDATE) WILL   DTSCS24
00287 *       RETURN THE NEXT AVAILABLE ITEM NUMBER IN                  DTSCS24
00288 *       L372-LAST-USED-ITEM-NO).                                  DTSCS24
00289 *                                                                 DTSCS24
00290 *                                                                 DTSCS24
00291 *      MOD                                                        DTSCS24
00292 *                                                                 DTSCS24
00293 *        CALL DTSCU372 (WITH L372-UPDATE) TO UPDATE THE BATCH     DTSCS24
00294 *        HEADER RECORD.                                           DTSCS24
00295 *                                                                 DTSCS24
00296 *                                                                 DTSCS24
00297 *      DEL                                                        DTSCS24
00298 *                                                                 DTSCS24
00299 *        CALL DTSCU372 (WITH L372-UPDATE) TO UPDATE THE BATCH     DTSCS24
00300 *        HEADER RECORD.                                           DTSCS24
00301 *                                                                 DTSCS24
00302 *                                                                 DTSCS24
00303 *    RECORDS READ:                                                DTSCS24
00304 *                                                                 DTSCS24
00305 *      MASTER:                                                    DTSCS24
00306 *                                                                 DTSCS24
00307 *        MPRF                                                     DTSCS24
00308 *        MSOL                                                     DTSCS24
00309 *        MRTE                                                     DTSCS24
00310 *        MQTR                                                     DTSCS24
00311 *                                                                 DTSCS24
00312 *                                                                 DTSCS24
00313 *      ALTERNATE INDEX:                                           DTSCS24
00314 *                                                                 DTSCS24
00315 *        NONE.                                                    DTSCS24
00316 *                                                                 DTSCS24
00317 *                                                                 DTSCS24
00318 *      REFERENCE:                                                 DTSCS24
00319 *                                                                 DTSCS24
00320 *        NONE.                                                    DTSCS24
00321 *                                                                 DTSCS24
00322 *                                                                 DTSCS24
00323 *      ACCOUNTING TRANSACTION COLLECTION:                         DTSCS24
00324 *                                                                 DTSCS24
00325 *        ARPT                                                     DTSCS24
00326 *                                                                 DTSCS24
00327 *                                                                 DTSCS24
00328 *    RECORDS UPDATED:                                             DTSCS24
00329 *                                                                 DTSCS24
00330 *      MASTER:                                                    DTSCS24
00331 *                                                                 DTSCS24
00332 *        NONE.                                                    DTSCS24
00333 *                                                                 DTSCS24
00334 *                                                                 DTSCS24
00335 *      REFERENCE:                                                 DTSCS24
00336 *                                                                 DTSCS24
00337 *        NONE.                                                    DTSCS24
00338 *                                                                 DTSCS24
00339 *                                                                 DTSCS24
00340 *      ACCOUNTING TRANSACTION COLLECTION:                         DTSCS24
00341 *                                                                 DTSCS24
00342 *        ARPT (WRITE, REWRITE)                                    DTSCS24
00343 *                                                                 DTSCS24
00344 *                                                                 DTSCS24
00345 *    ON-LINE ACTIVITY FILE RECORDS WRITTEN:                       DTSCS24
00346 *                                                                 DTSCS24
00347 *      NONE.                                                      DTSCS24
00348 *                                                                 DTSCS24
00349 *                                                                 DTSCS24
00350 *    TEMPORARY STORAGE USAGE:                                     DTSCS24
00351 *                                                                 DTSCS24
00352 *      NONE.                                                      DTSCS24
00353 *                                                                 DTSCS24
00354 *                                                                 DTSCS24
00355 *    MODULES LINKED TO:                                           DTSCS24
00356 *                                                                 DTSCS24
00357 *      DTSCU001  DATE EDIT/CONVERSION.                            DTSCS24
00358 *      DTSCU004  QUARTER EDIT/CONVERSION.                         DTSCS24
00359 *      DTSCU006  RATING YEAR/RATING EXPERIENCE PERIOD START/END.  DTSCS24
00360 *      DTSCU011  MONEY AMOUNT FROM SCREEN FORMAT/EDIT.            DTSCS24
00361 *      DTSCU013  COUNT (INTEGER) FROM SCREEN FORMAT/EDIT.         DTSCS24
00362 *      DTSCU015  DATE FROM SCREEN FORMAT/EDIT.                    DTSCS24
00363 *      DTSCU016  QUARTER/YEAR FROM SCREEN FORMAT/EDIT.            DTSCS24
00364 *      DTSCU018  EMP NO FROM SCREEN FORMAT/EDIT.                  DTSCS24
00365 *      DTSCU019  DOCUMENT NO FROM SCREEN FORMAT/EDIT.             DTSCS24
00366 *      DTSCU026  OPERATOR ID CONVERSION.                          DTSCS24
00367 *      DTSCU032  ACCOUNTING CODES EDIT/DESCRIPTION.               DTSCS24
00368 *      DTSCU082  OPERATOR ID EDIT/LOOK UP.                        DTSCS24
00369 *      DTSCU371  ACCOUNTING TRANSACTION FILE TRANSACTION RECORD   DTSCS24
00370 *                DELETION.                                        DTSCS24
00371 *      DTSCU372  ACCOUNTING TRANSACTION FILE BATCH HEADER         DTSCS24
00372 *                RECORD INQUIRY/UPDATE.                           DTSCS24
00373 *      DTSCU373  ACCOUNTING TRANSACTION FILE BATCH HEADER RECORD  DTSCS24
00374 *                ESTABLISH.                                       DTSCS24
00375 *      DTSCU810  MASTER FILE INPUT/OUTPUT.                        DTSCS24
00376 *      DTSCU823  ACCOUNTING TRANSACTION FILE INPUT/OUTPUT.        DTSCS24
00377 *                                                                 DTSCS24
00378 *                                                                 DTSCS24
00379 *    VERMONT REFERENCE:                                           DTSCS24
00380 *                                                                 DTSCS24
00381 *      TXC130C.                                                   DTSCS24
00382 *                                                                 DTSCS24
00383 *****                                                             DTSCS24
00384                                                                   DTSCS24
00385  ENVIRONMENT DIVISION.                                            DTSCS24
00386                                                                   DTSCS24
00387  DATA DIVISION.                                                   DTSCS24
00388                                                                   DTSCS24
00389  WORKING-STORAGE SECTION.                                         DTSCS24
003895 77  PAN-VALET PICTURE X(24) VALUE '115DTSCS24   06/12/15'.       DTSCS24
00390  77  PAN-VALET PICTURE X(24) VALUE '002DTSCS24   05/05/15'.       DTSCS24
00391  77  PAN-VALET PICTURE X(24) VALUE '113DTSCS24   10/17/13'.       DTSCS24
00392  77  PAN-VALET PICTURE X(24) VALUE '006DTSCS24   10/04/13'.       DTSCS24
00393  77  PAN-VALET PICTURE X(24) VALUE '111DTSCS24   05/20/13'.       DTSCS24
00394  77  PAN-VALET PICTURE X(24) VALUE '005DTSCS24   05/20/13'.       DTSCS24
00395  77  PAN-VALET PICTURE X(24) VALUE '109DTSCS24   01/05/10'.       DTSCS24
00396                                                                   DTSCS24
00397  01  WRK-AREA.                                                    DTSCS24
00398      05  WRK-ABEND-CD                PIC  X(04)  VALUE 'S24 '.    DTSCS24
00399                                                                   DTSCS24
00400      05  WRK-SCR-ID.                                              DTSCS24
00401          10  WRK-SCR-ID-N            PIC  9(02)  VALUE 24.        DTSCS24
00402                                                                   DTSCS24
00403      05  WRK-F03-SCR-ID              PIC  X(02)  VALUE '20'.      DTSCS24
00404                                                                   DTSCS24
00405      05  SCR-ACCESS-IND              PIC X(01).                   DTSCS24
00406          88  SCR-ACCESS-INQ                  VALUE '1'.           DTSCS24
00407          88  SCR-ACCESS-UPDATE               VALUE '2' '3'.       DTSCS24
00408          88  SCR-ACCESS-SUPERVISOR           VALUE '3'.           DTSCS24
00409                                                                   DTSCS24
00410      05  CURSOR-SET-IND              PIC X(01).                   DTSCS24
00411          88  CURSOR-SET-YES                  VALUE 'Y'.           DTSCS24
00412          88  CURSOR-SET-NO                   VALUE 'N'.           DTSCS24
00413          88  CURSOR-SET-GOTO                 VALUE 'G'.           DTSCS24
00414                                                                   DTSCS24
00415      05  REQ-IND                     PIC X(01).                   DTSCS24
00416          88  REQ-CURSOR-TO-GOTO              VALUE 'G'.           DTSCS24
00417          88  REQ-ERROR                       VALUE 'O'.           DTSCS24
00418          88  REQ-JUMP                        VALUE 'J'.           DTSCS24
00419          88  REQ-UPDATE                      VALUE 'U'.           DTSCS24
00420          88  REQ-INQUIRE                     VALUE 'I'.           DTSCS24
00421          88  REQ-CLEAR                       VALUE 'C'.           DTSCS24
00422          88  REQ-EDIT                        VALUE 'E'.           DTSCS24
00423                                                                   DTSCS24
00424      05  RESP-IND                    PIC X(01).                   DTSCS24
00425          88  RESP-SEND-MSGONLY               VALUE 'O'.           DTSCS24
00426          88  RESP-SEND-MAP                   VALUE 'M'.           DTSCS24
00427          88  RESP-JUMP                       VALUE 'J'.           DTSCS24
00428          88  RESP-CURSOR-TO-GOTO             VALUE 'G'.           DTSCS24
00429                                                                   DTSCS24
00430      05  WRK-MSG-AREA.                                            DTSCS24
00431          10  WRK-MSG-NUMBER          PIC  X(04).                  DTSCS24
00432          10  WRK-MSG-TEXT            PIC  X(60).                  DTSCS24
00433                                                                   DTSCS24
00434                                                                   DTSCS24
00435      05  WRK-EMP-NO                  PIC  9(07) COMP-3.           DTSCS24
00436                                                                   DTSCS24
00437      05  WRK-BATCH-NO                PIC  9(05) COMP-3.           DTSCS24
00438                                                                   DTSCS24
00439      05  WRK-ITEM-NO                 PIC  9(03) COMP-3.           DTSCS24
00440                                                                   DTSCS24
00441      05  WRK-PSEUDO-BATCH-NO         PIC  9(05) COMP-3.           DTSCS24
00442                                                                   DTSCS24
00443      05  WRK-PSEUDO-ITEM-NO          PIC  9(03) COMP-3.           DTSCS24
00444                                                                   DTSCS24
00445      05  WRK-ATB-AN                  PIC  X(01).                  DTSCS24
00446                                                                   DTSCS24
00447      05  WRK-ATB-NUM                 PIC  X(01).                  DTSCS24
00448                                                                   DTSCS24
00449      05  WRK-DISPLAY                 PIC 9(11).                   DTSCS24
00450                                                                   DTSCS24
00451      05  FILLER REDEFINES WRK-DISPLAY.                            DTSCS24
00452          10  FILLER                  PIC X(05).                   DTSCS24
00453          10  WRK-DISPLAY-YR          PIC X(02).                   DTSCS24
00454          10  WRK-DISPLAY-MO          PIC X(02).                   DTSCS24
00455          10  WRK-DISPLAY-DA          PIC X(02).                   DTSCS24
00456                                                                   DTSCS24
00457      05  FILLER REDEFINES WRK-DISPLAY.                            DTSCS24
00458          10  FILLER                  PIC X(08).                   DTSCS24
00459          10  WRK-DISPLAY-YRQ-YR      PIC X(02).                   DTSCS24
00460          10  WRK-DISPLAY-YRQ-Q       PIC X(01).                   DTSCS24
00461                                                                   DTSCS24
00462      05  FILLER REDEFINES WRK-DISPLAY.                            DTSCS24
00463          10  FILLER                  PIC X(05).                   DTSCS24
00464          10  WRK-EMP-NO-1            PIC X(03).                   DTSCS24
00465          10  WRK-EMP-NO-2            PIC X(03).                   DTSCS24
00466                                                                   DTSCS24
00467      05  HOLD-KEY-AREA               PIC  X(05).                  DTSCS24
00468                                                                   DTSCS24
00469      05  PAGE-TYPE-IND               PIC  X(01).                  DTSCS24
00470          88  PAGE-FIRST-88                  VALUE 'F'.            DTSCS24
00471          88  PAGE-LAST-88                   VALUE 'L'.            DTSCS24
00472                                                                   DTSCS24
00473      05  COMPUTED-TOT-WAGE           PIC S9(11)V9(02)     COMP-3. DTSCS24
00474                                                                   DTSCS24
00475      05  COMPUTED-EXCESS-WAGE        PIC S9(11)V9(02)     COMP-3. DTSCS24
00476                                                                   DTSCS24
00477      05  COMPUTED-TAX-WAGE           PIC S9(11)V9(02)     COMP-3. DTSCS24
00478                                                                   DTSCS24
00479      05  COMPUTED-TAX-WAGE-2         PIC S9(11)V9(02)     COMP-3. DTSCS24
00480                                                                   DTSCS24
00481      05  WRK-FIRST-LIAB-YRQ          PIC S9(05)           COMP-3. DTSCS24
00482                                                                   DTSCS24
00483      05  WRK-AATH-ACTION             PIC  X(01).                  DTSCS24
00484          88  WRK-AATH-ACTION-ADD-88    VALUE 'A'.                 DTSCS24
00485          88  WRK-AATH-ACTION-UPD-88    VALUE 'U'.                 DTSCS24
00486          88  WRK-AATH-ACTION-DEL-88    VALUE 'D'.                 DTSCS24
00487                                                                   DTSCS24
00488  01  WRK-EDITED-ELEMENTS.                                         DTSCS24
00489      05  WRK-YRQ                     PIC S9(05)       COMP-3.     DTSCS24
00490                                                                   DTSCS24
00491      05  WRK-TOT-WAGE                PIC S9(11)V9(02) COMP-3.     DTSCS24
00492          88  WRK-TOT-WAGE-INVALID-88   VALUE -99999999999.98.     DTSCS24
00493          88  WRK-TOT-WAGE-NO-ENTRY-88  VALUE -99999999999.99.     DTSCS24
00494                                                                   DTSCS24
00495      05  WRK-EXCESS-WAGE             PIC S9(11)V9(02) COMP-3.     DTSCS24
00496          88  WRK-EXCESS-WAGE-INVALID-88 VALUE -99999999999.98.    DTSCS24
00497          88  WRK-EXCESS-WAGE-NO-ENTRY-88 VALUE -99999999999.99.   DTSCS24
00498                                                                   DTSCS24
00499      05  WRK-TAX-WAGE                PIC S9(11)V9(02) COMP-3.     DTSCS24
00500          88  WRK-TAX-WAGE-INVALID-88   VALUE -99999999999.98.     DTSCS24
00501          88  WRK-TAX-WAGE-NO-ENTRY-88  VALUE -99999999999.99.     DTSCS24
00502                                                                   DTSCS24
00503      05  WRK-REMIT-AMT               PIC S9(09)V9(02) COMP-3.     DTSCS24
00504          88  WRK-REMIT-AMT-INVALID-88  VALUE -999999999.98.       DTSCS24
00505          88  WRK-REMIT-AMT-NO-ENTRY-88 VALUE -999999999.99.       DTSCS24
00506                                                                   DTSCS24
00507      05  WRK-TOTAL-EMPL-CNT        PIC S9(07)       COMP-3.       DTSCS24
00508          88   WRK-TOTAL-NO-ENTRY-88   VALUE +9999999.             DTSCS24
00509                                                                   DTSCS24
00510      05  WRK-1ST-MTH-EMPL-CNT        PIC S9(07)       COMP-3.     DTSCS24
00511          88   WRK-1ST-MTH-NO-ENTRY-88   VALUE +9999999.           DTSCS24
00512                                                                   DTSCS24
00513      05  WRK-2ND-MTH-EMPL-CNT        PIC S9(07)       COMP-3.     DTSCS24
00514          88   WRK-2ND-MTH-NO-ENTRY-88   VALUE +9999999.           DTSCS24
00515                                                                   DTSCS24
00516      05  WRK-3RD-MTH-EMPL-CNT        PIC S9(07)       COMP-3.     DTSCS24
00517          88   WRK-3RD-MTH-NO-ENTRY-88   VALUE +9999999.           DTSCS24
00518                                                                   DTSCS24
00519      05  WRK-RECEIVED-DATE           PIC S9(09)       COMP-3.     DTSCS24
00520                                                                   DTSCS24
00521      05  WRK-MPRF-EXISTS-IND         PIC  X(01).                  DTSCS24
00522          88  WRK-MPRF-EXISTS-NO-88           VALUE 'N'.           DTSCS24
00523          88  WRK-MPRF-EXISTS-YES-88          VALUE 'Y'.           DTSCS24
00524                                                                   DTSCS24
00525      05  WRK-PASSED-FULL-EDITS-IND   PIC  X(01).                  DTSCS24
00526          88  WRK-PASSED-FULL-EDITS-NO-88     VALUE 'N'.           DTSCS24
00527          88  WRK-PASSED-FULL-EDITS-YES-88    VALUE 'Y'.           DTSCS24
00528      EJECT                                                        DTSCS24
00529  01  MSG-LITERALS.                                                DTSCS24
00530      05  MSG-E241-AREA.                                           DTSCS24
00531          10  FILLER                  PIC  X(04)  VALUE 'E241'.    DTSCS24
00532          10  FILLER                  PIC  X(60) VALUE             DTSCS24
00533        'REPORT TYPE NOT CONSISTENT WITH CURRENT REPORT'.          DTSCS24
00534                                                                   DTSCS24
00535      05  MSG-E242-AREA.                                           DTSCS24
00536          10  FILLER                  PIC  X(04)  VALUE 'E242'.    DTSCS24
00537          10  FILLER                  PIC  X(60) VALUE             DTSCS24
00538        'NOT VALID FOR NEVER SUBJECT EMPLOYER'.                    DTSCS24
00539                                                                   DTSCS24
00540      05  MSG-E243-AREA.                                           DTSCS24
00541          10  FILLER                  PIC  X(04)  VALUE 'E243'.    DTSCS24
00542          10  FILLER                  PIC  X(30)                   DTSCS24
00543                VALUE 'RPT CANNOT BE ENTERED PRIOR TO'.            DTSCS24
00544          10  FILLER                  PIC  X(30)                   DTSCS24
00545                VALUE ' 1ST DAY OF 3RD MONTH OF QTR  '.            DTSCS24
00546 **       10  FILLER                  PIC  X(30)                   DTSCS24
00547 *              VALUE 'ENTRY DATE PRIOR TO 1ST DAY OF'.            DTSCS24
00548 *        10  FILLER                  PIC  X(30)                   DTSCS24
00549 **             VALUE ' 3RD MONTH OF QTR  DISREGARD? '.            DTSCS24
00550                                                                   DTSCS24
00551      05  MSG-E244-AREA.                                           DTSCS24
00552          10  FILLER                  PIC  X(04)  VALUE 'E244'.    DTSCS24
00553          10  FILLER                  PIC  X(60) VALUE             DTSCS24
00554        'LIABILITY NOT ESTABLISHED FOR QUARTER SPECIFIED'.         DTSCS24
00555                                                                   DTSCS24
00556      05  MSG-E245-AREA.                                           DTSCS24
00557          10  FILLER                  PIC  X(04)  VALUE 'E245'.    DTSCS24
00558          10  FILLER                  PIC  X(60) VALUE             DTSCS24
00559        'QUARTER ENTERED IS LESS THAN ARCHIVED QTR  DISREGARD?'.   DTSCS24
00560                                                                   DTSCS24
00561      05  MSG-E246-AREA.                                           DTSCS24
00562          10  FILLER                  PIC  X(04)  VALUE 'E246'.    DTSCS24
00563          10  FILLER                  PIC  X(60) VALUE             DTSCS24
00564        'CHECK EMPLOYEES  IF FAILED TO REPORT, THEN VERIFY'.       DTSCS24
00565                                                                   DTSCS24
00566      05  MSG-E247-AREA.                                           DTSCS24
00567          10  FILLER                  PIC  X(04)  VALUE 'E247'.    DTSCS24
00568          10  FILLER                  PIC  X(60) VALUE             DTSCS24
00569        'REPORT ENTRY FOR QTR <= PICK UP QTR (92/4) NOT ALLOWED'.  DTSCS24
00570                                                                   DTSCS24
00571      05  MSG-E248-AREA.                                           DTSCS24
00572          10  FILLER                  PIC  X(04)  VALUE 'E248'.    DTSCS24
00573          10  FILLER                  PIC  X(60) VALUE             DTSCS24
00574        'WITHDRAWAL  REMIT AMOUNT MUST EQUAL ZERO'.                DTSCS24
00575                                                                   DTSCS24
00576      05  MSG-E249-AREA.                                           DTSCS24
00577          10  FILLER                  PIC  X(04)  VALUE 'E249'.    DTSCS24
00578          10  FILLER                  PIC  X(60) VALUE             DTSCS24
00579      'EMPLOYER IS SELF INS  EXCESS AND TAX WAGES MUST EQUAL ZERO'.DTSCS24
00580                                                                   DTSCS24
00581      05  MSG-E24A-AREA.                                           DTSCS24
00582          10  FILLER                  PIC  X(04)  VALUE 'E24A'.    DTSCS24
00583          10  FILLER                  PIC  X(60) VALUE             DTSCS24
00584        'RPT TYPE IS WD  ENTERED WAGES + CURRENT WAGES MUST = 0'.  DTSCS24
00585                                                                   DTSCS24
00586      05  MSG-E24B-AREA.                                           DTSCS24
00587          10  FILLER                  PIC  X(04)  VALUE 'E24B'.    DTSCS24
00588          10  FILLER                  PIC  X(60) VALUE             DTSCS24
00589        'ORIGINAL REPORT FOR EMP NO AND YRQ PREVIOUSLY ENTERED'.   DTSCS24
00590                                                                   DTSCS24
00591      05  MSG-E24C-AREA.                                           DTSCS24
00592          10  FILLER                  PIC  X(04)  VALUE 'E24C'.    DTSCS24
00593          10  FILLER                  PIC  X(60) VALUE             DTSCS24
00594        'TRANSACTION PROCESSED - MODIFY OR DELETE NOT ALLOWED'.    DTSCS24
00595                                                                   DTSCS24
00596      05  MSG-P24D-AREA.                                           DTSCS24
00597          10  FILLER                  PIC  X(04)  VALUE 'P24D'.    DTSCS24
00598          10  FILLER                  PIC  X(60) VALUE             DTSCS24
00599        'TRANSACTION PROCESSED - MODIFY OR DELETE NOT ALLOWED'.    DTSCS24
00600                                                                   DTSCS24
00601      05  MSG-P24E-AREA.                                           DTSCS24
00602          10  FILLER                  PIC  X(04)  VALUE 'P24E'.    DTSCS24
00603          10  FILLER                  PIC  X(60) VALUE             DTSCS24
00604        'NO ERROR-TO CLEAR FOR ACCOUNTING UPDATE, PRESS F10;ENTER'.DTSCS24
00605                                                                   DTSCS24
00606      05  MSG-E24F-AREA.                                           DTSCS24
00607          10  FILLER                  PIC  X(04)  VALUE 'E24F'.    DTSCS24
00608          10  FILLER                  PIC  X(60) VALUE             DTSCS24
00609        'REPORT MAY NOT BE ADDED TO AN ANNUAL BATCH              '.DTSCS24
00610                                                                   DTSCS24
00611      05  MSG-E24G-AREA.                                           DTSCS24
00612          10  FILLER                  PIC  X(04)  VALUE 'E24G'.    DTSCS24
00613          10  FILLER                  PIC  X(60) VALUE             DTSCS24
00614        'QTR IS FILED ANNUALLY - QUARTERLY REPORT NOT ALLOWED    '.DTSCS24
00615                                                                   DTSCS24
00616      05  MSG-E24H-AREA.                                           DTSCS24
00617          10  FILLER                  PIC  X(04)  VALUE 'E24H'.    DTSCS24
00618          10  FILLER                  PIC  X(60) VALUE             DTSCS24
00619        'QTR PART OF COMPROMISE - AMENDMENT NOT ALLOWED          '.DTSCS24
00620                                                                   DTSCS24
00621      05  MSG-E24I-AREA.                                           DTSCS24
00622          10  FILLER                  PIC  X(04)  VALUE 'E24I'.    DTSCS24
00623          10  FILLER                  PIC  X(60) VALUE             DTSCS24
00624        'DELETION NOT ALLOWED                                    '.DTSCS24
00625                                                                   DTSCS24
00626      05  MSG-E24J-AREA.                                           DTSCS24
00627          10  FILLER                  PIC  X(04)  VALUE 'E24J'.    DTSCS24
00628          10  FILLER                  PIC  X(60) VALUE             DTSCS24
00629        'DELETION NOT ALLOWED FOR UNBALANCED BATCH               '.DTSCS24
00630                                                                   DTSCS24
00631      05  MSG-E24K-AREA.                                           DTSCS24
00632          10  FILLER                  PIC  X(04)  VALUE 'E24K'.    DTSCS24
00633          10  FILLER                  PIC  X(60) VALUE             DTSCS24
00634        'NO REPORT EXISTS FOR THIS QUARTER                       '.DTSCS24
00635                                                                   DTSCS24
00636      05  MSG-E24L-AREA.                                           DTSCS24
00637          10  FILLER                  PIC  X(04)  VALUE 'E24L'.    DTSCS24
00638          10  FILLER                  PIC  X(60) VALUE             DTSCS24
00639        'FIRST QTR BUT NO TAXABLE WAGES.  DISREGARD?          '.   DTSCS24
00640                                                                   DTSCS24
00641      05  MSG-E24M-AREA.                                           DTSCS24
00642          10  FILLER                  PIC  X(04)  VALUE 'E24M'.    DTSCS24
00643          10  FILLER                  PIC  X(60) VALUE             DTSCS24
00644        'REMITTANCE BUT NO TAXABLE WAGES. DISREGARD?          '.   DTSCS24
00645                                                                   DTSCS24
00646      05  MSG-E24N-AREA.                                           DTSCS24
00647          10  FILLER                  PIC  X(04)  VALUE 'E24N'.    DTSCS24
00648          10  FILLER                  PIC  X(60) VALUE             DTSCS24
00649        'FIRST LIABLE QTR BUT NO TAXABLE WAGES.  DISREGARD?'.      DTSCS24
00650                                                                   DTSCS24
00651      05  MSG-E24O-AREA.                                           DTSCS24
00652          10  FILLER                  PIC  X(04)  VALUE 'E24O'.    DTSCS24
00653          10  FILLER                  PIC  X(60) VALUE             DTSCS24
00654        'FIRST LIABLE QTR BUT NO WAGES.  DISREGARD?'.              DTSCS24
00655                                                                   DTSCS24
00656      05  MSG-E24P-AREA.                                           DTSCS24
00657          10  FILLER                  PIC  X(04)  VALUE 'E24P'.    DTSCS24
00658          10  FILLER                  PIC  X(60) VALUE             DTSCS24
00659        'ANNUAL FILER: USE SCREEN 27 TO WITHDRAW.  '.              DTSCS24
00660                                                                   DTSCS24
00661      EJECT                                                        DTSCS24
00662  01  L001-COMM-AREA.                                              DTSCS24
00663  ++INCLUDE DTSIL001                                               DTSCS24
00664      EJECT                                                        DTSCS24
00665  01  L004-COMM-AREA.                                              DTSCS24
00666  ++INCLUDE DTSIL004                                               DTSCS24
00667      EJECT                                                        DTSCS24
00668  01  L006-COMM-AREA.                                              DTSCS24
00669  ++INCLUDE DTSIL006                                               DTSCS24
00670      EJECT                                                        DTSCS24
00671  01  L011-COMM-AREA.                                              DTSCS24
00672  ++INCLUDE DTSIL011                                               DTSCS24
00673      EJECT                                                        DTSCS24
00674  01  L013-COMM-AREA.                                              DTSCS24
00675  ++INCLUDE DTSIL013                                               DTSCS24
00676      EJECT                                                        DTSCS24
00677  01  L015-COMM-AREA.                                              DTSCS24
00678  ++INCLUDE DTSIL015                                               DTSCS24
00679      EJECT                                                        DTSCS24
00680  01  L016-COMM-AREA.                                              DTSCS24
00681  ++INCLUDE DTSIL016                                               DTSCS24
00682      EJECT                                                        DTSCS24
00683  01  L018-COMM-AREA.                                              DTSCS24
00684  ++INCLUDE DTSIL018                                               DTSCS24
00685      EJECT                                                        DTSCS24
00686  01  L019-COMM-AREA.                                              DTSCS24
00687  ++INCLUDE DTSIL019                                               DTSCS24
00688      EJECT                                                        DTSCS24
00689  01  L032-COMM-AREA.                                              DTSCS24
00690  ++INCLUDE DTSIL032                                               DTSCS24
00691      EJECT                                                        DTSCS24
00692  01  L082-COMM-AREA.                                              DTSCS24
00693  ++INCLUDE DTSIL082                                               DTSCS24
00694      EJECT                                                        DTSCS24
00695  01  L221-COMM-AREA.                                              DTSCS24
00696  ++INCLUDE DTSIL221                                               DTSCS24
00697      EJECT                                                        DTSCS24
00698  01  L371-COMM-AREA.                                              DTSCS24
00699  ++INCLUDE DTSIL371                                               DTSCS24
00700      EJECT                                                        DTSCS24
00701  01  L372-COMM-AREA.                                              DTSCS24
00702  ++INCLUDE DTSIL372                                               DTSCS24
00703      EJECT                                                        DTSCS24
00704  01  L381-COMM-AREA.                                              DTSCS24
00705  ++INCLUDE DTSIL381                                               DTSCS24
00706      EJECT                                                        DTSCS24
00707  01  L410-COMM-AREA.                                              DTSCS24
00708  ++INCLUDE DTSIL410                                               DTSCS24
00709      EJECT                                                        DTSCS24
00710  01  L805-COMM-AREA.                                              DTSCS24
00711  ++INCLUDE DTSIL805                                               DTSCS24
00712      EJECT                                                        DTSCS24
00713  01  L810-COMM-AREA.                                              DTSCS24
00714      05  L810-CONTROL-BLOCK.                                      DTSCS24
00715  ++INCLUDE DTSIL810                                               DTSCS24
00716      EJECT                                                        DTSCS24
00717      05  MSKL-REC.                                                DTSCS24
00718  ++INCLUDE DTSIMSKL                                               DTSCS24
00719      EJECT                                                        DTSCS24
00720  01  MPRF-REC.                                                    DTSCS24
00721  ++INCLUDE DTSIMPRF                                               DTSCS24
00722      EJECT                                                        DTSCS24
00723  01  MQTR-REC.                                                    DTSCS24
00724  ++INCLUDE DTSIMQTR                                               DTSCS24
00725      EJECT                                                        DTSCS24
00726  01  MSOL-REC.                                                    DTSCS24
00727  ++INCLUDE DTSIMSOL                                               DTSCS24
00728      EJECT                                                        DTSCS24
00729  01  L823-COMM-AREA.                                              DTSCS24
00730      05  L823-CONTROL-BLOCK.                                      DTSCS24
00731  ++INCLUDE DTSIL823                                               DTSCS24
00732      EJECT                                                        DTSCS24
00733      05  ASKL-REC.                                                DTSCS24
00734  ++INCLUDE DTSIASKL                                               DTSCS24
00735      EJECT                                                        DTSCS24
00736  01  ARPT-REC.                                                    DTSCS24
00737  ++INCLUDE DTSIARPT                                               DTSCS24
00738      EJECT                                                        DTSCS24
00739                                                                   DTSCS24
00740  01  R204-REC.                                                    DTSCS24
00741  ++INCLUDE DTSIR204                                               DTSCS24
00742                                                                   DTSCS24
00743  01  L825-COMM-AREA.                                              DTSCS24
00744      05  L825-CONTROL-BLOCK.                                      DTSCS24
00745  ++INCLUDE DTSIL825                                               DTSCS24
00746                                                                   DTSCS24
00747      05  RSKL-REC.                                                DTSCS24
00748  ++INCLUDE DTSIRSK1                                               DTSCS24
00749                                                                   DTSCS24
00750  01  L826-COMM-AREA.                                              DTSCS24
00751      05  L826-CONTROL-BLOCK.                                      DTSCS24
00752  ++INCLUDE DTSIL826                                               DTSCS24
00753                                                                   DTSCS24
00754      05  AATH-REC.                                                DTSCS24
00755  ++INCLUDE DTSIAATH                                               DTSCS24
00756                                                                   DTSCS24
00757  01  L851-COMM-AREA.                                              DTSCS24
00758  ++INCLUDE DTSIL851                                               DTSCS24
00759                                                                   DTSCS24
00760      05  MAP-AREA REDEFINES L851-MAP-AREA.                        DTSCS24
00761  ++INCLUDE DTSIS24                                                DTSCS24
00762      EJECT                                                        DTSCS24
00763  01  CATB-LITERALS.                                               DTSCS24
00764  ++INCLUDE DTSICATB                                               DTSCS24
00765                                                                   DTSCS24
00766                                                                   DTSCS24
00767                                                                   DTSCS24
00768  01  CFKD-LITERALS.                                               DTSCS24
00769  ++INCLUDE DTSICFKD                                               DTSCS24
00770                                                                   DTSCS24
00771                                                                   DTSCS24
00772                                                                   DTSCS24
00773  01  CECD-LITERALS.                                               DTSCS24
00774  ++INCLUDE DTSICECD                                               DTSCS24
00775                                                                   DTSCS24
00776                                                                   DTSCS24
00777                                                                   DTSCS24
00778  01  CPCD-LITERALS.                                               DTSCS24
00779  ++INCLUDE DTSICPCD                                               DTSCS24
00780      EJECT                                                        DTSCS24
00781                                                                   DTSCS24
00782  LINKAGE SECTION.                                                 DTSCS24
00783                                                                   DTSCS24
00784  01  DFHCOMMAREA.                                                 DTSCS24
00785  ++INCLUDE DTSILCCM                                               DTSCS24
00786      SKIP3                                                        DTSCS24
00787              15  FILLER                                           DTSCS24
00788                  REDEFINES LCCM-SCR-HOLD-AREA.                    DTSCS24
00789                  20  LCCM-SCR-HOLD-ARPT-REC                       DTSCS24
00790                                          PIC  X(128).             DTSCS24
00791                                                                   DTSCS24
00792                  20  LCCM-SCR-HOLD-FULL-EDITS-IND                 DTSCS24
00793                                          PIC  X(01).              DTSCS24
00794      EJECT                                                        DTSCS24
00795  PROCEDURE DIVISION.                                              DTSCS24
00796                                                                   DTSCS24
00797      MOVE +0 TO WRK-EMP-NO                                        DTSCS24
00798                 WRK-BATCH-NO                                      DTSCS24
00799                 WRK-ITEM-NO.                                      DTSCS24
00800                                                                   DTSCS24
00801                                                                   DTSCS24
00802      SET CURSOR-SET-NO TO TRUE.                                   DTSCS24
00803                                                                   DTSCS24
00804      MOVE LOW-VALUES TO MAP-AREA.                                 DTSCS24
00805                                                                   DTSCS24
00806      MOVE LCCM-SCR-NUM-ACCESS-IND (WRK-SCR-ID-N)                  DTSCS24
00807        TO SCR-ACCESS-IND.                                         DTSCS24
00808                                                                   DTSCS24
00809                                                                   DTSCS24
00810      MOVE SPACE TO REQ-IND.                                       DTSCS24
00811                                                                   DTSCS24
00812      PERFORM P1000-ANALYZE-REQUEST THRU P1000-EXIT.               DTSCS24
00813                                                                   DTSCS24
00814                                                                   DTSCS24
00815 *-----------------------------------------------------            DTSCS24
00816 *    P1000-ANALYZE-REQUEST HAS DETERMINED, BASED ON THE           DTSCS24
00817 *    "AID" KEY PRESSED AND THE CONTEXT OF THE CURRENT             DTSCS24
00818 *    REQUEST WITHIN THE PSEUDO CONVERSATION, THE TYPE             DTSCS24
00819 *    OF ACTIVITY THE WORK STATION OPERATOR HAS REQUESTED.         DTSCS24
00820 *                                                                 DTSCS24
00821 *    THE REQUEST, REFLECTED IN REQ-IND WILL NOW BE                DTSCS24
00822 *    PROCESSED.                                                   DTSCS24
00823 *                                                                 DTSCS24
00824 *    THE REQUEST PROCESSING PARAGRAPHS WILL SET RESP-IND,         DTSCS24
00825 *    INDICATING THE TYPE OF RESPONSE TO BE SENT TO THE            DTSCS24
00826 *    WORK STATION OPERATOR.                                       DTSCS24
00827 *-----------------------------------------------------            DTSCS24
00828                                                                   DTSCS24
00829      MOVE SPACE TO RESP-IND.                                      DTSCS24
00830                                                                   DTSCS24
00831      IF REQ-ERROR                                                 DTSCS24
00832         PERFORM P2000-REQUEST-ERROR THRU P2000-EXIT               DTSCS24
00833      ELSE                                                         DTSCS24
00834      IF REQ-JUMP                                                  DTSCS24
00835         PERFORM P3000-REQUEST-JUMP THRU P3000-EXIT                DTSCS24
00836      ELSE                                                         DTSCS24
00837      IF REQ-CLEAR                                                 DTSCS24
00838         PERFORM P4000-REQUEST-CLEAR THRU P4000-EXIT               DTSCS24
00839      ELSE                                                         DTSCS24
00840      IF REQ-CURSOR-TO-GOTO                                        DTSCS24
00841         PERFORM P5000-CURSOR-TO-GOTO THRU P5000-EXIT              DTSCS24
00842      ELSE                                                         DTSCS24
00843      IF REQ-INQUIRE                                               DTSCS24
00844         PERFORM P6000-REQUEST-INQUIRE THRU P6000-EXIT             DTSCS24
00845      ELSE                                                         DTSCS24
00846      IF REQ-EDIT                                                  DTSCS24
00847         PERFORM P7000-REQUEST-EDIT THRU P7000-EXIT                DTSCS24
00848      ELSE                                                         DTSCS24
00849      IF REQ-UPDATE                                                DTSCS24
00850         PERFORM P8000-REQUEST-UPDATE THRU P8000-EXIT              DTSCS24
00851      ELSE                                                         DTSCS24
00852         GO TO S899-ABEND.                                         DTSCS24
00853                                                                   DTSCS24
00854                                                                   DTSCS24
00855 *-----------------------------------------------------            DTSCS24
00856 *    THE REQUEST PROCESSING PARAGRAPHS HAVE INDICATED             DTSCS24
00857 *    IN RESP-IND THE TYPE OF RESPONSE TO BE MADE.                 DTSCS24
00858 *-----------------------------------------------------            DTSCS24
00859                                                                   DTSCS24
00860      IF RESP-SEND-MAP                                             DTSCS24
00861          PERFORM S9300-SEND-MAP THRU S9300-EXIT                   DTSCS24
00862          SET LCCM-END-TASK-88 TO TRUE                             DTSCS24
00863      ELSE                                                         DTSCS24
00864      IF RESP-SEND-MSGONLY                                         DTSCS24
00865          PERFORM S9200-SEND-DATAONLY THRU S9200-EXIT              DTSCS24
00866          SET LCCM-END-TASK-88 TO TRUE                             DTSCS24
00867      ELSE                                                         DTSCS24
00868      IF RESP-JUMP                                                 DTSCS24
00869          SET LCCM-LINK-SCREEN-88 TO TRUE                          DTSCS24
00870      ELSE                                                         DTSCS24
00871      IF RESP-CURSOR-TO-GOTO                                       DTSCS24
00872          PERFORM S9200-SEND-DATAONLY THRU S9200-EXIT              DTSCS24
00873          SET LCCM-END-TASK-88 TO TRUE                             DTSCS24
00874      ELSE                                                         DTSCS24
00875          GO TO S899-ABEND.                                        DTSCS24
00876                                                                   DTSCS24
00877                                                                   DTSCS24
00878  MAINLINE-EXIT.                                                   DTSCS24
00879                                                                   DTSCS24
00880      EXEC CICS                                                    DTSCS24
00881          RETURN                                                   DTSCS24
00882      END-EXEC.                                                    DTSCS24
00883                                                                   DTSCS24
00884      GOBACK.                                                      DTSCS24
00885 /*****************************************************************DTSCS24
00886 * DETERMINE CURRENT SCREEN STATE AND REQUEST COMBINATION         *DTSCS24
00887 ******************************************************************DTSCS24
00888                                                                   DTSCS24
00889  P1000-ANALYZE-REQUEST.                                           DTSCS24
00890                                                                   DTSCS24
00891 *-----------------------------------------------------            DTSCS24
00892 *     IF SCREEN IS NOT CURRENTLY DISPLAYED (JUMP TO HERE)         DTSCS24
00893 *     THEN ANY KEY PRESSED WILL BE IGNORED (WILL BE               DTSCS24
00894 *     REPLACED WITH F09)                                          DTSCS24
00895 *-----------------------------------------------------            DTSCS24
00896                                                                   DTSCS24
00897      IF LCCM-SCR-ID NOT = WRK-SCR-ID                              DTSCS24
00898          PERFORM P1200-JUMP-IN THRU P1200-EXIT                    DTSCS24
00899          GO TO P1000-EXIT.                                        DTSCS24
00900                                                                   DTSCS24
00901                                                                   DTSCS24
00902 *-----------------------------------------------------            DTSCS24
00903 *      MAP IS RECEIVED                                            DTSCS24
00904 *-----------------------------------------------------            DTSCS24
00905                                                                   DTSCS24
00906      PERFORM S9100-RECEIVE THRU S9100-EXIT.                       DTSCS24
00907                                                                   DTSCS24
00908                                                                   DTSCS24
00909 *-----------------------------------------------------            DTSCS24
00910 *    CHECK FOR AID KEYS THAT DO NOT SEND DATA FROM THE            DTSCS24
00911 *    WORK STATION                                                 DTSCS24
00912 *-----------------------------------------------------            DTSCS24
00913                                                                   DTSCS24
00914      IF LCCM-CLEAR-88                                             DTSCS24
00915         SET REQ-CLEAR TO TRUE                                     DTSCS24
00916         GO TO P1000-EXIT.                                         DTSCS24
00917                                                                   DTSCS24
00918                                                                   DTSCS24
00919 *-----------------------------------------------------            DTSCS24
00920 *    IF IN UPDATE MODE, SPECIFIC KEYS MUST BE CHECKED             DTSCS24
00921 *-----------------------------------------------------            DTSCS24
00922                                                                   DTSCS24
00923      IF LCCM-SCR-UPDATE-LOCKED                                    DTSCS24
00924         PERFORM P1100-UPDATE-LOCKED THRU P1100-EXIT               DTSCS24
00925         GO TO P1000-EXIT.                                         DTSCS24
00926                                                                   DTSCS24
00927                                                                   DTSCS24
00928 *-----------------------------------------------------            DTSCS24
00929 *    PA2 IS A REQUEST TO POSITION CURSOR AT GO TO:                DTSCS24
00930 *-----------------------------------------------------            DTSCS24
00931                                                                   DTSCS24
00932      IF LCCM-PA2-88                                               DTSCS24
00933          SET REQ-CURSOR-TO-GOTO TO TRUE                           DTSCS24
00934          GO TO P1000-EXIT.                                        DTSCS24
00935                                                                   DTSCS24
00936                                                                   DTSCS24
00937 *-----------------------------------------------------            DTSCS24
00938 *    ALL OTHER PA KEYS ARE NOT ACTIVE                             DTSCS24
00939 *-----------------------------------------------------            DTSCS24
00940                                                                   DTSCS24
00941      IF LCCM-PA-88                                                DTSCS24
00942        PERFORM S804-INVALID-KEY THRU S804-EXIT                    DTSCS24
00943        SET REQ-ERROR TO TRUE                                      DTSCS24
00944        GO TO P1000-EXIT.                                          DTSCS24
00945                                                                   DTSCS24
00946                                                                   DTSCS24
00947      IF MAP-EDIT-VALID-88                                         DTSCS24
00948          MOVE MAP-EDIT-MODE TO LCCM-OP-ARPT-EDIT-MODE.            DTSCS24
00949                                                                   DTSCS24
00950                                                                   DTSCS24
00951 *-----------------------------------------------------            DTSCS24
00952 *    F12 PRESSED WHEN UPDATE NOT IN PROGRESS IS A                 DTSCS24
00953 *    REQUEST TO CLEAR THE SCREEN.                                 DTSCS24
00954 *-----------------------------------------------------            DTSCS24
00955                                                                   DTSCS24
00956      IF LCCM-F12-88                                               DTSCS24
00957         MOVE LOW-VALUES TO MAP-AREA                               DTSCS24
00958         SET REQ-CLEAR TO TRUE                                     DTSCS24
00959         GO TO P1000-EXIT.                                         DTSCS24
00960                                                                   DTSCS24
00961                                                                   DTSCS24
00962 *-----------------------------------------------------            DTSCS24
00963 *    IF EXIT KEY PRESSED, JUMP TO NEXT HIGHER FUNCTION            DTSCS24
00964 *-----------------------------------------------------            DTSCS24
00965                                                                   DTSCS24
00966      IF LCCM-F03-88                                               DTSCS24
00967         MOVE WRK-F03-SCR-ID TO LCCM-REQ-SCR-ID                    DTSCS24
00968         SET REQ-JUMP TO TRUE                                      DTSCS24
00969         GO TO P1000-EXIT.                                         DTSCS24
00970                                                                   DTSCS24
00971                                                                   DTSCS24
00972 *-----------------------------------------------------            DTSCS24
00973 *    IF PRIOR SCREEN KEY PRESSED, JUMP TO PREVIOUS SCREEN         DTSCS24
00974 *-----------------------------------------------------            DTSCS24
00975                                                                   DTSCS24
00976      IF LCCM-F04-88                                               DTSCS24
00977         MOVE LCCM-PRIOR-SCR-ID TO LCCM-REQ-SCR-ID                 DTSCS24
00978         SET REQ-JUMP TO TRUE                                      DTSCS24
00979         GO TO P1000-EXIT.                                         DTSCS24
00980                                                                   DTSCS24
00981                                                                   DTSCS24
00982 *---------------------------------------------------------        DTSCS24
00983 *    IF CORRESPONDENCE SCREEN KEY PRESSED, JUMP TO                DTSCS24
00984 *    CORRESPONDENCE SCREEN.                                       DTSCS24
00985 *---------------------------------------------------------        DTSCS24
00986                                                                   DTSCS24
00987      IF LCCM-F14-88                                               DTSCS24
00988         MOVE LCCM-CORR-SCR-ID TO LCCM-REQ-SCR-ID                  DTSCS24
00989         SET REQ-JUMP TO TRUE                                      DTSCS24
00990         GO TO P1000-EXIT.                                         DTSCS24
00991                                                                   DTSCS24
00992                                                                   DTSCS24
00993 *-----------------------------------------------------            DTSCS24
00994 *    IF DIFFERENT SCREEN TYPE IS REQUESTED, JUMP TO               DTSCS24
00995 *    REQUESTED SCREEN TYPE                                        DTSCS24
00996 *-----------------------------------------------------            DTSCS24
00997                                                                   DTSCS24
00998      IF MAP-GOTO = SPACES OR LOW-VALUES OR WRK-SCR-ID             DTSCS24
00999         NEXT SENTENCE                                             DTSCS24
01000      ELSE                                                         DTSCS24
01001        MOVE MAP-GOTO TO LCCM-REQ-SCR-ID                           DTSCS24
01002        SET REQ-JUMP TO TRUE                                       DTSCS24
01003        GO TO P1000-EXIT.                                          DTSCS24
01004                                                                   DTSCS24
01005                                                                   DTSCS24
01006 *-----------------------------------------------------            DTSCS24
01007 *    IF REQUEST TO UPDATE THE DATA (ADD,MOD,DEL)                  DTSCS24
01008 *          VERIFY USER ACCESS TO PERFORM UPDATE                   DTSCS24
01009 *-----------------------------------------------------            DTSCS24
01010                                                                   DTSCS24
01011      IF LCCM-ENTER-88                                             DTSCS24
01012          IF SCR-ACCESS-UPDATE                                     DTSCS24
01013              SET REQ-UPDATE TO TRUE                               DTSCS24
01014              GO TO P1000-EXIT                                     DTSCS24
01015          ELSE                                                     DTSCS24
01016              PERFORM S804-INVALID-KEY THRU S804-EXIT              DTSCS24
01017              SET REQ-ERROR TO TRUE                                DTSCS24
01018              GO TO P1000-EXIT.                                    DTSCS24
01019                                                                   DTSCS24
01020      IF LCCM-F10-88                                               DTSCS24
01021           OR LCCM-F23-88                                          DTSCS24
01022         IF SCR-ACCESS-UPDATE                                      DTSCS24
01023            SET REQ-EDIT TO TRUE                                   DTSCS24
01024            GO TO P1000-EXIT                                       DTSCS24
01025         ELSE                                                      DTSCS24
01026            PERFORM S804-INVALID-KEY THRU S804-EXIT                DTSCS24
01027            SET REQ-ERROR TO TRUE                                  DTSCS24
01028            GO TO P1000-EXIT.                                      DTSCS24
01029                                                                   DTSCS24
01030                                                                   DTSCS24
01031 *-----------------------------------------------------            DTSCS24
01032 *    IF INQUIRY TYPE KEY PRESSED (F9, F7, OR F8),                 DTSCS24
01033 *        INDICATES INQUIRY REQUEST                                DTSCS24
01034 *-----------------------------------------------------            DTSCS24
01035                                                                   DTSCS24
01036      IF LCCM-F09-88                                               DTSCS24
01037          OR LCCM-F07-88                                           DTSCS24
01038          OR LCCM-F08-88                                           DTSCS24
01039         SET REQ-INQUIRE TO TRUE                                   DTSCS24
01040         GO TO P1000-EXIT.                                         DTSCS24
01041                                                                   DTSCS24
01042                                                                   DTSCS24
01043 *-----------------------------------------------------            DTSCS24
01044 *     ANY OTHER KEY IS INVALID                                    DTSCS24
01045 *-----------------------------------------------------            DTSCS24
01046                                                                   DTSCS24
01047      PERFORM S804-INVALID-KEY THRU S804-EXIT.                     DTSCS24
01048                                                                   DTSCS24
01049      SET REQ-ERROR TO TRUE.                                       DTSCS24
01050  P1000-EXIT.                                                      DTSCS24
01051      EXIT.                                                        DTSCS24
01052      EJECT                                                        DTSCS24
01053 ******************************************************************DTSCS24
01054 * THE SCREEN IS LOCKED FOR UPDATE AND THE USER CONFIRMS HIS WISH *DTSCS24
01055 ******************************************************************DTSCS24
01056                                                                   DTSCS24
01057  P1100-UPDATE-LOCKED.                                             DTSCS24
01058                                                                   DTSCS24
01059 *-----------------------------------------------------            DTSCS24
01060 *    IF THE SCREEN IS "LOCKED FOR UPDATE", THEN                   DTSCS24
01061 *    THE ONLY VALID OPERATOR REQUESTS ARE ENTER                   DTSCS24
01062 *    (CONFIRMING UPDATE) OR F12 (CANCELLING UPDATE).              DTSCS24
01063 *-----------------------------------------------------            DTSCS24
01064                                                                   DTSCS24
01065      IF LCCM-ENTER-88 OR LCCM-F12-88                              DTSCS24
01066         SET REQ-UPDATE TO TRUE                                    DTSCS24
01067      ELSE                                                         DTSCS24
01068         SET REQ-ERROR TO TRUE                                     DTSCS24
01069 *****IF LCCM-SCR-ADD-LOCKED                                       DTSCS24
01070 ********MOVE PMSG-ADD-CONFIRM TO LCCM-MSG-ID                      DTSCS24
01071 *****ELSE                                                         DTSCS24
01072      IF LCCM-SCR-MOD-LOCKED                                       DTSCS24
01073         MOVE PMSG-MOD-CONFIRM TO LCCM-MSG-ID                      DTSCS24
01074      ELSE                                                         DTSCS24
01075      IF LCCM-SCR-DEL-LOCKED                                       DTSCS24
01076         MOVE PMSG-DEL-CONFIRM TO LCCM-MSG-ID                      DTSCS24
01077      ELSE                                                         DTSCS24
01078         GO TO S899-ABEND.                                         DTSCS24
01079  P1100-EXIT.                                                      DTSCS24
01080      EXIT.                                                        DTSCS24
01081      SKIP3                                                        DTSCS24
01082 *-----------------------------------------------------            DTSCS24
01083 *    IF A DOCUMENT IS INDICATED BY LCCM-BATCH-NO AND              DTSCS24
01084 *    LCCM-ITEM-NO AND THE DOCUMENT EXISTS AND THE                 DTSCS24
01085 *    DOCUMENT IS AN ARPT RECORD, THEN ASSUME WE ARE TO            DTSCS24
01086 *    INQUIRE LCCM-BATCH-NO+LCCM-ITEM-NO;                          DTSCS24
01087 *                                                                 DTSCS24
01088 *    OTHERWISE, ASSUME WE ARE TO SET THE SCREEN TO A              DTSCS24
01089 *    DATA ENTRY MODE (SET SCREEN TO CLEAR).                       DTSCS24
01090 *-----------------------------------------------------            DTSCS24
01091                                                                   DTSCS24
01092  P1200-JUMP-IN.                                                   DTSCS24
01093      MOVE LOW-VALUES TO LCCM-SCR-HOLD-AREA.                       DTSCS24
01094                                                                   DTSCS24
01095      SET LCCM-F09-88 TO TRUE.                                     DTSCS24
01096                                                                   DTSCS24
01097      IF LCCM-BATCH-NO = +0                                        DTSCS24
01098          SET REQ-CLEAR TO TRUE                                    DTSCS24
01099          GO TO P1200-EXIT.                                        DTSCS24
01100                                                                   DTSCS24
01101      IF LCCM-ITEM-NO = +0                                         DTSCS24
01102          SET REQ-CLEAR TO TRUE                                    DTSCS24
01103          GO TO P1200-EXIT.                                        DTSCS24
01104                                                                   DTSCS24
01105                                                                   DTSCS24
01106      MOVE LOW-VALUES TO ASKL-KEY-AREA.                            DTSCS24
01107                                                                   DTSCS24
01108      MOVE LCCM-BATCH-NO TO ASKL-BATCH-NO.                         DTSCS24
01109                                                                   DTSCS24
01110      MOVE LCCM-ITEM-NO TO ASKL-ITEM-NO.                           DTSCS24
01111                                                                   DTSCS24
01112      PERFORM S823-READ THRU S823-EXIT.                            DTSCS24
01113                                                                   DTSCS24
01114      IF L823-NO-REC-88                                            DTSCS24
01115          SET REQ-CLEAR TO TRUE                                    DTSCS24
01116      ELSE                                                         DTSCS24
01117      IF ASKL-RPT-88                                               DTSCS24
01118          SET REQ-INQUIRE TO TRUE                                  DTSCS24
01119          MOVE LCCM-BATCH-NO TO MAP-BATCH-NO-N                     DTSCS24
01120          MOVE LCCM-ITEM-NO TO MAP-ITEM-NO-N                       DTSCS24
01121      ELSE                                                         DTSCS24
01122          SET REQ-CLEAR TO TRUE.                                   DTSCS24
01123  P1200-EXIT.                                                      DTSCS24
01124      EXIT.                                                        DTSCS24
01125 /*****************************************************************DTSCS24
01126 * ANALYZE REQUEST HAS DETERMINED AN ERROR THAT MUST BE REPORTED. *DTSCS24
01127 * VERIFY THAT A MESSAGE HAS BEEN FILLED IN.                      *DTSCS24
01128 ******************************************************************DTSCS24
01129                                                                   DTSCS24
01130  P2000-REQUEST-ERROR.                                             DTSCS24
01131      IF LCCM-MSG                                                  DTSCS24
01132         SET RESP-SEND-MSGONLY TO TRUE                             DTSCS24
01133      ELSE                                                         DTSCS24
01134         GO TO S899-ABEND.                                         DTSCS24
01135  P2000-EXIT.                                                      DTSCS24
01136      EXIT.                                                        DTSCS24
01137 /*****************************************************************DTSCS24
01138 * JUMP TO A DIFFERENT SCREEN TYPE WAS REQUESTED                  *DTSCS24
01139 ******************************************************************DTSCS24
01140                                                                   DTSCS24
01141  P3000-REQUEST-JUMP.                                              DTSCS24
01142 *-----------------------------------------------------            DTSCS24
01143 *    VERIFY THAT THE REQUESTED SCREEN EXISTS AND IS ACCESSIBLE    DTSCS24
01144 *    BY USER                                                      DTSCS24
01145 *-----------------------------------------------------            DTSCS24
01146                                                                   DTSCS24
01147      PERFORM S803-REQ-SCR-ID-EDIT THRU S803-EXIT.                 DTSCS24
01148                                                                   DTSCS24
01149 *-----------------------------------------------------            DTSCS24
01150 *    VERIFICATION RETURN LCCM-MSG IF ERROR DETECTED               DTSCS24
01151 *-----------------------------------------------------            DTSCS24
01152                                                                   DTSCS24
01153      IF LCCM-MSG                                                  DTSCS24
01154         SET RESP-SEND-MSGONLY TO TRUE                             DTSCS24
01155         SET CURSOR-SET-GOTO TO TRUE                               DTSCS24
01156         GO TO P3000-EXIT.                                         DTSCS24
01157                                                                   DTSCS24
01158                                                                   DTSCS24
01159      MOVE MAP-DOC-NO-AREA TO L019-S-DOC-NO.                       DTSCS24
01160                                                                   DTSCS24
01161      PERFORM S019-BATCH-NO-FROM-SCREEN THRU S019-EXIT.            DTSCS24
01162                                                                   DTSCS24
01163      IF L019-VALID                                                DTSCS24
01164          MOVE L019-DOC-NO TO LCCM-DOC-NO.                         DTSCS24
01165                                                                   DTSCS24
01166                                                                   DTSCS24
01167      MOVE MAP-EMP-NO-AREA TO L018-S-EMP-NO-AREA.                  DTSCS24
01168                                                                   DTSCS24
01169      PERFORM S018-EMP-NO-FROM-SCREEN THRU S018-EXIT.              DTSCS24
01170                                                                   DTSCS24
01171      IF L018-VALID                                                DTSCS24
01172          MOVE L018-EMP-NO TO LCCM-EMP-NO                          DTSCS24
01173          MOVE MAP-YRQ-AREA TO L016-S-YRQ-AREA                     DTSCS24
01174          PERFORM S016-YRQ-FROM-SCREEN THRU S016-EXIT              DTSCS24
01175          IF L016-VALID                                            DTSCS24
01176              MOVE L016-YRQ TO LCCM-YRQ                            DTSCS24
01177          ELSE                                                     DTSCS24
01178              MOVE +0 TO LCCM-YRQ.                                 DTSCS24
01179                                                                   DTSCS24
01180                                                                   DTSCS24
01181 *-----------------------------------------------------            DTSCS24
01182 *    CLEAN UP INDICATORS AND PAGING STORAGE PRIOR TO LEAVING      DTSCS24
01183 *-----------------------------------------------------            DTSCS24
01184                                                                   DTSCS24
01185      MOVE LOW-VALUES TO LCCM-SCR-STATUS                           DTSCS24
01186                         LCCM-SCR-HOLD-AREA.                       DTSCS24
01187                                                                   DTSCS24
01188      MOVE +0 TO LCCM-SCR-ABSTIME.                                 DTSCS24
01189                                                                   DTSCS24
01190      SET RESP-JUMP TO TRUE.                                       DTSCS24
01191  P3000-EXIT.                                                      DTSCS24
01192      EXIT.                                                        DTSCS24
01193 /*****************************************************************DTSCS24
01194 * CLEAR KEY WAS PRESSED                                          *DTSCS24
01195 ******************************************************************DTSCS24
01196                                                                   DTSCS24
01197  P4000-REQUEST-CLEAR.                                             DTSCS24
01198                                                                   DTSCS24
01199 *-----------------------------------------------------            DTSCS24
01200 *   CLEAN UP INDICATORS AND PAGING STORAGE.  RESET KEY            DTSCS24
01201 *   FIELDS FROM EARLIER REQUESTS                                  DTSCS24
01202 *-----------------------------------------------------            DTSCS24
01203                                                                   DTSCS24
01204      IF LCCM-BATCH-NO > ZERO                                      DTSCS24
01205          MOVE LCCM-BATCH-NO TO MAP-BATCH-NO.                      DTSCS24
01206                                                                   DTSCS24
01207      MOVE +0 TO LCCM-BATCH-NO.                                    DTSCS24
01208                                                                   DTSCS24
01209      MOVE +0 TO LCCM-ITEM-NO.                                     DTSCS24
01210                                                                   DTSCS24
01211 *****IF (LCCM-SCR-ID = '23')                                      DTSCS24
01212 ***********AND                                                    DTSCS24
01213 ********(LCCM-EMP-NO > +0)                                        DTSCS24
01214 *********PERFORM P4100-EMP-NO THRU P4100-EXIT.                    DTSCS24
01215                                                                   DTSCS24
01216                                                                   DTSCS24
01217 *****MOVE LCCM-OP-ARPT-EDIT-MODE TO MAP-EDIT-MODE.                DTSCS24
01218                                                                   DTSCS24
01219 *****MOVE LCCM-ENTRY-MODE TO MAP-ENTRY-MODE.                      DTSCS24
01220                                                                   DTSCS24
01221 *****IF MAP-ENTRY-MODE-2                                          DTSCS24
01222 *********PERFORM P4200-ENTRY-MODE-2 THRU P4200-EXIT.              DTSCS24
01223                                                                   DTSCS24
01224      IF SCR-ACCESS-UPDATE AND CURSOR-SET-NO                       DTSCS24
01225          MOVE CATB-CURSOR TO MAP-NAME-CHECK-L                     DTSCS24
01226          SET CURSOR-SET-YES TO TRUE.                              DTSCS24
01227                                                                   DTSCS24
01228                                                                   DTSCS24
01229      MOVE LCCM-TASK-START-ABSTIME TO LCCM-SCR-ABSTIME.            DTSCS24
01230                                                                   DTSCS24
01231      SET LCCM-SCR-CLEAR TO TRUE.                                  DTSCS24
01232                                                                   DTSCS24
01233      IF SCR-ACCESS-UPDATE                                         DTSCS24
01234          PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT           DTSCS24
01235      ELSE                                                         DTSCS24
01236          PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT.             DTSCS24
01237                                                                   DTSCS24
01238      MOVE LOW-VALUES TO LCCM-SCR-HOLD-AREA.                       DTSCS24
01239                                                                   DTSCS24
01240      SET RESP-SEND-MAP TO TRUE.                                   DTSCS24
01241  P4000-EXIT.                                                      DTSCS24
01242      EXIT.                                                        DTSCS24
01243                                                                   DTSCS24
01244                                                                   DTSCS24
01245 *P4100-EMP-NO.                                                    DTSCS24
01246 *****MOVE LOW-VALUES TO MPRF-KEY-AREA.                            DTSCS24
01247 *****MOVE LCCM-EMP-NO TO MPRF-EMP-NO.                             DTSCS24
01248 *****SET MPRF-PRF-88 TO TRUE.                                     DTSCS24
01249 *****MOVE MPRF-KEY-AREA TO MSKL-KEY-AREA.                         DTSCS24
01250 *****PERFORM S810-READ THRU S810-EXIT.                            DTSCS24
01251 *****IF L810-OK-88                                                DTSCS24
01252 *********MOVE MSKL-REC TO MPRF-REC                                DTSCS24
01253 *********MOVE LCCM-EMP-NO TO WRK-DISPLAY                          DTSCS24
01254 *********MOVE WRK-EMP-NO-1 TO MAP-EMP-NO-1                        DTSCS24
01255 *********MOVE WRK-EMP-NO-2 TO MAP-EMP-NO-2                        DTSCS24
01256 *********MOVE MPRF-BUSINESS-NAME (1:4) TO MAP-NAME-CHECK          DTSCS24
01257 *********MOVE 'N' TO MAP-CHECK-IND.                               DTSCS24
01258 *P4100-EXIT.                                                      DTSCS24
01259 *****EXIT.                                                        DTSCS24
01260                                                                   DTSCS24
01261                                                                   DTSCS24
01262 *P4200-ENTRY-MODE-2.                                              DTSCS24
01263 *****IF LCCM-YRQ > +0                                             DTSCS24
01264 *********MOVE LCCM-YRQ TO WRK-DISPLAY                             DTSCS24
01265 *********MOVE WRK-DISPLAY-YRQ-YR TO MAP-YRQ-YR                    DTSCS24
01266 *********MOVE WRK-DISPLAY-YRQ-Q TO MAP-YRQ-Q                      DTSCS24
01267 *********IF MAP-NAME-CHECK = LOW-VALUES                           DTSCS24
01268 *************MOVE CATB-CURSOR TO MAP-NAME-CHECK-L                 DTSCS24
01269 *************SET CURSOR-SET-YES TO TRUE                           DTSCS24
01270 *********ELSE                                                     DTSCS24
01271 *************MOVE CATB-CURSOR TO MAP-TOT-WAGE-L                   DTSCS24
01272 *************SET CURSOR-SET-YES TO TRUE.                          DTSCS24
01273 *P4200-EXIT.                                                      DTSCS24
01274 *****EXIT.                                                        DTSCS24
01275 /*****************************************************************DTSCS24
01276 * POSITION CURSOR ON GO TO FIELD WAS REQUESTED                   *DTSCS24
01277 ******************************************************************DTSCS24
01278                                                                   DTSCS24
01279  P5000-CURSOR-TO-GOTO.                                            DTSCS24
01280      SET CURSOR-SET-GOTO TO TRUE.                                 DTSCS24
01281                                                                   DTSCS24
01282      SET RESP-CURSOR-TO-GOTO TO TRUE.                             DTSCS24
01283  P5000-EXIT.                                                      DTSCS24
01284      EXIT.                                                        DTSCS24
01285 /*****************************************************************DTSCS24
01286 * INQUIRY WAS REQUESTED                                          *DTSCS24
01287 ******************************************************************DTSCS24
01288                                                                   DTSCS24
01289  P6000-REQUEST-INQUIRE.                                           DTSCS24
01290      MOVE MAP-DOC-NO-AREA TO L019-S-DOC-NO.                       DTSCS24
01291                                                                   DTSCS24
01292      MOVE LOW-VALUES TO MAP-AREA.                                 DTSCS24
01293                                                                   DTSCS24
01294      MOVE L019-S-DOC-NO TO MAP-DOC-NO-AREA.                       DTSCS24
01295                                                                   DTSCS24
01296                                                                   DTSCS24
01297      SET LCCM-SCR-CLEAR TO TRUE.                                  DTSCS24
01298                                                                   DTSCS24
01299      MOVE LCCM-TASK-START-ABSTIME TO LCCM-SCR-ABSTIME.            DTSCS24
01300                                                                   DTSCS24
01301      SET RESP-SEND-MAP TO TRUE.                                   DTSCS24
01302                                                                   DTSCS24
01303      IF SCR-ACCESS-UPDATE                                         DTSCS24
01304         PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT            DTSCS24
01305      ELSE                                                         DTSCS24
01306         PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT.              DTSCS24
01307                                                                   DTSCS24
01308                                                                   DTSCS24
01309      PERFORM S1100-EDIT-KEY THRU S1100-EXIT.                      DTSCS24
01310                                                                   DTSCS24
01311      IF LCCM-MSG                                                  DTSCS24
01312          GO TO P6000-EXIT.                                        DTSCS24
01313                                                                   DTSCS24
01314                                                                   DTSCS24
01315      IF WRK-BATCH-NO = LCCM-BATCH-NO                              DTSCS24
01316          NEXT SENTENCE                                            DTSCS24
01317      ELSE                                                         DTSCS24
01318          MOVE WRK-BATCH-NO TO LCCM-BATCH-NO                       DTSCS24
01319          MOVE +0 TO LCCM-ITEM-NO.                                 DTSCS24
01320                                                                   DTSCS24
01321                                                                   DTSCS24
01322      IF WRK-ITEM-NO = +0                                          DTSCS24
01323          MOVE LCCM-ITEM-NO TO WRK-ITEM-NO.                        DTSCS24
01324                                                                   DTSCS24
01325                                                                   DTSCS24
01326      PERFORM P6100-LOCATE-REC THRU P6100-EXIT.                    DTSCS24
01327                                                                   DTSCS24
01328      IF LCCM-MSG                                                  DTSCS24
01329          GO TO P6000-EXIT.                                        DTSCS24
01330                                                                   DTSCS24
01331                                                                   DTSCS24
01332      MOVE ASKL-ITEM-NO TO LCCM-ITEM-NO.                           DTSCS24
01333                                                                   DTSCS24
01334                                                                   DTSCS24
01335      IF REQ-JUMP                                                  DTSCS24
01336          MOVE LCCM-ITEM-NO TO MAP-ITEM-NO-N                       DTSCS24
01337          PERFORM P3000-REQUEST-JUMP THRU P3000-EXIT               DTSCS24
01338          GO TO P6000-EXIT.                                        DTSCS24
01339                                                                   DTSCS24
01340                                                                   DTSCS24
01341      PERFORM P6900-CONSTRUCT-SCREEN THRU P6900-EXIT               DTSCS24
01342                                                                   DTSCS24
01343                                                                   DTSCS24
01344      SET LCCM-SCR-INQUIRE TO TRUE.                                DTSCS24
01345  P6000-EXIT.                                                      DTSCS24
01346      EXIT.                                                        DTSCS24
01347      EJECT                                                        DTSCS24
01348  P6100-LOCATE-REC.                                                DTSCS24
01349      PERFORM P6110-START-REC THRU P6110-EXIT.                     DTSCS24
01350                                                                   DTSCS24
01351      IF L823-NO-REC-88                                            DTSCS24
01352          MOVE EMSG-NO-RECORD TO WRK-MSG-AREA                      DTSCS24
01353          PERFORM S1111-ERROR THRU S1111-EXIT                      DTSCS24
01354          GO TO P6100-EXIT.                                        DTSCS24
01355                                                                   DTSCS24
01356      MOVE SPACE TO PAGE-TYPE-IND.                                 DTSCS24
01357                                                                   DTSCS24
01358      IF LCCM-F09-88                                               DTSCS24
01359          PERFORM P6120-PAGE-NONE THRU P6120-EXIT                  DTSCS24
01360      ELSE                                                         DTSCS24
01361      IF LCCM-F07-88                                               DTSCS24
01362          PERFORM P6130-PAGE-BACK THRU P6130-EXIT                  DTSCS24
01363      ELSE                                                         DTSCS24
01364      IF LCCM-F08-88                                               DTSCS24
01365          PERFORM P6140-PAGE-NEXT THRU P6140-EXIT                  DTSCS24
01366      ELSE                                                         DTSCS24
01367          GO TO S899-ABEND.                                        DTSCS24
01368                                                                   DTSCS24
01369      IF LCCM-MSG                                                  DTSCS24
01370          GO TO P6100-EXIT.                                        DTSCS24
01371                                                                   DTSCS24
01372      IF ASKL-RPT-88                                               DTSCS24
01373          NEXT SENTENCE                                            DTSCS24
01374      ELSE                                                         DTSCS24
01375      IF ASKL-ADJ-88                                               DTSCS24
01376          MOVE '26' TO LCCM-REQ-SCR-ID                             DTSCS24
01377          SET REQ-JUMP TO TRUE                                     DTSCS24
01378      ELSE                                                         DTSCS24
01379      IF ASKL-PAY-88                                               DTSCS24
01380          MOVE '25' TO LCCM-REQ-SCR-ID                             DTSCS24
01381          SET REQ-JUMP TO TRUE                                     DTSCS24
01382      ELSE                                                         DTSCS24
01383      IF ASKL-ATX-88                                               DTSCS24
01384          MOVE '27' TO LCCM-REQ-SCR-ID                             DTSCS24
01385          SET REQ-JUMP TO TRUE                                     DTSCS24
01386      ELSE                                                         DTSCS24
01387          GO TO S899-ABEND.                                        DTSCS24
01388  P6100-EXIT.                                                      DTSCS24
01389      EXIT.                                                        DTSCS24
01390      SKIP3                                                        DTSCS24
01391  P6110-START-REC.                                                 DTSCS24
01392      MOVE LOW-VALUES TO ASKL-KEY-AREA.                            DTSCS24
01393                                                                   DTSCS24
01394      MOVE WRK-BATCH-NO TO ASKL-BATCH-NO.                          DTSCS24
01395                                                                   DTSCS24
01396      MOVE WRK-ITEM-NO TO ASKL-ITEM-NO.                            DTSCS24
01397                                                                   DTSCS24
01398      IF ASKL-ITEM-NO = +0                                         DTSCS24
01399          MOVE +1 TO ASKL-ITEM-NO.                                 DTSCS24
01400                                                                   DTSCS24
01401                                                                   DTSCS24
01402      PERFORM S823-START-BROWSE THRU S823-EXIT.                    DTSCS24
01403                                                                   DTSCS24
01404      IF L823-NO-REC-88                                            DTSCS24
01405          NEXT SENTENCE                                            DTSCS24
01406      ELSE                                                         DTSCS24
01407          IF WRK-BATCH-NO = ASKL-BATCH-NO                          DTSCS24
01408              GO TO P6110-EXIT                                     DTSCS24
01409          ELSE                                                     DTSCS24
01410              PERFORM S823-END-BROWSE THRU S823-EXIT.              DTSCS24
01411                                                                   DTSCS24
01412                                                                   DTSCS24
01413      MOVE LOW-VALUES TO ASKL-KEY-AREA.                            DTSCS24
01414                                                                   DTSCS24
01415      MOVE WRK-BATCH-NO TO ASKL-BATCH-NO.                          DTSCS24
01416                                                                   DTSCS24
01417      MOVE +1 TO ASKL-ITEM-NO.                                     DTSCS24
01418                                                                   DTSCS24
01419      PERFORM S823-START-BROWSE THRU S823-EXIT.                    DTSCS24
01420                                                                   DTSCS24
01421      IF L823-NO-REC-88                                            DTSCS24
01422          NEXT SENTENCE                                            DTSCS24
01423      ELSE                                                         DTSCS24
01424          IF WRK-BATCH-NO = ASKL-BATCH-NO                          DTSCS24
01425              PERFORM P6111-POSITION-LAST THRU P6111-EXIT          DTSCS24
01426              GO TO P6110-EXIT                                     DTSCS24
01427          ELSE                                                     DTSCS24
01428              PERFORM S823-END-BROWSE THRU S823-EXIT               DTSCS24
01429              SET L823-NO-REC-88 TO TRUE.                          DTSCS24
01430  P6110-EXIT.                                                      DTSCS24
01431      EXIT.                                                        DTSCS24
01432      SKIP3                                                        DTSCS24
01433  P6111-POSITION-LAST.                                             DTSCS24
01434      PERFORM                                                      DTSCS24
01435        UNTIL L823-NO-REC-88                                       DTSCS24
01436          MOVE ASKL-KEY-AREA TO HOLD-KEY-AREA                      DTSCS24
01437          PERFORM S823-READ-NEXT THRU S823-EXIT                    DTSCS24
01438          IF L823-OK-88                                            DTSCS24
01439              IF WRK-BATCH-NO NOT = ASKL-BATCH-NO                  DTSCS24
01440                  PERFORM S823-END-BROWSE THRU S823-EXIT           DTSCS24
01441                  SET L823-NO-REC-88 TO TRUE                       DTSCS24
01442              END-IF                                               DTSCS24
01443          END-IF                                                   DTSCS24
01444      END-PERFORM.                                                 DTSCS24
01445                                                                   DTSCS24
01446      MOVE HOLD-KEY-AREA TO ASKL-KEY-AREA.                         DTSCS24
01447                                                                   DTSCS24
01448      PERFORM S823-START-BROWSE THRU S823-EXIT.                    DTSCS24
01449                                                                   DTSCS24
01450      IF L823-NO-REC-88                                            DTSCS24
01451          NEXT SENTENCE                                            DTSCS24
01452      ELSE                                                         DTSCS24
01453          IF ASKL-KEY-AREA NOT = HOLD-KEY-AREA                     DTSCS24
01454              PERFORM S823-END-BROWSE THRU S823-EXIT               DTSCS24
01455              SET L823-NO-REC-88 TO TRUE.                          DTSCS24
01456  P6111-EXIT.                                                      DTSCS24
01457      EXIT.                                                        DTSCS24
01458      SKIP3                                                        DTSCS24
01459  P6120-PAGE-NONE.                                                 DTSCS24
01460      PERFORM S823-END-BROWSE THRU S823-EXIT.                      DTSCS24
01461                                                                   DTSCS24
01462      IF WRK-ITEM-NO = +0                                          DTSCS24
01463          NEXT SENTENCE                                            DTSCS24
01464      ELSE                                                         DTSCS24
01465      IF ASKL-ITEM-NO = WRK-ITEM-NO                                DTSCS24
01466          NEXT SENTENCE                                            DTSCS24
01467      ELSE                                                         DTSCS24
01468          MOVE EMSG-NO-DOC TO WRK-MSG-AREA                         DTSCS24
01469          PERFORM S1112-ERROR THRU S1112-EXIT.                     DTSCS24
01470  P6120-EXIT.                                                      DTSCS24
01471      EXIT.                                                        DTSCS24
01472      SKIP3                                                        DTSCS24
01473  P6130-PAGE-BACK.                                                 DTSCS24
01474      IF ASKL-ITEM-NO >= LCCM-ITEM-NO                              DTSCS24
01475          NEXT SENTENCE                                            DTSCS24
01476      ELSE                                                         DTSCS24
01477          PERFORM S823-END-BROWSE THRU S823-EXIT                   DTSCS24
01478          GO TO P6130-EXIT.                                        DTSCS24
01479                                                                   DTSCS24
01480      MOVE ASKL-KEY-AREA TO HOLD-KEY-AREA.                         DTSCS24
01481                                                                   DTSCS24
01482      PERFORM S823-READ-PREV THRU S823-EXIT.                       DTSCS24
01483                                                                   DTSCS24
01484      IF L823-NO-REC-88                                            DTSCS24
01485          SET PAGE-FIRST-88 TO TRUE                                DTSCS24
01486          GO TO P6130-EXIT.                                        DTSCS24
01487                                                                   DTSCS24
01488      PERFORM S823-READ-PREV THRU S823-EXIT.                       DTSCS24
01489                                                                   DTSCS24
01490      IF L823-NO-REC-88                                            DTSCS24
01491          SET PAGE-FIRST-88 TO TRUE                                DTSCS24
01492          GO TO P6130-EXIT.                                        DTSCS24
01493                                                                   DTSCS24
01494      PERFORM S823-END-BROWSE THRU S823-EXIT.                      DTSCS24
01495                                                                   DTSCS24
01496      IF (ASKL-ITEM-NO > +0)                                       DTSCS24
01497             AND                                                   DTSCS24
01498         (ASKL-BATCH-NO = WRK-BATCH-NO)                            DTSCS24
01499          NEXT SENTENCE                                            DTSCS24
01500      ELSE                                                         DTSCS24
01501          SET PAGE-FIRST-88 TO TRUE                                DTSCS24
01502          MOVE HOLD-KEY-AREA TO ASKL-KEY-AREA                      DTSCS24
01503          PERFORM S823-READ THRU S823-EXIT                         DTSCS24
01504          IF L823-NO-REC-88                                        DTSCS24
01505              GO TO S899-ABEND.                                    DTSCS24
01506  P6130-EXIT.                                                      DTSCS24
01507      EXIT.                                                        DTSCS24
01508      SKIP3                                                        DTSCS24
01509  P6140-PAGE-NEXT.                                                 DTSCS24
01510      IF LCCM-ITEM-NO = ASKL-ITEM-NO                               DTSCS24
01511          NEXT SENTENCE                                            DTSCS24
01512      ELSE                                                         DTSCS24
01513          PERFORM S823-END-BROWSE THRU S823-EXIT                   DTSCS24
01514          GO TO P6140-EXIT.                                        DTSCS24
01515                                                                   DTSCS24
01516      MOVE ASKL-KEY-AREA TO HOLD-KEY-AREA.                         DTSCS24
01517                                                                   DTSCS24
01518      PERFORM S823-READ-NEXT THRU S823-EXIT.                       DTSCS24
01519                                                                   DTSCS24
01520      IF L823-NO-REC-88                                            DTSCS24
01521          SET PAGE-LAST-88 TO TRUE                                 DTSCS24
01522          GO TO P6140-EXIT.                                        DTSCS24
01523                                                                   DTSCS24
01524      PERFORM S823-END-BROWSE THRU S823-EXIT.                      DTSCS24
01525                                                                   DTSCS24
01526      IF (ASKL-ITEM-NO > +0)                                       DTSCS24
01527             AND                                                   DTSCS24
01528         (ASKL-BATCH-NO = WRK-BATCH-NO)                            DTSCS24
01529          NEXT SENTENCE                                            DTSCS24
01530      ELSE                                                         DTSCS24
01531          SET PAGE-LAST-88 TO TRUE                                 DTSCS24
01532          MOVE HOLD-KEY-AREA TO ASKL-KEY-AREA                      DTSCS24
01533          PERFORM S823-READ THRU S823-EXIT                         DTSCS24
01534          IF L823-NO-REC-88                                        DTSCS24
01535              GO TO S899-ABEND.                                    DTSCS24
01536  P6140-EXIT.                                                      DTSCS24
01537      EXIT.                                                        DTSCS24
01538 /*****************************************************************DTSCS24
01539 * THE RECORD WAS FOUND SO FORMAT AND PLACE ALL FIELDS            *DTSCS24
01540 ******************************************************************DTSCS24
01541                                                                   DTSCS24
01542  P6900-CONSTRUCT-SCREEN.                                          DTSCS24
01543      IF ASKL-RPT-88                                               DTSCS24
01544          NEXT SENTENCE                                            DTSCS24
01545      ELSE                                                         DTSCS24
01546          GO TO S899-ABEND.                                        DTSCS24
01547                                                                   DTSCS24
01548      MOVE ASKL-REC TO ARPT-REC.                                   DTSCS24
01549                                                                   DTSCS24
01550      PERFORM P6910-FROM-ARPT THRU P6910-EXIT.                     DTSCS24
01551                                                                   DTSCS24
01552      IF ARPT-PROCESSED-DATE > +0                                  DTSCS24
01553          MOVE MSG-P24D-AREA TO LCCM-MSG-AREA                      DTSCS24
01554 *********PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT              DTSCS24
01555          GO TO P6900-EXIT.                                        DTSCS24
01556                                                                   DTSCS24
01557      IF (ARPT-PASSED-FULL-EDITS-NO-88)                            DTSCS24
01558                AND                                                DTSCS24
01559         (LCCM-OP-ARPT-EDIT-FULL-88)                               DTSCS24
01560          PERFORM P6990-REEDIT THRU P6990-EXIT                     DTSCS24
01561          GO TO P6900-EXIT.                                        DTSCS24
01562                                                                   DTSCS24
01563      IF PAGE-FIRST-88                                             DTSCS24
01564          MOVE PMSG-FIRST-PAGE TO LCCM-MSG-AREA                    DTSCS24
01565      ELSE                                                         DTSCS24
01566      IF PAGE-LAST-88                                              DTSCS24
01567          MOVE PMSG-LAST-PAGE TO LCCM-MSG-AREA.                    DTSCS24
01568  P6900-EXIT.                                                      DTSCS24
01569      EXIT.                                                        DTSCS24
01570                                                                   DTSCS24
01571                                                                   DTSCS24
01572                                                                   DTSCS24
01573  P6910-FROM-ARPT.                                                 DTSCS24
01574      MOVE ARPT-BATCH-NO TO MAP-BATCH-NO-N.                        DTSCS24
01575                                                                   DTSCS24
01576      MOVE ARPT-ITEM-NO TO MAP-ITEM-NO-N.                          DTSCS24
01577                                                                   DTSCS24
01578      IF NOT ARPT-NAME-CHECK-NO-ENTRY-88                           DTSCS24
01579          MOVE ARPT-NAME-CHECK TO MAP-NAME-CHECK.                  DTSCS24
01580                                                                   DTSCS24
01581      IF NOT ARPT-EMP-NO-NO-ENTRY-88                               DTSCS24
01582          MOVE ARPT-EMP-NO TO LCCM-EMP-NO                          DTSCS24
01583                              WRK-DISPLAY                          DTSCS24
01584          MOVE WRK-EMP-NO-1 TO MAP-EMP-NO-1                        DTSCS24
01585          MOVE WRK-EMP-NO-2 TO MAP-EMP-NO-2.                       DTSCS24
01586                                                                   DTSCS24
01587      IF NOT ARPT-YRQ-NO-ENTRY-88                                  DTSCS24
01588          MOVE ARPT-YRQ TO WRK-DISPLAY                             DTSCS24
01589          MOVE WRK-DISPLAY-YRQ-YR TO MAP-YRQ-YR                    DTSCS24
01590          MOVE WRK-DISPLAY-YRQ-Q TO MAP-YRQ-Q.                     DTSCS24
01591                                                                   DTSCS24
01592      MOVE ARPT-VERIFIED-IND TO MAP-VERIFIED-IND                   DTSCS24
01593                                                                   DTSCS24
01594      IF NOT ARPT-TOTAL-NO-ENTRY-88                                DTSCS24
01595         MOVE ARPT-TOTAL-EMPL-CNT TO MAP-TOTAL-EMPL-CNT-N.         DTSCS24
01596                                                                   DTSCS24
01597      IF NOT ARPT-1ST-MTH-NO-ENTRY-88                              DTSCS24
01598         MOVE ARPT-1ST-MTH-EMPL-CNT TO MAP-1ST-MTH-EMPL-CNT-N.     DTSCS24
01599                                                                   DTSCS24
01600      IF NOT ARPT-2ND-MTH-NO-ENTRY-88                              DTSCS24
01601         MOVE ARPT-2ND-MTH-EMPL-CNT TO MAP-2ND-MTH-EMPL-CNT-N.     DTSCS24
01602                                                                   DTSCS24
01603      IF NOT ARPT-3RD-MTH-NO-ENTRY-88                              DTSCS24
01604         MOVE ARPT-3RD-MTH-EMPL-CNT TO MAP-3RD-MTH-EMPL-CNT-N.     DTSCS24
01605                                                                   DTSCS24
01606      IF NOT ARPT-TOT-WAGE-NO-ENTRY-88                             DTSCS24
01607          MOVE ARPT-TOT-WAGE TO MAP-TOT-WAGE-N.                    DTSCS24
01608                                                                   DTSCS24
01609      IF NOT ARPT-EXCESS-WAGE-NO-ENTRY-88                          DTSCS24
01610          MOVE ARPT-EXCESS-WAGE TO MAP-EXCESS-WAGE-N.              DTSCS24
01611                                                                   DTSCS24
01612      IF NOT ARPT-TAX-WAGE-NO-ENTRY-88                             DTSCS24
01613          MOVE ARPT-TAX-WAGE TO MAP-TAX-WAGE-N.                    DTSCS24
01614                                                                   DTSCS24
01615      IF NOT ARPT-REMIT-AMT-NO-ENTRY-88                            DTSCS24
01616          MOVE ARPT-REMIT-AMT TO MAP-REMIT-AMT-N.                  DTSCS24
01617                                                                   DTSCS24
01618      MOVE ARPT-RPT-TYPE TO MAP-RPT-TYPE.                          DTSCS24
01619                                                                   DTSCS24
01620      MOVE ARPT-WAIVE-BOTH-IND TO MAP-WAIVE-BOTH-IND               DTSCS24
01621                                                                   DTSCS24
01622      MOVE ARPT-WAIVE-LATE-PEN-IND TO MAP-WAIVE-LATE-PEN-IND       DTSCS24
01623                                                                   DTSCS24
01624      MOVE ARPT-WAIVE-INT-IND TO MAP-WAIVE-INT-IND                 DTSCS24
01625                                                                   DTSCS24
01626      IF  ARPT-WAGE-RPT-IND = LOW-VALUES OR SPACES                 DTSCS24
01627          MOVE 'D' TO MAP-WAGE-RPT-IND                             DTSCS24
01628      ELSE                                                         DTSCS24
01629          MOVE ARPT-WAGE-RPT-IND TO MAP-WAGE-RPT-IND.              DTSCS24
01630                                                                   DTSCS24
01631      IF  ARPT-STATUS-CHNG-IND = LOW-VALUES OR SPACES              DTSCS24
01632          MOVE 'N' TO MAP-WAGE-RPT-IND                             DTSCS24
01633      ELSE                                                         DTSCS24
01634          MOVE ARPT-STATUS-CHNG-IND TO MAP-STATUS-CHG-IND.         DTSCS24
01635                                                                   DTSCS24
01636      MOVE ARPT-RESPONSIBLE-ACTIVITY TO MAP-RESPONSIBLE-ACTIVITY.  DTSCS24
01637                                                                   DTSCS24
01638      MOVE ARPT-RESPONSIBLE-OP-ID TO MAP-RESPONSIBLE-OP-ID.        DTSCS24
01639                                                                   DTSCS24
01640      IF ARPT-RECEIVED-DATE > +0                                   DTSCS24
01641         MOVE ARPT-RECEIVED-DATE TO WRK-DISPLAY                    DTSCS24
01642         MOVE WRK-DISPLAY-MO TO MAP-RECEIVED-DATE-MO               DTSCS24
01643         MOVE WRK-DISPLAY-DA TO MAP-RECEIVED-DATE-DA               DTSCS24
01644         MOVE WRK-DISPLAY-YR TO MAP-RECEIVED-DATE-YR.              DTSCS24
01645                                                                   DTSCS24
01646      MOVE ARPT-DISREGARD-EDITS-IND TO MAP-DISREGARD-EDITS-IND.    DTSCS24
01647                                                                   DTSCS24
01648      MOVE ARPT-PASSED-FULL-EDITS-IND                              DTSCS24
01649        TO MAP-PASSED-FULL-EDITS-IND.                              DTSCS24
01650                                                                   DTSCS24
01651      IF ARPT-PROCESSED-DATE > +0                                  DTSCS24
01652         MOVE ARPT-PROCESSED-DATE TO L001-FED-8-DATE-9             DTSCS24
01653         PERFORM S001-FROM-FED-8 THRU S001-EXIT                    DTSCS24
01654         MOVE L001-SLASH-DATE TO MAP-PROCESSED-DATE.               DTSCS24
01655  P6910-EXIT.                                                      DTSCS24
01656      EXIT.                                                        DTSCS24
01657                                                                   DTSCS24
01658                                                                   DTSCS24
01659                                                                   DTSCS24
01660  P6990-REEDIT.                                                    DTSCS24
01661      SET LCCM-F10-88 TO TRUE.                                     DTSCS24
01662                                                                   DTSCS24
01663      PERFORM S1000-SCREEN-EDITS THRU S1000-EXIT.                  DTSCS24
01664                                                                   DTSCS24
01665      IF LCCM-NO-MSG                                               DTSCS24
01666          IF SCR-ACCESS-UPDATE                                     DTSCS24
01667              MOVE MSG-P24E-AREA TO LCCM-MSG-AREA.                 DTSCS24
01668                                                                   DTSCS24
01669      IF SCR-ACCESS-UPDATE                                         DTSCS24
01670          NEXT SENTENCE                                            DTSCS24
01671      ELSE                                                         DTSCS24
01672          PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT.             DTSCS24
01673  P6990-EXIT.                                                      DTSCS24
01674      EXIT.                                                        DTSCS24
01675 /*****************************************************************DTSCS24
01676 * FUNCTION KEY TO ADD, MOD OR DEL THE RECORD WAS PRESSED.        *DTSCS24
01677 ******************************************************************DTSCS24
01678                                                                   DTSCS24
01679  P7000-REQUEST-EDIT.                                              DTSCS24
01680      PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT.              DTSCS24
01681                                                                   DTSCS24
01682 *****IF LCCM-ENTER-88                                             DTSCS24
01683 *****   PERFORM P7100-EDIT-ADD THRU P7100-EXIT                    DTSCS24
01684 *****ELSE                                                         DTSCS24
01685      IF LCCM-F10-88                                               DTSCS24
01686         PERFORM P7200-EDIT-MOD THRU P7200-EXIT                    DTSCS24
01687      ELSE                                                         DTSCS24
01688      IF LCCM-F23-88                                               DTSCS24
01689         PERFORM P7300-EDIT-DEL THRU P7300-EXIT                    DTSCS24
01690      ELSE                                                         DTSCS24
01691         GO TO S899-ABEND.                                         DTSCS24
01692                                                                   DTSCS24
01693                                                                   DTSCS24
01694 *------------------------------------------------------           DTSCS24
01695 *  SCREEN STATUS IS NOT CHANGED IF AN ERROR IS DETECTED.          DTSCS24
01696 *  IN ORDER TO CONTINUE TO ATTEMPT A MOD THE SCREEN MUST          DTSCS24
01697 *  REMAIN IN 'INQUIRE' STATUS.                                    DTSCS24
01698 *------------------------------------------------------           DTSCS24
01699                                                                   DTSCS24
01700      IF LCCM-MSG                                                  DTSCS24
01701         NEXT SENTENCE                                             DTSCS24
01702      ELSE                                                         DTSCS24
01703         PERFORM S5100-SET-LOCK-ATTRB THRU S5100-EXIT              DTSCS24
01704 *****   IF LCCM-ENTER-88                                          DTSCS24
01705 *****      SET LCCM-SCR-ADD-LOCKED TO TRUE                        DTSCS24
01706 *****      MOVE PMSG-ADD-CONFIRM TO LCCM-MSG-ID                   DTSCS24
01707 *****   ELSE                                                      DTSCS24
01708         IF LCCM-F10-88                                            DTSCS24
01709            SET LCCM-SCR-MOD-LOCKED TO TRUE                        DTSCS24
01710            MOVE PMSG-MOD-CONFIRM TO LCCM-MSG-ID                   DTSCS24
01711         ELSE                                                      DTSCS24
01712         IF LCCM-F23-88                                            DTSCS24
01713            SET LCCM-SCR-DEL-LOCKED TO TRUE                        DTSCS24
01714            MOVE PMSG-DEL-CONFIRM TO LCCM-MSG-ID.                  DTSCS24
01715                                                                   DTSCS24
01716                                                                   DTSCS24
01717      SET RESP-SEND-MAP TO TRUE.                                   DTSCS24
01718  P7000-EXIT.                                                      DTSCS24
01719      EXIT.                                                        DTSCS24
01720 /*****************************************************************DTSCS24
01721 * MODIFICATION FUNCTION WAS REQUESTED                            *DTSCS24
01722 ******************************************************************DTSCS24
01723                                                                   DTSCS24
01724  P7200-EDIT-MOD.                                                  DTSCS24
01725                                                                   DTSCS24
01726 *-----------------------------------------------------            DTSCS24
01727 *    MODIFICATION REQUIRES THAT A RECORD WAS SUCCESSFULLY         DTSCS24
01728 *    INQUIRED                                                     DTSCS24
01729 *-----------------------------------------------------            DTSCS24
01730                                                                   DTSCS24
01731      IF NOT LCCM-SCR-INQUIRE                                      DTSCS24
01732         MOVE EMSG-MOD-PRECEDED TO LCCM-MSG-ID                     DTSCS24
01733         GO TO P7200-EXIT.                                         DTSCS24
01734                                                                   DTSCS24
01735                                                                   DTSCS24
01736 *-----------------------------------------------------            DTSCS24
01737 *    MAP-BATCH-NO MAY NOT BE CHANGED DURING THE MOD               DTSCS24
01738 *-----------------------------------------------------            DTSCS24
01739                                                                   DTSCS24
01740      PERFORM S1100-EDIT-KEY THRU S1100-EXIT.                      DTSCS24
01741                                                                   DTSCS24
01742      IF LCCM-MSG                                                  DTSCS24
01743          GO TO P7200-EXIT.                                        DTSCS24
01744                                                                   DTSCS24
01745      IF LCCM-BATCH-NO NOT = WRK-BATCH-NO                          DTSCS24
01746         MOVE EMSG-NO-BATCH-NO-CHANGE TO WRK-MSG-AREA              DTSCS24
01747         PERFORM S1111-ERROR THRU S1111-EXIT                       DTSCS24
01748         GO TO P7200-EXIT.                                         DTSCS24
01749                                                                   DTSCS24
01750      IF LCCM-ITEM-NO NOT = WRK-ITEM-NO                            DTSCS24
01751         MOVE EMSG-NO-ITEM-NO-CHANGE  TO WRK-MSG-AREA              DTSCS24
01752         PERFORM S1112-ERROR THRU S1112-EXIT                       DTSCS24
01753         GO TO P7200-EXIT.                                         DTSCS24
01754                                                                   DTSCS24
01755                                                                   DTSCS24
01756      PERFORM P7910-EDIT-FOR-PROCESSED THRU P7910-EXIT.            DTSCS24
01757                                                                   DTSCS24
01758      IF LCCM-MSG                                                  DTSCS24
01759          GO TO P7200-EXIT.                                        DTSCS24
01760                                                                   DTSCS24
01761                                                                   DTSCS24
01762      PERFORM S1000-SCREEN-EDITS THRU S1000-EXIT.                  DTSCS24
01763                                                                   DTSCS24
01764                                                                   DTSCS24
01765      MOVE WRK-PASSED-FULL-EDITS-IND                               DTSCS24
01766        TO  LCCM-SCR-HOLD-FULL-EDITS-IND                           DTSCS24
01767            MAP-PASSED-FULL-EDITS-IND.                             DTSCS24
01768  P7200-EXIT.                                                      DTSCS24
01769      EXIT.                                                        DTSCS24
01770 /*****************************************************************DTSCS24
01771 * DELETE FUNCTION WAS REQUESTED                                  *DTSCS24
01772 ******************************************************************DTSCS24
01773                                                                   DTSCS24
01774  P7300-EDIT-DEL.                                                  DTSCS24
01775                                                                   DTSCS24
01776 *-----------------------------------------------------            DTSCS24
01777 *    DELETION ALLOWED ONLY FOR USERS REFERENCED BELOW:            DTSCS24
01778 *    DELETION IS NOT ALLOWED IF THE BATCH IS NOT BALANCED.        DTSCS24
01779 *-----------------------------------------------------            DTSCS24
01780      IF SCR-ACCESS-SUPERVISOR                                     DTSCS24
01781         NEXT SENTENCE                                             DTSCS24
01782      ELSE                                                         DTSCS24
01783         MOVE MSG-E24I-AREA  TO WRK-MSG-AREA                       DTSCS24
01784         PERFORM S1111-ERROR THRU S1111-EXIT                       DTSCS24
01785         GO TO P7300-EXIT.                                         DTSCS24
01786                                                                   DTSCS24
01787 *-----------------------------------------------------            DTSCS24
01788 *    DELETION REQUIRES THAT A RECORD WAS SUCCESSFULLY             DTSCS24
01789 *    INQUIRED                                                     DTSCS24
01790 *-----------------------------------------------------            DTSCS24
01791                                                                   DTSCS24
01792      IF NOT LCCM-SCR-INQUIRE                                      DTSCS24
01793         MOVE EMSG-DEL-PRECEDED TO LCCM-MSG-ID                     DTSCS24
01794         GO TO P7300-EXIT.                                         DTSCS24
01795                                                                   DTSCS24
01796                                                                   DTSCS24
01797 *-----------------------------------------------------            DTSCS24
01798 *    MAP-BATCH-NO MAY NOT BE CHANGED DURING THE DEL               DTSCS24
01799 *-----------------------------------------------------            DTSCS24
01800                                                                   DTSCS24
01801      PERFORM S1100-EDIT-KEY THRU S1100-EXIT.                      DTSCS24
01802                                                                   DTSCS24
01803      IF LCCM-MSG                                                  DTSCS24
01804          GO TO P7300-EXIT.                                        DTSCS24
01805                                                                   DTSCS24
01806      IF LCCM-BATCH-NO NOT = WRK-BATCH-NO                          DTSCS24
01807         MOVE EMSG-NO-BATCH-NO-CHANGE TO WRK-MSG-AREA              DTSCS24
01808         PERFORM S1111-ERROR THRU S1111-EXIT                       DTSCS24
01809         GO TO P7300-EXIT.                                         DTSCS24
01810                                                                   DTSCS24
01811      IF LCCM-ITEM-NO NOT = WRK-ITEM-NO                            DTSCS24
01812         MOVE EMSG-NO-ITEM-NO-CHANGE TO WRK-MSG-AREA               DTSCS24
01813         PERFORM S1112-ERROR THRU S1112-EXIT                       DTSCS24
01814         GO TO P7300-EXIT.                                         DTSCS24
01815                                                                   DTSCS24
01816      MOVE WRK-BATCH-NO TO L372-BATCH-NO.                          DTSCS24
01817      PERFORM S372-BATCH-INQUIRY THRU S372-EXIT.                   DTSCS24
01818 *    IF L372-BATCH-BALANCED-NO-88                                 DTSCS24
01819 *       MOVE MSG-E24J-AREA  TO WRK-MSG-AREA                       DTSCS24
01820 *       PERFORM S1111-ERROR THRU S1111-EXIT                       DTSCS24
01821 *       GO TO P7300-EXIT.                                         DTSCS24
01822                                                                   DTSCS24
01823                                                                   DTSCS24
01824      PERFORM P7910-EDIT-FOR-PROCESSED THRU P7910-EXIT.            DTSCS24
01825                                                                   DTSCS24
01826      IF LCCM-MSG                                                  DTSCS24
01827          GO TO P7300-EXIT.                                        DTSCS24
01828  P7300-EXIT.                                                      DTSCS24
01829      EXIT.                                                        DTSCS24
01830      EJECT                                                        DTSCS24
01831  P7910-EDIT-FOR-PROCESSED.                                        DTSCS24
01832      MOVE LOW-VALUES TO ASKL-KEY-AREA.                            DTSCS24
01833                                                                   DTSCS24
01834      MOVE WRK-BATCH-NO TO ASKL-BATCH-NO.                          DTSCS24
01835                                                                   DTSCS24
01836      MOVE WRK-ITEM-NO TO ASKL-ITEM-NO.                            DTSCS24
01837                                                                   DTSCS24
01838      PERFORM S823-READ THRU S823-EXIT.                            DTSCS24
01839                                                                   DTSCS24
01840      IF L823-NO-REC-88                                            DTSCS24
01841          GO TO P7910-EXIT.                                        DTSCS24
01842                                                                   DTSCS24
01843                                                                   DTSCS24
01844      MOVE ASKL-REC TO ARPT-REC.                                   DTSCS24
01845                                                                   DTSCS24
01846                                                                   DTSCS24
01847      IF ARPT-NOT-PROCESSED-88                                     DTSCS24
01848          CONTINUE                                                 DTSCS24
01849      ELSE                                                         DTSCS24
01850          MOVE MSG-E24C-AREA TO WRK-MSG-AREA                       DTSCS24
01851          PERFORM S1111-ERROR THRU S1111-EXIT                      DTSCS24
01852          PERFORM S1112-ERROR THRU S1112-EXIT                      DTSCS24
01853          GO TO P7910-EXIT.                                        DTSCS24
01854  P7910-EXIT.                                                      DTSCS24
01855      EXIT.                                                        DTSCS24
01856 /*****************************************************************DTSCS24
01857 * THE UPDATE/ADD/DELETE FUNCTION WAS CONFIRMED OR CANCELED       *DTSCS24
01858 ******************************************************************DTSCS24
01859                                                                   DTSCS24
01860  P8000-REQUEST-UPDATE.                                            DTSCS24
01861                                                                   DTSCS24
01862 *****IF LCCM-SCR-ADD-LOCKED                                       DTSCS24
01863 *****   PERFORM P8100-ADD THRU P8100-EXIT                         DTSCS24
01864 *****ELSE                                                         DTSCS24
01865      IF LCCM-SCR-MOD-LOCKED                                       DTSCS24
01866         PERFORM P8200-MOD THRU P8200-EXIT                         DTSCS24
01867      ELSE                                                         DTSCS24
01868      IF LCCM-SCR-DEL-LOCKED                                       DTSCS24
01869         PERFORM P8300-DEL THRU P8300-EXIT                         DTSCS24
01870      ELSE                                                         DTSCS24
01871         PERFORM P8100-ADD THRU P8100-EXIT.                        DTSCS24
01872                                                                   DTSCS24
01873      SET RESP-SEND-MAP TO TRUE.                                   DTSCS24
01874  P8000-EXIT.                                                      DTSCS24
01875      EXIT.                                                        DTSCS24
01876 /*****************************************************************DTSCS24
01877 *                                                                *DTSCS24
01878 ******************************************************************DTSCS24
01879                                                                   DTSCS24
01880  P8100-ADD.                                                       DTSCS24
01881      PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT.              DTSCS24
01882                                                                   DTSCS24
01883      IF NOT LCCM-SCR-CLEAR                                        DTSCS24
01884          MOVE EMSG-ADD-PRECEDED TO LCCM-MSG-ID                    DTSCS24
01885          GO TO P8100-EXIT.                                        DTSCS24
01886                                                                   DTSCS24
01887                                                                   DTSCS24
01888      PERFORM S1000-SCREEN-EDITS THRU S1000-EXIT.                  DTSCS24
01889                                                                   DTSCS24
01890      IF (WRK-BATCH-NO = LCCM-BATCH-NO)                            DTSCS24
01891 *************OR                                                   DTSCS24
01892 ********(WRK-BATCH-NO = +0)                                       DTSCS24
01893          NEXT SENTENCE                                            DTSCS24
01894      ELSE                                                         DTSCS24
01895          MOVE WRK-BATCH-NO TO LCCM-BATCH-NO                       DTSCS24
01896          MOVE +0 TO LCCM-ITEM-NO.                                 DTSCS24
01897                                                                   DTSCS24
01898      IF LCCM-MSG                                                  DTSCS24
01899         GO TO P8100-EXIT.                                         DTSCS24
01900                                                                   DTSCS24
01901                                                                   DTSCS24
01902      PERFORM P8101-PREVIOUSLY-ENTERED-EDIT THRU P8101-EXIT.       DTSCS24
01903                                                                   DTSCS24
01904      IF LCCM-MSG                                                  DTSCS24
01905          GO TO P8100-EXIT.                                        DTSCS24
01906                                                                   DTSCS24
01907                                                                   DTSCS24
01908 *---------------------------------------------------              DTSCS24
01909 *    BATCH HEADER RECORD MUST EXIST                               DTSCS24
01910 *---------------------------------------------------              DTSCS24
01911 *****IF WRK-BATCH-NO NOT = +0                                     DTSCS24
01912 ********MOVE LCCM-TRAN-MAX TO WRK-TRAN-MAX                        DTSCS24
01913 ********MOVE +999 TO WRK-ITEM-MAX                                 DTSCS24
01914                                                                   DTSCS24
01915      PERFORM P8910-CHECK-BATCH THRU P8910-EXIT.                   DTSCS24
01916                                                                   DTSCS24
01917      IF LCCM-MSG                                                  DTSCS24
01918         GO TO P8100-EXIT.                                         DTSCS24
01919                                                                   DTSCS24
01920                                                                   DTSCS24
01921      IF WRK-ITEM-NO = +0                                          DTSCS24
01922          PERFORM P8102-CHECK-FULL-BATCH THRU P8102-EXIT           DTSCS24
01923      ELSE                                                         DTSCS24
01924          PERFORM P8103-CHECK-DUPLICATE THRU P8103-EXIT.           DTSCS24
01925                                                                   DTSCS24
01926      IF LCCM-MSG                                                  DTSCS24
01927          GO TO P8100-EXIT.                                        DTSCS24
01928                                                                   DTSCS24
01929                                                                   DTSCS24
01930      PERFORM P8110-ADD-ARPT THRU P8110-EXIT.                      DTSCS24
01931                                                                   DTSCS24
01932      MOVE 'A'                    TO L221-UPDATE-FUNCTION.         DTSCS24
01933      PERFORM S221-WRITE-R906     THRU S221-EXIT.                  DTSCS24
01934                                                                   DTSCS24
01935      MOVE ARPT-REC TO LCCM-SCR-HOLD-ARPT-REC.                     DTSCS24
01936                                                                   DTSCS24
01937                                                                   DTSCS24
01938 *****IF LCCM-MSG                                                  DTSCS24
01939 *********NEXT SENTENCE                                            DTSCS24
01940 *****ELSE                                                         DTSCS24
01941 *********MOVE PMSG-ADD-SUCCESSFUL TO LCCM-MSG-ID.                 DTSCS24
01942                                                                   DTSCS24
01943                                                                   DTSCS24
01944      PERFORM P8120-READY-SCREEN THRU P8120-EXIT.                  DTSCS24
01945  P8100-EXIT.                                                      DTSCS24
01946      EXIT.                                                        DTSCS24
01947      SKIP3                                                        DTSCS24
01948  P8101-PREVIOUSLY-ENTERED-EDIT.                                   DTSCS24
01949      IF LCCM-SCR-HOLD-ARPT-REC = LOW-VALUES                       DTSCS24
01950          GO TO P8101-EXIT.                                        DTSCS24
01951                                                                   DTSCS24
01952      IF MAP-RPT-ORIG-88                                           DTSCS24
01953          NEXT SENTENCE                                            DTSCS24
01954      ELSE                                                         DTSCS24
01955          GO TO P8101-EXIT.                                        DTSCS24
01956                                                                   DTSCS24
01957      MOVE LCCM-SCR-HOLD-ARPT-REC TO ARPT-REC.                     DTSCS24
01958                                                                   DTSCS24
01959 *& THE FOLLOWING 3 LINES ADDED TO PREVENT DUPLICATE TRANSACTION   DTSCS24
01960 *  ERRORS WHEN REPORTS ENTERED WITHOUT ACCOUNT NUMBER.  GD 2/10/20DTSCS24
01961      IF WRK-EMP-NO = ZERO                                         DTSCS24
01962         NEXT SENTENCE                                             DTSCS24
01963      ELSE                                                         DTSCS24
01964      IF (ARPT-ORIG-88)                                            DTSCS24
01965            AND                                                    DTSCS24
01966         (ARPT-EMP-NO = WRK-EMP-NO)                                DTSCS24
01967            AND                                                    DTSCS24
01968         (ARPT-YRQ = WRK-YRQ)                                      DTSCS24
01969          MOVE MSG-E24B-AREA TO WRK-MSG-AREA                       DTSCS24
01970          PERFORM S1201-ERROR THRU S1201-EXIT.                     DTSCS24
01971  P8101-EXIT.                                                      DTSCS24
01972      EXIT.                                                        DTSCS24
01973      SKIP3                                                        DTSCS24
01974  P8102-CHECK-FULL-BATCH.                                          DTSCS24
01975      IF L372-LAST-USED-ITEM-MAX-88                                DTSCS24
01976          MOVE EMSG-BATCH-FULL TO WRK-MSG-AREA                     DTSCS24
01977          PERFORM S1111-ERROR THRU S1111-EXIT.                     DTSCS24
01978  P8102-EXIT.                                                      DTSCS24
01979      EXIT.                                                        DTSCS24
01980      SKIP3                                                        DTSCS24
01981  P8103-CHECK-DUPLICATE.                                           DTSCS24
01982      IF WRK-ITEM-NO > L372-LAST-USED-ITEM-NO                      DTSCS24
01983          GO TO P8103-EXIT.                                        DTSCS24
01984                                                                   DTSCS24
01985                                                                   DTSCS24
01986      MOVE LOW-VALUES TO ASKL-KEY-AREA.                            DTSCS24
01987                                                                   DTSCS24
01988      MOVE WRK-BATCH-NO TO ASKL-BATCH-NO.                          DTSCS24
01989                                                                   DTSCS24
01990      MOVE WRK-ITEM-NO TO ASKL-ITEM-NO.                            DTSCS24
01991                                                                   DTSCS24
01992      PERFORM S823-READ THRU S823-EXIT.                            DTSCS24
01993                                                                   DTSCS24
01994      IF L823-OK-88                                                DTSCS24
01995          MOVE EMSG-RECORD-EXISTS TO WRK-MSG-AREA                  DTSCS24
01996          PERFORM S1112-ERROR THRU S1112-EXIT.                     DTSCS24
01997  P8103-EXIT.                                                      DTSCS24
01998      EXIT.                                                        DTSCS24
01999      SKIP3                                                        DTSCS24
02000  P8110-ADD-ARPT.                                                  DTSCS24
02001 *---------------------------------------------------              DTSCS24
02002 * BUILD A BATCH HEADER ON THE FLY IF NO BATCH-NO SPECIFIED        DTSCS24
02003 *---------------------------------------------------              DTSCS24
02004 *****IF WRK-BATCH-NO = +0                                         DTSCS24
02005 ********MOVE LCCM-OP-ID TO L373-ESTB-OP-ID                        DTSCS24
02006 ********PERFORM S373-ADD-HDR THRU S373-EXIT                       DTSCS24
02007 ********MOVE L373-BATCH-NO TO MAP-BATCH-NO                        DTSCS24
02008 ******************************LCCM-BATCH-NO                       DTSCS24
02009 ******************************WRK-BATCH-NO.                       DTSCS24
02010                                                                   DTSCS24
02011      IF MAP-RPT-WITHDRW-88                                        DTSCS24
02012         MOVE ZERO                 TO WRK-REMIT-AMT                DTSCS24
02013                                      WRK-TOTAL-EMPL-CNT           DTSCS24
02014                                      WRK-1ST-MTH-EMPL-CNT         DTSCS24
02015                                      WRK-2ND-MTH-EMPL-CNT         DTSCS24
02016                                      WRK-3RD-MTH-EMPL-CNT         DTSCS24
02017      END-IF.                                                      DTSCS24
02018                                                                   DTSCS24
02019      MOVE WRK-BATCH-NO TO L372-BATCH-NO.                          DTSCS24
02020                                                                   DTSCS24
02021      MOVE +1 TO L372-CHNG-ATC-FILE-TRAN-CNT.                      DTSCS24
02022                                                                   DTSCS24
02023      MOVE WRK-REMIT-AMT TO L372-CHNG-ATC-FILE-REMIT-AMT.          DTSCS24
02024                                                                   DTSCS24
02025      IF WRK-ITEM-NO > +0                                          DTSCS24
02026          MOVE WRK-ITEM-NO TO L372-CHNG-LAST-USED-ITEM-NO          DTSCS24
02027          SET L372-CHNG-INCR-LAST-USED-N-88 TO TRUE                DTSCS24
02028      ELSE                                                         DTSCS24
02029          MOVE +0 TO L372-CHNG-LAST-USED-ITEM-NO                   DTSCS24
02030          SET L372-CHNG-INCR-LAST-USED-Y-88 TO TRUE.               DTSCS24
02031                                                                   DTSCS24
02032      PERFORM S372-BATCH-UPDATE THRU S372-EXIT.                    DTSCS24
02033                                                                   DTSCS24
02034      IF L372-RESULT-OK                                            DTSCS24
02035          NEXT SENTENCE                                            DTSCS24
02036      ELSE                                                         DTSCS24
02037          GO TO S899-ABEND.                                        DTSCS24
02038                                                                   DTSCS24
02039 *****MOVE L372-LAST-USED-ITEM-NO TO LCCM-ITEM-NO                  DTSCS24
02040 ************************************WRK-ITEM-NO.                  DTSCS24
02041                                                                   DTSCS24
02042      IF WRK-ITEM-NO > +0                                          DTSCS24
02043          MOVE WRK-ITEM-NO TO LCCM-ITEM-NO                         DTSCS24
02044      ELSE                                                         DTSCS24
02045          MOVE L372-LAST-USED-ITEM-NO TO WRK-ITEM-NO               DTSCS24
02046                                         LCCM-ITEM-NO.             DTSCS24
02047                                                                   DTSCS24
02048      PERFORM P8920-CONSTRUCT-ARPT THRU P8920-EXIT.                DTSCS24
02049                                                                   DTSCS24
02050      MOVE ARPT-REC TO ASKL-REC.                                   DTSCS24
02051                                                                   DTSCS24
02052      PERFORM S823-WRITE THRU S823-EXIT.                           DTSCS24
02053                                                                   DTSCS24
02054      SET WRK-AATH-ACTION-ADD-88   TO TRUE.                        DTSCS24
02055      PERFORM S826-WRITE-ATH       THRU S826-EXIT.                 DTSCS24
02056                                                                   DTSCS24
02057  P8110-EXIT.                                                      DTSCS24
02058      EXIT.                                                        DTSCS24
02059                                                                   DTSCS24
02060                                                                   DTSCS24
02061                                                                   DTSCS24
02062  P8120-READY-SCREEN.                                              DTSCS24
02063      MOVE LOW-VALUES TO MAP-AREA.                                 DTSCS24
02064                                                                   DTSCS24
02065      PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT.              DTSCS24
02066                                                                   DTSCS24
02067      MOVE LCCM-BATCH-NO TO MAP-BATCH-NO-N.                        DTSCS24
02068                                                                   DTSCS24
02069      MOVE LCCM-ENTRY-MODE TO MAP-ENTRY-MODE.                      DTSCS24
02070                                                                   DTSCS24
02071      IF MAP-ENTRY-MODE-1                                          DTSCS24
02072         IF CURSOR-SET-NO                                          DTSCS24
02073            MOVE CATB-CURSOR TO MAP-NAME-CHECK-L                   DTSCS24
02074            SET CURSOR-SET-YES TO TRUE                             DTSCS24
02075         END-IF                                                    DTSCS24
02076      ELSE                                                         DTSCS24
02077      IF MAP-ENTRY-MODE-2                                          DTSCS24
02078         MOVE ARPT-YRQ TO WRK-DISPLAY                              DTSCS24
02079         MOVE WRK-DISPLAY-YRQ-YR TO MAP-YRQ-YR                     DTSCS24
02080         MOVE WRK-DISPLAY-YRQ-Q TO MAP-YRQ-Q                       DTSCS24
02081         IF CURSOR-SET-NO                                          DTSCS24
02082            MOVE CATB-CURSOR TO MAP-NAME-CHECK-L                   DTSCS24
02083            SET CURSOR-SET-YES TO TRUE                             DTSCS24
02084         END-IF                                                    DTSCS24
02085      ELSE                                                         DTSCS24
02086      IF MAP-ENTRY-MODE-3                                          DTSCS24
02087         MOVE ARPT-NAME-CHECK TO MAP-NAME-CHECK                    DTSCS24
02088         MOVE ARPT-EMP-NO TO LCCM-EMP-NO                           DTSCS24
02089                             WRK-DISPLAY                           DTSCS24
02090         MOVE WRK-EMP-NO-1 TO MAP-EMP-NO-1                         DTSCS24
02091         MOVE WRK-EMP-NO-2 TO MAP-EMP-NO-2                         DTSCS24
02092         MOVE ARPT-RPT-TYPE TO MAP-RPT-TYPE                        DTSCS24
02093         MOVE ARPT-WAIVE-BOTH-IND TO MAP-WAIVE-BOTH-IND            DTSCS24
02094         MOVE ARPT-WAIVE-LATE-PEN-IND TO MAP-WAIVE-LATE-PEN-IND    DTSCS24
02095         MOVE ARPT-WAIVE-INT-IND TO MAP-WAIVE-INT-IND              DTSCS24
02096         MOVE ARPT-RESPONSIBLE-ACTIVITY TO MAP-RESPONSIBLE-ACTIVITYDTSCS24
02097         MOVE ARPT-RESPONSIBLE-OP-ID TO MAP-RESPONSIBLE-OP-ID      DTSCS24
02098         IF ARPT-RECEIVED-DATE > +0                                DTSCS24
02099            MOVE ARPT-RECEIVED-DATE TO WRK-DISPLAY                 DTSCS24
02100            MOVE WRK-DISPLAY-MO TO MAP-RECEIVED-DATE-MO            DTSCS24
02101            MOVE WRK-DISPLAY-DA TO MAP-RECEIVED-DATE-DA            DTSCS24
02102            MOVE WRK-DISPLAY-YR TO MAP-RECEIVED-DATE-YR            DTSCS24
02103         END-IF                                                    DTSCS24
02104         IF CURSOR-SET-NO                                          DTSCS24
02105            MOVE CATB-CURSOR TO MAP-YRQ-YR-L                       DTSCS24
02106            SET CURSOR-SET-YES TO TRUE                             DTSCS24
02107         END-IF                                                    DTSCS24
02108      END-IF.                                                      DTSCS24
02109                                                                   DTSCS24
02110  P8120-EXIT.                                                      DTSCS24
02111      EXIT.                                                        DTSCS24
02112 /*****************************************************************DTSCS24
02113 * IF ENTER OR CANCEL, MODULE IS SET TO INQUIRY REGARDLESS        *DTSCS24
02114 ******************************************************************DTSCS24
02115                                                                   DTSCS24
02116  P8200-MOD.                                                       DTSCS24
02117      SET LCCM-SCR-INQUIRE TO TRUE.                                DTSCS24
02118                                                                   DTSCS24
02119      PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT.              DTSCS24
02120                                                                   DTSCS24
02121      IF LCCM-F12-88                                               DTSCS24
02122         MOVE PMSG-MOD-CANCELED TO LCCM-MSG-ID                     DTSCS24
02123         GO TO P8200-EXIT.                                         DTSCS24
02124                                                                   DTSCS24
02125      PERFORM S1100-EDIT-KEY THRU S1100-EXIT.                      DTSCS24
02126                                                                   DTSCS24
02127      IF LCCM-MSG                                                  DTSCS24
02128         GO TO P8200-EXIT                                          DTSCS24
02129      END-IF.                                                      DTSCS24
02130                                                                   DTSCS24
02131 *---------------------------------------------------              DTSCS24
02132 *    BATCH HEAD RECORD MUST EXIST                                 DTSCS24
02133 *---------------------------------------------------              DTSCS24
02134                                                                   DTSCS24
02135 *****IF WRK-BATCH-NO > +0                                         DTSCS24
02136 ********MOVE +1000 TO WRK-TRAN-MAX                                DTSCS24
02137 **********************WRK-ITEM-MAX                                DTSCS24
02138                                                                   DTSCS24
02139      PERFORM P8910-CHECK-BATCH THRU P8910-EXIT.                   DTSCS24
02140                                                                   DTSCS24
02141      IF LCCM-MSG                                                  DTSCS24
02142         GO TO P8200-EXIT.                                         DTSCS24
02143                                                                   DTSCS24
02144                                                                   DTSCS24
02145      PERFORM P8210-CONSTRUCT-ARPT THRU P8210-EXIT.                DTSCS24
02146                                                                   DTSCS24
02147      MOVE 'M'                    TO L221-UPDATE-FUNCTION.         DTSCS24
02148      PERFORM S221-WRITE-R906     THRU S221-EXIT.                  DTSCS24
02149                                                                   DTSCS24
02150      MOVE ARPT-PASSED-FULL-EDITS-IND                              DTSCS24
02151        TO MAP-PASSED-FULL-EDITS-IND.                              DTSCS24
02152                                                                   DTSCS24
02153      MOVE PMSG-MOD-SUCCESSFUL        TO LCCM-MSG-ID.              DTSCS24
02154  P8200-EXIT.                                                      DTSCS24
02155      EXIT.                                                        DTSCS24
02156      EJECT                                                        DTSCS24
02157  P8210-CONSTRUCT-ARPT.                                            DTSCS24
02158      MOVE WRK-BATCH-NO TO ARPT-BATCH-NO.                          DTSCS24
02159                                                                   DTSCS24
02160      MOVE WRK-ITEM-NO TO ARPT-ITEM-NO.                            DTSCS24
02161                                                                   DTSCS24
02162      MOVE ARPT-KEY-AREA TO ASKL-REC.                              DTSCS24
02163                                                                   DTSCS24
02164      PERFORM S823-READ THRU S823-EXIT.                            DTSCS24
02165                                                                   DTSCS24
02166      IF L823-NO-REC-88                                            DTSCS24
02167         MOVE EMSG-NO-DOC TO WRK-MSG-AREA                          DTSCS24
02168         PERFORM S1112-ERROR THRU S1112-EXIT                       DTSCS24
02169         GO TO P8210-EXIT.                                         DTSCS24
02170                                                                   DTSCS24
02171      MOVE ASKL-REC TO ARPT-REC.                                   DTSCS24
02172                                                                   DTSCS24
02173                                                                   DTSCS24
02174      MOVE MAP-REMIT-AMT-AREA TO L011-S-AMT-AREA.                  DTSCS24
02175                                                                   DTSCS24
02176      PERFORM S011-REMIT-AMT-FROM-SCREEN THRU S011-EXIT.           DTSCS24
02177                                                                   DTSCS24
02178      MOVE LCCM-BATCH-NO TO L372-BATCH-NO.                         DTSCS24
02179                                                                   DTSCS24
02180      COMPUTE L372-CHNG-ATC-FILE-REMIT-AMT                         DTSCS24
02181        = L011-AMT - ARPT-REMIT-AMT.                               DTSCS24
02182                                                                   DTSCS24
02183      MOVE +0 TO L372-CHNG-LAST-USED-ITEM-NO                       DTSCS24
02184                 L372-CHNG-ATC-FILE-TRAN-CNT.                      DTSCS24
02185                                                                   DTSCS24
02186      SET L372-CHNG-INCR-LAST-USED-N-88 TO TRUE.                   DTSCS24
02187                                                                   DTSCS24
02188      PERFORM S372-BATCH-UPDATE THRU S372-EXIT.                    DTSCS24
02189                                                                   DTSCS24
02190      IF L372-REC-NOT-FOUND                                        DTSCS24
02191          GO TO S899-ABEND.                                        DTSCS24
02192                                                                   DTSCS24
02193                                                                   DTSCS24
02194      PERFORM S1001-INITIALIZE-WRK-AREA THRU S1001-EXIT.           DTSCS24
02195                                                                   DTSCS24
02196      PERFORM P8220-CONSTRUCT-WRK-AREA THRU P8220-EXIT.            DTSCS24
02197                                                                   DTSCS24
02198      PERFORM P8920-CONSTRUCT-ARPT THRU P8920-EXIT.                DTSCS24
02199                                                                   DTSCS24
02200      MOVE ARPT-REC TO ASKL-REC.                                   DTSCS24
02201                                                                   DTSCS24
02202      PERFORM S823-REWRITE THRU S823-EXIT.                         DTSCS24
02203                                                                   DTSCS24
02204      SET WRK-AATH-ACTION-UPD-88   TO TRUE.                        DTSCS24
02205      PERFORM S826-WRITE-ATH       THRU S826-EXIT.                 DTSCS24
02206                                                                   DTSCS24
02207  P8210-EXIT.                                                      DTSCS24
02208      EXIT.                                                        DTSCS24
02209                                                                   DTSCS24
02210                                                                   DTSCS24
02211                                                                   DTSCS24
02212  P8220-CONSTRUCT-WRK-AREA.                                        DTSCS24
02213      MOVE MAP-EMP-NO-AREA TO L018-S-EMP-NO-AREA.                  DTSCS24
02214                                                                   DTSCS24
02215      PERFORM S018-EMP-NO-FROM-SCREEN THRU S018-EXIT.              DTSCS24
02216                                                                   DTSCS24
02217      IF L018-VALID                                                DTSCS24
02218          MOVE L018-EMP-NO TO WRK-EMP-NO                           DTSCS24
02219      ELSE                                                         DTSCS24
02220          MOVE +0 TO WRK-EMP-NO                                    DTSCS24
02221      END-IF.                                                      DTSCS24
02222                                                                   DTSCS24
02223      MOVE MAP-YRQ-AREA TO L016-S-YRQ-AREA.                        DTSCS24
02224                                                                   DTSCS24
02225      PERFORM S016-YRQ-FROM-SCREEN THRU S016-EXIT.                 DTSCS24
02226                                                                   DTSCS24
02227      IF L016-VALID                                                DTSCS24
02228          MOVE L016-YRQ TO WRK-YRQ                                 DTSCS24
02229      ELSE                                                         DTSCS24
02230          MOVE +0 TO WRK-YRQ.                                      DTSCS24
02231                                                                   DTSCS24
02232      IF ARPT-PSEUDO-BATCH-NO NUMERIC                              DTSCS24
02233      AND ARPT-PSEUDO-ITEM-NO NUMERIC                              DTSCS24
02234         MOVE ARPT-PSEUDO-BATCH-NO   TO WRK-PSEUDO-BATCH-NO        DTSCS24
02235         MOVE ARPT-PSEUDO-ITEM-NO    TO WRK-PSEUDO-ITEM-NO         DTSCS24
02236      ELSE                                                         DTSCS24
02237         MOVE ZERO                   TO WRK-PSEUDO-BATCH-NO        DTSCS24
02238                                        WRK-PSEUDO-ITEM-NO         DTSCS24
02239      END-IF.                                                      DTSCS24
02240                                                                   DTSCS24
02241      MOVE MAP-TOT-WAGE-AREA TO L011-S-AMT-AREA.                   DTSCS24
02242                                                                   DTSCS24
02243      PERFORM S011-WAGE-FROM-SCREEN THRU S011-EXIT.                DTSCS24
02244                                                                   DTSCS24
02245      IF L011-NO-ENTRY                                             DTSCS24
02246          SET WRK-TOT-WAGE-NO-ENTRY-88 TO TRUE                     DTSCS24
02247      ELSE                                                         DTSCS24
02248          MOVE L011-AMT TO WRK-TOT-WAGE.                           DTSCS24
02249                                                                   DTSCS24
02250                                                                   DTSCS24
02251      MOVE MAP-EXCESS-WAGE-AREA TO L011-S-AMT-AREA.                DTSCS24
02252                                                                   DTSCS24
02253      PERFORM S011-WAGE-FROM-SCREEN THRU S011-EXIT.                DTSCS24
02254                                                                   DTSCS24
02255      IF L011-NO-ENTRY                                             DTSCS24
02256          SET WRK-EXCESS-WAGE-NO-ENTRY-88 TO TRUE                  DTSCS24
02257      ELSE                                                         DTSCS24
02258          MOVE L011-AMT TO WRK-EXCESS-WAGE.                        DTSCS24
02259                                                                   DTSCS24
02260                                                                   DTSCS24
02261      MOVE MAP-TAX-WAGE-AREA TO L011-S-AMT-AREA.                   DTSCS24
02262                                                                   DTSCS24
02263      PERFORM S011-WAGE-FROM-SCREEN THRU S011-EXIT.                DTSCS24
02264                                                                   DTSCS24
02265      IF L011-NO-ENTRY                                             DTSCS24
02266          SET WRK-TAX-WAGE-NO-ENTRY-88 TO TRUE                     DTSCS24
02267      ELSE                                                         DTSCS24
02268          MOVE L011-AMT TO WRK-TAX-WAGE.                           DTSCS24
02269                                                                   DTSCS24
02270                                                                   DTSCS24
02271      MOVE MAP-REMIT-AMT-AREA TO L011-S-AMT-AREA.                  DTSCS24
02272                                                                   DTSCS24
02273      PERFORM S011-REMIT-AMT-FROM-SCREEN THRU S011-EXIT.           DTSCS24
02274                                                                   DTSCS24
02275      IF L011-NO-ENTRY                                             DTSCS24
02276          SET WRK-REMIT-AMT-NO-ENTRY-88 TO TRUE                    DTSCS24
02277      ELSE                                                         DTSCS24
02278          MOVE L011-AMT TO WRK-REMIT-AMT.                          DTSCS24
02279                                                                   DTSCS24
02280                                                                   DTSCS24
02281      MOVE MAP-TOTAL-EMPL-CNT-AREA TO L013-S-CNT-AREA.             DTSCS24
02282                                                                   DTSCS24
02283      PERFORM S013-EMPL-CNT-FROM-SCREEN THRU S013-EXIT.            DTSCS24
02284                                                                   DTSCS24
02285      IF L013-NO-ENTRY                                             DTSCS24
02286          SET WRK-TOTAL-NO-ENTRY-88 TO TRUE                        DTSCS24
02287      ELSE                                                         DTSCS24
02288          MOVE L013-CNT TO WRK-TOTAL-EMPL-CNT.                     DTSCS24
02289                                                                   DTSCS24
02290                                                                   DTSCS24
02291      MOVE MAP-1ST-MTH-EMPL-CNT-AREA TO L013-S-CNT-AREA.           DTSCS24
02292                                                                   DTSCS24
02293      PERFORM S013-EMPL-CNT-FROM-SCREEN THRU S013-EXIT.            DTSCS24
02294                                                                   DTSCS24
02295      IF L013-NO-ENTRY                                             DTSCS24
02296          SET WRK-1ST-MTH-NO-ENTRY-88 TO TRUE                      DTSCS24
02297      ELSE                                                         DTSCS24
02298          MOVE L013-CNT TO WRK-1ST-MTH-EMPL-CNT.                   DTSCS24
02299                                                                   DTSCS24
02300                                                                   DTSCS24
02301      MOVE MAP-2ND-MTH-EMPL-CNT-AREA TO L013-S-CNT-AREA.           DTSCS24
02302                                                                   DTSCS24
02303      PERFORM S013-EMPL-CNT-FROM-SCREEN THRU S013-EXIT.            DTSCS24
02304                                                                   DTSCS24
02305      IF L013-NO-ENTRY                                             DTSCS24
02306          SET WRK-2ND-MTH-NO-ENTRY-88 TO TRUE                      DTSCS24
02307      ELSE                                                         DTSCS24
02308          MOVE L013-CNT TO WRK-2ND-MTH-EMPL-CNT.                   DTSCS24
02309                                                                   DTSCS24
02310                                                                   DTSCS24
02311      MOVE MAP-3RD-MTH-EMPL-CNT-AREA TO L013-S-CNT-AREA.           DTSCS24
02312                                                                   DTSCS24
02313      PERFORM S013-EMPL-CNT-FROM-SCREEN THRU S013-EXIT.            DTSCS24
02314                                                                   DTSCS24
02315      IF L013-NO-ENTRY                                             DTSCS24
02316          SET WRK-3RD-MTH-NO-ENTRY-88 TO TRUE                      DTSCS24
02317      ELSE                                                         DTSCS24
02318          MOVE L013-CNT TO WRK-3RD-MTH-EMPL-CNT.                   DTSCS24
02319                                                                   DTSCS24
02320                                                                   DTSCS24
02321      MOVE MAP-RECEIVED-DATE-AREA TO L015-S-DATE-AREA.             DTSCS24
02322                                                                   DTSCS24
02323      PERFORM S015-DATE-FROM-SCREEN THRU S015-EXIT.                DTSCS24
02324                                                                   DTSCS24
02325      MOVE L015-DATE TO WRK-RECEIVED-DATE.                         DTSCS24
02326                                                                   DTSCS24
02327      MOVE LCCM-SCR-HOLD-FULL-EDITS-IND                            DTSCS24
02328        TO WRK-PASSED-FULL-EDITS-IND.                              DTSCS24
02329                                                                   DTSCS24
02330      IF WRK-EMP-NO > ZERO                                         DTSCS24
02331 **   IF ARPT-EMP-NO > ZERO                                        DTSCS24
02332         IF WRK-EMP-NO NOT = ARPT-EMP-NO                           DTSCS24
02333            IF WRK-PASSED-FULL-EDITS-YES-88                        DTSCS24
02334               PERFORM P8221-WRITE-R204  THRU P8221-EXIT           DTSCS24
02335            END-IF                                                 DTSCS24
02336         END-IF                                                    DTSCS24
02337      END-IF.                                                      DTSCS24
02338                                                                   DTSCS24
02339  P8220-EXIT.                                                      DTSCS24
02340      EXIT.                                                        DTSCS24
02341                                                                   DTSCS24
02342  P8221-WRITE-R204.                                                DTSCS24
02343      MOVE LENGTH OF R204-REC    TO R204-LENGTH.                   DTSCS24
02344      MOVE WRK-EMP-NO            TO R204-NEW-EMP-NO.               DTSCS24
02345      MOVE LCCM-CURR-RUN-DATE    TO R204-CHANGE-DATE.              DTSCS24
02346      MOVE WRK-YRQ               TO R204-YRQ.                      DTSCS24
02347      MOVE WRK-BATCH-NO          TO R204-BATCH-NO.                 DTSCS24
02348      MOVE WRK-ITEM-NO           TO R204-ITEM-NO.                  DTSCS24
02349      MOVE ARPT-EMP-NO           TO R204-ORIG-EMP-NO.              DTSCS24
02350      MOVE WRK-TOT-WAGE          TO R204-TOT-WAGE.                 DTSCS24
02351      MOVE LCCM-OP-ID            TO R204-OP-ID.                    DTSCS24
02352                                                                   DTSCS24
02353      MOVE R204-REC              TO RSKL-REC.                      DTSCS24
02354      PERFORM S825-WRITE         THRU S825-EXIT.                   DTSCS24
02355                                                                   DTSCS24
02356  P8221-EXIT.                                                      DTSCS24
02357      EXIT.                                                        DTSCS24
02358 /*****************************************************************DTSCS24
02359 * IF ENTER OR CANCEL, MODULE IS SET TO INQUIRY REGARDLESS        *DTSCS24
02360 ******************************************************************DTSCS24
02361                                                                   DTSCS24
02362  P8300-DEL.                                                       DTSCS24
02363      SET LCCM-SCR-INQUIRE TO TRUE.                                DTSCS24
02364                                                                   DTSCS24
02365      PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT.              DTSCS24
02366                                                                   DTSCS24
02367      IF LCCM-F12-88                                               DTSCS24
02368         MOVE PMSG-DEL-CANCELED TO LCCM-MSG-ID                     DTSCS24
02369         GO TO P8300-EXIT.                                         DTSCS24
02370                                                                   DTSCS24
02371      PERFORM S1100-EDIT-KEY THRU S1100-EXIT.                      DTSCS24
02372                                                                   DTSCS24
02373                                                                   DTSCS24
02374 *---------------------------------------------------              DTSCS24
02375 *    BATCH HEADER RECORD MUST EXISTS                              DTSCS24
02376 *---------------------------------------------------              DTSCS24
02377                                                                   DTSCS24
02378 *****IF WRK-BATCH-NO > +0                                         DTSCS24
02379 ********MOVE +1000 TO WRK-TRAN-MAX                                DTSCS24
02380 **********************WRK-ITEM-MAX                                DTSCS24
02381                                                                   DTSCS24
02382      PERFORM P8910-CHECK-BATCH THRU P8910-EXIT.                   DTSCS24
02383                                                                   DTSCS24
02384 *****MOVE -99999 TO L372-BATCH-NO.                                DTSCS24
02385                                                                   DTSCS24
02386 *****SET L372-REC-NOT-FOUND TO TRUE.                              DTSCS24
02387                                                                   DTSCS24
02388      IF LCCM-MSG                                                  DTSCS24
02389         GO TO P8300-EXIT.                                         DTSCS24
02390                                                                   DTSCS24
02391                                                                   DTSCS24
02392      MOVE WRK-BATCH-NO TO L371-BATCH-NO.                          DTSCS24
02393                                                                   DTSCS24
02394      MOVE WRK-ITEM-NO TO L371-ITEM-NO.                            DTSCS24
02395                                                                   DTSCS24
02396      PERFORM S371-DELETE THRU S371-EXIT.                          DTSCS24
02397                                                                   DTSCS24
02398      SET WRK-AATH-ACTION-DEL-88   TO TRUE.                        DTSCS24
02399      PERFORM S826-WRITE-ATH       THRU S826-EXIT.                 DTSCS24
02400                                                                   DTSCS24
02401 *&   MOVE 'D'                    TO L221-UPDATE-FUNCTION.         DTSCS24
02402 *&   PERFORM S221-WRITE-R906     THRU S221-EXIT.                  DTSCS24
02403                                                                   DTSCS24
02404      MOVE LOW-VALUES TO MAP-AREA.                                 DTSCS24
02405                                                                   DTSCS24
02406      PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT.              DTSCS24
02407                                                                   DTSCS24
02408      MOVE LCCM-BATCH-NO TO MAP-BATCH-NO.                          DTSCS24
02409                                                                   DTSCS24
02410      MOVE LCCM-ITEM-NO TO MAP-ITEM-NO.                            DTSCS24
02411                                                                   DTSCS24
02412      SET LCCM-SCR-CLEAR TO TRUE.                                  DTSCS24
02413                                                                   DTSCS24
02414      MOVE PMSG-DEL-SUCCESSFUL TO LCCM-MSG-ID.                     DTSCS24
02415  P8300-EXIT.                                                      DTSCS24
02416      EXIT.                                                        DTSCS24
02417      EJECT                                                        DTSCS24
02418  P8910-CHECK-BATCH.                                               DTSCS24
02419      MOVE WRK-BATCH-NO TO L372-BATCH-NO.                          DTSCS24
02420                                                                   DTSCS24
02421      PERFORM S372-BATCH-INQUIRY THRU S372-EXIT.                   DTSCS24
02422                                                                   DTSCS24
02423      IF L372-REC-NOT-FOUND                                        DTSCS24
02424          MOVE EMSG-NO-BATCH TO WRK-MSG-AREA                       DTSCS24
02425          PERFORM S1111-ERROR THRU S1111-EXIT                      DTSCS24
02426          GO TO P8910-EXIT                                         DTSCS24
02427      ELSE                                                         DTSCS24
02428          IF L372-ANNUAL-BATCH-YES-88                              DTSCS24
02429             MOVE MSG-E24F-AREA TO WRK-MSG-AREA                    DTSCS24
02430             PERFORM S1111-ERROR THRU S1111-EXIT                   DTSCS24
02431             GO TO P8910-EXIT.                                     DTSCS24
02432                                                                   DTSCS24
02433  P8910-EXIT.                                                      DTSCS24
02434      EXIT.                                                        DTSCS24
02435      SKIP3                                                        DTSCS24
02436  P8920-CONSTRUCT-ARPT.                                            DTSCS24
02437      MOVE LOW-VALUES TO ARPT-REC.                                 DTSCS24
02438                                                                   DTSCS24
02439      MOVE WRK-BATCH-NO TO ARPT-BATCH-NO.                          DTSCS24
02440                                                                   DTSCS24
02441      MOVE WRK-ITEM-NO TO ARPT-ITEM-NO.                            DTSCS24
02442                                                                   DTSCS24
02443      SET ARPT-RPT-88 TO TRUE.                                     DTSCS24
02444                                                                   DTSCS24
02445                                                                   DTSCS24
02446 *    DATA HAS BEEN EDITED AND STORED INCLUDING DEFAULTS IN WRK-*  DTSCS24
02447                                                                   DTSCS24
02448      MOVE MAP-NAME-CHECK TO ARPT-NAME-CHECK.                      DTSCS24
02449                                                                   DTSCS24
02450      MOVE WRK-EMP-NO TO ARPT-EMP-NO.                              DTSCS24
02451                                                                   DTSCS24
02452      MOVE MAP-RPT-TYPE TO ARPT-RPT-TYPE.                          DTSCS24
02453                                                                   DTSCS24
02454      MOVE WRK-YRQ TO ARPT-YRQ.                                    DTSCS24
02455                                                                   DTSCS24
02456      MOVE WRK-TOT-WAGE TO ARPT-TOT-WAGE.                          DTSCS24
02457                                                                   DTSCS24
02458      MOVE WRK-EXCESS-WAGE TO ARPT-EXCESS-WAGE.                    DTSCS24
02459                                                                   DTSCS24
02460      MOVE WRK-TAX-WAGE TO ARPT-TAX-WAGE.                          DTSCS24
02461                                                                   DTSCS24
02462      MOVE WRK-REMIT-AMT TO ARPT-REMIT-AMT.                        DTSCS24
02463                                                                   DTSCS24
02464      MOVE MAP-WAGE-RPT-IND TO ARPT-WAGE-RPT-IND.                  DTSCS24
02465                                                                   DTSCS24
02466      MOVE MAP-STATUS-CHG-IND TO ARPT-STATUS-CHNG-IND.             DTSCS24
02467                                                                   DTSCS24
02468      MOVE MAP-WAIVE-BOTH-IND TO ARPT-WAIVE-BOTH-IND.              DTSCS24
02469                                                                   DTSCS24
02470      MOVE MAP-WAIVE-INT-IND TO ARPT-WAIVE-INT-IND.                DTSCS24
02471                                                                   DTSCS24
02472      MOVE MAP-WAIVE-LATE-PEN-IND TO ARPT-WAIVE-LATE-PEN-IND.      DTSCS24
02473                                                                   DTSCS24
02474      MOVE WRK-TOTAL-EMPL-CNT TO ARPT-TOTAL-EMPL-CNT.              DTSCS24
02475                                                                   DTSCS24
02476      MOVE WRK-1ST-MTH-EMPL-CNT TO ARPT-1ST-MTH-EMPL-CNT.          DTSCS24
02477                                                                   DTSCS24
02478      MOVE WRK-2ND-MTH-EMPL-CNT TO ARPT-2ND-MTH-EMPL-CNT.          DTSCS24
02479                                                                   DTSCS24
02480      MOVE WRK-3RD-MTH-EMPL-CNT TO ARPT-3RD-MTH-EMPL-CNT.          DTSCS24
02481                                                                   DTSCS24
02482      MOVE MAP-VERIFIED-IND TO ARPT-VERIFIED-IND.                  DTSCS24
02483                                                                   DTSCS24
02484      MOVE WRK-RECEIVED-DATE TO ARPT-RECEIVED-DATE.                DTSCS24
02485                                                                   DTSCS24
02486      MOVE +0 TO ARPT-DEPOSIT-DATE.                                DTSCS24
02487                                                                   DTSCS24
02488      MOVE MAP-RESPONSIBLE-ACTIVITY TO ARPT-RESPONSIBLE-ACTIVITY.  DTSCS24
02489                                                                   DTSCS24
02490      MOVE MAP-RESPONSIBLE-OP-ID TO ARPT-RESPONSIBLE-OP-ID.        DTSCS24
02491                                                                   DTSCS24
02492      MOVE MAP-DISREGARD-EDITS-IND TO ARPT-DISREGARD-EDITS-IND.    DTSCS24
02493                                                                   DTSCS24
02494      MOVE WRK-PASSED-FULL-EDITS-IND                               DTSCS24
02495        TO ARPT-PASSED-FULL-EDITS-IND.                             DTSCS24
02496                                                                   DTSCS24
02497      MOVE +0 TO ARPT-PROCESSED-DATE.                              DTSCS24
02498                                                                   DTSCS24
02499      MOVE +0 TO ARPT-TRACE-NO.                                    DTSCS24
02500                                                                   DTSCS24
02501      IF LCCM-SCR-ADD-LOCKED                                       DTSCS24
02502         MOVE +0 TO ARPT-PSEUDO-BATCH-NO                           DTSCS24
02503                    ARPT-PSEUDO-ITEM-NO                            DTSCS24
02504      ELSE                                                         DTSCS24
02505         MOVE WRK-PSEUDO-BATCH-NO   TO ARPT-PSEUDO-BATCH-NO        DTSCS24
02506         MOVE WRK-PSEUDO-ITEM-NO    TO ARPT-PSEUDO-ITEM-NO         DTSCS24
02507      END-IF.                                                      DTSCS24
02508                                                                   DTSCS24
02509  P8920-EXIT.                                                      DTSCS24
02510      EXIT.                                                        DTSCS24
02511 /*****************************************************************DTSCS24
02512 * LINKS TO UTILITY MODULES                                        DTSCS24
02513 ******************************************************************DTSCS24
02514                                                                   DTSCS24
02515  S001-FROM-FED-8.                                                 DTSCS24
02516      SET L001-FROM-FED-8 TO TRUE.                                 DTSCS24
02517      GO TO S001-LINK.                                             DTSCS24
02518                                                                   DTSCS24
02519  S001-LINK.                                                       DTSCS24
02520      EXEC CICS LINK                                               DTSCS24
02521          PROGRAM  ('DTSCU001')                                    DTSCS24
02522          COMMAREA (L001-COMM-AREA)                                DTSCS24
02523      END-EXEC.                                                    DTSCS24
02524  S001-EXIT.                                                       DTSCS24
02525      EXIT.                                                        DTSCS24
02526                                                                   DTSCS24
02527                                                                   DTSCS24
02528                                                                   DTSCS24
02529  S004-FROM-5.                                                     DTSCS24
02530      SET L004-FROM-5 TO TRUE.                                     DTSCS24
02531      GO TO S004-LINK.                                             DTSCS24
02532                                                                   DTSCS24
02533  S004-LINK.                                                       DTSCS24
02534      EXEC CICS LINK                                               DTSCS24
02535          PROGRAM  ('DTSCU004')                                    DTSCS24
02536          COMMAREA (L004-COMM-AREA)                                DTSCS24
02537      END-EXEC.                                                    DTSCS24
02538  S004-EXIT.                                                       DTSCS24
02539      EXIT.                                                        DTSCS24
02540                                                                   DTSCS24
02541                                                                   DTSCS24
02542                                                                   DTSCS24
02543  S006-FROM-QTR.                                                   DTSCS24
02544      SET L006-FROM-QTR TO TRUE.                                   DTSCS24
02545      GO TO S006-LINK.                                             DTSCS24
02546                                                                   DTSCS24
02547  S006-LINK.                                                       DTSCS24
02548      EXEC CICS LINK                                               DTSCS24
02549          PROGRAM  ('DTSCU006')                                    DTSCS24
02550          COMMAREA (L006-COMM-AREA)                                DTSCS24
02551      END-EXEC.                                                    DTSCS24
02552  S006-EXIT.                                                       DTSCS24
02553      EXIT.                                                        DTSCS24
02554                                                                   DTSCS24
02555                                                                   DTSCS24
02556  S011-OR-ES-WAGE-FROM-SCREEN.                                     DTSCS24
02557      MOVE 0.00 TO L011-MIN-AMT                                    DTSCS24
02558      MOVE 999999999.99 TO L011-MAX-AMT                            DTSCS24
02559      GO TO S011-MONEY-FROM-SCREEN.                                DTSCS24
02560                                                                   DTSCS24
02561  S011-SUPP-WAGE-FROM-SCREEN.                                      DTSCS24
02562      MOVE  -999999999.99 TO L011-MIN-AMT                          DTSCS24
02563      MOVE 999999999.99 TO L011-MAX-AMT                            DTSCS24
02564      GO TO S011-MONEY-FROM-SCREEN.                                DTSCS24
02565                                                                   DTSCS24
02566  S011-WD-WAGE-FROM-SCREEN.                                        DTSCS24
02567      MOVE  -999999999.99 TO L011-MIN-AMT                          DTSCS24
02568      MOVE 0.00 TO L011-MAX-AMT                                    DTSCS24
02569      GO TO S011-MONEY-FROM-SCREEN.                                DTSCS24
02570                                                                   DTSCS24
02571  S011-WAGE-FROM-SCREEN.                                           DTSCS24
02572      MOVE  -999999999.99 TO L011-MIN-AMT                          DTSCS24
02573      MOVE 999999999.99 TO L011-MAX-AMT                            DTSCS24
02574      GO TO S011-MONEY-FROM-SCREEN.                                DTSCS24
02575                                                                   DTSCS24
02576  S011-REMIT-AMT-FROM-SCREEN.                                      DTSCS24
02577      MOVE 0.00 TO L011-MIN-AMT                                    DTSCS24
02578      MOVE 999999999.99 TO L011-MAX-AMT                            DTSCS24
02579      GO TO S011-MONEY-FROM-SCREEN.                                DTSCS24
02580                                                                   DTSCS24
02581  S011-MONEY-FROM-SCREEN.                                          DTSCS24
02582      EXEC CICS LINK                                               DTSCS24
02583          PROGRAM('DTSCU011')                                      DTSCS24
02584          COMMAREA(L011-COMM-AREA)                                 DTSCS24
02585      END-EXEC.                                                    DTSCS24
02586  S011-EXIT.                                                       DTSCS24
02587      EXIT.                                                        DTSCS24
02588                                                                   DTSCS24
02589                                                                   DTSCS24
02590                                                                   DTSCS24
02591  S013-EMPL-CNT-FROM-SCREEN.                                       DTSCS24
02592      MOVE +0 TO L013-MIN-CNT.                                     DTSCS24
02593      MOVE +9999998 TO L013-MAX-CNT.                               DTSCS24
02594      GO TO S013-COUNT-FROM-SCREEN.                                DTSCS24
02595                                                                   DTSCS24
02596  S013-COUNT-FROM-SCREEN.                                          DTSCS24
02597      EXEC CICS LINK                                               DTSCS24
02598          PROGRAM('DTSCU013')                                      DTSCS24
02599          COMMAREA(L013-COMM-AREA)                                 DTSCS24
02600      END-EXEC.                                                    DTSCS24
02601  S013-EXIT.                                                       DTSCS24
02602      EXIT.                                                        DTSCS24
02603                                                                   DTSCS24
02604                                                                   DTSCS24
02605                                                                   DTSCS24
02606  S015-DATE-FROM-SCREEN.                                           DTSCS24
02607      EXEC CICS LINK                                               DTSCS24
02608          PROGRAM('DTSCU015')                                      DTSCS24
02609          COMMAREA(L015-COMM-AREA)                                 DTSCS24
02610      END-EXEC.                                                    DTSCS24
02611  S015-EXIT.                                                       DTSCS24
02612      EXIT.                                                        DTSCS24
02613                                                                   DTSCS24
02614                                                                   DTSCS24
02615                                                                   DTSCS24
02616  S016-YRQ-FROM-SCREEN.                                            DTSCS24
02617      EXEC CICS LINK                                               DTSCS24
02618          PROGRAM  ('DTSCU016')                                    DTSCS24
02619          COMMAREA (L016-COMM-AREA)                                DTSCS24
02620      END-EXEC.                                                    DTSCS24
02621  S016-EXIT.                                                       DTSCS24
02622      EXIT.                                                        DTSCS24
02623                                                                   DTSCS24
02624                                                                   DTSCS24
02625                                                                   DTSCS24
02626  S018-EMP-NO-FROM-SCREEN.                                         DTSCS24
02627      EXEC CICS LINK                                               DTSCS24
02628          PROGRAM('DTSCU018')                                      DTSCS24
02629          COMMAREA(L018-COMM-AREA)                                 DTSCS24
02630      END-EXEC.                                                    DTSCS24
02631  S018-EXIT.                                                       DTSCS24
02632      EXIT.                                                        DTSCS24
02633                                                                   DTSCS24
02634                                                                   DTSCS24
02635                                                                   DTSCS24
02636  S019-BATCH-NO-FROM-SCREEN.                                       DTSCS24
02637      EXEC CICS LINK                                               DTSCS24
02638          PROGRAM('DTSCU019')                                      DTSCS24
02639          COMMAREA(L019-COMM-AREA)                                 DTSCS24
02640      END-EXEC.                                                    DTSCS24
02641  S019-EXIT.                                                       DTSCS24
02642      EXIT.                                                        DTSCS24
02643                                                                   DTSCS24
02644                                                                   DTSCS24
02645                                                                   DTSCS24
02646  S032-ARPT-RPT-TYPE.                                              DTSCS24
02647      SET L032-ARPT-RPT-TYPE TO TRUE.                              DTSCS24
02648      GO TO S032-LINK.                                             DTSCS24
02649                                                                   DTSCS24
02650  S032-ARPT-RESPONSIBLE-ACTIVITY.                                  DTSCS24
02651      SET L032-ARPT-RESPONSIBLE-ACTIVITY TO TRUE.                  DTSCS24
02652      GO TO S032-LINK.                                             DTSCS24
02653                                                                   DTSCS24
02654  S032-LINK.                                                       DTSCS24
02655      EXEC CICS LINK                                               DTSCS24
02656          PROGRAM  ('DTSCU032')                                    DTSCS24
02657          COMMAREA (L032-COMM-AREA)                                DTSCS24
02658      END-EXEC.                                                    DTSCS24
02659  S032-EXIT.                                                       DTSCS24
02660      EXIT.                                                        DTSCS24
02661                                                                   DTSCS24
02662                                                                   DTSCS24
02663                                                                   DTSCS24
02664  S082-OP-ID-LOOKUP.                                               DTSCS24
02665      EXEC CICS LINK                                               DTSCS24
02666          PROGRAM('DTSCU082')                                      DTSCS24
02667          COMMAREA(L082-COMM-AREA)                                 DTSCS24
02668      END-EXEC.                                                    DTSCS24
02669                                                                   DTSCS24
02670      IF L082-FILE-CLOSED                                          DTSCS24
02671          MOVE L082-MSG-AREA TO LCCM-MSG-AREA                      DTSCS24
02672          SET LCCM-REQ-SCR-SF-88 TO TRUE                           DTSCS24
02673          SET LCCM-LINK-SCREEN-88 TO TRUE                          DTSCS24
02674          GO TO MAINLINE-EXIT.                                     DTSCS24
02675  S082-EXIT.                                                       DTSCS24
02676      EXIT.                                                        DTSCS24
02677                                                                   DTSCS24
02678                                                                   DTSCS24
02679  S221-WRITE-R906.                                                 DTSCS24
02680      MOVE ARPT-EMP-NO           TO L221-EMP-NO.                   DTSCS24
02681      MOVE LCCM-SCR-ABSTIME      TO L221-SCR-ABSTIME.              DTSCS24
02682      MOVE LCCM-TASK-ID          TO L221-UPDATE-TASK-ID.           DTSCS24
02683      MOVE LCCM-OP-ID            TO L221-UPDATE-OP-ID.             DTSCS24
02684      MOVE LCCM-CICS-TERM-ID     TO L221-UPDATE-TERMID.            DTSCS24
02685      MOVE LCCM-TASK-NETNAME     TO L221-UPDATE-NETNAME.           DTSCS24
02686      MOVE LCCM-TASK-START-DATE  TO L221-UPDATE-START-DATE.        DTSCS24
02687      MOVE LCCM-TASK-START-TIME  TO L221-UPDATE-START-TIME.        DTSCS24
02688      MOVE WRK-SCR-ID            TO L221-UPDATE-SCR-ID.            DTSCS24
02689      MOVE ARPT-BATCH-NO         TO L221-BATCH-NO.                 DTSCS24
02690      MOVE ARPT-ITEM-NO          TO L221-ITEM-NO.                  DTSCS24
02691                                                                   DTSCS24
02692      SET L221-R906-ONLY         TO TRUE.                          DTSCS24
02693                                                                   DTSCS24
02694      EXEC CICS LINK                                               DTSCS24
02695          PROGRAM  ('DTSCU221')                                    DTSCS24
02696          COMMAREA (L221-COMM-AREA)                                DTSCS24
02697      END-EXEC.                                                    DTSCS24
02698                                                                   DTSCS24
02699      IF L221-FILE-CLOSED                                          DTSCS24
02700          MOVE L221-MSG-AREA TO LCCM-MSG-AREA                      DTSCS24
02701          SET LCCM-REQ-SCR-SF-88 TO TRUE                           DTSCS24
02702          SET LCCM-LINK-SCREEN-88 TO TRUE                          DTSCS24
02703          GO TO MAINLINE-EXIT.                                     DTSCS24
02704                                                                   DTSCS24
02705      IF L221-NOT-OK                                               DTSCS24
02706          MOVE L221-MSG-AREA TO LCCM-MSG-AREA.                     DTSCS24
02707                                                                   DTSCS24
02708  S221-EXIT.                                                       DTSCS24
02709      EXIT.                                                        DTSCS24
02710                                                                   DTSCS24
02711                                                                   DTSCS24
02712  S371-DELETE.                                                     DTSCS24
02713      EXEC CICS LINK                                               DTSCS24
02714          PROGRAM ('DTSCU371')                                     DTSCS24
02715          COMMAREA (L371-COMM-AREA)                                DTSCS24
02716      END-EXEC.                                                    DTSCS24
02717                                                                   DTSCS24
02718      IF L371-FILE-CLOSED                                          DTSCS24
02719          MOVE L371-MSG-AREA TO LCCM-MSG-AREA                      DTSCS24
02720          SET LCCM-REQ-SCR-SF-88 TO TRUE                           DTSCS24
02721          SET LCCM-LINK-SCREEN-88 TO TRUE                          DTSCS24
02722          GO TO MAINLINE-EXIT.                                     DTSCS24
02723  S371-EXIT.                                                       DTSCS24
02724      EXIT.                                                        DTSCS24
02725                                                                   DTSCS24
02726                                                                   DTSCS24
02727                                                                   DTSCS24
02728  S372-BATCH-INQUIRY.                                              DTSCS24
02729      SET L372-INQUIRE TO TRUE.                                    DTSCS24
02730      GO TO S372-LINK.                                             DTSCS24
02731                                                                   DTSCS24
02732  S372-BATCH-UPDATE.                                               DTSCS24
02733      SET L372-UPDATE TO TRUE.                                     DTSCS24
02734      GO TO S372-LINK.                                             DTSCS24
02735                                                                   DTSCS24
02736  S372-LINK.                                                       DTSCS24
02737      EXEC CICS LINK                                               DTSCS24
02738          PROGRAM ('DTSCU372')                                     DTSCS24
02739          COMMAREA (L372-COMM-AREA)                                DTSCS24
02740      END-EXEC.                                                    DTSCS24
02741                                                                   DTSCS24
02742      IF L372-FILE-CLOSED                                          DTSCS24
02743          MOVE L372-MSG-AREA TO LCCM-MSG-AREA                      DTSCS24
02744          SET LCCM-REQ-SCR-SF-88 TO TRUE                           DTSCS24
02745          SET LCCM-LINK-SCREEN-88 TO TRUE                          DTSCS24
02746          GO TO MAINLINE-EXIT.                                     DTSCS24
02747  S372-EXIT.                                                       DTSCS24
02748      EXIT.                                                        DTSCS24
02749                                                                   DTSCS24
02750                                                                   DTSCS24
02751                                                                   DTSCS24
02752 *S373-ADD-HDR.                                                    DTSCS24
02753 *****EXEC CICS LINK                                               DTSCS24
02754 *********PROGRAM ('DTSCU373')                                     DTSCS24
02755 *********COMMAREA (L373-COMM-AREA)                                DTSCS24
02756 *****END-EXEC.                                                    DTSCS24
02757                                                                   DTSCS24
02758 *****IF L373-FILE-CLOSED                                          DTSCS24
02759 *********MOVE L373-MSG-AREA TO LCCM-MSG-AREA                      DTSCS24
02760 *********SET LCCM-REQ-SCR-SF-88 TO TRUE                           DTSCS24
02761 *********SET LCCM-LINK-SCREEN-88 TO TRUE                          DTSCS24
02762 *********GO TO MAINLINE-EXIT.                                     DTSCS24
02763 *S373-EXIT.                                                       DTSCS24
02764 *****EXIT.                                                        DTSCS24
02765                                                                   DTSCS24
02766                                                                   DTSCS24
02767                                                                   DTSCS24
02768  S381-LOOKUP-LIABILITY.                                           DTSCS24
02769      EXEC CICS LINK                                               DTSCS24
02770          PROGRAM ('DTSCU381')                                     DTSCS24
02771          COMMAREA (L381-COMM-AREA)                                DTSCS24
02772      END-EXEC.                                                    DTSCS24
02773                                                                   DTSCS24
02774      IF L381-FILE-CLOSED-88                                       DTSCS24
02775          MOVE L381-MSG-AREA TO LCCM-MSG-AREA                      DTSCS24
02776          SET LCCM-REQ-SCR-SF-88 TO TRUE                           DTSCS24
02777          SET LCCM-LINK-SCREEN-88 TO TRUE                          DTSCS24
02778          GO TO MAINLINE-EXIT.                                     DTSCS24
02779  S381-EXIT.                                                       DTSCS24
02780      EXIT.                                                        DTSCS24
02781                                                                   DTSCS24
02782  S410-FILING-SCHEDULE.                                            DTSCS24
02783      EXEC CICS LINK                                               DTSCS24
02784          PROGRAM ('DTSCU410')                                     DTSCS24
02785          COMMAREA (L410-COMM-AREA)                                DTSCS24
02786      END-EXEC.                                                    DTSCS24
02787                                                                   DTSCS24
02788  S410-EXIT.                                                       DTSCS24
02789      EXIT.                                                        DTSCS24
02790                                                                   DTSCS24
02791                                                                   DTSCS24
02792                                                                   DTSCS24
02793  S803-REQ-SCR-ID-EDIT.                                            DTSCS24
02794      EXEC CICS LINK                                               DTSCS24
02795          PROGRAM ('DTSCU803')                                     DTSCS24
02796          COMMAREA (DFHCOMMAREA)                                   DTSCS24
02797      END-EXEC.                                                    DTSCS24
02798  S803-EXIT.                                                       DTSCS24
02799      EXIT.                                                        DTSCS24
02800                                                                   DTSCS24
02801                                                                   DTSCS24
02802                                                                   DTSCS24
02803  S804-INVALID-KEY.                                                DTSCS24
02804      EXEC CICS LINK                                               DTSCS24
02805          PROGRAM ('DTSCU804')                                     DTSCS24
02806          COMMAREA (DFHCOMMAREA)                                   DTSCS24
02807      END-EXEC.                                                    DTSCS24
02808  S804-EXIT.                                                       DTSCS24
02809      EXIT.                                                        DTSCS24
02810                                                                   DTSCS24
02811                                                                   DTSCS24
02812                                                                   DTSCS24
02813  S805-MSG-AREA.                                                   DTSCS24
02814      MOVE LCCM-MSG-AREA TO L805-MSG-AREA                          DTSCS24
02815                                                                   DTSCS24
02816      EXEC CICS LINK                                               DTSCS24
02817          PROGRAM ('DTSCU805')                                     DTSCS24
02818          COMMAREA (L805-COMM-AREA)                                DTSCS24
02819      END-EXEC.                                                    DTSCS24
02820                                                                   DTSCS24
02821      MOVE L805-S-MSG-AREA TO MAP-MSG-AREA.                        DTSCS24
02822  S805-EXIT.                                                       DTSCS24
02823      EXIT.                                                        DTSCS24
02824                                                                   DTSCS24
02825                                                                   DTSCS24
02826                                                                   DTSCS24
02827  S810-READ.                                                       DTSCS24
02828      SET L810-READ-88 TO TRUE.                                    DTSCS24
02829      GO TO S810-IO.                                               DTSCS24
02830                                                                   DTSCS24
02831  S810-START-BROWSE.                                               DTSCS24
02832      SET L810-START-BROWSE-88 TO TRUE.                            DTSCS24
02833      GO TO S810-IO.                                               DTSCS24
02834                                                                   DTSCS24
02835  S810-READ-NEXT.                                                  DTSCS24
02836      SET L810-READ-NEXT-88 TO TRUE.                               DTSCS24
02837      GO TO S810-IO.                                               DTSCS24
02838                                                                   DTSCS24
02839  S810-READ-PREV.                                                  DTSCS24
02840      SET L810-READ-PREV-88 TO TRUE.                               DTSCS24
02841      GO TO S810-IO.                                               DTSCS24
02842                                                                   DTSCS24
02843  S810-END-BROWSE.                                                 DTSCS24
02844      SET L810-END-BROWSE-88 TO TRUE.                              DTSCS24
02845      GO TO S810-IO.                                               DTSCS24
02846                                                                   DTSCS24
02847  S810-IO.                                                         DTSCS24
02848      EXEC CICS LINK                                               DTSCS24
02849          PROGRAM ('DTSCU810')                                     DTSCS24
02850          COMMAREA (L810-COMM-AREA)                                DTSCS24
02851      END-EXEC.                                                    DTSCS24
02852                                                                   DTSCS24
02853      IF L810-FILE-CLOSED-88                                       DTSCS24
02854          MOVE L810-MSG-AREA TO LCCM-MSG-AREA                      DTSCS24
02855          SET LCCM-REQ-SCR-SF-88 TO TRUE                           DTSCS24
02856          SET LCCM-LINK-SCREEN-88 TO TRUE                          DTSCS24
02857          GO TO MAINLINE-EXIT.                                     DTSCS24
02858  S810-EXIT.                                                       DTSCS24
02859      EXIT.                                                        DTSCS24
02860                                                                   DTSCS24
02861                                                                   DTSCS24
02862                                                                   DTSCS24
02863  S823-READ.                                                       DTSCS24
02864      SET L823-READ-88 TO TRUE.                                    DTSCS24
02865      GO TO S823-IO.                                               DTSCS24
02866                                                                   DTSCS24
02867  S823-START-BROWSE.                                               DTSCS24
02868      SET L823-START-BROWSE-88 TO TRUE.                            DTSCS24
02869      GO TO S823-IO.                                               DTSCS24
02870                                                                   DTSCS24
02871  S823-READ-NEXT.                                                  DTSCS24
02872      SET L823-READ-NEXT-88 TO TRUE.                               DTSCS24
02873      GO TO S823-IO.                                               DTSCS24
02874                                                                   DTSCS24
02875  S823-READ-PREV.                                                  DTSCS24
02876      SET L823-READ-PREV-88 TO TRUE.                               DTSCS24
02877      GO TO S823-IO.                                               DTSCS24
02878                                                                   DTSCS24
02879  S823-END-BROWSE.                                                 DTSCS24
02880      SET L823-END-BROWSE-88 TO TRUE.                              DTSCS24
02881      GO TO S823-IO.                                               DTSCS24
02882                                                                   DTSCS24
02883  S823-REWRITE.                                                    DTSCS24
02884      SET L823-REWRITE-88 TO TRUE.                                 DTSCS24
02885      GO TO S823-IO.                                               DTSCS24
02886                                                                   DTSCS24
02887  S823-WRITE.                                                      DTSCS24
02888      SET L823-WRITE-88 TO TRUE.                                   DTSCS24
02889      GO TO S823-IO.                                               DTSCS24
02890                                                                   DTSCS24
02891  S823-DELETE.                                                     DTSCS24
02892      SET L823-DELETE-88 TO TRUE.                                  DTSCS24
02893      GO TO S823-IO.                                               DTSCS24
02894                                                                   DTSCS24
02895  S823-IO.                                                         DTSCS24
02896      EXEC CICS LINK                                               DTSCS24
02897          PROGRAM ('DTSCU823')                                     DTSCS24
02898          COMMAREA (L823-COMM-AREA)                                DTSCS24
02899      END-EXEC.                                                    DTSCS24
02900                                                                   DTSCS24
02901      IF L823-FILE-CLOSED-88                                       DTSCS24
02902          MOVE L823-MSG-AREA TO LCCM-MSG-AREA                      DTSCS24
02903          SET LCCM-REQ-SCR-SF-88 TO TRUE                           DTSCS24
02904          SET LCCM-LINK-SCREEN-88 TO TRUE                          DTSCS24
02905          GO TO MAINLINE-EXIT.                                     DTSCS24
02906  S823-EXIT.                                                       DTSCS24
02907      EXIT.                                                        DTSCS24
02908                                                                   DTSCS24
02909  S825-WRITE.                                                      DTSCS24
02910      SET L825-WRITE-88 TO TRUE.                                   DTSCS24
02911      GO TO S825-O.                                                DTSCS24
02912                                                                   DTSCS24
02913  S825-O.                                                          DTSCS24
02914                                                                   DTSCS24
02915      EXEC CICS LINK                                               DTSCS24
02916          PROGRAM ('DTSCU825')                                     DTSCS24
02917          COMMAREA (L825-COMM-AREA)                                DTSCS24
02918      END-EXEC.                                                    DTSCS24
02919                                                                   DTSCS24
02920       IF L825-FILE-CLOSED-88                                      DTSCS24
02921           MOVE L825-MSG-AREA TO LCCM-MSG-AREA                     DTSCS24
02922           SET LCCM-REQ-SCR-SF-88 TO TRUE                          DTSCS24
02923           SET LCCM-LINK-SCREEN-88 TO TRUE                         DTSCS24
02924           GO TO MAINLINE-EXIT.                                    DTSCS24
02925   S825-EXIT.                                                      DTSCS24
02926       EXIT.                                                       DTSCS24
02927                                                                   DTSCS24
02928  S826-WRITE-ATH.                                                  DTSCS24
02929      MOVE LOW-VALUES            TO AATH-REC.                      DTSCS24
02930                                                                   DTSCS24
02931      MOVE WRK-BATCH-NO          TO AATH-BATCH-NO.                 DTSCS24
02932      MOVE WRK-ITEM-NO           TO AATH-ITEM-NO.                  DTSCS24
02933      IF WRK-AATH-ACTION-DEL-88                                    DTSCS24
02934         SET AATH-RPT-88         TO TRUE                           DTSCS24
02935      ELSE                                                         DTSCS24
02936         MOVE ARPT-DATA-AREA        TO AATH-DATA-AREA              DTSCS24
02937      END-IF.                                                      DTSCS24
02938      MOVE LCCM-OP-ID            TO AATH-OP-ID.                    DTSCS24
02939      MOVE ZERO                  TO AATH-DATE                      DTSCS24
02940                                    AATH-TIME.                     DTSCS24
02941      MOVE WRK-AATH-ACTION       TO AATH-ACTION.                   DTSCS24
02942                                                                   DTSCS24
02943      EXEC CICS LINK                                               DTSCS24
02944          PROGRAM ('DTSCU826')                                     DTSCS24
02945          COMMAREA (L826-COMM-AREA)                                DTSCS24
02946      END-EXEC.                                                    DTSCS24
02947                                                                   DTSCS24
02948      IF L826-FILE-CLOSED-88                                       DTSCS24
02949          MOVE L826-MSG-AREA TO LCCM-MSG-AREA                      DTSCS24
02950          SET LCCM-REQ-SCR-SF-88 TO TRUE                           DTSCS24
02951          SET LCCM-LINK-SCREEN-88 TO TRUE                          DTSCS24
02952          GO TO MAINLINE-EXIT.                                     DTSCS24
02953   S826-EXIT.                                                      DTSCS24
02954       EXIT.                                                       DTSCS24
02955                                                                   DTSCS24
02956  S851-SCREEN-PROCESSING.                                          DTSCS24
02957      EXEC CICS LINK                                               DTSCS24
02958          PROGRAM ('DTSCU851')                                     DTSCS24
02959          COMMAREA (L851-COMM-AREA)                                DTSCS24
02960      END-EXEC.                                                    DTSCS24
02961  S851-EXIT.                                                       DTSCS24
02962      EXIT.                                                        DTSCS24
02963                                                                   DTSCS24
02964                                                                   DTSCS24
02965                                                                   DTSCS24
02966  S899-ABEND.                                                      DTSCS24
02967      EXEC CICS ABEND                                              DTSCS24
02968          ABCODE(WRK-ABEND-CD)                                     DTSCS24
02969      END-EXEC.                                                    DTSCS24
02970  S899-EXIT.                                                       DTSCS24
02971      EXIT.                                                        DTSCS24
02972 /*****************************************************************DTSCS24
02973 *    EDIT THE INFORMATION ON THE SCREEN.                         *DTSCS24
02974 ******************************************************************DTSCS24
02975                                                                   DTSCS24
02976  S1000-SCREEN-EDITS.                                              DTSCS24
02977      PERFORM S1001-INITIALIZE-WRK-AREA THRU S1001-EXIT.           DTSCS24
02978                                                                   DTSCS24
02979                                                                   DTSCS24
02980      PERFORM S3600-EDIT-MODE THRU S3600-EXIT.                     DTSCS24
02981                                                                   DTSCS24
02982      IF LCCM-MSG                                                  DTSCS24
02983          GO TO S1000-EXIT.                                        DTSCS24
02984                                                                   DTSCS24
02985                                                                   DTSCS24
02986      PERFORM S1110-BATCH-NO THRU S1110-EXIT.                      DTSCS24
02987                                                                   DTSCS24
02988 *****PERFORM S1120-ITEM-NO THRU S1120-EXIT.                       DTSCS24
02989                                                                   DTSCS24
02990      PERFORM S1200-NAME-CHECK THRU S1200-EXIT.                    DTSCS24
02991                                                                   DTSCS24
02992      PERFORM S1300-EMP-NO THRU S1300-EXIT.                        DTSCS24
02993                                                                   DTSCS24
02994      PERFORM S1400-YRQ THRU S1400-EXIT.                           DTSCS24
02995                                                                   DTSCS24
02996      MOVE WRK-EMP-NO                       TO L410-EMP-NO.        DTSCS24
02997      MOVE WRK-YRQ                          TO L410-YRQ.           DTSCS24
02998      SET L410-MODE-INPUT-YRQ-88            TO TRUE.               DTSCS24
02999      PERFORM S410-FILING-SCHEDULE          THRU S410-EXIT.        DTSCS24
03000                                                                   DTSCS24
03001 ************************************************************      DTSCS24
03002 * FOR WITHDRAWN REPORTS, USERS DO NOT NEED TO ENTER WAGE          DTSCS24
03003 * AMOUNTS, EMPLOYEE COUNTS, ETC.  CROSS-EDITS NOT NEEDED.         DTSCS24
03004 ************************************************************      DTSCS24
03005      IF MAP-RPT-WITHDRW-88                                        DTSCS24
03006      AND MAP-EDIT-FULL-88                                         DTSCS24
03007         PERFORM S4210-WITHDRW                  THRU S4210-EXIT    DTSCS24
03008         IF LCCM-MSG                                               DTSCS24
03009            GO TO S1000-EXIT                                       DTSCS24
03010         ELSE                                                      DTSCS24
03011            PERFORM S3100-RESPONSIBLE-ACTIVITY  THRU S3100-EXIT    DTSCS24
03012            PERFORM S3200-RESPONSIBLE-OP-ID     THRU S3200-EXIT    DTSCS24
03013            PERFORM S3300-RECEIVED-DATE         THRU S3300-EXIT    DTSCS24
03014            PERFORM S3700-ENTRY-MODE            THRU S3700-EXIT    DTSCS24
03015         END-IF                                                    DTSCS24
03016         GO TO S1000-EXIT                                          DTSCS24
03017      END-IF.                                                      DTSCS24
03018                                                                   DTSCS24
03019      PERFORM S1500-TOTAL-EMPL-CNT THRU S1500-EXIT.                DTSCS24
03020                                                                   DTSCS24
03021      PERFORM S1600-VERIFIED-IND THRU S1600-EXIT.                  DTSCS24
03022                                                                   DTSCS24
03023      PERFORM S1700-1ST-MTH-EMPL-CNT THRU S1700-EXIT.              DTSCS24
03024                                                                   DTSCS24
03025      PERFORM S1800-2ND-MTH-EMPL-CNT THRU S1800-EXIT.              DTSCS24
03026                                                                   DTSCS24
03027      PERFORM S1900-3RD-MTH-EMPL-CNT THRU S1900-EXIT.              DTSCS24
03028                                                                   DTSCS24
03029      PERFORM S2000-TOT-WAGE THRU S2000-EXIT.                      DTSCS24
03030                                                                   DTSCS24
03031      PERFORM S2100-EXCESS-WAGE THRU S2100-EXIT.                   DTSCS24
03032                                                                   DTSCS24
03033      PERFORM S2200-TAX-WAGE THRU S2200-EXIT.                      DTSCS24
03034                                                                   DTSCS24
03035      PERFORM S2300-REMIT-AMT THRU S2300-EXIT.                     DTSCS24
03036                                                                   DTSCS24
03037      PERFORM S2500-RPT-TYPE THRU S2500-EXIT.                      DTSCS24
03038                                                                   DTSCS24
03039      PERFORM S2600-WAIVE-BOTH-IND THRU S2600-EXIT.                DTSCS24
03040                                                                   DTSCS24
03041      PERFORM S2700-WAIVE-LATE-PEN-IND THRU S2700-EXIT.            DTSCS24
03042                                                                   DTSCS24
03043      PERFORM S2800-WAIVE-INT-IND THRU S2800-EXIT.                 DTSCS24
03044                                                                   DTSCS24
03045      PERFORM S2900-WAGE-RPT-IND THRU S2900-EXIT.                  DTSCS24
03046                                                                   DTSCS24
03047      PERFORM S3000-STATUS-IND THRU S3000-EXIT.                    DTSCS24
03048                                                                   DTSCS24
03049      PERFORM S3100-RESPONSIBLE-ACTIVITY THRU S3100-EXIT.          DTSCS24
03050                                                                   DTSCS24
03051      PERFORM S3200-RESPONSIBLE-OP-ID THRU S3200-EXIT.             DTSCS24
03052                                                                   DTSCS24
03053      PERFORM S3300-RECEIVED-DATE THRU S3300-EXIT.                 DTSCS24
03054                                                                   DTSCS24
03055      PERFORM S3700-ENTRY-MODE THRU S3700-EXIT.                    DTSCS24
03056                                                                   DTSCS24
03057      PERFORM S3800-DISREGARD-EDITS-IND THRU S3800-EXIT.           DTSCS24
03058                                                                   DTSCS24
03059                                                                   DTSCS24
03060      IF LCCM-MSG                                                  DTSCS24
03061         GO TO S1000-EXIT.                                         DTSCS24
03062                                                                   DTSCS24
03063                                                                   DTSCS24
03064      PERFORM S4000-CROSS-EDITS THRU S4000-EXIT.                   DTSCS24
03065  S1000-EXIT.                                                      DTSCS24
03066      EXIT.                                                        DTSCS24
03067      EJECT                                                        DTSCS24
03068  S1001-INITIALIZE-WRK-AREA.                                       DTSCS24
03069      MOVE +0 TO WRK-YRQ.                                          DTSCS24
03070                                                                   DTSCS24
03071      SET WRK-TOT-WAGE-INVALID-88 TO TRUE.                         DTSCS24
03072                                                                   DTSCS24
03073      SET WRK-EXCESS-WAGE-INVALID-88 TO TRUE.                      DTSCS24
03074                                                                   DTSCS24
03075      SET WRK-TAX-WAGE-INVALID-88 TO TRUE.                         DTSCS24
03076                                                                   DTSCS24
03077      SET WRK-REMIT-AMT-INVALID-88 TO TRUE.                        DTSCS24
03078                                                                   DTSCS24
03079      MOVE +0 TO WRK-RECEIVED-DATE.                                DTSCS24
03080                                                                   DTSCS24
03081      SET WRK-TOTAL-NO-ENTRY-88 TO TRUE.                           DTSCS24
03082                                                                   DTSCS24
03083      SET WRK-1ST-MTH-NO-ENTRY-88 TO TRUE.                         DTSCS24
03084                                                                   DTSCS24
03085      SET WRK-2ND-MTH-NO-ENTRY-88 TO TRUE.                         DTSCS24
03086                                                                   DTSCS24
03087      SET WRK-3RD-MTH-NO-ENTRY-88 TO TRUE.                         DTSCS24
03088                                                                   DTSCS24
03089      SET WRK-PASSED-FULL-EDITS-YES-88 TO TRUE.                    DTSCS24
03090                                                                   DTSCS24
03091      SET WRK-MPRF-EXISTS-NO-88 TO TRUE.                           DTSCS24
03092  S1001-EXIT.                                                      DTSCS24
03093      EXIT.                                                        DTSCS24
03094      EJECT                                                        DTSCS24
03095  S1100-EDIT-KEY.                                                  DTSCS24
03096      PERFORM S1110-BATCH-NO THRU S1110-EXIT.                      DTSCS24
03097  S1100-EXIT.                                                      DTSCS24
03098      EXIT.                                                        DTSCS24
03099                                                                   DTSCS24
03100                                                                   DTSCS24
03101                                                                   DTSCS24
03102  S1110-BATCH-NO.                                                  DTSCS24
03103      MOVE MAP-DOC-NO-AREA TO L019-S-DOC-NO.                       DTSCS24
03104                                                                   DTSCS24
03105      PERFORM S019-BATCH-NO-FROM-SCREEN THRU S019-EXIT.            DTSCS24
03106                                                                   DTSCS24
03107      IF L019-NO-ENTRY                                             DTSCS24
03108 ********IF LCCM-ENTER-88                                          DTSCS24
03109 ***********GO TO S1110-EXIT                                       DTSCS24
03110 ********ELSE                                                      DTSCS24
03111             MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA              DTSCS24
03112             PERFORM S1111-ERROR THRU S1111-EXIT                   DTSCS24
03113             GO TO S1110-EXIT.                                     DTSCS24
03114                                                                   DTSCS24
03115      IF L019-NOT-VALID                                            DTSCS24
03116          MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA                DTSCS24
03117          PERFORM S1111-ERROR THRU S1111-EXIT                      DTSCS24
03118          GO TO S1110-EXIT.                                        DTSCS24
03119                                                                   DTSCS24
03120      MOVE L019-BATCH-NO TO WRK-BATCH-NO.                          DTSCS24
03121                                                                   DTSCS24
03122      MOVE L019-ITEM-NO TO WRK-ITEM-NO.                            DTSCS24
03123  S1110-EXIT.                                                      DTSCS24
03124      EXIT.                                                        DTSCS24
03125                                                                   DTSCS24
03126                                                                   DTSCS24
03127                                                                   DTSCS24
03128  S1111-ERROR.                                                     DTSCS24
03129      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-BATCH-NO-A.           DTSCS24
03130                                                                   DTSCS24
03131      IF LCCM-NO-MSG                                               DTSCS24
03132          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS24
03133          MOVE CATB-CURSOR TO MAP-BATCH-NO-L                       DTSCS24
03134          SET CURSOR-SET-YES TO TRUE.                              DTSCS24
03135  S1111-EXIT.                                                      DTSCS24
03136      EXIT.                                                        DTSCS24
03137                                                                   DTSCS24
03138                                                                   DTSCS24
03139                                                                   DTSCS24
03140  S1112-ERROR.                                                     DTSCS24
03141      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-ITEM-NO-A.            DTSCS24
03142                                                                   DTSCS24
03143      IF LCCM-NO-MSG                                               DTSCS24
03144          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS24
03145          MOVE CATB-CURSOR TO MAP-ITEM-NO-L                        DTSCS24
03146          SET CURSOR-SET-YES TO TRUE.                              DTSCS24
03147  S1112-EXIT.                                                      DTSCS24
03148      EXIT.                                                        DTSCS24
03149                                                                   DTSCS24
03150                                                                   DTSCS24
03151                                                                   DTSCS24
03152 *S1120-ITEM-NO.                                                   DTSCS24
03153 *****IF LCCM-ENTER-88                                             DTSCS24
03154 ********IF MAP-ITEM-NO = SPACES OR LOW-VALUES                     DTSCS24
03155 ************NEXT SENTENCE                                         DTSCS24
03156 ********ELSE                                                      DTSCS24
03157 ************MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-AREA           DTSCS24
03158 ************PERFORM S1112-ERROR THRU S1112-EXIT.                  DTSCS24
03159 *S1120-EXIT.                                                      DTSCS24
03160 *****EXIT.                                                        DTSCS24
03161 /*****************************************************************DTSCS24
03162 *                                                                 DTSCS24
03163 ******************************************************************DTSCS24
03164  S1200-NAME-CHECK.                                                DTSCS24
03165      IF MAP-NAME-CHECK = LOW-VALUES                               DTSCS24
03166          MOVE SPACES TO MAP-NAME-CHECK.                           DTSCS24
03167                                                                   DTSCS24
03168      IF MAP-NAME-CHECK = SPACES                                   DTSCS24
03169          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03170          IF MAP-EDIT-FULL-88                                      DTSCS24
03171              MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS24
03172              MOVE 'NAME' TO WRK-MSG-TEXT                          DTSCS24
03173              PERFORM S1201-ERROR THRU S1201-EXIT.                 DTSCS24
03174  S1200-EXIT.                                                      DTSCS24
03175      EXIT.                                                        DTSCS24
03176                                                                   DTSCS24
03177                                                                   DTSCS24
03178                                                                   DTSCS24
03179  S1201-ERROR.                                                     DTSCS24
03180      MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-NAME-CHECK-A.          DTSCS24
03181                                                                   DTSCS24
03182      IF LCCM-NO-MSG                                               DTSCS24
03183          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS24
03184          MOVE CATB-CURSOR TO MAP-NAME-CHECK-L                     DTSCS24
03185          SET CURSOR-SET-YES TO TRUE.                              DTSCS24
03186  S1201-EXIT.                                                      DTSCS24
03187      EXIT.                                                        DTSCS24
03188 /*****************************************************************DTSCS24
03189 *                                                                 DTSCS24
03190 ******************************************************************DTSCS24
03191  S1300-EMP-NO.                                                    DTSCS24
03192      MOVE MAP-EMP-NO-AREA TO L018-S-EMP-NO-AREA.                  DTSCS24
03193                                                                   DTSCS24
03194      PERFORM S018-EMP-NO-FROM-SCREEN THRU S018-EXIT.              DTSCS24
03195                                                                   DTSCS24
03196      IF L018-NO-ENTRY                                             DTSCS24
03197          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03198          IF MAP-EDIT-FULL-88                                      DTSCS24
03199              MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS24
03200              MOVE 'EMP NO' TO WRK-MSG-TEXT                        DTSCS24
03201              PERFORM S1301-ERROR THRU S1301-EXIT                  DTSCS24
03202              GO TO S1300-EXIT                                     DTSCS24
03203          ELSE                                                     DTSCS24
03204              GO TO S1300-EXIT.                                    DTSCS24
03205                                                                   DTSCS24
03206      IF L018-NOT-VALID                                            DTSCS24
03207          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03208          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS24
03209          MOVE 'EMP NO' TO WRK-MSG-TEXT                            DTSCS24
03210          PERFORM S1301-ERROR THRU S1301-EXIT                      DTSCS24
03211          GO TO S1300-EXIT.                                        DTSCS24
03212                                                                   DTSCS24
03213      MOVE L018-EMP-NO TO WRK-EMP-NO.                              DTSCS24
03214                                                                   DTSCS24
03215      PERFORM S1310-READ-MPRF THRU S1310-EXIT.                     DTSCS24
03216  S1300-EXIT.                                                      DTSCS24
03217      EXIT.                                                        DTSCS24
03218                                                                   DTSCS24
03219                                                                   DTSCS24
03220                                                                   DTSCS24
03221  S1301-ERROR.                                                     DTSCS24
03222      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-EMP-NO-1-A            DTSCS24
03223                                         MAP-EMP-NO-2-A.           DTSCS24
03224                                                                   DTSCS24
03225      IF LCCM-NO-MSG                                               DTSCS24
03226          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS24
03227          MOVE CATB-CURSOR TO MAP-EMP-NO-1-L                       DTSCS24
03228          SET CURSOR-SET-YES TO TRUE.                              DTSCS24
03229  S1301-EXIT.                                                      DTSCS24
03230      EXIT.                                                        DTSCS24
03231                                                                   DTSCS24
03232                                                                   DTSCS24
03233                                                                   DTSCS24
03234  S1310-READ-MPRF.                                                 DTSCS24
03235      MOVE LOW-VALUES TO MPRF-KEY-AREA.                            DTSCS24
03236                                                                   DTSCS24
03237      MOVE WRK-EMP-NO TO MPRF-EMP-NO.                              DTSCS24
03238                                                                   DTSCS24
03239      SET MPRF-PRF-88 TO TRUE.                                     DTSCS24
03240                                                                   DTSCS24
03241      MOVE MPRF-KEY-AREA TO MSKL-KEY-AREA.                         DTSCS24
03242                                                                   DTSCS24
03243      PERFORM S810-READ THRU S810-EXIT.                            DTSCS24
03244                                                                   DTSCS24
03245      IF L810-NO-REC-88                                            DTSCS24
03246          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03247          IF MAP-EDIT-FULL-88                                      DTSCS24
03248              MOVE EMSG-NO-EMPLOYER TO WRK-MSG-AREA                DTSCS24
03249              PERFORM S1301-ERROR THRU S1301-EXIT                  DTSCS24
03250              GO TO S1310-EXIT                                     DTSCS24
03251          ELSE                                                     DTSCS24
03252              GO TO S1310-EXIT.                                    DTSCS24
03253                                                                   DTSCS24
03254                                                                   DTSCS24
03255      MOVE MSKL-REC TO MPRF-REC.                                   DTSCS24
03256                                                                   DTSCS24
03257      SET WRK-MPRF-EXISTS-YES-88 TO TRUE.                          DTSCS24
03258                                                                   DTSCS24
03259                                                                   DTSCS24
03260      MOVE WRK-EMP-NO TO LCCM-EMP-NO.                              DTSCS24
03261                                                                   DTSCS24
03262                                                                   DTSCS24
03263      IF MPRF-PURGE-ALL-YES-88                                     DTSCS24
03264          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03265          IF MAP-EDIT-FULL-88                                      DTSCS24
03266              MOVE EMSG-EMP-MARKED-FOR-PURGE TO WRK-MSG-AREA       DTSCS24
03267              PERFORM S1301-ERROR THRU S1301-EXIT                  DTSCS24
03268              GO TO S1310-EXIT                                     DTSCS24
03269          ELSE                                                     DTSCS24
03270              GO TO S1310-EXIT.                                    DTSCS24
03271                                                                   DTSCS24
03272      IF MAP-NAME-CHECK = SPACES                                   DTSCS24
03273          GO TO S1310-EXIT.                                        DTSCS24
03274                                                                   DTSCS24
03275      IF (MPRF-PRIMARY-NAME(1:4) = MAP-NAME-CHECK)                 DTSCS24
03276                   OR                                              DTSCS24
03277         (MPRF-ENTITY-NAME(1:4) = MAP-NAME-CHECK)                  DTSCS24
03278          NEXT SENTENCE                                            DTSCS24
03279      ELSE                                                         DTSCS24
03280          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03281          IF MAP-EDIT-FULL-88                                      DTSCS24
03282              MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS24
03283              MOVE 'NAME' TO WRK-MSG-TEXT                          DTSCS24
03284              PERFORM S1201-ERROR THRU S1201-EXIT                  DTSCS24
03285              PERFORM S1301-ERROR THRU S1301-EXIT.                 DTSCS24
03286  S1310-EXIT.                                                      DTSCS24
03287      EXIT.                                                        DTSCS24
03288                                                                   DTSCS24
03289 /*****************************************************************DTSCS24
03290 *                                                                 DTSCS24
03291 ******************************************************************DTSCS24
03292  S1400-YRQ.                                                       DTSCS24
03293      MOVE MAP-YRQ-AREA TO L016-S-YRQ-AREA.                        DTSCS24
03294                                                                   DTSCS24
03295      PERFORM S016-YRQ-FROM-SCREEN THRU S016-EXIT.                 DTSCS24
03296                                                                   DTSCS24
03297      IF L016-NO-ENTRY                                             DTSCS24
03298          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03299          IF MAP-EDIT-FULL-88                                      DTSCS24
03300              MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS24
03301              MOVE 'YEAR/QUARTER' TO WRK-MSG-TEXT                  DTSCS24
03302              PERFORM S1401-ERROR THRU S1401-EXIT                  DTSCS24
03303              GO TO S1400-EXIT                                     DTSCS24
03304          ELSE                                                     DTSCS24
03305              GO TO S1400-EXIT.                                    DTSCS24
03306                                                                   DTSCS24
03307      IF L016-NOT-VALID                                            DTSCS24
03308          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03309          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS24
03310          MOVE 'YEAR/QUARTER' TO WRK-MSG-TEXT                      DTSCS24
03311          PERFORM S1401-ERROR THRU S1401-EXIT                      DTSCS24
03312          GO TO S1400-EXIT.                                        DTSCS24
03313                                                                   DTSCS24
03314      IF L016-YRQ <= LCCM-PICKUP-YRQ                               DTSCS24
03315          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03316          MOVE MSG-E247-AREA TO WRK-MSG-AREA                       DTSCS24
03317          PERFORM S1401-ERROR THRU S1401-EXIT                      DTSCS24
03318          GO TO S1400-EXIT.                                        DTSCS24
03319                                                                   DTSCS24
03320      MOVE L016-YRQ TO L004-QTR-5-9.                               DTSCS24
03321                                                                   DTSCS24
03322      PERFORM S004-FROM-5 THRU S004-EXIT.                          DTSCS24
03323                                                                   DTSCS24
03324      MOVE L004-QTR-END-DATE TO L001-FED-8-DATE-9.                 DTSCS24
03325                                                                   DTSCS24
03326      IF NOT MAP-RPT-WITHDRW-88                                    DTSCS24
03327         MOVE 1 TO L001-FED-8-DA                                   DTSCS24
03328         IF LCCM-CURR-RUN-DATE < L001-FED-8-DATE-9                 DTSCS24
03329            SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                DTSCS24
03330            IF MAP-EDIT-FULL-88                                    DTSCS24
03331               MOVE MSG-E243-AREA TO WRK-MSG-AREA                  DTSCS24
03332               PERFORM S1401-ERROR THRU S1401-EXIT                 DTSCS24
03333               GO TO S1400-EXIT                                    DTSCS24
03334            END-IF                                                 DTSCS24
03335         END-IF                                                    DTSCS24
03336      END-IF.                                                      DTSCS24
03337                                                                   DTSCS24
03338      MOVE L016-YRQ TO WRK-YRQ                                     DTSCS24
03339                       LCCM-YRQ.                                   DTSCS24
03340  S1400-EXIT.                                                      DTSCS24
03341      EXIT.                                                        DTSCS24
03342                                                                   DTSCS24
03343                                                                   DTSCS24
03344                                                                   DTSCS24
03345  S1401-ERROR.                                                     DTSCS24
03346      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-YRQ-YR-A.             DTSCS24
03347                                                                   DTSCS24
03348      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-YRQ-Q-A.              DTSCS24
03349                                                                   DTSCS24
03350      IF LCCM-NO-MSG                                               DTSCS24
03351          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS24
03352          MOVE CATB-CURSOR TO MAP-YRQ-YR-L                         DTSCS24
03353          SET CURSOR-SET-YES TO TRUE.                              DTSCS24
03354  S1401-EXIT.                                                      DTSCS24
03355      EXIT.                                                        DTSCS24
03356 /*****************************************************************DTSCS24
03357 *                                                                 DTSCS24
03358 ******************************************************************DTSCS24
03359  S1500-TOTAL-EMPL-CNT.                                            DTSCS24
03360      MOVE MAP-TOTAL-EMPL-CNT-AREA TO L013-S-CNT-AREA.             DTSCS24
03361                                                                   DTSCS24
03362      PERFORM S013-EMPL-CNT-FROM-SCREEN THRU S013-EXIT.            DTSCS24
03363                                                                   DTSCS24
03364      IF L013-NO-ENTRY                                             DTSCS24
03365         GO TO S1500-EXIT.                                         DTSCS24
03366                                                                   DTSCS24
03367      IF L013-INVALID-NEGATIVE                                     DTSCS24
03368          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03369          MOVE EMSG-INVALID-NEGATIVE TO WRK-MSG-AREA               DTSCS24
03370          PERFORM S1501-ERROR THRU S1501-EXIT                      DTSCS24
03371          GO TO S1500-EXIT.                                        DTSCS24
03372                                                                   DTSCS24
03373      IF L013-EXCEEDS-MIN-MAX                                      DTSCS24
03374          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03375          MOVE EMSG-EXCEEDS-MIN-MAX TO WRK-MSG-AREA                DTSCS24
03376          PERFORM S1501-ERROR THRU S1501-EXIT                      DTSCS24
03377          GO TO S1500-EXIT.                                        DTSCS24
03378                                                                   DTSCS24
03379      IF L013-NOT-VALID                                            DTSCS24
03380          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03381          MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA                DTSCS24
03382          PERFORM S1501-ERROR THRU S1501-EXIT                      DTSCS24
03383          GO TO S1500-EXIT.                                        DTSCS24
03384                                                                   DTSCS24
03385      MOVE L013-CNT TO MAP-TOTAL-EMPL-CNT-N                        DTSCS24
03386                       WRK-TOTAL-EMPL-CNT.                         DTSCS24
03387  S1500-EXIT.                                                      DTSCS24
03388      EXIT.                                                        DTSCS24
03389                                                                   DTSCS24
03390                                                                   DTSCS24
03391                                                                   DTSCS24
03392  S1501-ERROR.                                                     DTSCS24
03393      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-TOTAL-EMPL-CNT-A.     DTSCS24
03394                                                                   DTSCS24
03395      IF LCCM-NO-MSG                                               DTSCS24
03396          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS24
03397          MOVE CATB-CURSOR TO MAP-TOTAL-EMPL-CNT-L                 DTSCS24
03398          SET CURSOR-SET-YES TO TRUE.                              DTSCS24
03399  S1501-EXIT.                                                      DTSCS24
03400      EXIT.                                                        DTSCS24
03401 /*****************************************************************DTSCS24
03402 *                                                                 DTSCS24
03403 ******************************************************************DTSCS24
03404  S1600-VERIFIED-IND.                                              DTSCS24
03405      IF MAP-VERIFIED-IND = LOW-VALUES                             DTSCS24
03406          MOVE SPACE TO MAP-VERIFIED-IND.                          DTSCS24
03407                                                                   DTSCS24
03408      IF MAP-VERIFIED-VALID-88                                     DTSCS24
03409          NEXT SENTENCE                                            DTSCS24
03410      ELSE                                                         DTSCS24
03411          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03412          MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA                DTSCS24
03413          PERFORM S1601-ERROR THRU S1601-EXIT.                     DTSCS24
03414  S1600-EXIT.                                                      DTSCS24
03415      EXIT.                                                        DTSCS24
03416                                                                   DTSCS24
03417                                                                   DTSCS24
03418                                                                   DTSCS24
03419  S1601-ERROR.                                                     DTSCS24
03420      MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-VERIFIED-IND-A.        DTSCS24
03421                                                                   DTSCS24
03422      IF LCCM-NO-MSG                                               DTSCS24
03423          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS24
03424          MOVE CATB-CURSOR TO MAP-VERIFIED-IND-L                   DTSCS24
03425          SET CURSOR-SET-YES TO TRUE.                              DTSCS24
03426  S1601-EXIT.                                                      DTSCS24
03427      EXIT.                                                        DTSCS24
03428 /*****************************************************************DTSCS24
03429 *                                                                 DTSCS24
03430 ******************************************************************DTSCS24
03431  S1700-1ST-MTH-EMPL-CNT.                                          DTSCS24
03432      MOVE MAP-1ST-MTH-EMPL-CNT-AREA TO L013-S-CNT-AREA.           DTSCS24
03433                                                                   DTSCS24
03434      PERFORM S013-EMPL-CNT-FROM-SCREEN THRU S013-EXIT.            DTSCS24
03435                                                                   DTSCS24
03436      IF L013-NO-ENTRY                                             DTSCS24
03437         GO TO S1700-EXIT.                                         DTSCS24
03438                                                                   DTSCS24
03439      IF L013-INVALID-NEGATIVE                                     DTSCS24
03440          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03441          MOVE EMSG-INVALID-NEGATIVE TO WRK-MSG-AREA               DTSCS24
03442          PERFORM S1701-ERROR THRU S1701-EXIT                      DTSCS24
03443          GO TO S1700-EXIT.                                        DTSCS24
03444                                                                   DTSCS24
03445      IF L013-EXCEEDS-MIN-MAX                                      DTSCS24
03446          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03447          MOVE EMSG-EXCEEDS-MIN-MAX TO WRK-MSG-AREA                DTSCS24
03448          PERFORM S1701-ERROR THRU S1701-EXIT                      DTSCS24
03449          GO TO S1700-EXIT.                                        DTSCS24
03450                                                                   DTSCS24
03451      IF L013-NOT-VALID                                            DTSCS24
03452          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03453          MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA                DTSCS24
03454          PERFORM S1701-ERROR THRU S1701-EXIT                      DTSCS24
03455          GO TO S1700-EXIT.                                        DTSCS24
03456                                                                   DTSCS24
03457      MOVE L013-CNT TO MAP-1ST-MTH-EMPL-CNT-N                      DTSCS24
03458                       WRK-1ST-MTH-EMPL-CNT.                       DTSCS24
03459  S1700-EXIT.                                                      DTSCS24
03460      EXIT.                                                        DTSCS24
03461                                                                   DTSCS24
03462                                                                   DTSCS24
03463                                                                   DTSCS24
03464  S1701-ERROR.                                                     DTSCS24
03465      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-1ST-MTH-EMPL-CNT-A.   DTSCS24
03466                                                                   DTSCS24
03467      IF LCCM-NO-MSG                                               DTSCS24
03468          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS24
03469          MOVE CATB-CURSOR TO MAP-1ST-MTH-EMPL-CNT-L               DTSCS24
03470          SET CURSOR-SET-YES TO TRUE.                              DTSCS24
03471  S1701-EXIT.                                                      DTSCS24
03472      EXIT.                                                        DTSCS24
03473 /*****************************************************************DTSCS24
03474 *                                                                 DTSCS24
03475 ******************************************************************DTSCS24
03476  S1800-2ND-MTH-EMPL-CNT.                                          DTSCS24
03477      MOVE MAP-2ND-MTH-EMPL-CNT-AREA TO L013-S-CNT-AREA.           DTSCS24
03478                                                                   DTSCS24
03479      PERFORM S013-EMPL-CNT-FROM-SCREEN THRU S013-EXIT.            DTSCS24
03480                                                                   DTSCS24
03481      IF L013-NO-ENTRY                                             DTSCS24
03482          GO TO S1800-EXIT.                                        DTSCS24
03483                                                                   DTSCS24
03484      IF L013-INVALID-NEGATIVE                                     DTSCS24
03485          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03486          MOVE EMSG-INVALID-NEGATIVE TO WRK-MSG-AREA               DTSCS24
03487          PERFORM S1801-ERROR THRU S1801-EXIT                      DTSCS24
03488          GO TO S1800-EXIT.                                        DTSCS24
03489                                                                   DTSCS24
03490      IF L013-EXCEEDS-MIN-MAX                                      DTSCS24
03491          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03492          MOVE EMSG-EXCEEDS-MIN-MAX TO WRK-MSG-AREA                DTSCS24
03493          PERFORM S1801-ERROR THRU S1801-EXIT                      DTSCS24
03494          GO TO S1800-EXIT.                                        DTSCS24
03495                                                                   DTSCS24
03496      IF L013-NOT-VALID                                            DTSCS24
03497          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03498          MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA                DTSCS24
03499          PERFORM S1801-ERROR THRU S1801-EXIT                      DTSCS24
03500          GO TO S1800-EXIT.                                        DTSCS24
03501                                                                   DTSCS24
03502      MOVE L013-CNT TO MAP-2ND-MTH-EMPL-CNT-N                      DTSCS24
03503                       WRK-2ND-MTH-EMPL-CNT.                       DTSCS24
03504  S1800-EXIT.                                                      DTSCS24
03505      EXIT.                                                        DTSCS24
03506                                                                   DTSCS24
03507                                                                   DTSCS24
03508                                                                   DTSCS24
03509  S1801-ERROR.                                                     DTSCS24
03510      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-2ND-MTH-EMPL-CNT-A.   DTSCS24
03511                                                                   DTSCS24
03512      IF LCCM-NO-MSG                                               DTSCS24
03513          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS24
03514          MOVE CATB-CURSOR TO MAP-2ND-MTH-EMPL-CNT-L               DTSCS24
03515          SET CURSOR-SET-YES TO TRUE.                              DTSCS24
03516  S1801-EXIT.                                                      DTSCS24
03517      EXIT.                                                        DTSCS24
03518 /*****************************************************************DTSCS24
03519 *                                                                 DTSCS24
03520 ******************************************************************DTSCS24
03521  S1900-3RD-MTH-EMPL-CNT.                                          DTSCS24
03522      MOVE MAP-3RD-MTH-EMPL-CNT-AREA TO L013-S-CNT-AREA.           DTSCS24
03523                                                                   DTSCS24
03524      PERFORM S013-EMPL-CNT-FROM-SCREEN THRU S013-EXIT.            DTSCS24
03525                                                                   DTSCS24
03526      IF L013-NO-ENTRY                                             DTSCS24
03527         GO TO S1900-EXIT.                                         DTSCS24
03528                                                                   DTSCS24
03529      IF L013-INVALID-NEGATIVE                                     DTSCS24
03530          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03531          MOVE EMSG-INVALID-NEGATIVE TO WRK-MSG-AREA               DTSCS24
03532          PERFORM S1901-ERROR THRU S1901-EXIT                      DTSCS24
03533          GO TO S1900-EXIT.                                        DTSCS24
03534                                                                   DTSCS24
03535      IF L013-EXCEEDS-MIN-MAX                                      DTSCS24
03536          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03537          MOVE EMSG-EXCEEDS-MIN-MAX TO WRK-MSG-AREA                DTSCS24
03538          PERFORM S1901-ERROR THRU S1901-EXIT                      DTSCS24
03539          GO TO S1900-EXIT.                                        DTSCS24
03540                                                                   DTSCS24
03541      IF L013-NOT-VALID                                            DTSCS24
03542          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03543          MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA                DTSCS24
03544          PERFORM S1901-ERROR THRU S1901-EXIT                      DTSCS24
03545          GO TO S1900-EXIT.                                        DTSCS24
03546                                                                   DTSCS24
03547      MOVE L013-CNT TO MAP-3RD-MTH-EMPL-CNT-N                      DTSCS24
03548                       WRK-3RD-MTH-EMPL-CNT.                       DTSCS24
03549  S1900-EXIT.                                                      DTSCS24
03550      EXIT.                                                        DTSCS24
03551                                                                   DTSCS24
03552                                                                   DTSCS24
03553                                                                   DTSCS24
03554  S1901-ERROR.                                                     DTSCS24
03555      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-3RD-MTH-EMPL-CNT-A.   DTSCS24
03556                                                                   DTSCS24
03557      IF LCCM-NO-MSG                                               DTSCS24
03558          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS24
03559          MOVE CATB-CURSOR TO MAP-3RD-MTH-EMPL-CNT-L               DTSCS24
03560          SET CURSOR-SET-YES TO TRUE.                              DTSCS24
03561  S1901-EXIT.                                                      DTSCS24
03562      EXIT.                                                        DTSCS24
03563 /*****************************************************************DTSCS24
03564 *                                                                 DTSCS24
03565 ******************************************************************DTSCS24
03566  S2000-TOT-WAGE.                                                  DTSCS24
03567      IF MAP-EDIT-FULL-88                                          DTSCS24
03568          NEXT SENTENCE                                            DTSCS24
03569      ELSE                                                         DTSCS24
03570          PERFORM S2010-MINIMAL-EDIT THRU S2010-EXIT               DTSCS24
03571          GO TO S2000-EXIT.                                        DTSCS24
03572                                                                   DTSCS24
03573                                                                   DTSCS24
03574      MOVE MAP-TOT-WAGE-AREA TO L011-S-AMT-AREA.                   DTSCS24
03575                                                                   DTSCS24
03576      IF MAP-RPT-WITHDRW-88                                        DTSCS24
03577          PERFORM S011-WD-WAGE-FROM-SCREEN THRU S011-EXIT          DTSCS24
03578      ELSE                                                         DTSCS24
03579      IF MAP-RPT-ORIG-88 OR MAP-RPT-ESTIM-88 OR MAP-RPT-NO-ENTRY-88DTSCS24
03580          PERFORM S011-OR-ES-WAGE-FROM-SCREEN THRU S011-EXIT       DTSCS24
03581      ELSE                                                         DTSCS24
03582          PERFORM S011-SUPP-WAGE-FROM-SCREEN THRU S011-EXIT.       DTSCS24
03583                                                                   DTSCS24
03584      IF L011-VALID                                                DTSCS24
03585          NEXT SENTENCE                                            DTSCS24
03586      ELSE                                                         DTSCS24
03587          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03588          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS24
03589          MOVE 'WAGES' TO WRK-MSG-TEXT                             DTSCS24
03590          PERFORM S2001-ERROR THRU S2001-EXIT                      DTSCS24
03591          GO TO S2000-EXIT.                                        DTSCS24
03592                                                                   DTSCS24
03593       MOVE L011-AMT TO MAP-TOT-WAGE-N                             DTSCS24
03594                        WRK-TOT-WAGE.                              DTSCS24
03595  S2000-EXIT.                                                      DTSCS24
03596      EXIT.                                                        DTSCS24
03597                                                                   DTSCS24
03598                                                                   DTSCS24
03599                                                                   DTSCS24
03600  S2001-ERROR.                                                     DTSCS24
03601      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-TOT-WAGE-A.           DTSCS24
03602                                                                   DTSCS24
03603      IF LCCM-NO-MSG                                               DTSCS24
03604          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS24
03605          MOVE CATB-CURSOR TO MAP-TOT-WAGE-L                       DTSCS24
03606          SET CURSOR-SET-YES TO TRUE.                              DTSCS24
03607  S2001-EXIT.                                                      DTSCS24
03608      EXIT.                                                        DTSCS24
03609                                                                   DTSCS24
03610                                                                   DTSCS24
03611                                                                   DTSCS24
03612  S2010-MINIMAL-EDIT.                                              DTSCS24
03613      MOVE MAP-TOT-WAGE-AREA TO L011-S-AMT-AREA.                   DTSCS24
03614                                                                   DTSCS24
03615      PERFORM S011-OR-ES-WAGE-FROM-SCREEN THRU S011-EXIT.          DTSCS24
03616                                                                   DTSCS24
03617      IF L011-NO-ENTRY                                             DTSCS24
03618          SET WRK-TOT-WAGE-NO-ENTRY-88 TO TRUE                     DTSCS24
03619          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03620      ELSE                                                         DTSCS24
03621      IF L011-VALID                                                DTSCS24
03622          MOVE L011-AMT TO MAP-TOT-WAGE-N                          DTSCS24
03623                           WRK-TOT-WAGE                            DTSCS24
03624      ELSE                                                         DTSCS24
03625          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03626          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS24
03627          MOVE 'WAGES' TO WRK-MSG-TEXT                             DTSCS24
03628          PERFORM S2001-ERROR THRU S2001-EXIT.                     DTSCS24
03629  S2010-EXIT.                                                      DTSCS24
03630      EXIT.                                                        DTSCS24
03631 /*****************************************************************DTSCS24
03632 *                                                                 DTSCS24
03633 ******************************************************************DTSCS24
03634  S2100-EXCESS-WAGE.                                               DTSCS24
03635      IF MAP-EDIT-FULL-88                                          DTSCS24
03636          NEXT SENTENCE                                            DTSCS24
03637      ELSE                                                         DTSCS24
03638          PERFORM S2110-MINIMAL-EDIT THRU S2110-EXIT               DTSCS24
03639          GO TO S2100-EXIT.                                        DTSCS24
03640                                                                   DTSCS24
03641                                                                   DTSCS24
03642      MOVE MAP-EXCESS-WAGE-AREA TO L011-S-AMT-AREA.                DTSCS24
03643                                                                   DTSCS24
03644      IF MAP-RPT-WITHDRW-88                                        DTSCS24
03645          PERFORM S011-WD-WAGE-FROM-SCREEN THRU S011-EXIT          DTSCS24
03646      ELSE                                                         DTSCS24
03647      IF MAP-RPT-ORIG-88 OR MAP-RPT-ESTIM-88 OR MAP-RPT-NO-ENTRY-88DTSCS24
03648          PERFORM S011-OR-ES-WAGE-FROM-SCREEN THRU S011-EXIT       DTSCS24
03649      ELSE                                                         DTSCS24
03650          PERFORM S011-SUPP-WAGE-FROM-SCREEN THRU S011-EXIT.       DTSCS24
03651                                                                   DTSCS24
03652      IF L011-VALID                                                DTSCS24
03653          NEXT SENTENCE                                            DTSCS24
03654      ELSE                                                         DTSCS24
03655          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03656          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS24
03657          MOVE 'WAGES' TO WRK-MSG-TEXT                             DTSCS24
03658          PERFORM S2101-ERROR THRU S2101-EXIT                      DTSCS24
03659          GO TO S2100-EXIT.                                        DTSCS24
03660                                                                   DTSCS24
03661       MOVE L011-AMT TO MAP-EXCESS-WAGE-N                          DTSCS24
03662                        WRK-EXCESS-WAGE.                           DTSCS24
03663  S2100-EXIT.                                                      DTSCS24
03664      EXIT.                                                        DTSCS24
03665                                                                   DTSCS24
03666                                                                   DTSCS24
03667                                                                   DTSCS24
03668  S2101-ERROR.                                                     DTSCS24
03669      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-EXCESS-WAGE-A.        DTSCS24
03670                                                                   DTSCS24
03671      IF LCCM-NO-MSG                                               DTSCS24
03672          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS24
03673          MOVE CATB-CURSOR TO MAP-EXCESS-WAGE-L                    DTSCS24
03674          SET CURSOR-SET-YES TO TRUE.                              DTSCS24
03675  S2101-EXIT.                                                      DTSCS24
03676      EXIT.                                                        DTSCS24
03677                                                                   DTSCS24
03678                                                                   DTSCS24
03679 /*****************************************************************DTSCS24
03680 *    FOR SELF-INSURED EMPLOYERS, SET EXCESS WAGES TO ZERO         DTSCS24
03681 *    AUTOMATICALLY.                                               DTSCS24
03682 ******************************************************************DTSCS24
03683  S2110-MINIMAL-EDIT.                                              DTSCS24
03684      IF WRK-MPRF-EXISTS-YES-88                                    DTSCS24
03685          IF MPRF-CLASS-SELF-INS-88                                DTSCS24
03686              MOVE ZERO TO MAP-EXCESS-WAGE-N                       DTSCS24
03687                           WRK-EXCESS-WAGE                         DTSCS24
03688              GO TO S2110-EXIT.                                    DTSCS24
03689                                                                   DTSCS24
03690      MOVE MAP-EXCESS-WAGE-AREA TO L011-S-AMT-AREA.                DTSCS24
03691                                                                   DTSCS24
03692      PERFORM S011-OR-ES-WAGE-FROM-SCREEN THRU S011-EXIT.          DTSCS24
03693                                                                   DTSCS24
03694      IF L011-NO-ENTRY                                             DTSCS24
03695          SET WRK-EXCESS-WAGE-NO-ENTRY-88 TO TRUE                  DTSCS24
03696          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03697      ELSE                                                         DTSCS24
03698      IF L011-VALID                                                DTSCS24
03699          MOVE L011-AMT TO MAP-EXCESS-WAGE-N                       DTSCS24
03700                           WRK-EXCESS-WAGE                         DTSCS24
03701      ELSE                                                         DTSCS24
03702          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03703          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS24
03704          MOVE 'WAGES' TO WRK-MSG-TEXT                             DTSCS24
03705          PERFORM S2101-ERROR THRU S2101-EXIT.                     DTSCS24
03706  S2110-EXIT.                                                      DTSCS24
03707      EXIT.                                                        DTSCS24
03708                                                                   DTSCS24
03709 /*****************************************************************DTSCS24
03710 *                                                                 DTSCS24
03711 ******************************************************************DTSCS24
03712  S2200-TAX-WAGE.                                                  DTSCS24
03713      IF MAP-EDIT-FULL-88                                          DTSCS24
03714          NEXT SENTENCE                                            DTSCS24
03715      ELSE                                                         DTSCS24
03716          PERFORM S2210-MINIMAL-EDIT THRU S2210-EXIT               DTSCS24
03717          GO TO S2200-EXIT.                                        DTSCS24
03718                                                                   DTSCS24
03719                                                                   DTSCS24
03720      MOVE MAP-TAX-WAGE-AREA TO L011-S-AMT-AREA.                   DTSCS24
03721                                                                   DTSCS24
03722      IF MAP-RPT-WITHDRW-88                                        DTSCS24
03723          PERFORM S011-WD-WAGE-FROM-SCREEN THRU S011-EXIT          DTSCS24
03724      ELSE                                                         DTSCS24
03725      IF MAP-RPT-ORIG-88 OR MAP-RPT-ESTIM-88 OR MAP-RPT-NO-ENTRY-88DTSCS24
03726          PERFORM S011-OR-ES-WAGE-FROM-SCREEN THRU S011-EXIT       DTSCS24
03727      ELSE                                                         DTSCS24
03728          PERFORM S011-SUPP-WAGE-FROM-SCREEN THRU S011-EXIT.       DTSCS24
03729                                                                   DTSCS24
03730      IF L011-VALID                                                DTSCS24
03731          NEXT SENTENCE                                            DTSCS24
03732      ELSE                                                         DTSCS24
03733          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03734          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS24
03735          MOVE 'WAGES' TO WRK-MSG-TEXT                             DTSCS24
03736          PERFORM S2201-ERROR THRU S2201-EXIT                      DTSCS24
03737          GO TO S2200-EXIT.                                        DTSCS24
03738                                                                   DTSCS24
03739       MOVE L011-AMT TO MAP-TAX-WAGE-N                             DTSCS24
03740                        WRK-TAX-WAGE.                              DTSCS24
03741  S2200-EXIT.                                                      DTSCS24
03742      EXIT.                                                        DTSCS24
03743                                                                   DTSCS24
03744                                                                   DTSCS24
03745                                                                   DTSCS24
03746  S2201-ERROR.                                                     DTSCS24
03747      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-TAX-WAGE-A.           DTSCS24
03748                                                                   DTSCS24
03749      IF LCCM-NO-MSG                                               DTSCS24
03750          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS24
03751          MOVE CATB-CURSOR TO MAP-TAX-WAGE-L                       DTSCS24
03752          SET CURSOR-SET-YES TO TRUE.                              DTSCS24
03753  S2201-EXIT.                                                      DTSCS24
03754      EXIT.                                                        DTSCS24
03755                                                                   DTSCS24
03756                                                                   DTSCS24
03757                                                                   DTSCS24
03758 /*****************************************************************DTSCS24
03759 *    FOR SELF-INSURED EMPLOYERS, SET TAXABLE WAGES TO ZERO        DTSCS24
03760 *    AUTOMATICALLY.                                               DTSCS24
03761 ******************************************************************DTSCS24
03762  S2210-MINIMAL-EDIT.                                              DTSCS24
03763      IF WRK-MPRF-EXISTS-YES-88                                    DTSCS24
03764          IF MPRF-CLASS-SELF-INS-88                                DTSCS24
03765              MOVE ZERO TO MAP-TAX-WAGE-N                          DTSCS24
03766                           WRK-TAX-WAGE                            DTSCS24
03767              GO TO S2210-EXIT.                                    DTSCS24
03768                                                                   DTSCS24
03769      MOVE MAP-TAX-WAGE-AREA TO L011-S-AMT-AREA.                   DTSCS24
03770                                                                   DTSCS24
03771      PERFORM S011-OR-ES-WAGE-FROM-SCREEN THRU S011-EXIT.          DTSCS24
03772                                                                   DTSCS24
03773      IF L011-NO-ENTRY                                             DTSCS24
03774          SET WRK-TAX-WAGE-NO-ENTRY-88 TO TRUE                     DTSCS24
03775          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03776      ELSE                                                         DTSCS24
03777      IF L011-VALID                                                DTSCS24
03778          MOVE L011-AMT TO MAP-TAX-WAGE-N                          DTSCS24
03779                           WRK-TAX-WAGE                            DTSCS24
03780      ELSE                                                         DTSCS24
03781          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03782          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS24
03783          MOVE 'WAGES' TO WRK-MSG-TEXT                             DTSCS24
03784          PERFORM S2201-ERROR THRU S2201-EXIT.                     DTSCS24
03785  S2210-EXIT.                                                      DTSCS24
03786      EXIT.                                                        DTSCS24
03787 /*****************************************************************DTSCS24
03788 *                                                                 DTSCS24
03789 ******************************************************************DTSCS24
03790  S2300-REMIT-AMT.                                                 DTSCS24
03791      MOVE MAP-REMIT-AMT-AREA TO L011-S-AMT-AREA                   DTSCS24
03792                                                                   DTSCS24
03793      PERFORM S011-REMIT-AMT-FROM-SCREEN THRU S011-EXIT.           DTSCS24
03794                                                                   DTSCS24
03795      IF L011-VALID                                                DTSCS24
03796          NEXT SENTENCE                                            DTSCS24
03797      ELSE                                                         DTSCS24
03798          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03799          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS24
03800          MOVE 'REMIT AMT' TO WRK-MSG-TEXT                         DTSCS24
03801          PERFORM S2301-ERROR THRU S2301-EXIT                      DTSCS24
03802          GO TO S2300-EXIT.                                        DTSCS24
03803                                                                   DTSCS24
03804      MOVE L011-AMT TO MAP-REMIT-AMT-N                             DTSCS24
03805                       WRK-REMIT-AMT.                              DTSCS24
03806  S2300-EXIT.                                                      DTSCS24
03807      EXIT.                                                        DTSCS24
03808                                                                   DTSCS24
03809                                                                   DTSCS24
03810                                                                   DTSCS24
03811  S2301-ERROR.                                                     DTSCS24
03812      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-REMIT-AMT-A.          DTSCS24
03813                                                                   DTSCS24
03814      IF LCCM-NO-MSG                                               DTSCS24
03815         MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                        DTSCS24
03816         MOVE CATB-CURSOR TO MAP-REMIT-AMT-L                       DTSCS24
03817         SET CURSOR-SET-YES TO TRUE.                               DTSCS24
03818  S2301-EXIT.                                                      DTSCS24
03819      EXIT.                                                        DTSCS24
03820 /*****************************************************************DTSCS24
03821 *                                                                 DTSCS24
03822 ******************************************************************DTSCS24
03823  S2500-RPT-TYPE.                                                  DTSCS24
03824      IF MAP-RPT-NO-ENTRY-88                                       DTSCS24
03825         SET MAP-RPT-ORIG-88 TO TRUE                               DTSCS24
03826         GO TO S2500-EXIT.                                         DTSCS24
03827                                                                   DTSCS24
03828      MOVE MAP-RPT-TYPE TO L032-CD-2.                              DTSCS24
03829                                                                   DTSCS24
03830      PERFORM S032-ARPT-RPT-TYPE THRU S032-EXIT.                   DTSCS24
03831                                                                   DTSCS24
03832      IF L032-VALID                                                DTSCS24
03833          IF MAP-EDIT-FULL-88                                      DTSCS24
03834              GO TO S2500-EXIT                                     DTSCS24
03835          ELSE                                                     DTSCS24
03836              IF MAP-RPT-ORIG-88                                   DTSCS24
03837                  GO TO S2500-EXIT                                 DTSCS24
03838              ELSE                                                 DTSCS24
03839                  SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE          DTSCS24
03840                  MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER           DTSCS24
03841                  MOVE 'REPORT TYPE' TO WRK-MSG-TEXT               DTSCS24
03842                  PERFORM S2501-ERROR THRU S2501-EXIT              DTSCS24
03843                  GO TO S2500-EXIT.                                DTSCS24
03844                                                                   DTSCS24
03845      SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE.                     DTSCS24
03846                                                                   DTSCS24
03847      MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER.                      DTSCS24
03848                                                                   DTSCS24
03849      MOVE 'REPORT TYPE' TO WRK-MSG-TEXT.                          DTSCS24
03850                                                                   DTSCS24
03851      PERFORM S2501-ERROR THRU S2501-EXIT.                         DTSCS24
03852  S2500-EXIT.                                                      DTSCS24
03853      EXIT.                                                        DTSCS24
03854                                                                   DTSCS24
03855                                                                   DTSCS24
03856                                                                   DTSCS24
03857  S2501-ERROR.                                                     DTSCS24
03858      MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-RPT-TYPE-A.            DTSCS24
03859                                                                   DTSCS24
03860      IF LCCM-NO-MSG                                               DTSCS24
03861          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS24
03862          MOVE CATB-CURSOR TO MAP-RPT-TYPE-L                       DTSCS24
03863          SET CURSOR-SET-YES TO TRUE.                              DTSCS24
03864  S2501-EXIT.                                                      DTSCS24
03865      EXIT.                                                        DTSCS24
03866 /*****************************************************************DTSCS24
03867 *                                                                 DTSCS24
03868 ******************************************************************DTSCS24
03869  S2600-WAIVE-BOTH-IND.                                            DTSCS24
03870      IF MAP-WAIVE-BOTH-IND = LOW-VALUES OR SPACES                 DTSCS24
03871          IF WRK-REMIT-AMT-INVALID-88                              DTSCS24
03872              GO TO S2600-EXIT                                     DTSCS24
03873          ELSE                                                     DTSCS24
03874              SET MAP-WAIVE-BOTH-NO-88 TO TRUE                     DTSCS24
03875              GO TO S2600-EXIT.                                    DTSCS24
03876                                                                   DTSCS24
03877      IF MAP-EDIT-FULL-88                                          DTSCS24
03878          NEXT SENTENCE                                            DTSCS24
03879      ELSE                                                         DTSCS24
03880          IF MAP-WAIVE-BOTH-NO-88                                  DTSCS24
03881              GO TO S2600-EXIT                                     DTSCS24
03882          ELSE                                                     DTSCS24
03883              SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE              DTSCS24
03884              MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS24
03885              MOVE 'WAIVE' TO WRK-MSG-TEXT                         DTSCS24
03886              PERFORM S2601-ERROR THRU S2601-EXIT                  DTSCS24
03887              GO TO S2600-EXIT.                                    DTSCS24
03888                                                                   DTSCS24
03889      IF MAP-WAIVE-BOTH-YES-88                                     DTSCS24
03890 *********IF WRK-REMIT-AMT = +0                                    DTSCS24
03891 *************SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE              DTSCS24
03892 *************MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS24
03893 *************MOVE 'REMIT/CHECK/ADJ AMT}{WAIVE' TO WRK-MSG-TEXT    DTSCS24
03894 *************PERFORM S2301-ERROR THRU S2301-EXIT                  DTSCS24
03895 *************PERFORM S2601-ERROR THRU S2601-EXIT                  DTSCS24
03896 *********ELSE                                                     DTSCS24
03897              NEXT SENTENCE                                        DTSCS24
03898      ELSE                                                         DTSCS24
03899      IF MAP-WAIVE-BOTH-NO-88                                      DTSCS24
03900          NEXT SENTENCE                                            DTSCS24
03901      ELSE                                                         DTSCS24
03902          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03903          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS24
03904          MOVE 'WAIVE' TO WRK-MSG-TEXT                             DTSCS24
03905          PERFORM S2601-ERROR THRU S2601-EXIT.                     DTSCS24
03906  S2600-EXIT.                                                      DTSCS24
03907      EXIT.                                                        DTSCS24
03908                                                                   DTSCS24
03909                                                                   DTSCS24
03910                                                                   DTSCS24
03911  S2601-ERROR.                                                     DTSCS24
03912      MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-WAIVE-BOTH-IND-A.      DTSCS24
03913                                                                   DTSCS24
03914      IF LCCM-NO-MSG                                               DTSCS24
03915         MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                        DTSCS24
03916         MOVE CATB-CURSOR TO MAP-WAIVE-BOTH-IND-L                  DTSCS24
03917         SET CURSOR-SET-YES TO TRUE.                               DTSCS24
03918  S2601-EXIT.                                                      DTSCS24
03919      EXIT.                                                        DTSCS24
03920 /*****************************************************************DTSCS24
03921 *                                                                 DTSCS24
03922 ******************************************************************DTSCS24
03923  S2700-WAIVE-LATE-PEN-IND.                                        DTSCS24
03924      IF MAP-WAIVE-LATE-PEN-IND = LOW-VALUES OR SPACES             DTSCS24
03925          IF WRK-REMIT-AMT-INVALID-88                              DTSCS24
03926              GO TO S2700-EXIT                                     DTSCS24
03927          ELSE                                                     DTSCS24
03928              SET MAP-WAIVE-LATE-PEN-NO-88 TO TRUE                 DTSCS24
03929              GO TO S2700-EXIT.                                    DTSCS24
03930                                                                   DTSCS24
03931      IF MAP-EDIT-FULL-88                                          DTSCS24
03932          NEXT SENTENCE                                            DTSCS24
03933      ELSE                                                         DTSCS24
03934          IF MAP-WAIVE-LATE-PEN-NO-88                              DTSCS24
03935              GO TO S2700-EXIT                                     DTSCS24
03936          ELSE                                                     DTSCS24
03937              SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE              DTSCS24
03938              MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS24
03939              MOVE 'WAIVE' TO WRK-MSG-TEXT                         DTSCS24
03940              PERFORM S2701-ERROR THRU S2701-EXIT                  DTSCS24
03941              GO TO S2700-EXIT.                                    DTSCS24
03942                                                                   DTSCS24
03943      IF MAP-WAIVE-LATE-PEN-YES-88                                 DTSCS24
03944 *********IF WRK-REMIT-AMT = +0                                    DTSCS24
03945 *************SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE              DTSCS24
03946 *************MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS24
03947 *************MOVE 'REMIT WAIVE' TO WRK-MSG-TEXT                   DTSCS24
03948 *************PERFORM S2301-ERROR THRU S2301-EXIT                  DTSCS24
03949 *************PERFORM S2701-ERROR THRU S2701-EXIT                  DTSCS24
03950 *********ELSE                                                     DTSCS24
03951              IF MAP-WAIVE-BOTH-YES-88                             DTSCS24
03952                  SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE          DTSCS24
03953                  MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER           DTSCS24
03954                  MOVE 'WAIVE' TO WRK-MSG-TEXT                     DTSCS24
03955                  PERFORM S2601-ERROR THRU S2601-EXIT              DTSCS24
03956                  PERFORM S2701-ERROR THRU S2701-EXIT              DTSCS24
03957              ELSE                                                 DTSCS24
03958                  NEXT SENTENCE                                    DTSCS24
03959      ELSE                                                         DTSCS24
03960      IF MAP-WAIVE-LATE-PEN-NO-88                                  DTSCS24
03961          NEXT SENTENCE                                            DTSCS24
03962      ELSE                                                         DTSCS24
03963          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
03964          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS24
03965          MOVE 'WAIVE' TO WRK-MSG-TEXT                             DTSCS24
03966          PERFORM S2701-ERROR THRU S2701-EXIT.                     DTSCS24
03967  S2700-EXIT.                                                      DTSCS24
03968      EXIT.                                                        DTSCS24
03969                                                                   DTSCS24
03970                                                                   DTSCS24
03971                                                                   DTSCS24
03972  S2701-ERROR.                                                     DTSCS24
03973      MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-WAIVE-LATE-PEN-IND-A.  DTSCS24
03974                                                                   DTSCS24
03975      IF LCCM-NO-MSG                                               DTSCS24
03976         MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                        DTSCS24
03977         MOVE CATB-CURSOR TO MAP-WAIVE-LATE-PEN-IND-L              DTSCS24
03978         SET CURSOR-SET-YES TO TRUE.                               DTSCS24
03979  S2701-EXIT.                                                      DTSCS24
03980      EXIT.                                                        DTSCS24
03981 /*****************************************************************DTSCS24
03982 *                                                                 DTSCS24
03983 ******************************************************************DTSCS24
03984  S2800-WAIVE-INT-IND.                                             DTSCS24
03985      IF MAP-WAIVE-INT-IND = LOW-VALUES OR SPACES                  DTSCS24
03986          IF WRK-REMIT-AMT-INVALID-88                              DTSCS24
03987              GO TO S2800-EXIT                                     DTSCS24
03988          ELSE                                                     DTSCS24
03989              SET MAP-WAIVE-INT-NO-88 TO TRUE                      DTSCS24
03990              GO TO S2800-EXIT.                                    DTSCS24
03991                                                                   DTSCS24
03992      IF MAP-EDIT-FULL-88                                          DTSCS24
03993          NEXT SENTENCE                                            DTSCS24
03994      ELSE                                                         DTSCS24
03995          IF MAP-WAIVE-INT-NO-88                                   DTSCS24
03996              GO TO S2800-EXIT                                     DTSCS24
03997          ELSE                                                     DTSCS24
03998              SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE              DTSCS24
03999              MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS24
04000              MOVE 'WAIVE' TO WRK-MSG-TEXT                         DTSCS24
04001              PERFORM S2801-ERROR THRU S2801-EXIT                  DTSCS24
04002              GO TO S2800-EXIT.                                    DTSCS24
04003                                                                   DTSCS24
04004      IF MAP-WAIVE-INT-YES-88                                      DTSCS24
04005          IF WRK-REMIT-AMT = +0                                    DTSCS24
04006              SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE              DTSCS24
04007              MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS24
04008              MOVE 'REMIT AMT}{WAIVE' TO WRK-MSG-TEXT              DTSCS24
04009              PERFORM S2301-ERROR THRU S2301-EXIT                  DTSCS24
04010              PERFORM S2801-ERROR THRU S2801-EXIT                  DTSCS24
04011          ELSE                                                     DTSCS24
04012              IF MAP-WAIVE-BOTH-YES-88                             DTSCS24
04013                  SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE          DTSCS24
04014                  MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER           DTSCS24
04015                  MOVE 'WAIVE' TO WRK-MSG-TEXT                     DTSCS24
04016                  PERFORM S2601-ERROR THRU S2601-EXIT              DTSCS24
04017                  PERFORM S2801-ERROR THRU S2801-EXIT              DTSCS24
04018              ELSE                                                 DTSCS24
04019                  NEXT SENTENCE                                    DTSCS24
04020      ELSE                                                         DTSCS24
04021      IF MAP-WAIVE-INT-NO-88                                       DTSCS24
04022          NEXT SENTENCE                                            DTSCS24
04023      ELSE                                                         DTSCS24
04024          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04025          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS24
04026          MOVE 'WAIVE' TO WRK-MSG-TEXT                             DTSCS24
04027          PERFORM S2801-ERROR THRU S2801-EXIT.                     DTSCS24
04028  S2800-EXIT.                                                      DTSCS24
04029      EXIT.                                                        DTSCS24
04030                                                                   DTSCS24
04031                                                                   DTSCS24
04032                                                                   DTSCS24
04033  S2801-ERROR.                                                     DTSCS24
04034      MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-WAIVE-INT-IND-A.       DTSCS24
04035                                                                   DTSCS24
04036      IF LCCM-NO-MSG                                               DTSCS24
04037         MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                        DTSCS24
04038         MOVE CATB-CURSOR TO MAP-WAIVE-INT-IND-L                   DTSCS24
04039         SET CURSOR-SET-YES TO TRUE.                               DTSCS24
04040  S2801-EXIT. EXIT.                                                DTSCS24
04041      EXIT.                                                        DTSCS24
04042 /*****************************************************************DTSCS24
04043 *                                                                 DTSCS24
04044 ******************************************************************DTSCS24
04045  S2900-WAGE-RPT-IND.                                              DTSCS24
04046                                                                   DTSCS24
04047      IF MAP-WAGE-RPT-IND = SPACES OR LOW-VALUES                   DTSCS24
04048         MOVE 'D' TO MAP-WAGE-RPT-IND                              DTSCS24
04049          GO TO S2900-EXIT.                                        DTSCS24
04050                                                                   DTSCS24
04051      IF MAP-WAGE-RPT-VALID-88                                     DTSCS24
04052          NEXT SENTENCE                                            DTSCS24
04053      ELSE                                                         DTSCS24
04054          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04055          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS24
04056          MOVE 'MAG MEDIA  ' TO WRK-MSG-TEXT                       DTSCS24
04057          PERFORM S2901-ERROR THRU S2901-EXIT                      DTSCS24
04058          GO TO S2900-EXIT.                                        DTSCS24
04059  S2900-EXIT.                                                      DTSCS24
04060      EXIT.                                                        DTSCS24
04061                                                                   DTSCS24
04062                                                                   DTSCS24
04063                                                                   DTSCS24
04064  S2901-ERROR.                                                     DTSCS24
04065      MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-WAGE-RPT-IND-A.        DTSCS24
04066                                                                   DTSCS24
04067      IF LCCM-NO-MSG                                               DTSCS24
04068          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS24
04069          MOVE CATB-CURSOR TO MAP-WAGE-RPT-IND-L                   DTSCS24
04070          SET CURSOR-SET-YES TO TRUE.                              DTSCS24
04071  S2901-EXIT.                                                      DTSCS24
04072      EXIT.                                                        DTSCS24
04073  S3000-STATUS-IND.                                                DTSCS24
04074                                                                   DTSCS24
04075      IF MAP-STATUS-CHG-IND = SPACES OR LOW-VALUES                 DTSCS24
04076         MOVE 'N' TO MAP-STATUS-CHG-IND                            DTSCS24
04077          GO TO S3000-EXIT.                                        DTSCS24
04078                                                                   DTSCS24
04079      IF MAP-STATUS-CHG-VALID-88                                   DTSCS24
04080          NEXT SENTENCE                                            DTSCS24
04081      ELSE                                                         DTSCS24
04082          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS24
04083          MOVE 'STATUS CHNG' TO WRK-MSG-TEXT                       DTSCS24
04084          PERFORM S3001-ERROR THRU S3001-EXIT                      DTSCS24
04085          GO TO S3000-EXIT.                                        DTSCS24
04086  S3000-EXIT.                                                      DTSCS24
04087      EXIT.                                                        DTSCS24
04088                                                                   DTSCS24
04089                                                                   DTSCS24
04090                                                                   DTSCS24
04091  S3001-ERROR.                                                     DTSCS24
04092      MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-STATUS-CHG-IND-A.      DTSCS24
04093                                                                   DTSCS24
04094      IF LCCM-NO-MSG                                               DTSCS24
04095          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS24
04096          MOVE CATB-CURSOR TO MAP-STATUS-CHG-IND-L                 DTSCS24
04097          SET CURSOR-SET-YES TO TRUE.                              DTSCS24
04098  S3001-EXIT.                                                      DTSCS24
04099      EXIT.                                                        DTSCS24
04100 /*****************************************************************DTSCS24
04101 *                                                                 DTSCS24
04102 ******************************************************************DTSCS24
04103  S3100-RESPONSIBLE-ACTIVITY.                                      DTSCS24
04104      IF MAP-RESPONSIBLE-ACTIVITY = SPACES OR LOW-VALUES           DTSCS24
04105          SET MAP-RESP-ACTIVITY-VOL-88 TO TRUE.                    DTSCS24
04106                                                                   DTSCS24
04107      IF MAP-RESP-ACTIVITY-VOL-88                                  DTSCS24
04108          GO TO S3100-EXIT.                                        DTSCS24
04109                                                                   DTSCS24
04110      IF MAP-EDIT-FULL-88                                          DTSCS24
04111          MOVE MAP-RESPONSIBLE-ACTIVITY TO L032-CD-3               DTSCS24
04112          PERFORM S032-ARPT-RESPONSIBLE-ACTIVITY THRU S032-EXIT    DTSCS24
04113          IF L032-VALID                                            DTSCS24
04114              GO TO S3100-EXIT                                     DTSCS24
04115          ELSE                                                     DTSCS24
04116              SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE              DTSCS24
04117              MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS24
04118              MOVE 'RESPONSIBLE ACTIVITY' TO WRK-MSG-TEXT          DTSCS24
04119              PERFORM S3101-ERROR THRU S3101-EXIT                  DTSCS24
04120              GO TO S3100-EXIT                                     DTSCS24
04121      ELSE                                                         DTSCS24
04122          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04123          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS24
04124          MOVE 'RESPONSIBLE ACTIVITY' TO WRK-MSG-TEXT              DTSCS24
04125          PERFORM S3101-ERROR THRU S3101-EXIT                      DTSCS24
04126          GO TO S3100-EXIT.                                        DTSCS24
04127  S3100-EXIT.                                                      DTSCS24
04128      EXIT.                                                        DTSCS24
04129                                                                   DTSCS24
04130                                                                   DTSCS24
04131                                                                   DTSCS24
04132  S3101-ERROR.                                                     DTSCS24
04133      MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-RESPONSIBLE-ACTIVITY-A.DTSCS24
04134                                                                   DTSCS24
04135      IF LCCM-NO-MSG                                               DTSCS24
04136          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS24
04137          MOVE CATB-CURSOR TO MAP-RESPONSIBLE-ACTIVITY-L           DTSCS24
04138          SET CURSOR-SET-YES TO TRUE.                              DTSCS24
04139  S3101-EXIT.                                                      DTSCS24
04140      EXIT.                                                        DTSCS24
04141 /*****************************************************************DTSCS24
04142 *                                                                 DTSCS24
04143 ******************************************************************DTSCS24
04144  S3200-RESPONSIBLE-OP-ID.                                         DTSCS24
04145      IF MAP-RESPONSIBLE-OP-ID = SPACES OR LOW-VALUES              DTSCS24
04146          MOVE SPACES TO MAP-RESPONSIBLE-OP-ID                     DTSCS24
04147          GO TO S3200-EXIT.                                        DTSCS24
04148                                                                   DTSCS24
04149      IF MAP-RESPONSIBLE-OP-ID = 'MAG UC30' OR 'WEB UC30'          DTSCS24
04150         OR 'WEBESSP '                                             DTSCS24
04151          GO TO S3200-EXIT.                                        DTSCS24
04152                                                                   DTSCS24
04153      IF MAP-RESP-ACTIVITY-VOL-88                                  DTSCS24
04154          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04155          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS24
04156          MOVE 'RESPONSIBLE ACT/OPID' TO WRK-MSG-TEXT              DTSCS24
04157          PERFORM S3101-ERROR THRU S3101-EXIT                      DTSCS24
04158          PERFORM S3201-ERROR THRU S3201-EXIT                      DTSCS24
04159          GO TO S3200-EXIT.                                        DTSCS24
04160                                                                   DTSCS24
04161      IF MAP-EDIT-FULL-88                                          DTSCS24
04162          NEXT SENTENCE                                            DTSCS24
04163      ELSE                                                         DTSCS24
04164          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04165          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS24
04166          MOVE 'RESPONSIBLE OPID' TO WRK-MSG-TEXT                  DTSCS24
04167          PERFORM S3201-ERROR THRU S3201-EXIT                      DTSCS24
04168          GO TO S3200-EXIT.                                        DTSCS24
04169                                                                   DTSCS24
04170      MOVE MAP-RESPONSIBLE-OP-ID TO L082-OP-ID.                    DTSCS24
04171                                                                   DTSCS24
04172      PERFORM S082-OP-ID-LOOKUP THRU S082-EXIT.                    DTSCS24
04173                                                                   DTSCS24
04174      IF L082-NOT-VALID-OP                                         DTSCS24
04175           OR L082-INTERNAL-88                                     DTSCS24
04176          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04177          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS24
04178          MOVE 'RESPONSIBLE OPID' TO WRK-MSG-TEXT                  DTSCS24
04179          PERFORM S3201-ERROR THRU S3201-EXIT.                     DTSCS24
04180  S3200-EXIT.                                                      DTSCS24
04181      EXIT.                                                        DTSCS24
04182                                                                   DTSCS24
04183                                                                   DTSCS24
04184                                                                   DTSCS24
04185  S3201-ERROR.                                                     DTSCS24
04186      MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-RESPONSIBLE-OP-ID-A.   DTSCS24
04187                                                                   DTSCS24
04188      IF LCCM-NO-MSG                                               DTSCS24
04189          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS24
04190          MOVE CATB-CURSOR TO MAP-RESPONSIBLE-OP-ID-L              DTSCS24
04191          SET CURSOR-SET-YES TO TRUE.                              DTSCS24
04192  S3201-EXIT.                                                      DTSCS24
04193      EXIT.                                                        DTSCS24
04194 /*****************************************************************DTSCS24
04195 *                                                                 DTSCS24
04196 ******************************************************************DTSCS24
04197  S3300-RECEIVED-DATE.                                             DTSCS24
04198      MOVE MAP-RECEIVED-DATE-AREA TO L015-S-DATE-AREA.             DTSCS24
04199                                                                   DTSCS24
04200      PERFORM S015-DATE-FROM-SCREEN THRU S015-EXIT.                DTSCS24
04201                                                                   DTSCS24
04202 ***  ENTRY OF RECEIVED DATE ALLOWED UNDER MINIMAL EDITS.          DTSCS24
04203 ***  5/2/2000 - GD                                                DTSCS24
04204 ***                                                               DTSCS24
04205 *    IF MAP-EDIT-FULL-88                                          DTSCS24
04206 *        NEXT SENTENCE                                            DTSCS24
04207 *    ELSE                                                         DTSCS24
04208 *        IF L015-NO-ENTRY                                         DTSCS24
04209 *            GO TO S3300-EXIT                                     DTSCS24
04210 *        ELSE                                                     DTSCS24
04211 *            SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE              DTSCS24
04212 *            MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS24
04213 *            MOVE 'RECEIVED DATE' TO WRK-MSG-TEXT                 DTSCS24
04214 *            PERFORM S3301-ERROR THRU S3301-EXIT                  DTSCS24
04215 *            GO TO S3300-EXIT.                                    DTSCS24
04216                                                                   DTSCS24
04217      IF L015-NO-ENTRY                                             DTSCS24
04218         GO TO S3300-EXIT                                          DTSCS24
04219      ELSE                                                         DTSCS24
04220      IF L015-NOT-VALID                                            DTSCS24
04221          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04222          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS24
04223          MOVE 'RECEIVED DATE' TO WRK-MSG-TEXT                     DTSCS24
04224          PERFORM S3301-ERROR THRU S3301-EXIT                      DTSCS24
04225          GO TO S3300-EXIT                                         DTSCS24
04226      ELSE                                                         DTSCS24
04227          MOVE L015-DATE TO WRK-RECEIVED-DATE.                     DTSCS24
04228  S3300-EXIT.                                                      DTSCS24
04229      EXIT.                                                        DTSCS24
04230                                                                   DTSCS24
04231                                                                   DTSCS24
04232                                                                   DTSCS24
04233  S3301-ERROR.                                                     DTSCS24
04234      MOVE CATB-UNPROT-NORM-NUM-MDTON                              DTSCS24
04235        TO MAP-RECEIVED-DATE-MO-A                                  DTSCS24
04236           MAP-RECEIVED-DATE-DA-A                                  DTSCS24
04237           MAP-RECEIVED-DATE-YR-A.                                 DTSCS24
04238                                                                   DTSCS24
04239      IF LCCM-NO-MSG                                               DTSCS24
04240          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS24
04241          MOVE CATB-CURSOR TO MAP-RECEIVED-DATE-MO-L               DTSCS24
04242          SET CURSOR-SET-YES TO TRUE.                              DTSCS24
04243  S3301-EXIT.                                                      DTSCS24
04244      EXIT.                                                        DTSCS24
04245 /*****************************************************************DTSCS24
04246 *                                                                 DTSCS24
04247 ******************************************************************DTSCS24
04248  S3600-EDIT-MODE.                                                 DTSCS24
04249      IF MAP-EDIT-MODE = LOW-VALUES OR SPACES                      DTSCS24
04250          SET MAP-EDIT-DEFAULT-88 TO TRUE.                         DTSCS24
04251                                                                   DTSCS24
04252      IF MAP-EDIT-VALID-88                                         DTSCS24
04253          MOVE MAP-EDIT-MODE TO LCCM-OP-ARPT-EDIT-MODE             DTSCS24
04254      ELSE                                                         DTSCS24
04255          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04256          MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA                DTSCS24
04257          PERFORM S3601-ERROR THRU S3601-EXIT.                     DTSCS24
04258  S3600-EXIT.                                                      DTSCS24
04259      EXIT.                                                        DTSCS24
04260                                                                   DTSCS24
04261                                                                   DTSCS24
04262                                                                   DTSCS24
04263  S3601-ERROR.                                                     DTSCS24
04264      MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-EDIT-MODE-A.           DTSCS24
04265                                                                   DTSCS24
04266      IF LCCM-NO-MSG                                               DTSCS24
04267          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS24
04268          MOVE CATB-CURSOR TO MAP-EDIT-MODE-L                      DTSCS24
04269          SET CURSOR-SET-YES TO TRUE.                              DTSCS24
04270  S3601-EXIT.                                                      DTSCS24
04271      EXIT.                                                        DTSCS24
04272 /*****************************************************************DTSCS24
04273 *                                                                 DTSCS24
04274 ******************************************************************DTSCS24
04275  S3700-ENTRY-MODE.                                                DTSCS24
04276      IF MAP-ENTRY-MODE = LOW-VALUES OR SPACES                     DTSCS24
04277          SET MAP-ENTRY-MODE-DEFAULT-88 TO TRUE                    DTSCS24
04278          MOVE MAP-ENTRY-MODE TO LCCM-ENTRY-MODE                   DTSCS24
04279      ELSE                                                         DTSCS24
04280      IF MAP-ENTRY-MODE-VALID                                      DTSCS24
04281          MOVE MAP-ENTRY-MODE TO LCCM-ENTRY-MODE                   DTSCS24
04282      ELSE                                                         DTSCS24
04283          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04284          MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA                DTSCS24
04285          PERFORM S3701-ERROR THRU S3701-EXIT.                     DTSCS24
04286  S3700-EXIT.                                                      DTSCS24
04287      EXIT.                                                        DTSCS24
04288                                                                   DTSCS24
04289                                                                   DTSCS24
04290                                                                   DTSCS24
04291  S3701-ERROR.                                                     DTSCS24
04292      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-ENTRY-MODE-A.         DTSCS24
04293                                                                   DTSCS24
04294      IF LCCM-NO-MSG                                               DTSCS24
04295          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS24
04296          MOVE CATB-CURSOR TO MAP-ENTRY-MODE-L                     DTSCS24
04297          SET CURSOR-SET-YES TO TRUE.                              DTSCS24
04298  S3701-EXIT.                                                      DTSCS24
04299      EXIT.                                                        DTSCS24
04300 /*****************************************************************DTSCS24
04301 *                                                                 DTSCS24
04302 ******************************************************************DTSCS24
04303  S3800-DISREGARD-EDITS-IND.                                       DTSCS24
04304      IF MAP-DISREGARD-EDITS-IND = LOW-VALUES OR SPACES            DTSCS24
04305          SET MAP-DISREGARD-EDITS-NO-88 TO TRUE                    DTSCS24
04306      ELSE                                                         DTSCS24
04307      IF MAP-DISREGARD-EDITS-VALID-88                              DTSCS24
04308          NEXT SENTENCE                                            DTSCS24
04309      ELSE                                                         DTSCS24
04310          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04311          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS24
04312          MOVE 'DISREGARD EDITS' TO WRK-MSG-TEXT                   DTSCS24
04313          PERFORM S3801-ERROR THRU S3801-EXIT.                     DTSCS24
04314                                                                   DTSCS24
04315      IF MAP-EDIT-FULL-88                                          DTSCS24
04316          NEXT SENTENCE                                            DTSCS24
04317      ELSE                                                         DTSCS24
04318          IF MAP-DISREGARD-EDITS-NO-88                             DTSCS24
04319              NEXT SENTENCE                                        DTSCS24
04320          ELSE                                                     DTSCS24
04321              SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE              DTSCS24
04322              MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS24
04323              MOVE 'DISREGARD EDITS' TO WRK-MSG-TEXT               DTSCS24
04324              PERFORM S3801-ERROR THRU S3801-EXIT.                 DTSCS24
04325  S3800-EXIT.                                                      DTSCS24
04326      EXIT.                                                        DTSCS24
04327                                                                   DTSCS24
04328                                                                   DTSCS24
04329                                                                   DTSCS24
04330  S3801-ERROR.                                                     DTSCS24
04331      MOVE CATB-UNPROT-NORM-AN-MDTON                               DTSCS24
04332        TO MAP-DISREGARD-EDITS-IND-A.                              DTSCS24
04333                                                                   DTSCS24
04334      IF LCCM-NO-MSG                                               DTSCS24
04335          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS24
04336          MOVE CATB-CURSOR TO MAP-DISREGARD-EDITS-IND-L            DTSCS24
04337          SET CURSOR-SET-YES TO TRUE.                              DTSCS24
04338  S3801-EXIT.                                                      DTSCS24
04339      EXIT.                                                        DTSCS24
04340 /*****************************************************************DTSCS24
04341 *                                                                *DTSCS24
04342 ******************************************************************DTSCS24
04343  S4000-CROSS-EDITS.                                               DTSCS24
04344      PERFORM S4010-MPRF-EDITS THRU S4010-EXIT.                    DTSCS24
04345                                                                   DTSCS24
04346                                                                   DTSCS24
04347      PERFORM S4020-LIABILITY-EDITS THRU S4020-EXIT.               DTSCS24
04348                                                                   DTSCS24
04349 ***  PERFORM S4030-FILING-SCHED-EDITS THRU S4030-EXIT.            DTSCS24
04350                                                                   DTSCS24
04351      PERFORM S4100-EMPL-CNT-EDITS THRU S4100-EXIT.                DTSCS24
04352                                                                   DTSCS24
04353                                                                   DTSCS24
04354      PERFORM S4200-WAGE-EDITS THRU S4200-EXIT.                    DTSCS24
04355                                                                   DTSCS24
04356                                                                   DTSCS24
04357      PERFORM S4400-REMIT-AMT-EDITS THRU S4400-EXIT.               DTSCS24
04358                                                                   DTSCS24
04359                                                                   DTSCS24
04360      PERFORM S4500-RPT-TYPE-EDITS THRU S4500-EXIT.                DTSCS24
04361                                                                   DTSCS24
04362                                                                   DTSCS24
04363      PERFORM S4600-WAIVE-IND-EDITS THRU S4600-EXIT.               DTSCS24
04364                                                                   DTSCS24
04365                                                                   DTSCS24
04366      PERFORM S4700-RESPONSIBILITY-EDITS THRU S4700-EXIT.          DTSCS24
04367                                                                   DTSCS24
04368                                                                   DTSCS24
04369      PERFORM S4800-RECEIVED-DATE-EDITS THRU S4800-EXIT.           DTSCS24
04370                                                                   DTSCS24
04371      IF LCCM-MSG                                                  DTSCS24
04372          GO TO S4000-EXIT.                                        DTSCS24
04373                                                                   DTSCS24
04374                                                                   DTSCS24
04375      PERFORM S4900-OVERRIDE THRU S4900-EXIT.                      DTSCS24
04376  S4000-EXIT.                                                      DTSCS24
04377      EXIT.                                                        DTSCS24
04378      EJECT                                                        DTSCS24
04379  S4010-MPRF-EDITS.                                                DTSCS24
04380      IF WRK-MPRF-EXISTS-NO-88                                     DTSCS24
04381          GO TO S4010-EXIT.                                        DTSCS24
04382                                                                   DTSCS24
04383      IF MPRF-CLASS-SUB-88                                         DTSCS24
04384          NEXT SENTENCE                                            DTSCS24
04385      ELSE                                                         DTSCS24
04386          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04387          IF MAP-EDIT-FULL-88                                      DTSCS24
04388              MOVE MSG-E242-AREA TO WRK-MSG-AREA                   DTSCS24
04389              PERFORM S1301-ERROR THRU S1301-EXIT                  DTSCS24
04390              GO TO S4010-EXIT                                     DTSCS24
04391          ELSE                                                     DTSCS24
04392              GO TO S4010-EXIT.                                    DTSCS24
04393                                                                   DTSCS24
04394      IF MPRF-NOT-WRITTEN-OFF-88                                   DTSCS24
04395          NEXT SENTENCE                                            DTSCS24
04396      ELSE                                                         DTSCS24
04397          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04398          IF MAP-EDIT-FULL-88                                      DTSCS24
04399              MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS24
04400              MOVE 'WRITTEN OFF' TO WRK-MSG-TEXT                   DTSCS24
04401              PERFORM S1301-ERROR THRU S1301-EXIT                  DTSCS24
04402              GO TO S4010-EXIT                                     DTSCS24
04403          ELSE                                                     DTSCS24
04404              GO TO S4010-EXIT.                                    DTSCS24
04405  S4010-EXIT.                                                      DTSCS24
04406      EXIT.                                                        DTSCS24
04407      EJECT                                                        DTSCS24
04408  S4020-LIABILITY-EDITS.                                           DTSCS24
04409 ***********************************                               DTSCS24
04410 **      PASS ZERO-WAGE REPORTS FOR INACTIVE EMPLOYERS             DTSCS24
04411 **      WITHOUT ERROR. DTSBD371 WILL ADD AN EVENT LOG             DTSCS24
04412 **      RECORD AND DISCARD THE REPORT.                            DTSCS24
04413 ***********************************                               DTSCS24
04414      IF WRK-MPRF-EXISTS-NO-88                                     DTSCS24
04415          GO TO S4020-EXIT.                                        DTSCS24
04416                                                                   DTSCS24
04417      IF WRK-PASSED-FULL-EDITS-NO-88                               DTSCS24
04418          GO TO S4020-EXIT.                                        DTSCS24
04419                                                                   DTSCS24
04420      MOVE WRK-EMP-NO TO L381-EMP-NO.                              DTSCS24
04421                                                                   DTSCS24
04422      MOVE WRK-YRQ TO L381-YRQ.                                    DTSCS24
04423                                                                   DTSCS24
04424      MOVE MPRF-EMP-CLASS TO L381-EMP-CLASS.                       DTSCS24
04425                                                                   DTSCS24
04426      PERFORM S381-LOOKUP-LIABILITY THRU S381-EXIT.                DTSCS24
04427                                                                   DTSCS24
04428      IF L381-NOT-LIABLE-88                                        DTSCS24
04429         IF MAP-RPT-WITHDRW-88                                     DTSCS24
04430            NEXT SENTENCE                                          DTSCS24
04431         ELSE                                                      DTSCS24
04432            IF (WRK-TOT-WAGE = ZERO                                DTSCS24
04433            AND WRK-REMIT-AMT = ZERO)                              DTSCS24
04434               GO TO S4020-EXIT                                    DTSCS24
04435            ELSE                                                   DTSCS24
04436               SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE             DTSCS24
04437               IF MAP-EDIT-FULL-88                                 DTSCS24
04438                  MOVE MSG-E244-AREA TO WRK-MSG-AREA               DTSCS24
04439                  PERFORM S1401-ERROR THRU S1401-EXIT              DTSCS24
04440                  GO TO S4020-EXIT                                 DTSCS24
04441               ELSE                                                DTSCS24
04442                  GO TO S4020-EXIT.                                DTSCS24
04443                                                                   DTSCS24
04444      IF MPRF-CLASS-RATED-88                                       DTSCS24
04445          IF MAP-RPT-WITHDRW-88                                    DTSCS24
04446              NEXT SENTENCE                                        DTSCS24
04447          ELSE                                                     DTSCS24
04448              IF L381-UI-RATE-NOT-FOUND-88                         DTSCS24
04449                  SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE          DTSCS24
04450                  IF MAP-EDIT-FULL-88                              DTSCS24
04451                      MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER       DTSCS24
04452                      MOVE 'UI RATE' TO WRK-MSG-TEXT               DTSCS24
04453                      PERFORM S1401-ERROR THRU S1401-EXIT          DTSCS24
04454                      GO TO S4020-EXIT                             DTSCS24
04455                  ELSE                                             DTSCS24
04456                      GO TO S4020-EXIT.                            DTSCS24
04457  S4020-EXIT.                                                      DTSCS24
04458      EXIT.                                                        DTSCS24
04459      EJECT                                                        DTSCS24
04460  S4030-FILING-SCHED-EDITS.                                        DTSCS24
04461      IF MAP-RPT-WITHDRW-88                                        DTSCS24
04462         GO TO S4030-EXIT.                                         DTSCS24
04463                                                                   DTSCS24
04464      IF MPRF-ORG-HSEHLD-DMSTIC-88                                 DTSCS24
04465         SET L410-MODE-INPUT-YRQ-88   TO TRUE                      DTSCS24
04466         MOVE MPRF-EMP-NO             TO L410-EMP-NO               DTSCS24
04467         MOVE WRK-YRQ                 TO L410-YRQ                  DTSCS24
04468         PERFORM S410-FILING-SCHEDULE THRU S410-EXIT               DTSCS24
04469         IF L410-ANN-SCHED-88                                      DTSCS24
04470            SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                DTSCS24
04471            IF MAP-EDIT-FULL-88                                    DTSCS24
04472               MOVE MSG-E24G-AREA TO WRK-MSG-AREA                  DTSCS24
04473               PERFORM S1301-ERROR THRU S1301-EXIT.                DTSCS24
04474                                                                   DTSCS24
04475  S4030-EXIT.                                                      DTSCS24
04476      EXIT.                                                        DTSCS24
04477      EJECT                                                        DTSCS24
04478  S4100-EMPL-CNT-EDITS.                                            DTSCS24
04479      IF MAP-RPT-ORIG-88                                           DTSCS24
04480          NEXT SENTENCE                                            DTSCS24
04481      ELSE                                                         DTSCS24
04482          PERFORM S4130-NOT-ORIG THRU S4130-EXIT                   DTSCS24
04483          GO TO S4100-EXIT.                                        DTSCS24
04484                                                                   DTSCS24
04485      IF WRK-TOT-WAGE = +0                                         DTSCS24
04486          PERFORM S4110-TOT-WAGE-ZERO THRU S4110-EXIT              DTSCS24
04487      ELSE                                                         DTSCS24
04488          PERFORM S4120-TOT-WAGE-NOT-ZERO THRU S4120-EXIT.         DTSCS24
04489  S4100-EXIT.                                                      DTSCS24
04490      EXIT.                                                        DTSCS24
04491      SKIP3                                                        DTSCS24
04492  S4110-TOT-WAGE-ZERO.                                             DTSCS24
04493      IF WRK-TOTAL-NO-ENTRY-88                                     DTSCS24
04494          IF MAP-VERIFIED-YES-88                                   DTSCS24
04495              NEXT SENTENCE                                        DTSCS24
04496          ELSE                                                     DTSCS24
04497              MOVE +0 TO WRK-TOTAL-EMPL-CNT                        DTSCS24
04498                         MAP-TOTAL-EMPL-CNT-N.                     DTSCS24
04499                                                                   DTSCS24
04500      IF WRK-1ST-MTH-NO-ENTRY-88                                   DTSCS24
04501          IF MAP-VERIFIED-YES-88                                   DTSCS24
04502              NEXT SENTENCE                                        DTSCS24
04503          ELSE                                                     DTSCS24
04504              MOVE +0 TO WRK-1ST-MTH-EMPL-CNT                      DTSCS24
04505                         MAP-1ST-MTH-EMPL-CNT-N.                   DTSCS24
04506                                                                   DTSCS24
04507      IF WRK-2ND-MTH-NO-ENTRY-88                                   DTSCS24
04508          IF MAP-VERIFIED-YES-88                                   DTSCS24
04509              NEXT SENTENCE                                        DTSCS24
04510          ELSE                                                     DTSCS24
04511              MOVE +0 TO WRK-2ND-MTH-EMPL-CNT                      DTSCS24
04512                         MAP-2ND-MTH-EMPL-CNT-N.                   DTSCS24
04513                                                                   DTSCS24
04514      IF WRK-3RD-MTH-NO-ENTRY-88                                   DTSCS24
04515          IF MAP-VERIFIED-YES-88                                   DTSCS24
04516              NEXT SENTENCE                                        DTSCS24
04517          ELSE                                                     DTSCS24
04518              MOVE +0 TO WRK-3RD-MTH-EMPL-CNT                      DTSCS24
04519                         MAP-3RD-MTH-EMPL-CNT-N.                   DTSCS24
04520                                                                   DTSCS24
04521      IF MAP-VERIFIED-YES-88                                       DTSCS24
04522          GO TO S4110-EXIT.                                        DTSCS24
04523                                                                   DTSCS24
04524 *********FOLLOWING EDITS REMOVED ON 08/19/94 PER JANICE SCHMITZ   DTSCS24
04525                                                                   DTSCS24
04526 *****IF (WRK-1ST-MTH-EMPL-CNT = +0)                               DTSCS24
04527 ***********OR                                                     DTSCS24
04528 ********(WRK-1ST-MTH-NO-ENTRY-88)                                 DTSCS24
04529 *********NEXT SENTENCE                                            DTSCS24
04530 *****ELSE                                                         DTSCS24
04531 *********MOVE MSG-E24Y-AREA TO WRK-MSG-AREA                       DTSCS24
04532 *********PERFORM S2001-ERROR THRU S2001-EXIT.                     DTSCS24
04533                                                                   DTSCS24
04534 *****IF (WRK-2ND-MTH-EMPL-CNT = +0)                               DTSCS24
04535 ***********OR                                                     DTSCS24
04536 ********(WRK-2ND-MTH-NO-ENTRY-88)                                 DTSCS24
04537 *********NEXT SENTENCE                                            DTSCS24
04538 *****ELSE                                                         DTSCS24
04539 *********MOVE MSG-E24Y-AREA TO WRK-MSG-AREA                       DTSCS24
04540 *********PERFORM S2001-ERROR THRU S2001-EXIT.                     DTSCS24
04541                                                                   DTSCS24
04542 *****IF (WRK-3RD-MTH-EMPL-CNT = +0)                               DTSCS24
04543 ***********OR                                                     DTSCS24
04544 ********(WRK-3RD-MTH-NO-ENTRY-88)                                 DTSCS24
04545 *********NEXT SENTENCE                                            DTSCS24
04546 *****ELSE                                                         DTSCS24
04547 *********MOVE MSG-E24Y-AREA TO WRK-MSG-AREA                       DTSCS24
04548 *********PERFORM S2001-ERROR THRU S2001-EXIT.                     DTSCS24
04549  S4110-EXIT.                                                      DTSCS24
04550      EXIT.                                                        DTSCS24
04551      SKIP3                                                        DTSCS24
04552  S4120-TOT-WAGE-NOT-ZERO.                                         DTSCS24
04553      IF MAP-VERIFIED-YES-88                                       DTSCS24
04554          GO TO S4120-EXIT.                                        DTSCS24
04555                                                                   DTSCS24
04556 *********FOLLOWING EDIT REMOVED ON 08/19/94 PER JANICE SCHMITZ    DTSCS24
04557                                                                   DTSCS24
04558 *****IF WRK-1ST-MTH-EMPL-CNT = +0                                 DTSCS24
04559 ***********AND                                                    DTSCS24
04560 ********WRK-2ND-MTH-EMPL-CNT = +0                                 DTSCS24
04561 ***********AND                                                    DTSCS24
04562 ********WRK-3RD-MTH-EMPL-CNT = +0                                 DTSCS24
04563 *********MOVE MSG-E24Z-AREA TO WRK-MSG-AREA                       DTSCS24
04564 *********PERFORM S2001-ERROR THRU S2001-EXIT.                     DTSCS24
04565                                                                   DTSCS24
04566      IF WRK-TOTAL-NO-ENTRY-88                                     DTSCS24
04567          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04568          MOVE MSG-E246-AREA TO WRK-MSG-AREA                       DTSCS24
04569          PERFORM S1601-ERROR THRU S1601-EXIT.                     DTSCS24
04570                                                                   DTSCS24
04571      IF WRK-1ST-MTH-NO-ENTRY-88                                   DTSCS24
04572          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04573          MOVE MSG-E246-AREA TO WRK-MSG-AREA                       DTSCS24
04574          PERFORM S1601-ERROR THRU S1601-EXIT.                     DTSCS24
04575                                                                   DTSCS24
04576      IF WRK-2ND-MTH-NO-ENTRY-88                                   DTSCS24
04577          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04578          MOVE MSG-E246-AREA TO WRK-MSG-AREA                       DTSCS24
04579          PERFORM S1601-ERROR THRU S1601-EXIT.                     DTSCS24
04580                                                                   DTSCS24
04581      IF WRK-3RD-MTH-NO-ENTRY-88                                   DTSCS24
04582          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04583          MOVE MSG-E246-AREA TO WRK-MSG-AREA                       DTSCS24
04584          PERFORM S1601-ERROR THRU S1601-EXIT.                     DTSCS24
04585  S4120-EXIT.                                                      DTSCS24
04586      EXIT.                                                        DTSCS24
04587      SKIP3                                                        DTSCS24
04588  S4130-NOT-ORIG.                                                  DTSCS24
04589      IF WRK-TOTAL-NO-ENTRY-88                                     DTSCS24
04590          NEXT SENTENCE                                            DTSCS24
04591      ELSE                                                         DTSCS24
04592          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04593          MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-AREA              DTSCS24
04594          PERFORM S1501-ERROR THRU S1501-EXIT.                     DTSCS24
04595                                                                   DTSCS24
04596      IF WRK-1ST-MTH-NO-ENTRY-88                                   DTSCS24
04597          NEXT SENTENCE                                            DTSCS24
04598      ELSE                                                         DTSCS24
04599          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04600          MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-AREA              DTSCS24
04601          PERFORM S1701-ERROR THRU S1701-EXIT.                     DTSCS24
04602                                                                   DTSCS24
04603      IF WRK-2ND-MTH-NO-ENTRY-88                                   DTSCS24
04604          NEXT SENTENCE                                            DTSCS24
04605      ELSE                                                         DTSCS24
04606          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04607          MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-AREA              DTSCS24
04608          PERFORM S1801-ERROR THRU S1801-EXIT.                     DTSCS24
04609                                                                   DTSCS24
04610      IF WRK-3RD-MTH-NO-ENTRY-88                                   DTSCS24
04611          NEXT SENTENCE                                            DTSCS24
04612      ELSE                                                         DTSCS24
04613          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04614          MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-AREA              DTSCS24
04615          PERFORM S1901-ERROR THRU S1901-EXIT.                     DTSCS24
04616  S4130-EXIT.                                                      DTSCS24
04617      EXIT.                                                        DTSCS24
04618      EJECT                                                        DTSCS24
04619  S4200-WAGE-EDITS.                                                DTSCS24
04620      IF MAP-RPT-WITHDRW-88                                        DTSCS24
04621          PERFORM S4210-WITHDRW THRU S4210-EXIT                    DTSCS24
04622          GO TO S4200-EXIT.                                        DTSCS24
04623                                                                   DTSCS24
04624      IF MAP-RPT-ORIG-88 OR MAP-RPT-ESTIM-88                       DTSCS24
04625          NEXT SENTENCE                                            DTSCS24
04626      ELSE                                                         DTSCS24
04627          PERFORM S4220-SUPPLEMENTAL THRU S4220-EXIT               DTSCS24
04628          GO TO S4200-EXIT.                                        DTSCS24
04629                                                                   DTSCS24
04630                                                                   DTSCS24
04631      IF (WRK-TOT-WAGE-NO-ENTRY-88)                                DTSCS24
04632              OR                                                   DTSCS24
04633         (WRK-TOT-WAGE-INVALID-88)                                 DTSCS24
04634              OR                                                   DTSCS24
04635         (WRK-EXCESS-WAGE-NO-ENTRY-88)                             DTSCS24
04636              OR                                                   DTSCS24
04637         (WRK-EXCESS-WAGE-INVALID-88)                              DTSCS24
04638              OR                                                   DTSCS24
04639         (WRK-TAX-WAGE-NO-ENTRY-88)                                DTSCS24
04640              OR                                                   DTSCS24
04641         (WRK-TAX-WAGE-INVALID-88)                                 DTSCS24
04642          GO TO S4200-EXIT.                                        DTSCS24
04643                                                                   DTSCS24
04644                                                                   DTSCS24
04645      IF MPRF-CLASS-SELF-INS-88                                    DTSCS24
04646          PERFORM S4201-SELF-INSURED THRU S4201-EXIT               DTSCS24
04647          GO TO S4200-EXIT.                                        DTSCS24
04648                                                                   DTSCS24
04649                                                                   DTSCS24
04650      IF WRK-EXCESS-WAGE > WRK-TOT-WAGE                            DTSCS24
04651          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04652          IF MAP-EDIT-FULL-88                                      DTSCS24
04653              MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS24
04654              MOVE 'WAGES' TO WRK-MSG-TEXT                         DTSCS24
04655              PERFORM S2001-ERROR THRU S2001-EXIT                  DTSCS24
04656              PERFORM S2101-ERROR THRU S2101-EXIT                  DTSCS24
04657              GO TO S4200-EXIT                                     DTSCS24
04658          ELSE                                                     DTSCS24
04659              GO TO S4200-EXIT.                                    DTSCS24
04660                                                                   DTSCS24
04661      IF WRK-TAX-WAGE > WRK-TOT-WAGE                               DTSCS24
04662          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04663          IF MAP-EDIT-FULL-88                                      DTSCS24
04664              MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS24
04665              MOVE 'WAGES' TO WRK-MSG-TEXT                         DTSCS24
04666              PERFORM S2001-ERROR THRU S2001-EXIT                  DTSCS24
04667              PERFORM S2201-ERROR THRU S2201-EXIT                  DTSCS24
04668              GO TO S4200-EXIT                                     DTSCS24
04669          ELSE                                                     DTSCS24
04670              GO TO S4200-EXIT.                                    DTSCS24
04671                                                                   DTSCS24
04672      COMPUTE COMPUTED-TAX-WAGE                                    DTSCS24
04673        = WRK-TOT-WAGE - WRK-EXCESS-WAGE.                          DTSCS24
04674                                                                   DTSCS24
04675      IF (COMPUTED-TAX-WAGE - WRK-TAX-WAGE < -.99)                 DTSCS24
04676             OR                                                    DTSCS24
04677         (COMPUTED-TAX-WAGE - WRK-TAX-WAGE > +.99)                 DTSCS24
04678          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04679          IF MAP-EDIT-FULL-88                                      DTSCS24
04680              MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS24
04681              MOVE 'WAGES' TO WRK-MSG-TEXT                         DTSCS24
04682              PERFORM S2001-ERROR THRU S2001-EXIT                  DTSCS24
04683              PERFORM S2101-ERROR THRU S2101-EXIT                  DTSCS24
04684              PERFORM S2201-ERROR THRU S2201-EXIT                  DTSCS24
04685              GO TO S4200-EXIT                                     DTSCS24
04686          ELSE                                                     DTSCS24
04687              GO TO S4200-EXIT.                                    DTSCS24
04688                                                                   DTSCS24
04689 *********************************************************         DTSCS24
04690 * ERROR IF FIRST QTR ORIGINAL REPORT AND TOTAL WAGES > 0          DTSCS24
04691 * BUT TAXABLE WAGES = 0.                                          DTSCS24
04692 *********************************************************         DTSCS24
04693      IF MAP-DISREGARD-EDITS-YES-88                                DTSCS24
04694         NEXT SENTENCE                                             DTSCS24
04695      ELSE                                                         DTSCS24
04696         MOVE WRK-YRQ                  TO L004-QTR-5-9             DTSCS24
04697         IF L004-QTR-5-Q = 1                                       DTSCS24
04698         AND MAP-RPT-ORIG-88                                       DTSCS24
04699            IF WRK-TOT-WAGE > 0                                    DTSCS24
04700            AND WRK-TAX-WAGE = 0                                   DTSCS24
04701               SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE             DTSCS24
04702               IF MAP-EDIT-FULL-88                                 DTSCS24
04703                  MOVE MSG-E24L-AREA   TO WRK-MSG-AREA             DTSCS24
04704                  PERFORM S2201-ERROR  THRU S2201-EXIT             DTSCS24
04705               END-IF                                              DTSCS24
04706            END-IF                                                 DTSCS24
04707         END-IF                                                    DTSCS24
04708      END-IF.                                                      DTSCS24
04709                                                                   DTSCS24
04710 *********************************************************         DTSCS24
04711 * ERROR IF ORIGINAL REPORT AND TAXABLE WAGES = 0                  DTSCS24
04712 * BUT REMITTANCE > 0.                                             DTSCS24
04713 *********************************************************         DTSCS24
04714      IF MAP-DISREGARD-EDITS-YES-88                                DTSCS24
04715         NEXT SENTENCE                                             DTSCS24
04716      ELSE                                                         DTSCS24
04717         IF MAP-RPT-ORIG-88                                        DTSCS24
04718            IF WRK-TAX-WAGE = 0                                    DTSCS24
04719            AND WRK-REMIT-AMT > 0                                  DTSCS24
04720               SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE             DTSCS24
04721               IF MAP-EDIT-FULL-88                                 DTSCS24
04722                  MOVE MSG-E24M-AREA   TO WRK-MSG-AREA             DTSCS24
04723                  PERFORM S2201-ERROR  THRU S2201-EXIT             DTSCS24
04724               END-IF                                              DTSCS24
04725            END-IF                                                 DTSCS24
04726         END-IF                                                    DTSCS24
04727      END-IF.                                                      DTSCS24
04728                                                                   DTSCS24
04729 *********************************************************         DTSCS24
04730 * ERROR IF ORIGINAL REPORT FOR FIRST LIABLE QUATER,               DTSCS24
04731 * BUT TAXABLE WAGES = 0.                                          DTSCS24
04732 *********************************************************         DTSCS24
04733      PERFORM S4205-FIRST-LIAB-QTR   THRU S4205-EXIT.              DTSCS24
04734      IF MAP-DISREGARD-EDITS-YES-88                                DTSCS24
04735         NEXT SENTENCE                                             DTSCS24
04736      ELSE                                                         DTSCS24
04737         IF WRK-FIRST-LIAB-YRQ = WRK-YRQ                           DTSCS24
04738         AND MAP-RPT-ORIG-88                                       DTSCS24
04739            IF WRK-TOT-WAGE > 0                                    DTSCS24
04740            AND WRK-TAX-WAGE = 0                                   DTSCS24
04741               SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE             DTSCS24
04742               IF MAP-EDIT-FULL-88                                 DTSCS24
04743                  MOVE MSG-E24N-AREA   TO WRK-MSG-AREA             DTSCS24
04744                  PERFORM S2201-ERROR  THRU S2201-EXIT             DTSCS24
04745               END-IF                                              DTSCS24
04746            END-IF                                                 DTSCS24
04747         END-IF                                                    DTSCS24
04748      END-IF.                                                      DTSCS24
04749                                                                   DTSCS24
04750 *********************************************************         DTSCS24
04751 * ERROR IF ORIGINAL REPORT FOR FIRST LIABLE QUATER,               DTSCS24
04752 * BUT TOTAL WAGES = 0.                                            DTSCS24
04753 *********************************************************         DTSCS24
04754      PERFORM S4205-FIRST-LIAB-QTR   THRU S4205-EXIT.              DTSCS24
04755      IF MAP-DISREGARD-EDITS-YES-88                                DTSCS24
04756         NEXT SENTENCE                                             DTSCS24
04757      ELSE                                                         DTSCS24
04758         IF WRK-FIRST-LIAB-YRQ = WRK-YRQ                           DTSCS24
04759         AND MAP-RPT-ORIG-88                                       DTSCS24
04760            IF WRK-TOT-WAGE = 0                                    DTSCS24
04761               SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE             DTSCS24
04762               IF MAP-EDIT-FULL-88                                 DTSCS24
04763                  MOVE MSG-E24O-AREA   TO WRK-MSG-AREA             DTSCS24
04764                  PERFORM S2001-ERROR  THRU S2001-EXIT             DTSCS24
04765               END-IF                                              DTSCS24
04766            END-IF                                                 DTSCS24
04767         END-IF                                                    DTSCS24
04768      END-IF.                                                      DTSCS24
04769                                                                   DTSCS24
04770  S4200-EXIT.                                                      DTSCS24
04771      EXIT.                                                        DTSCS24
04772      SKIP3                                                        DTSCS24
04773  S4201-SELF-INSURED.                                              DTSCS24
04774      IF WRK-EXCESS-WAGE = +0                                      DTSCS24
04775          NEXT SENTENCE                                            DTSCS24
04776      ELSE                                                         DTSCS24
04777          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04778          IF MAP-EDIT-FULL-88                                      DTSCS24
04779              MOVE MSG-E249-AREA TO WRK-MSG-AREA                   DTSCS24
04780              PERFORM S2101-ERROR THRU S2101-EXIT.                 DTSCS24
04781                                                                   DTSCS24
04782      IF WRK-TAX-WAGE = +0                                         DTSCS24
04783          NEXT SENTENCE                                            DTSCS24
04784      ELSE                                                         DTSCS24
04785          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04786          IF MAP-EDIT-FULL-88                                      DTSCS24
04787              MOVE MSG-E249-AREA TO WRK-MSG-AREA                   DTSCS24
04788              PERFORM S2201-ERROR THRU S2201-EXIT.                 DTSCS24
04789  S4201-EXIT.                                                      DTSCS24
04790      EXIT.                                                        DTSCS24
04791                                                                   DTSCS24
04792  S4205-FIRST-LIAB-QTR.                                            DTSCS24
04793      MOVE ZERO                 TO WRK-FIRST-LIAB-YRQ.             DTSCS24
04794                                                                   DTSCS24
04795      MOVE LOW-VALUES           TO MSKL-KEY-AREA.                  DTSCS24
04796      MOVE WRK-EMP-NO           TO MSKL-EMP-NO.                    DTSCS24
04797      SET MSKL-SOL-88           TO TRUE.                           DTSCS24
04798      PERFORM S810-START-BROWSE THRU S810-EXIT.                    DTSCS24
04799      IF L810-OK-88                                                DTSCS24
04800         PERFORM                                                   DTSCS24
04801          UNTIL L810-NO-REC-88                                     DTSCS24
04802             MOVE MSKL-REC                TO MSOL-REC              DTSCS24
04803             IF WRK-YRQ <= MSOL-LAST-LIAB-YRQ                      DTSCS24
04804             AND WRK-YRQ >= MSOL-FIRST-LIAB-YRQ                    DTSCS24
04805             AND MSOL-INACT-ACTIVE-88                              DTSCS24
04806                MOVE MSOL-FIRST-LIAB-YRQ  TO WRK-FIRST-LIAB-YRQ    DTSCS24
04807                SET L810-NO-REC-88        TO TRUE                  DTSCS24
04808             ELSE                                                  DTSCS24
04809                PERFORM S810-READ-NEXT    THRU S810-EXIT           DTSCS24
04810             END-IF                                                DTSCS24
04811         END-PERFORM                                               DTSCS24
04812       END-IF.                                                     DTSCS24
04813                                                                   DTSCS24
04814       PERFORM S810-END-BROWSE            THRU S810-EXIT.          DTSCS24
04815  S4205-EXIT.                                                      DTSCS24
04816      EXIT.                                                        DTSCS24
04817                                                                   DTSCS24
04818  S4210-WITHDRW.                                                   DTSCS24
04819 *    IF MAP-EDIT-FULL-88                                          DTSCS24
04820 *        NEXT SENTENCE                                            DTSCS24
04821 *    ELSE                                                         DTSCS24
04822 *        GO TO S4210-EXIT.                                        DTSCS24
04823                                                                   DTSCS24
04824      IF L410-ANN-SCHED-88                                         DTSCS24
04825          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04826          MOVE MSG-E24P-AREA TO WRK-MSG-AREA                       DTSCS24
04827          PERFORM S1401-ERROR THRU S1401-EXIT                      DTSCS24
04828          GO TO S4210-EXIT                                         DTSCS24
04829       END-IF.                                                     DTSCS24
04830                                                                   DTSCS24
04831      MOVE LOW-VALUES TO MQTR-KEY-AREA.                            DTSCS24
04832                                                                   DTSCS24
04833      MOVE WRK-EMP-NO TO MQTR-EMP-NO.                              DTSCS24
04834                                                                   DTSCS24
04835      SET MQTR-QTR-88 TO TRUE.                                     DTSCS24
04836                                                                   DTSCS24
04837      MOVE WRK-YRQ TO MQTR-YRQ.                                    DTSCS24
04838                                                                   DTSCS24
04839      MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA.                         DTSCS24
04840                                                                   DTSCS24
04841      PERFORM S810-READ THRU S810-EXIT.                            DTSCS24
04842                                                                   DTSCS24
04843      IF L810-NO-REC-88                                            DTSCS24
04844          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04845          MOVE MSG-E24K-AREA TO WRK-MSG-AREA                       DTSCS24
04846          PERFORM S1401-ERROR THRU S1401-EXIT                      DTSCS24
04847          GO TO S4210-EXIT                                         DTSCS24
04848      END-IF.                                                      DTSCS24
04849                                                                   DTSCS24
04850                                                                   DTSCS24
04851      MOVE MSKL-REC TO MQTR-REC.                                   DTSCS24
04852                                                                   DTSCS24
04853      COMPUTE WRK-TOT-WAGE = (MQTR-TOT-WAGE * -1).                 DTSCS24
04854      MOVE WRK-TOT-WAGE              TO MAP-TOT-WAGE-N.            DTSCS24
04855                                                                   DTSCS24
04856      COMPUTE WRK-EXCESS-WAGE = (MQTR-EXCESS-WAGE * -1).           DTSCS24
04857      MOVE WRK-EXCESS-WAGE           TO MAP-EXCESS-WAGE-N.         DTSCS24
04858                                                                   DTSCS24
04859      COMPUTE WRK-TAX-WAGE = (MQTR-TAX-WAGE * -1).                 DTSCS24
04860      MOVE WRK-TAX-WAGE              TO MAP-TAX-WAGE-N.            DTSCS24
04861                                                                   DTSCS24
04862      MOVE ZERO                      TO MAP-REMIT-AMT-N.           DTSCS24
04863                                                                   DTSCS24
04864 **   IF WRK-TOT-WAGE-INVALID-88 OR WRK-TOT-WAGE-NO-ENTRY-88       DTSCS24
04865 *        NEXT SENTENCE                                            DTSCS24
04866 *    ELSE                                                         DTSCS24
04867 *    IF (WRK-TOT-WAGE + MQTR-TOT-WAGE) = +0                       DTSCS24
04868 *        NEXT SENTENCE                                            DTSCS24
04869 *    ELSE                                                         DTSCS24
04870 *        SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04871 *        MOVE MSG-E24A-AREA TO WRK-MSG-AREA                       DTSCS24
04872 *        PERFORM S2001-ERROR THRU S2001-EXIT.                     DTSCS24
04873 *                                                                 DTSCS24
04874 *                                                                 DTSCS24
04875 *    IF WRK-EXCESS-WAGE-INVALID-88 OR WRK-EXCESS-WAGE-NO-ENTRY-88 DTSCS24
04876 *        NEXT SENTENCE                                            DTSCS24
04877 *    ELSE                                                         DTSCS24
04878 *    IF (WRK-EXCESS-WAGE + MQTR-EXCESS-WAGE) = +0                 DTSCS24
04879 *        NEXT SENTENCE                                            DTSCS24
04880 *    ELSE                                                         DTSCS24
04881 *        SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04882 *        MOVE MSG-E24A-AREA TO WRK-MSG-AREA                       DTSCS24
04883 *        PERFORM S2101-ERROR THRU S2101-EXIT.                     DTSCS24
04884 *                                                                 DTSCS24
04885 *                                                                 DTSCS24
04886 *    IF WRK-TAX-WAGE-INVALID-88 OR WRK-TAX-WAGE-NO-ENTRY-88       DTSCS24
04887 *        NEXT SENTENCE                                            DTSCS24
04888 *    ELSE                                                         DTSCS24
04889 *    IF (WRK-TAX-WAGE + MQTR-TAX-WAGE) = +0                       DTSCS24
04890 *        NEXT SENTENCE                                            DTSCS24
04891 *    ELSE                                                         DTSCS24
04892 *        SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04893 *        MOVE MSG-E24A-AREA TO WRK-MSG-AREA                       DTSCS24
04894 *        PERFORM S2201-ERROR THRU S2201-EXIT.                     DTSCS24
04895 **                                                                DTSCS24
04896      IF MQTR-CMP-ESTB-ABSTIME > ZERO                              DTSCS24
04897          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04898          MOVE MSG-E24H-AREA TO WRK-MSG-AREA                       DTSCS24
04899          PERFORM S2201-ERROR THRU S2201-EXIT                      DTSCS24
04900      END-IF.                                                      DTSCS24
04901  S4210-EXIT.                                                      DTSCS24
04902      EXIT.                                                        DTSCS24
04903      SKIP3                                                        DTSCS24
04904  S4220-SUPPLEMENTAL.                                              DTSCS24
04905      IF MAP-EDIT-FULL-88                                          DTSCS24
04906          NEXT SENTENCE                                            DTSCS24
04907      ELSE                                                         DTSCS24
04908          GO TO S4220-EXIT.                                        DTSCS24
04909                                                                   DTSCS24
04910                                                                   DTSCS24
04911      IF (WRK-TOT-WAGE-NO-ENTRY-88)                                DTSCS24
04912              OR                                                   DTSCS24
04913         (WRK-TOT-WAGE-INVALID-88)                                 DTSCS24
04914              OR                                                   DTSCS24
04915         (WRK-EXCESS-WAGE-NO-ENTRY-88)                             DTSCS24
04916              OR                                                   DTSCS24
04917         (WRK-EXCESS-WAGE-INVALID-88)                              DTSCS24
04918              OR                                                   DTSCS24
04919         (WRK-TAX-WAGE-NO-ENTRY-88)                                DTSCS24
04920              OR                                                   DTSCS24
04921         (WRK-TAX-WAGE-INVALID-88)                                 DTSCS24
04922          GO TO S4220-EXIT.                                        DTSCS24
04923                                                                   DTSCS24
04924      MOVE LOW-VALUES TO MQTR-KEY-AREA.                            DTSCS24
04925                                                                   DTSCS24
04926      MOVE WRK-EMP-NO TO MQTR-EMP-NO.                              DTSCS24
04927                                                                   DTSCS24
04928      SET MQTR-QTR-88 TO TRUE.                                     DTSCS24
04929                                                                   DTSCS24
04930      MOVE WRK-YRQ TO MQTR-YRQ.                                    DTSCS24
04931                                                                   DTSCS24
04932      MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA.                         DTSCS24
04933                                                                   DTSCS24
04934      PERFORM S810-READ THRU S810-EXIT.                            DTSCS24
04935                                                                   DTSCS24
04936      IF L810-NO-REC-88                                            DTSCS24
04937          GO TO S4220-EXIT.                                        DTSCS24
04938                                                                   DTSCS24
04939                                                                   DTSCS24
04940      MOVE MSKL-REC TO MQTR-REC.                                   DTSCS24
04941                                                                   DTSCS24
04942                                                                   DTSCS24
04943      COMPUTE COMPUTED-TOT-WAGE                                    DTSCS24
04944        = MQTR-TOT-WAGE + WRK-TOT-WAGE.                            DTSCS24
04945                                                                   DTSCS24
04946      COMPUTE COMPUTED-EXCESS-WAGE                                 DTSCS24
04947        = MQTR-EXCESS-WAGE + WRK-EXCESS-WAGE.                      DTSCS24
04948                                                                   DTSCS24
04949      COMPUTE COMPUTED-TAX-WAGE                                    DTSCS24
04950        = MQTR-TAX-WAGE + WRK-TAX-WAGE.                            DTSCS24
04951                                                                   DTSCS24
04952      IF (COMPUTED-TOT-WAGE < 0.00)                                DTSCS24
04953                OR                                                 DTSCS24
04954         (COMPUTED-TOT-WAGE > 999999999.99)                        DTSCS24
04955          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04956          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS24
04957          MOVE 'WAGES' TO WRK-MSG-TEXT                             DTSCS24
04958          PERFORM S2001-ERROR THRU S2001-EXIT                      DTSCS24
04959          GO TO S4220-EXIT.                                        DTSCS24
04960                                                                   DTSCS24
04961      IF (COMPUTED-EXCESS-WAGE < 0.00)                             DTSCS24
04962                OR                                                 DTSCS24
04963         (COMPUTED-EXCESS-WAGE > 999999999.99)                     DTSCS24
04964          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04965          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS24
04966          MOVE 'WAGES' TO WRK-MSG-TEXT                             DTSCS24
04967          PERFORM S2101-ERROR THRU S2101-EXIT                      DTSCS24
04968          GO TO S4220-EXIT.                                        DTSCS24
04969                                                                   DTSCS24
04970      IF (COMPUTED-TAX-WAGE < 0.00)                                DTSCS24
04971                OR                                                 DTSCS24
04972         (COMPUTED-TAX-WAGE > 999999999.99)                        DTSCS24
04973          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04974          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS24
04975          MOVE 'WAGES' TO WRK-MSG-TEXT                             DTSCS24
04976          PERFORM S2201-ERROR THRU S2201-EXIT                      DTSCS24
04977          GO TO S4220-EXIT.                                        DTSCS24
04978                                                                   DTSCS24
04979                                                                   DTSCS24
04980      IF MPRF-CLASS-SELF-INS-88                                    DTSCS24
04981          PERFORM S4221-SELF-INSURED THRU S4221-EXIT               DTSCS24
04982          GO TO S4220-EXIT.                                        DTSCS24
04983                                                                   DTSCS24
04984                                                                   DTSCS24
04985      IF COMPUTED-EXCESS-WAGE > COMPUTED-TOT-WAGE                  DTSCS24
04986          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04987          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS24
04988          MOVE 'WAGES' TO WRK-MSG-TEXT                             DTSCS24
04989          PERFORM S2001-ERROR THRU S2001-EXIT                      DTSCS24
04990          PERFORM S2101-ERROR THRU S2101-EXIT                      DTSCS24
04991          GO TO S4220-EXIT.                                        DTSCS24
04992                                                                   DTSCS24
04993      IF COMPUTED-TAX-WAGE > COMPUTED-TOT-WAGE                     DTSCS24
04994          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
04995          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS24
04996          MOVE 'WAGES' TO WRK-MSG-TEXT                             DTSCS24
04997          PERFORM S2001-ERROR THRU S2001-EXIT                      DTSCS24
04998          PERFORM S2201-ERROR THRU S2201-EXIT                      DTSCS24
04999          GO TO S4220-EXIT.                                        DTSCS24
05000                                                                   DTSCS24
05001      COMPUTE COMPUTED-TAX-WAGE-2                                  DTSCS24
05002         = COMPUTED-TOT-WAGE - COMPUTED-EXCESS-WAGE.               DTSCS24
05003                                                                   DTSCS24
05004      IF (COMPUTED-TAX-WAGE-2 - COMPUTED-TAX-WAGE < -.99)          DTSCS24
05005               OR                                                  DTSCS24
05006         (COMPUTED-TAX-WAGE-2 - COMPUTED-TAX-WAGE > +.99)          DTSCS24
05007          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
05008          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS24
05009          MOVE 'WAGES' TO WRK-MSG-TEXT                             DTSCS24
05010          PERFORM S2001-ERROR THRU S2001-EXIT                      DTSCS24
05011          PERFORM S2101-ERROR THRU S2101-EXIT                      DTSCS24
05012          PERFORM S2201-ERROR THRU S2201-EXIT                      DTSCS24
05013          GO TO S4220-EXIT.                                        DTSCS24
05014                                                                   DTSCS24
05015      IF MQTR-CMP-ESTB-ABSTIME > ZERO                              DTSCS24
05016          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
05017          MOVE MSG-E24H-AREA TO WRK-MSG-AREA                       DTSCS24
05018          PERFORM S2201-ERROR THRU S2201-EXIT                      DTSCS24
05019      END-IF.                                                      DTSCS24
05020  S4220-EXIT.                                                      DTSCS24
05021      EXIT.                                                        DTSCS24
05022      SKIP3                                                        DTSCS24
05023  S4221-SELF-INSURED.                                              DTSCS24
05024      IF COMPUTED-EXCESS-WAGE = +0                                 DTSCS24
05025          NEXT SENTENCE                                            DTSCS24
05026      ELSE                                                         DTSCS24
05027          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
05028          MOVE MSG-E249-AREA TO WRK-MSG-AREA                       DTSCS24
05029          PERFORM S2101-ERROR THRU S2101-EXIT.                     DTSCS24
05030                                                                   DTSCS24
05031      IF COMPUTED-TAX-WAGE = +0                                    DTSCS24
05032          NEXT SENTENCE                                            DTSCS24
05033      ELSE                                                         DTSCS24
05034          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
05035          MOVE MSG-E249-AREA TO WRK-MSG-AREA                       DTSCS24
05036          PERFORM S2201-ERROR THRU S2201-EXIT.                     DTSCS24
05037                                                                   DTSCS24
05038      IF MQTR-CMP-ESTB-ABSTIME > ZERO                              DTSCS24
05039          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
05040          MOVE MSG-E24H-AREA TO WRK-MSG-AREA                       DTSCS24
05041          PERFORM S2201-ERROR THRU S2201-EXIT                      DTSCS24
05042      END-IF.                                                      DTSCS24
05043  S4221-EXIT.                                                      DTSCS24
05044      EXIT.                                                        DTSCS24
05045      EJECT                                                        DTSCS24
05046  S4400-REMIT-AMT-EDITS.                                           DTSCS24
05047      IF MAP-RPT-WITHDRW-88                                        DTSCS24
05048          IF WRK-REMIT-AMT > +0                                    DTSCS24
05049              SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE              DTSCS24
05050              MOVE MSG-E248-AREA TO WRK-MSG-AREA                   DTSCS24
05051              PERFORM S2301-ERROR THRU S2301-EXIT                  DTSCS24
05052              GO TO S4400-EXIT.                                    DTSCS24
05053  S4400-EXIT.                                                      DTSCS24
05054      EXIT.                                                        DTSCS24
05055      EJECT                                                        DTSCS24
05056  S4500-RPT-TYPE-EDITS.                                            DTSCS24
05057      IF WRK-MPRF-EXISTS-NO-88                                     DTSCS24
05058          GO TO S4500-EXIT.                                        DTSCS24
05059                                                                   DTSCS24
05060      MOVE LOW-VALUES TO MQTR-KEY-AREA.                            DTSCS24
05061                                                                   DTSCS24
05062      MOVE WRK-EMP-NO TO MQTR-EMP-NO.                              DTSCS24
05063                                                                   DTSCS24
05064      SET MQTR-QTR-88 TO TRUE.                                     DTSCS24
05065                                                                   DTSCS24
05066      MOVE WRK-YRQ TO MQTR-YRQ.                                    DTSCS24
05067                                                                   DTSCS24
05068      MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA.                         DTSCS24
05069                                                                   DTSCS24
05070      PERFORM S810-READ THRU S810-EXIT.                            DTSCS24
05071                                                                   DTSCS24
05072      IF L810-NO-REC-88                                            DTSCS24
05073          PERFORM S4510-NO-MQTR-EXISTS THRU S4510-EXIT             DTSCS24
05074      ELSE                                                         DTSCS24
05075          MOVE MSKL-REC TO MQTR-REC                                DTSCS24
05076          PERFORM S4520-MQTR-EXISTS THRU S4520-EXIT.               DTSCS24
05077  S4500-EXIT.                                                      DTSCS24
05078      EXIT.                                                        DTSCS24
05079                                                                   DTSCS24
05080                                                                   DTSCS24
05081                                                                   DTSCS24
05082  S4510-NO-MQTR-EXISTS.                                            DTSCS24
05083      IF MAP-RPT-ORIG-88 OR MAP-RPT-ESTIM-88                       DTSCS24
05084          NEXT SENTENCE                                            DTSCS24
05085      ELSE                                                         DTSCS24
05086          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
05087          IF MAP-EDIT-FULL-88                                      DTSCS24
05088              MOVE MSG-E241-AREA TO WRK-MSG-AREA                   DTSCS24
05089              PERFORM S2501-ERROR THRU S2501-EXIT                  DTSCS24
05090              GO TO S4510-EXIT                                     DTSCS24
05091          ELSE                                                     DTSCS24
05092              GO TO S4510-EXIT.                                    DTSCS24
05093  S4510-EXIT.                                                      DTSCS24
05094      EXIT.                                                        DTSCS24
05095                                                                   DTSCS24
05096                                                                   DTSCS24
05097                                                                   DTSCS24
05098  S4520-MQTR-EXISTS.                                               DTSCS24
05099      IF MAP-RPT-ESTIM-88                                          DTSCS24
05100          IF MQTR-CURR-RCVD-88                                     DTSCS24
05101              SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE              DTSCS24
05102              IF MAP-EDIT-FULL-88                                  DTSCS24
05103                  MOVE MSG-E241-AREA TO WRK-MSG-AREA               DTSCS24
05104                  PERFORM S2501-ERROR THRU S2501-EXIT              DTSCS24
05105              ELSE                                                 DTSCS24
05106                  NEXT SENTENCE                                    DTSCS24
05107          ELSE                                                     DTSCS24
05108              NEXT SENTENCE                                        DTSCS24
05109      ELSE                                                         DTSCS24
05110      IF MAP-RPT-ORIG-88                                           DTSCS24
05111          IF MQTR-CURR-RCVD-88                                     DTSCS24
05112              SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE              DTSCS24
05113              IF MAP-EDIT-FULL-88                                  DTSCS24
05114                  MOVE MSG-E241-AREA TO WRK-MSG-AREA               DTSCS24
05115                  PERFORM S2501-ERROR THRU S2501-EXIT              DTSCS24
05116              ELSE                                                 DTSCS24
05117                  NEXT SENTENCE                                    DTSCS24
05118          ELSE                                                     DTSCS24
05119              NEXT SENTENCE                                        DTSCS24
05120      ELSE                                                         DTSCS24
05121      IF MAP-RPT-WITHDRW-88                                        DTSCS24
05122          IF MQTR-CURR-RCVD-88 OR MQTR-CURR-ESTIM-88               DTSCS24
05123              NEXT SENTENCE                                        DTSCS24
05124          ELSE                                                     DTSCS24
05125              SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE              DTSCS24
05126              IF MAP-EDIT-FULL-88                                  DTSCS24
05127                  MOVE MSG-E241-AREA TO WRK-MSG-AREA               DTSCS24
05128                  PERFORM S2501-ERROR THRU S2501-EXIT              DTSCS24
05129              ELSE                                                 DTSCS24
05130                  NEXT SENTENCE                                    DTSCS24
05131      ELSE                                                         DTSCS24
05132          IF MQTR-CURR-RCVD-88                                     DTSCS24
05133              NEXT SENTENCE                                        DTSCS24
05134          ELSE                                                     DTSCS24
05135              SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE              DTSCS24
05136              IF MAP-EDIT-FULL-88                                  DTSCS24
05137                  MOVE MSG-E241-AREA TO WRK-MSG-AREA               DTSCS24
05138                  PERFORM S2501-ERROR THRU S2501-EXIT              DTSCS24
05139              ELSE                                                 DTSCS24
05140                  NEXT SENTENCE.                                   DTSCS24
05141  S4520-EXIT.                                                      DTSCS24
05142      EXIT.                                                        DTSCS24
05143      EJECT                                                        DTSCS24
05144  S4600-WAIVE-IND-EDITS.                                           DTSCS24
05145  S4600-EXIT.                                                      DTSCS24
05146      EXIT.                                                        DTSCS24
05147      EJECT                                                        DTSCS24
05148 *S4650-UI-RATE-EDITS.                                             DTSCS24
05149 *****IF MAP-RPT-ORIG-88 OR MAP-RPT-ESTIM-88 OR MAP-RPT-WITHDRW-88 DTSCS24
05150 *********GO TO S4650-EXIT.                                        DTSCS24
05151                                                                   DTSCS24
05152 *****IF MPRF-CLASS-REG-88 OR MPRF-CLASS-GOV-88                    DTSCS24
05153 *********IF WRK-NO-UI-RATE-88                                     DTSCS24
05154 *************MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS24
05155 *************MOVE 'UI RATE'       TO WRK-MSG-TEXT                 DTSCS24
05156 *************PERFORM S2901-ERROR THRU S2901-EXIT                  DTSCS24
05157 *********ELSE                                                     DTSCS24
05158 *************IF WRK-UI-RATE = L381-UI-RATE                        DTSCS24
05159 *****************NEXT SENTENCE                                    DTSCS24
05160 *************ELSE                                                 DTSCS24
05161 **************** MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER           DTSCS24
05162 *****************MOVE 'UI RATE'       TO WRK-MSG-TEXT             DTSCS24
05163 *****************PERFORM S2901-ERROR THRU S2901-EXIT              DTSCS24
05164 *****ELSE                                                         DTSCS24
05165 *********IF WRK-NO-UI-RATE-88                                     DTSCS24
05166 *************NEXT SENTENCE                                        DTSCS24
05167 *********ELSE                                                     DTSCS24
05168 *************MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS24
05169 *************MOVE 'UI RATE'       TO WRK-MSG-TEXT                 DTSCS24
05170 *************PERFORM S2901-ERROR THRU S2901-EXIT.                 DTSCS24
05171 *S4650-EXIT.                                                      DTSCS24
05172 *****EXIT.                                                        DTSCS24
05173      EJECT                                                        DTSCS24
05174  S4700-RESPONSIBILITY-EDITS.                                      DTSCS24
05175  S4700-EXIT.                                                      DTSCS24
05176      EXIT.                                                        DTSCS24
05177      EJECT                                                        DTSCS24
05178  S4800-RECEIVED-DATE-EDITS.                                       DTSCS24
05179 ***  RECEIVED DATE MAY BE ENTERED UNDER MINIMAL EDITS             DTSCS24
05180 ***  5/2/2000 - GD                                                DTSCS24
05181 ***                                                               DTSCS24
05182      IF WRK-RECEIVED-DATE = +0                                    DTSCS24
05183          GO TO S4800-EXIT.                                        DTSCS24
05184                                                                   DTSCS24
05185      IF WRK-RECEIVED-DATE > LCCM-CURR-RUN-DATE                    DTSCS24
05186          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
05187 ***      IF MAP-EDIT-FULL-88                                      DTSCS24
05188              MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS24
05189              MOVE 'RECEIVED DATE' TO WRK-MSG-TEXT                 DTSCS24
05190              PERFORM S3301-ERROR THRU S3301-EXIT                  DTSCS24
05191              GO TO S4800-EXIT.                                    DTSCS24
05192 ***      ELSE                                                     DTSCS24
05193 ***          GO TO S4800-EXIT.                                    DTSCS24
05194                                                                   DTSCS24
05195      MOVE LCCM-CURR-RUN-DATE TO L001-FED-8-DATE-9.                DTSCS24
05196                                                                   DTSCS24
05197      SUBTRACT 1 FROM L001-FED-8-YR.                               DTSCS24
05198                                                                   DTSCS24
05199      IF (WRK-RECEIVED-DATE > L001-FED-8-DATE-9)                   DTSCS24
05200            OR                                                     DTSCS24
05201         (MAP-DISREGARD-EDITS-YES-88)                              DTSCS24
05202          NEXT SENTENCE                                            DTSCS24
05203      ELSE                                                         DTSCS24
05204          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
05205 ***      IF MAP-EDIT-FULL-88                                      DTSCS24
05206              MOVE EMSG-OLD-RCVD-DATE TO WRK-MSG-AREA              DTSCS24
05207              PERFORM S3301-ERROR THRU S3301-EXIT                  DTSCS24
05208              GO TO S4800-EXIT.                                    DTSCS24
05209 ***      ELSE                                                     DTSCS24
05210 ***          GO TO S4800-EXIT.                                    DTSCS24
05211  S4800-EXIT.                                                      DTSCS24
05212      EXIT.                                                        DTSCS24
05213      EJECT                                                        DTSCS24
05214  S4900-OVERRIDE.                                                  DTSCS24
05215      IF MAP-DISREGARD-EDITS-YES-88                                DTSCS24
05216          GO TO S4900-EXIT.                                        DTSCS24
05217                                                                   DTSCS24
05218                                                                   DTSCS24
05219      IF WRK-MPRF-EXISTS-NO-88                                     DTSCS24
05220          GO TO S4900-EXIT.                                        DTSCS24
05221                                                                   DTSCS24
05222                                                                   DTSCS24
05223      IF WRK-YRQ = +0                                              DTSCS24
05224          GO TO S4900-EXIT.                                        DTSCS24
05225                                                                   DTSCS24
05226                                                                   DTSCS24
05227      IF WRK-YRQ > MPRF-LAST-ARCHIVED-YRQ                          DTSCS24
05228          NEXT SENTENCE                                            DTSCS24
05229      ELSE                                                         DTSCS24
05230          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
05231          IF MAP-EDIT-FULL-88                                      DTSCS24
05232              MOVE MSG-E245-AREA TO WRK-MSG-AREA                   DTSCS24
05233              PERFORM S3801-ERROR THRU S3801-EXIT.                 DTSCS24
05234                                                                   DTSCS24
05235 *** ENTRY OF A DATE MORE THAN ONE MONTH PRIOR TO THE              DTSCS24
05236 *** REPORT DUE DATE CANNOT BE OVERRIDEN.                          DTSCS24
05237 *** THIS EDIT MOVED TO S1400.                                     DTSCS24
05238 *                                                                 DTSCS24
05239 *    MOVE WRK-YRQ TO L004-QTR-5-9.                                DTSCS24
05240 *                                                                 DTSCS24
05241 *    PERFORM S004-FROM-5 THRU S004-EXIT.                          DTSCS24
05242 *                                                                 DTSCS24
05243 *    MOVE L004-QTR-END-DATE TO L001-FED-8-DATE-9.                 DTSCS24
05244 *                                                                 DTSCS24
05245 *    MOVE 1 TO L001-FED-8-DA.                                     DTSCS24
05246 *                                                                 DTSCS24
05247 *    IF LCCM-CURR-RUN-DATE < L001-FED-8-DATE-9                    DTSCS24
05248 *        SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS24
05249 *        IF MAP-EDIT-FULL-88                                      DTSCS24
05250 *            MOVE MSG-E243-AREA TO WRK-MSG-AREA                   DTSCS24
05251 ***          PERFORM S3801-ERROR THRU S3801-EXIT.                 DTSCS24
05252  S4900-EXIT.                                                      DTSCS24
05253      EXIT.                                                        DTSCS24
05254 /*****************************************************************DTSCS24
05255 * LOCK SCREEN FOR UPDATE CONFIRMATION                            *DTSCS24
05256 ******************************************************************DTSCS24
05257                                                                   DTSCS24
05258  S5100-SET-LOCK-ATTRB.                                            DTSCS24
05259      MOVE CATB-ASKIP-BRT-MDTON TO WRK-ATB-AN                      DTSCS24
05260                                   WRK-ATB-NUM.                    DTSCS24
05261                                                                   DTSCS24
05262      PERFORM S5900-SET-ATTRB THRU S5900-EXIT.                     DTSCS24
05263                                                                   DTSCS24
05264      MOVE CATB-ASKIP-BRT-MDTON TO MAP-BATCH-NO-A                  DTSCS24
05265                                   MAP-ITEM-NO-A                   DTSCS24
05266                                   MAP-GOTO-A.                     DTSCS24
05267  S5100-EXIT.                                                      DTSCS24
05268      EXIT.                                                        DTSCS24
05269                                                                   DTSCS24
05270                                                                   DTSCS24
05271                                                                   DTSCS24
05272 ******************************************************************DTSCS24
05273 * SET ATTIBUTE BYTES FOR UPDATE ACCESS                           *DTSCS24
05274 ******************************************************************DTSCS24
05275                                                                   DTSCS24
05276  S5200-SET-UPDATE-ATTRB.                                          DTSCS24
05277      MOVE CATB-UNPROT-BRT-AN-MDTON TO WRK-ATB-AN.                 DTSCS24
05278                                                                   DTSCS24
05279      MOVE CATB-UNPROT-BRT-NUM-MDTON TO WRK-ATB-NUM.               DTSCS24
05280                                                                   DTSCS24
05281      PERFORM S5900-SET-ATTRB THRU S5900-EXIT.                     DTSCS24
05282  S5200-EXIT.                                                      DTSCS24
05283      EXIT.                                                        DTSCS24
05284                                                                   DTSCS24
05285                                                                   DTSCS24
05286                                                                   DTSCS24
05287 ******************************************************************DTSCS24
05288 *  SET ATTRIBUTE BYTES FOR INQUIRY STATUS                        *DTSCS24
05289 ******************************************************************DTSCS24
05290                                                                   DTSCS24
05291  S5300-SET-INQ-ATTRB.                                             DTSCS24
05292      MOVE CATB-ASKIP-BRT-MDTOFF TO WRK-ATB-AN                     DTSCS24
05293                                    WRK-ATB-NUM.                   DTSCS24
05294                                                                   DTSCS24
05295      PERFORM S5900-SET-ATTRB THRU S5900-EXIT.                     DTSCS24
05296  S5300-EXIT.                                                      DTSCS24
05297      EXIT.                                                        DTSCS24
05298                                                                   DTSCS24
05299                                                                   DTSCS24
05300                                                                   DTSCS24
05301  S5900-SET-ATTRB.                                                 DTSCS24
05302      MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-BATCH-NO-A             DTSCS24
05303                                        MAP-ITEM-NO-A.             DTSCS24
05304                                                                   DTSCS24
05305      MOVE WRK-ATB-AN                                              DTSCS24
05306        TO MAP-NAME-CHECK-A                                        DTSCS24
05307           MAP-VERIFIED-IND-A                                      DTSCS24
05308           MAP-RPT-TYPE-A                                          DTSCS24
05309           MAP-WAIVE-BOTH-IND-A                                    DTSCS24
05310           MAP-WAIVE-LATE-PEN-IND-A                                DTSCS24
05311           MAP-WAIVE-INT-IND-A                                     DTSCS24
05312           MAP-WAGE-RPT-IND-A                                      DTSCS24
05313           MAP-STATUS-CHG-IND-A                                    DTSCS24
05314           MAP-RESPONSIBLE-ACTIVITY-A                              DTSCS24
05315           MAP-RESPONSIBLE-OP-ID-A                                 DTSCS24
05316           MAP-EDIT-MODE-A                                         DTSCS24
05317           MAP-DISREGARD-EDITS-IND-A.                              DTSCS24
05318                                                                   DTSCS24
05319      MOVE WRK-ATB-NUM                                             DTSCS24
05320        TO MAP-EMP-NO-1-A                                          DTSCS24
05321           MAP-EMP-NO-2-A                                          DTSCS24
05322           MAP-YRQ-YR-A                                            DTSCS24
05323           MAP-YRQ-Q-A                                             DTSCS24
05324           MAP-TOTAL-EMPL-CNT-A                                    DTSCS24
05325           MAP-1ST-MTH-EMPL-CNT-A                                  DTSCS24
05326           MAP-2ND-MTH-EMPL-CNT-A                                  DTSCS24
05327           MAP-3RD-MTH-EMPL-CNT-A                                  DTSCS24
05328           MAP-TOT-WAGE-A                                          DTSCS24
05329           MAP-EXCESS-WAGE-A                                       DTSCS24
05330           MAP-TAX-WAGE-A                                          DTSCS24
05331           MAP-REMIT-AMT-A                                         DTSCS24
05332           MAP-RECEIVED-DATE-DA-A                                  DTSCS24
05333           MAP-RECEIVED-DATE-MO-A                                  DTSCS24
05334           MAP-RECEIVED-DATE-YR-A                                  DTSCS24
05335           MAP-ENTRY-MODE-A.                                       DTSCS24
05336                                                                   DTSCS24
05337      MOVE CATB-ASKIP-BRT-MDTON TO MAP-PROCESSED-DATE-A            DTSCS24
05338                                   MAP-PASSED-FULL-EDITS-IND-A.    DTSCS24
05339                                                                   DTSCS24
05340      MOVE CATB-UNPROT-BRT-AN-MDTON TO MAP-GOTO-A.                 DTSCS24
05341  S5900-EXIT.                                                      DTSCS24
05342      EXIT.                                                        DTSCS24
05343 /*****************************************************************DTSCS24
05344 * MAP ROUTINES                                                   *DTSCS24
05345 ******************************************************************DTSCS24
05346                                                                   DTSCS24
05347  S9100-RECEIVE.                                                   DTSCS24
05348      SET L851-RECEIVE-88 TO TRUE.                                 DTSCS24
05349                                                                   DTSCS24
05350      MOVE WRK-SCR-ID TO L851-SCR-ID.                              DTSCS24
05351                                                                   DTSCS24
05352      PERFORM S851-SCREEN-PROCESSING THRU S851-EXIT.               DTSCS24
05353                                                                   DTSCS24
05354      MOVE L851-AID TO LCCM-AID.                                   DTSCS24
05355                                                                   DTSCS24
05356      MOVE L851-CURSOR TO LCCM-CURSOR.                             DTSCS24
05357  S9100-EXIT.                                                      DTSCS24
05358      EXIT.                                                        DTSCS24
05359                                                                   DTSCS24
05360                                                                   DTSCS24
05361                                                                   DTSCS24
05362  S9200-SEND-DATAONLY.                                             DTSCS24
05363      MOVE LOW-VALUES TO MAP-AREA.                                 DTSCS24
05364                                                                   DTSCS24
05365      IF LCCM-NO-MSG                                               DTSCS24
05366          NEXT SENTENCE                                            DTSCS24
05367      ELSE                                                         DTSCS24
05368          PERFORM S805-MSG-AREA THRU S805-EXIT.                    DTSCS24
05369                                                                   DTSCS24
05370      IF CURSOR-SET-GOTO                                           DTSCS24
05371          MOVE CATB-CURSOR TO MAP-GOTO-L                           DTSCS24
05372      ELSE                                                         DTSCS24
05373          MOVE CATB-CURSOR TO MAP-BATCH-NO-L.                      DTSCS24
05374                                                                   DTSCS24
05375      SET L851-SEND-DATAONLY-88 TO TRUE.                           DTSCS24
05376                                                                   DTSCS24
05377      PERFORM S9900-PREPARE-SEND THRU S9900-EXIT.                  DTSCS24
05378                                                                   DTSCS24
05379      PERFORM S851-SCREEN-PROCESSING THRU S851-EXIT.               DTSCS24
05380  S9200-EXIT.                                                      DTSCS24
05381      EXIT.                                                        DTSCS24
05382                                                                   DTSCS24
05383                                                                   DTSCS24
05384                                                                   DTSCS24
05385  S9300-SEND-MAP.                                                  DTSCS24
05386      MOVE  LCCM-TASK-START-DISP-DATE TO MAP-SYS-DATE.             DTSCS24
05387                                                                   DTSCS24
05388      MOVE  LCCM-CICS-REGION-NAME TO MAP-CICS-REGION-NAME.         DTSCS24
05389                                                                   DTSCS24
05390      MOVE  LCCM-TASK-START-DISP-TIME TO MAP-SYS-TIME.             DTSCS24
05391                                                                   DTSCS24
05392      IF SCR-ACCESS-UPDATE                                         DTSCS24
05393          PERFORM S9310-UPDATE-FKEYS THRU S9310-EXIT               DTSCS24
05394      ELSE                                                         DTSCS24
05395          PERFORM S9320-INQUIRY-FKEYS THRU S9320-EXIT.             DTSCS24
05396                                                                   DTSCS24
05397      PERFORM S9330-DSCR-FIELDS THRU S9330-EXIT.                   DTSCS24
05398                                                                   DTSCS24
05399      PERFORM S805-MSG-AREA THRU S805-EXIT.                        DTSCS24
05400                                                                   DTSCS24
05401      IF CURSOR-SET-NO                                             DTSCS24
05402          MOVE CATB-CURSOR TO MAP-BATCH-NO-L.                      DTSCS24
05403                                                                   DTSCS24
05404      SET L851-SEND-88 TO TRUE.                                    DTSCS24
05405                                                                   DTSCS24
05406      PERFORM S9900-PREPARE-SEND THRU S9900-EXIT.                  DTSCS24
05407                                                                   DTSCS24
05408      PERFORM S851-SCREEN-PROCESSING THRU S851-EXIT.               DTSCS24
05409  S9300-EXIT.                                                      DTSCS24
05410      EXIT.                                                        DTSCS24
05411                                                                   DTSCS24
05412                                                                   DTSCS24
05413                                                                   DTSCS24
05414  S9310-UPDATE-FKEYS.                                              DTSCS24
05415      PERFORM S9320-INQUIRY-FKEYS THRU S9320-EXIT.                 DTSCS24
05416                                                                   DTSCS24
05417      IF LCCM-SCR-CLEAR                                            DTSCS24
05418          MOVE 'ENTER=ADD' TO MAP-KEY-ENTER                        DTSCS24
05419      ELSE                                                         DTSCS24
05420      IF LCCM-SCR-INQUIRE                                          DTSCS24
05421          MOVE CFKD-MOD TO MAP-KEY-MOD                             DTSCS24
05422          MOVE CFKD-DEL TO MAP-KEY-DEL                             DTSCS24
05423      ELSE                                                         DTSCS24
05424      IF LCCM-SCR-UPDATE-LOCKED                                    DTSCS24
05425         MOVE LOW-VALUES TO  MAP-KEY-BACK                          DTSCS24
05426                             MAP-KEY-FWRD                          DTSCS24
05427                             MAP-KEY-INQ.                          DTSCS24
05428  S9310-EXIT.                                                      DTSCS24
05429      EXIT.                                                        DTSCS24
05430                                                                   DTSCS24
05431                                                                   DTSCS24
05432                                                                   DTSCS24
05433  S9320-INQUIRY-FKEYS.                                             DTSCS24
05434      MOVE CFKD-BACKWARD TO MAP-KEY-BACK.                          DTSCS24
05435                                                                   DTSCS24
05436      MOVE CFKD-FORWARD TO MAP-KEY-FWRD.                           DTSCS24
05437                                                                   DTSCS24
05438      MOVE LOW-VALUES TO MAP-KEY-ENTER                             DTSCS24
05439                         MAP-KEY-MOD                               DTSCS24
05440                         MAP-KEY-DEL.                              DTSCS24
05441                                                                   DTSCS24
05442      MOVE 'F9=INQ' TO MAP-KEY-INQ.                                DTSCS24
05443  S9320-EXIT.                                                      DTSCS24
05444      EXIT.                                                        DTSCS24
05445                                                                   DTSCS24
05446                                                                   DTSCS24
05447                                                                   DTSCS24
05448  S9330-DSCR-FIELDS.                                               DTSCS24
05449      IF MAP-ENTRY-MODE-A = CATB-UNPROT-NORM-NUM-MDTON             DTSCS24
05450          NEXT SENTENCE                                            DTSCS24
05451      ELSE                                                         DTSCS24
05452          MOVE LCCM-ENTRY-MODE TO MAP-ENTRY-MODE.                  DTSCS24
05453                                                                   DTSCS24
05454      IF MAP-EDIT-MODE-A = CATB-UNPROT-NORM-AN-MDTON               DTSCS24
05455          NEXT SENTENCE                                            DTSCS24
05456      ELSE                                                         DTSCS24
05457          MOVE LCCM-OP-ARPT-EDIT-MODE TO MAP-EDIT-MODE.            DTSCS24
05458  S9330-EXIT.                                                      DTSCS24
05459      EXIT.                                                        DTSCS24
05460                                                                   DTSCS24
05461                                                                   DTSCS24
05462                                                                   DTSCS24
05463  S9900-PREPARE-SEND.                                              DTSCS24
05464      MOVE WRK-SCR-ID TO L851-SCR-ID                               DTSCS24
05465                         LCCM-SCR-ID.                              DTSCS24
05466                                                                   DTSCS24
05467      MOVE LCCM-OP-ALARM-IND TO L851-ALARM-IND.                    DTSCS24
05468                                                                   DTSCS24
05469      MOVE LCCM-MSG-TYPE TO L851-MSG-TYPE.                         DTSCS24
05470  S9900-EXIT.                                                      DTSCS24
05471      EXIT.                                                        DTSCS24
