00001  IDENTIFICATION DIVISION.                                         07/16/14
00002  PROGRAM-ID.             DTSCS27.                                 DTSCS27
00003  AUTHOR.                 TRW.                                        LV052
00004  DATE-WRITTEN.           NOVEMBER 1991.                           DTSCS27
00005  DATE-COMPILED.                                                   DTSCS27
00006      SKIP3                                                        DTSCS27
00007 *****                                                             DTSCS27
00008 *                                                                 DTSCS27
00009 *    FUNCTION:  ANNUAL REPORT ENTRY SCREEN PROCESSOR.             DTSCS27
00010 *                                                                 DTSCS27
00011 *                                                                 DTSCS27
00012 *    MODIFICATION LOG:                                            DTSCS27
00013 *                                                                 DTSCS27
00014 *    12/21/2001  INITIAL DEVELOPMENT.                             DTSCS27
00015 *                WORK ORDER:                      PROGRAMMER: GD  DTSCS27
00016 *                                                                 DTSCS27
00017 *    11/18/2003  MODIFIED P8910 TO ALLOW ANNUAL REPORT IN NON-    DTSCS27
00018 *                ANNUAL BATCH IF IT WAS SYSTEM-GENERATED.         DTSCS27
00019 *                WORK ORDER:                      PROGRAMMER: GD  DTSCS27
00020 *                                                                 DTSCS27
00021 *    11/18/2003  MODIFIED P8971-SUM-WAGES TO BYPASS PREFILLED     DTSCS27
00022 *                SSN.                                             DTSCS27
00023 *                WORK ORDER:                      PROGRAMMER: GD  DTSCS27
00024 *                                                                 DTSCS27
00025 *    12/09/2003  MODIFIED P9820 TO ADD NAME CHECK FROM L427.      DTSCS27
00026 *                EMPLOYEE NAMES ARE STORED IN THE WAGE NAME FILE. DTSCS27
00027 *                WORK ORDER: WAGE MODIFICATIONS   PROGRAMMER: GD  DTSCS27
00028 *                                                                 DTSCS27
00029 *    04/08/2004  MODIFIED P1510 - SHOULD NOT CALL S1511 TO CLEAR  DTSCS27
00030 *                SSN IN L427 TABLE IF SSN IS 'PRE-FILL'           DTSCS27
00031 *                WORK ORDER:                      PROGRAMMER: GD  DTSCS27
00032 *                                                                 DTSCS27
00033 *    07/23/2004  MODIFIED S4200 TO ENSURE TAX WAGES EQUAL         DTSCS27
00034 *                THE SUM OF INDIVIDUAL WAGE ITEMS ( + OR - .99)   DTSCS27
00035 *                WORK ORDER:                      PROGRAMMER: GD  DTSCS27
00036 *                                                                 DTSCS27
00037 *    05/11/2005  ADDED CALL TO P8970-FINAL-EDIT IN P6990-REEDIT.  DTSCS27
00038 *                IT IS NEEDED TO PROVIDE A VALUE IN WRK-TOT-WAGE. DTSCS27
00039 *                WORK ORDER: PRODUCTION PROBLEM   PROGRAMMER: GD  DTSCS27
00040 *                                                                 DTSCS27
00041 *    05/24/2005  MODIFIED S4040. SET A VALUE IN                   DTSCS27
00042 *                WRK-MQTR-CURR-RPT-TYPE ONLY IF REPORT RECEIVED   DTSCS27
00043 *                OR ESTIMATED. THE EDITS FOR SUPPLEMENTAL REPORTS DTSCS27
00044 *                NEED TO KNOW IF A REPORT IS ON FILE FOR ANY OF   DTSCS27
00045 *                THE FOUR QUARTERS. THE PREVIOUS CODE MOVED       DTSCS27
00046 *                MQTR-CURR-RPT-TYPE TO THIS FIELD FOR EACH        DTSCS27
00047 *                QUARTER READ. THE SUPPLEMENTAL REPORT EDITS DID  DTSCS27
00048 *                NOT WORK WHEN THE LAST QUARTER WAS NOT LIABLE.   DTSCS27
00049 *                WORK ORDER: PRODUCTION PROBLEM   PROGRAMMER: GD  DTSCS27
00050 *                                                                 DTSCS27
00051 *    06/03/2005  ADDED END-BROWSE TO S4040.                       DTSCS27
00052 *                WORK ORDER: PRODUCTION PROBLEM   PROGRAMMER: GD  DTSCS27
00053 *                                                                 DTSCS27
00054 *    03/13/2006  MODIFIED P7300 TO PREVENT DELETION EXCEPT FOR    DTSCS27
00055 *                DESIGNATED USERS. USER IDS HARD-CODED IN P7300.  DTSCS27
00056 *                WORK ORDER:                      PROGRAMMER: GD  DTSCS27
00057 *                                                                 DTSCS27
00058 *    03/13/2006  MODIFIED P7300 TO PREVENT DELETION EXCEPT FOR    DTSCS27
00059 *                DESIGNATED USERS. USER IDS HARD-CODED IN P7300.  DTSCS27
00060 *                WORK ORDER:                      PROGRAMMER: GD  DTSCS27
00061 *                                                                 DTSCS27
00062 *    07/23/2009  ADDED USERID EUMJ01B (JALLOH MOHAMED) TO CHANGE  DTSCS27
00063                  DATA ON SCREEN                                   DTSCS27
00064 *                WORK ORDER:                      PROGRAMMER: ZL1 DTSCS27
00065 *                                                                 DTSCS27
00066 *                                                                 DTSCS27
00067 *    12/02/2009  ADDED CODE TO REPLACE CHECKING USERID FOR        DTSCS27
00068                  SUPERVISOR UPDATES.                              DTSCS27
00069 *                WORK ORDER:                      PROGRAMMER: ZL1 DTSCS27
00070 *                                                                 DTSCS27
00071 *    04/29/2010  MODIFIED REPORT WITHDRAWAL CODE IN P8140 TO      DTSCS27
00072 *                ALLOW WITHDRAWAL OF A REPORT IF THE QUARTER IS   DTSCS27
00073 *                MORE THAN 4 YEARS OLD AND THE WAGES HAVE BEEN    DTSCS27
00074 *                PURGED FROM THE SYSTEM.                          DTSCS27
00075 *                WORK ORDER:                      PROGRAMMER: GD  DTSCS27
00076 *                                                                 DTSCS27
00077 *    08/24/2011  MODIFIED TO ALLOW ADJUSTMENT TO TAXABLE WAGES    DTSCS27
00078 *                WHEN WAGES HAVE BEEN REPORTED (AND TAXES PAID)   DTSCS27
00079 *                TO ANOTHER STATE. THE ADJUSTMENT IS MADE THROUGH DTSCS27
00080 *                THE ADJ FIELD, WHICH IS USED TO SET THE          DTSCS27
00081 *                EFFECTIVE TAXABLE WAGE BASE. IF TAXES HAVE       DTSCS27
00082 *                ALREADY BEEN PAID USING AN $8500.00 BASE, THEN   DTSCS27
00083 *                THE EFFECIVE WAGE BASE IS $500.00.               DTSCS27
00084 *                WORK ORDER:                      PROGRAMMER: GD  DTSCS27
00085 *                                                                 DTSCS27
00086 *    05/10/2013  ADDED CALLS TO CU826 TO TRACK UPDATES TO         DTSCS27
00087 *                ANNUAL REPORT TRANSACTIONS.                      DTSCS27
00088 *                WORK ORDER:                      PROGRAMMER: GD1 DTSCS27
00089 *                                                                 DTSCS27
00090 *    05/23/2013  UPDATED WRK-MQTR-CURR-RCVD-88 TO INCLUDE         DTSCS27
00091 *                THE VALUE 'H' - ANNUAL REPORT FILED, QUARTER     DTSCS27
00092 *                IS NOT LIABLE.                                   DTSCS27
00093 *                WORK ORDER: TKT 1780             PROGRAMMER: GD1 DTSCS27
00094 *                                                                 DTSCS27
00095 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSCS27
00096 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSCS27
00097 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSCS27
00098 *                                                                 DTSCS27
00099 *                                                                 DTSCS27
00100 *  DESCRIPTION:                                                   DTSCS27
00101 *                                                                 DTSCS27
00102 *                                                                 DTSCS27
00103 *    CLEAR:                                                       DTSCS27
00104 *                                                                 DTSCS27
00105 *      FIELD DISPLAYED:                                           DTSCS27
00106 *                                                                 DTSCS27
00107 *        MAP-BATCH-NO                                             DTSCS27
00108 *          (FROM LCCM-BATCH-NO;  MOVE +0 TO LCCM-BATCH-NO;        DTSCS27
00109 *             MOVE +0 TO LCCM-ITEM-NO)                            DTSCS27
00110 *                                                                 DTSCS27
00111 *        MAP-ENTRY-MODE                                           DTSCS27
00112 *          (FROM LCCM-ENTRY-MODE)                                 DTSCS27
00113 *                                                                 DTSCS27
00114 *        MAP-MAX-ITEMS                                            DTSCS27
00115 *          (FROM LCCM-TRAN-MAX)                                   DTSCS27
00116 *                                                                 DTSCS27
00117 *                                                                 DTSCS27
00118 *    JUMP:                                                        DTSCS27
00119 *                                                                 DTSCS27
00120 *      STANDAD                                                    DTSCS27
00121 *                                                                 DTSCS27
00122 *                                                                 DTSCS27
00123 *    INQUIRY:                                                     DTSCS27
00124 *                                                                 DTSCS27
00125 *                                                                 DTSCS27
00126 *      CONTROL FIELDS: MAP-DOC-NO (MAP-BATCH-NO AND MAP-ITEM-NO)  DTSCS27
00127 *                                                                 DTSCS27
00128 *                                                                 DTSCS27
00129 *      JUMP IN:                                                   DTSCS27
00130 *                                                                 DTSCS27
00131 *        IF LCCM-BATCH-NO = 0                                     DTSCS27
00132 *            CLEAR                                                DTSCS27
00133 *        ELSE                                                     DTSCS27
00134 *            IF LCCM-ITEM-NO = 0                                  DTSCS27
00135 *                CLEAR                                            DTSCS27
00136 *            ELSE                                                 DTSCS27
00137 *                IF LCCM-DOC-NO EXISTS ON ACCT TRAN FILE          DTSCS27
00138 *                    IF LCCM-DOC-NO IS AN ARPT RECORD             DTSCS27
00139 *                        DISPLAY THE ARPT RECORD                  DTSCS27
00140 *                    ELSE                                         DTSCS27
00141 *                        CLEAR; DISPLAY 'NOT REPORT' MESSAGE      DTSCS27
00142 *                ELSE                                             DTSCS27
00143 *                    CLEAR; DISPLAY 'NO RECORD' MESSAGE.          DTSCS27
00144 *                                                                 DTSCS27
00145 *                                                                 DTSCS27
00146 *      F9                                                         DTSCS27
00147 *                                                                 DTSCS27
00148 *        IF MAP-BATCH-NO ENTERED                                  DTSCS27
00149 *            IF MAP-ITEM-NO ENTERED                               DTSCS27
00150 *                IF MAP-DOC-NO EXISTS ON THE ACCT TRAN FILE       DTSCS27
00151 *                    IF MAP-DOC-NO ON ACT FILE IS AN ARPT RECORD  DTSCS27
00152 *                        DISPLAY MAP-DOC-NO RECORD FROM ACT FILE  DTSCS27
00153 *                    ELSE                                         DTSCS27
00154 *                        CLEAR; DISPLAY 'NOT REPORT' MESSAGE      DTSCS27
00155 *                ELSE                                             DTSCS27
00156 *                    CLEAR; DISPLAY 'NO RECORD' MESSAGE           DTSCS27
00157 *            ELSE                                                 DTSCS27
00158 *                CLEAR; DISPLAY 'PLEASE ENTER' MESSAGE            DTSCS27
00159 *        ELSE                                                     DTSCS27
00160 *        IF LCCM-BATCH-NO = 0                                     DTSCS27
00161 *            CLEAR; DISPLAY 'PLEASE ENTER' MESSAGE                DTSCS27
00162 *        ELSE                                                     DTSCS27
00163 *            IF LCCM-ITEM-NO = 0                                  DTSCS27
00164 *                CLEAR; DISPLAY 'PLEASE ENTER' MESSAGE            DTSCS27
00165 *            ELSE                                                 DTSCS27
00166 *                IF LCCM-DOC-NO EXISTS ON THE ACCT TRAN FILE      DTSCS27
00167 *                    IF LCCM-DOC-NO ON ACT FILE IS AN ARPT RECORD DTSCS27
00168 *                        DISPLAY LCCM-DOC-NO RECORD FROM ACT FILE DTSCS27
00169 *                    ELSE                                         DTSCS27
00170 *                        CLEAR; DISPLAY 'NOT REPORT' MESSAGE      DTSCS27
00171 *                ELSE                                             DTSCS27
00172 *                    CLEAR; DISPLAY 'NO RECORD MESSAGE.           DTSCS27
00173 *                                                                 DTSCS27
00174 *                                                                 DTSCS27
00175 *      F7, F8: DISPLAY PRIOR/NEXT A* RECORD.  BREAK ON            DTSCS27
00176 *              A*-BATCH-NO.  IF THE PRIOR/NEXT RECORD ENCOUNTERED DTSCS27
00177 *              IS NOT AN ARPT RECORD (BUT IS IN MAP-BATCH-NO),    DTSCS27
00178 *              AUTOMATICALLY JUMP TO THE APPROPRIATE SCREEN AND   DTSCS27
00179 *              DISPLAY THE RECORD.                                DTSCS27
00180 *                                                                 DTSCS27
00181 *                                                                 DTSCS27
00182 *    LCCM-CURRENT-VALUES-AREA MAINTENANCE:                        DTSCS27
00183 *                                                                 DTSCS27
00184 *      LCCM-DOC-NO MAINTENANCE.                                   DTSCS27
00185 *                                                                 DTSCS27
00186 *      LCCM-EMP-NO MAINTENANCE.                                   DTSCS27
00187 *                                                                 DTSCS27
00188 *      LCCM-ENTRY-MODE MAINTENANCE.                               DTSCS27
00189 *                                                                 DTSCS27
00190 *      LCCM-TRAN-MAX MAINTENANCE.                                 DTSCS27
00191 *                                                                 DTSCS27
00192 *                                                                 DTSCS27
00193 *    UPDATE:                                                      DTSCS27
00194 *                                                                 DTSCS27
00195 *                                                                 DTSCS27
00196 *                                                                 DTSCS27
00197 *      ADD                                                        DTSCS27
00198 *                                                                 DTSCS27
00199 *       THE 'ENTER' KEY INDICATES THE "ADD" FUNCTION.  THE "ADD"  DTSCS27
00200 *       VERIFICATION FUNCTION IS DISABLED.                        DTSCS27
00201 *                                                                 DTSCS27
00202 *       IF MAP-ITEM-NO IS NOT SPECIFIED, (THE SYSTEM WILL         DTSCS27
00203 *       ASSIGN THE NEXT AVAIABLE ITEM NUMBER TO THE ACCOUNTING    DTSCS27
00204 *       TRANSACTION.   CALLING DTSCU372 (WITH L372-UPDATE) WILL   DTSCS27
00205 *       RETURN THE NEXT AVAILABLE ITEM NUMBER IN                  DTSCS27
00206 *       L372-LAST-USED-ITEM-NO).                                  DTSCS27
00207 *                                                                 DTSCS27
00208 *                                                                 DTSCS27
00209 *      MOD                                                        DTSCS27
00210 *                                                                 DTSCS27
00211 *        CALL DTSCU372 (WITH L372-UPDATE) TO UPDATE THE BATCH     DTSCS27
00212 *        HEADER RECORD.                                           DTSCS27
00213 *                                                                 DTSCS27
00214 *                                                                 DTSCS27
00215 *      DEL                                                        DTSCS27
00216 *                                                                 DTSCS27
00217 *        CALL DTSCU372 (WITH L372-UPDATE) TO UPDATE THE BATCH     DTSCS27
00218 *        HEADER RECORD.                                           DTSCS27
00219 *                                                                 DTSCS27
00220 *                                                                 DTSCS27
00221 *    RECORDS READ:                                                DTSCS27
00222 *                                                                 DTSCS27
00223 *      MASTER:                                                    DTSCS27
00224 *                                                                 DTSCS27
00225 *        MPRF                                                     DTSCS27
00226 *        MSOL                                                     DTSCS27
00227 *        MRTE                                                     DTSCS27
00228 *        MQTR                                                     DTSCS27
00229 *                                                                 DTSCS27
00230 *                                                                 DTSCS27
00231 *      ALTERNATE INDEX:                                           DTSCS27
00232 *                                                                 DTSCS27
00233 *        NONE.                                                    DTSCS27
00234 *                                                                 DTSCS27
00235 *                                                                 DTSCS27
00236 *      REFERENCE:                                                 DTSCS27
00237 *                                                                 DTSCS27
00238 *        NONE.                                                    DTSCS27
00239 *                                                                 DTSCS27
00240 *                                                                 DTSCS27
00241 *      ACCOUNTING TRANSACTION COLLECTION:                         DTSCS27
00242 *                                                                 DTSCS27
00243 *        AATX                                                     DTSCS27
00244 *                                                                 DTSCS27
00245 *                                                                 DTSCS27
00246 *    RECORDS UPDATED:                                             DTSCS27
00247 *                                                                 DTSCS27
00248 *      MASTER:                                                    DTSCS27
00249 *                                                                 DTSCS27
00250 *        NONE.                                                    DTSCS27
00251 *                                                                 DTSCS27
00252 *                                                                 DTSCS27
00253 *      REFERENCE:                                                 DTSCS27
00254 *                                                                 DTSCS27
00255 *        NONE.                                                    DTSCS27
00256 *                                                                 DTSCS27
00257 *                                                                 DTSCS27
00258 *      ACCOUNTING TRANSACTION COLLECTION:                         DTSCS27
00259 *                                                                 DTSCS27
00260 *        ARPA (WRITE, REWRITE)                                    DTSCS27
00261 *                                                                 DTSCS27
00262 *                                                                 DTSCS27
00263 *    ON-LINE ACTIVITY FILE RECORDS WRITTEN:                       DTSCS27
00264 *                                                                 DTSCS27
00265 *      NONE.                                                      DTSCS27
00266 *                                                                 DTSCS27
00267 *                                                                 DTSCS27
00268 *    TEMPORARY STORAGE USAGE:                                     DTSCS27
00269 *                                                                 DTSCS27
00270 *      NONE.                                                      DTSCS27
00271 *                                                                 DTSCS27
00272 *                                                                 DTSCS27
00273 *    MODULES LINKED TO:                                           DTSCS27
00274 *                                                                 DTSCS27
00275 *      DTSCU001  DATE EDIT/CONVERSION.                            DTSCS27
00276 *      DTSCU004  QUARTER EDIT/CONVERSION.                         DTSCS27
00277 *      DTSCU006  RATING YEAR/RATING EXPERIENCE PERIOD START/END.  DTSCS27
00278 *      DTSCU011  MONEY AMOUNT FROM SCREEN FORMAT/EDIT.            DTSCS27
00279 *      DTSCU013  COUNT (INTEGER) FROM SCREEN FORMAT/EDIT.         DTSCS27
00280 *      DTSCU015  DATE FROM SCREEN FORMAT/EDIT.                    DTSCS27
00281 *      DTSCU016  QUARTER/YEAR FROM SCREEN FORMAT/EDIT.            DTSCS27
00282 *      DTSCU018  EMP NO FROM SCREEN FORMAT/EDIT.                  DTSCS27
00283 *      DTSCU019  DOCUMENT NO FROM SCREEN FORMAT/EDIT.             DTSCS27
00284 *      DTSCU026  OPERATOR ID CONVERSION.                          DTSCS27
00285 *      DTSCU032  ACCOUNTING CODES EDIT/DESCRIPTION.               DTSCS27
00286 *      DTSCU082  OPERATOR ID EDIT/LOOK UP.                        DTSCS27
00287 *      DTSCU371  ACCOUNTING TRANSACTION FILE TRANSACTION RECORD   DTSCS27
00288 *                DELETION.                                        DTSCS27
00289 *      DTSCU372  ACCOUNTING TRANSACTION FILE BATCH HEADER         DTSCS27
00290 *                RECORD INQUIRY/UPDATE.                           DTSCS27
00291 *      DTSCU373  ACCOUNTING TRANSACTION FILE BATCH HEADER RECORD  DTSCS27
00292 *                ESTABLISH.                                       DTSCS27
00293 *      DTSCU810  MASTER FILE INPUT/OUTPUT.                        DTSCS27
00294 *      DTSCU823  ACCOUNTING TRANSACTION FILE INPUT/OUTPUT.        DTSCS27
00295 *                                                                 DTSCS27
00296 *                                                                 DTSCS27
00297 *    VERMONT REFERENCE:                                           DTSCS27
00298 *                                                                 DTSCS27
00299 *      TXC130C.                                                   DTSCS27
00300 *                                                                 DTSCS27
00301 *****                                                             DTSCS27
00302                                                                   DTSCS27
00303  ENVIRONMENT DIVISION.                                            DTSCS27
00304                                                                   DTSCS27
00305  DATA DIVISION.                                                   DTSCS27
00306                                                                   DTSCS27
00307  WORKING-STORAGE SECTION.                                         DTSCS27
003075 77  PAN-VALET PICTURE X(24) VALUE '052DTSCS27   07/16/14'.       DTSCS27
00308  77  PAN-VALET PICTURE X(24) VALUE '004DTSCS27   07/11/14'.       DTSCS27
00309  77  PAN-VALET PICTURE X(24) VALUE '050DTSCS27   05/23/13'.       DTSCS27
00310  77  PAN-VALET PICTURE X(24) VALUE '003DTSCS27   05/23/13'.       DTSCS27
00311  77  PAN-VALET PICTURE X(24) VALUE '048DTSCS27   05/20/13'.       DTSCS27
00312  77  PAN-VALET PICTURE X(24) VALUE '002DTSCS27   05/10/13'.       DTSCS27
00313  77  PAN-VALET PICTURE X(24) VALUE '046DTSCS27   02/27/12'.       DTSCS27
00314                                                                   DTSCS27
00315  01  WRK-AREA.                                                    DTSCS27
00316      05  WRK-ABEND-CD                PIC  X(04)  VALUE 'S27 '.    DTSCS27
00317                                                                   DTSCS27
00318      05  WRK-SCR-ID.                                              DTSCS27
00319          10  WRK-SCR-ID-N            PIC  9(02)  VALUE 27.        DTSCS27
00320                                                                   DTSCS27
00321      05  WRK-F03-SCR-ID              PIC  X(02)  VALUE '20'.      DTSCS27
00322                                                                   DTSCS27
00323      05  WRK-PROG-NAME               PIC  X(08)                   DTSCS27
00324                                        VALUE 'DTSCS27 '.          DTSCS27
00325                                                                   DTSCS27
00326      05  SCR-ACCESS-IND              PIC X(01).                   DTSCS27
00327          88  SCR-ACCESS-INQ                  VALUE '1'.           DTSCS27
00328          88  SCR-ACCESS-UPDATE               VALUE '2' '3'.       DTSCS27
00329          88  SCR-ACCESS-SUPERVISOR           VALUE '3'.           DTSCS27
00330                                                                   DTSCS27
00331      05  CURSOR-SET-IND              PIC X(01).                   DTSCS27
00332          88  CURSOR-SET-YES                  VALUE 'Y'.           DTSCS27
00333          88  CURSOR-SET-NO                   VALUE 'N'.           DTSCS27
00334          88  CURSOR-SET-GOTO                 VALUE 'G'.           DTSCS27
00335                                                                   DTSCS27
00336      05  REQ-IND                     PIC X(01).                   DTSCS27
00337          88  REQ-CURSOR-TO-GOTO              VALUE 'G'.           DTSCS27
00338          88  REQ-ERROR                       VALUE 'O'.           DTSCS27
00339          88  REQ-JUMP                        VALUE 'J'.           DTSCS27
00340          88  REQ-UPDATE                      VALUE 'U'.           DTSCS27
00341          88  REQ-INQUIRE                     VALUE 'I'.           DTSCS27
00342          88  REQ-CLEAR                       VALUE 'C'.           DTSCS27
00343          88  REQ-EDIT                        VALUE 'E'.           DTSCS27
00344                                                                   DTSCS27
00345      05  RESP-IND                    PIC X(01).                   DTSCS27
00346          88  RESP-SEND-MSGONLY               VALUE 'O'.           DTSCS27
00347          88  RESP-SEND-MAP                   VALUE 'M'.           DTSCS27
00348          88  RESP-JUMP                       VALUE 'J'.           DTSCS27
00349          88  RESP-CURSOR-TO-GOTO             VALUE 'G'.           DTSCS27
00350                                                                   DTSCS27
00351      05  WRK-MSG-AREA.                                            DTSCS27
00352          10  WRK-MSG-NUMBER          PIC  X(04).                  DTSCS27
00353          10  WRK-MSG-TEXT            PIC  X(60).                  DTSCS27
00354                                                                   DTSCS27
00355                                                                   DTSCS27
00356      05  WRK-SCR-HOLD-AREA.                                       DTSCS27
00357          10  WRK-SCR-HOLD-PROG-NAME      PIC  X(08).              DTSCS27
00358          10  WRK-SCR-HOLD-AATX-REC       PIC  X(128).             DTSCS27
00359          10  WRK-SCR-HOLD-FULL-EDITS-IND PIC  X(01).              DTSCS27
00360          10  WRK-SCR-HOLD-LAST-ITEM      PIC S9(04)  COMP.        DTSCS27
00361          10  WRK-SCR-HOLD-CURR-ITEM      PIC S9(04)  COMP.        DTSCS27
00362          10  WRK-SCR-HOLD-TOT-WORKERS    PIC S9(07)  COMP-3.      DTSCS27
00363          10  WRK-SCR-HOLD-DUMMY-SSN      PIC S9(09)  COMP-3.      DTSCS27
00364          10  WRK-SCR-HOLD-MODE-EDIT-IND  PIC  X(01).              DTSCS27
00365              88  WRK-SCR-HOLD-MODE-EDIT-YES-88 VALUE 'Y'.         DTSCS27
00366              88  WRK-SCR-HOLD-MODE-EDIT-NO-88  VALUE 'N'.         DTSCS27
00367          10  WRK-SCR-HOLD-DIS-EDIT1-IND  PIC  X(01).              DTSCS27
00368              88  WRK-SCR-HOLD-DIS-EDIT1-YES-88 VALUE 'Y'.         DTSCS27
00369              88  WRK-SCR-HOLD-DIS-EDIT1-NO-88  VALUE 'N'.         DTSCS27
00370          10  WRK-SCR-HOLD-DIS-EDIT2-IND  PIC  X(01).              DTSCS27
00371              88  WRK-SCR-HOLD-DIS-EDIT2-YES-88 VALUE 'Y'.         DTSCS27
00372              88  WRK-SCR-HOLD-DIS-EDIT2-NO-88  VALUE 'N'.         DTSCS27
00373          10  WRK-SCR-HOLD-DIS-EDIT3-IND  PIC  X(01).              DTSCS27
00374              88  WRK-SCR-HOLD-DIS-EDIT3-YES-88 VALUE 'Y'.         DTSCS27
00375              88  WRK-SCR-HOLD-DIS-EDIT3-NO-88  VALUE 'N'.         DTSCS27
00376          10  WRK-SCR-HOLD-DIS-EDIT4-IND  PIC  X(01).              DTSCS27
00377              88  WRK-SCR-HOLD-DIS-EDIT4-YES-88 VALUE 'Y'.         DTSCS27
00378              88  WRK-SCR-HOLD-DIS-EDIT4-NO-88  VALUE 'N'.         DTSCS27
00379          10  WRK-SCR-HOLD-DIS-EDIT5-IND  PIC  X(01).              DTSCS27
00380              88  WRK-SCR-HOLD-DIS-EDIT5-YES-88 VALUE 'Y'.         DTSCS27
00381              88  WRK-SCR-HOLD-DIS-EDIT5-NO-88  VALUE 'N'.         DTSCS27
00382          10  WRK-SCR-HOLD-DIS-EDIT6-IND  PIC  X(01).              DTSCS27
00383              88  WRK-SCR-HOLD-DIS-EDIT6-YES-88 VALUE 'Y'.         DTSCS27
00384              88  WRK-SCR-HOLD-DIS-EDIT6-NO-88  VALUE 'N'.         DTSCS27
00385                                                                   DTSCS27
00386      05  WRK-ITEM-FOUND-IND          PIC  X(01).                  DTSCS27
00387          88  WRK-ITEM-FOUND-YES-88          VALUE 'Y'.            DTSCS27
00388          88  WRK-ITEM-FOUND-NO-88           VALUE 'N'.            DTSCS27
00389                                                                   DTSCS27
00390      05  WRK-CHK-DUP-SSN-AREA.                                    DTSCS27
00391          10  DUP-SUB                 PIC S9(04) COMP.             DTSCS27
00392          10  DUP-SUB1                PIC S9(04) COMP.             DTSCS27
00393          10  DUP-LAST                PIC S9(04) COMP VALUE +0.    DTSCS27
00394          10  DUP-MAX                 PIC S9(04) COMP VALUE +250.  DTSCS27
00395          10  WRK-DUP-CNT             PIC S9(04) COMP.             DTSCS27
00396          10  WRK-DUP-SSN             PIC S9(09) COMP-3.           DTSCS27
00397          10  WRK-CHK-DUP-TABLE OCCURS 250 TIMES.                  DTSCS27
00398              15  WRK-CHK-SSN         PIC S9(09) COMP-3.           DTSCS27
00399                                                                   DTSCS27
00400      05  WRK-EMP-NO                  PIC  9(07) COMP-3.           DTSCS27
00401                                                                   DTSCS27
00402      05  WRK-BATCH-NO                PIC  9(05) COMP-3.           DTSCS27
00403                                                                   DTSCS27
00404      05  WRK-ITEM-NO                 PIC  9(03) COMP-3.           DTSCS27
00405                                                                   DTSCS27
00406      05  WRK-SEQ-NO                  PIC  9(07) COMP-3.           DTSCS27
00407                                                                   DTSCS27
00408      05  SUB                         PIC S9(04) COMP.             DTSCS27
00409      05  SUB1                        PIC S9(04) COMP.             DTSCS27
00410      05  SUB2                        PIC S9(04) COMP.             DTSCS27
00411                                                                   DTSCS27
00412      05  WRK-ATB-AN                  PIC  X(01).                  DTSCS27
00413                                                                   DTSCS27
00414      05  WRK-ATB-NUM                 PIC  X(01).                  DTSCS27
00415                                                                   DTSCS27
00416      05  WRK-DISPLAY                 PIC 9(11).                   DTSCS27
00417                                                                   DTSCS27
00418      05  FILLER REDEFINES WRK-DISPLAY.                            DTSCS27
00419          10  FILLER                  PIC X(05).                   DTSCS27
00420          10  WRK-DISPLAY-YR          PIC X(02).                   DTSCS27
00421          10  WRK-DISPLAY-MO          PIC X(02).                   DTSCS27
00422          10  WRK-DISPLAY-DA          PIC X(02).                   DTSCS27
00423                                                                   DTSCS27
00424      05  FILLER REDEFINES WRK-DISPLAY.                            DTSCS27
00425          10  FILLER                  PIC X(08).                   DTSCS27
00426          10  WRK-DISPLAY-YRQ-YR      PIC X(02).                   DTSCS27
00427          10  WRK-DISPLAY-YRQ-Q       PIC X(01).                   DTSCS27
00428                                                                   DTSCS27
00429      05  FILLER REDEFINES WRK-DISPLAY.                            DTSCS27
00430          10  FILLER                  PIC X(05).                   DTSCS27
00431          10  WRK-EMP-NO-1            PIC X(03).                   DTSCS27
00432          10  WRK-EMP-NO-2            PIC X(03).                   DTSCS27
00433                                                                   DTSCS27
00434      05  WRK-SSN-AREA                PIC 9(09).                   DTSCS27
00435      05  FILLER REDEFINES WRK-SSN-AREA.                           DTSCS27
00436          10  WRK-SSN1                PIC 9(03).                   DTSCS27
00437          10  WRK-SSN2                PIC 9(02).                   DTSCS27
00438          10  WRK-SSN3                PIC 9(04).                   DTSCS27
00439                                                                   DTSCS27
00440      05  HOLD-KEY-AREA               PIC  X(05).                  DTSCS27
00441                                                                   DTSCS27
00442      05  PAGE-TYPE-IND               PIC  X(01).                  DTSCS27
00443          88  PAGE-FIRST-88                  VALUE 'F'.            DTSCS27
00444          88  PAGE-LAST-88                   VALUE 'L'.            DTSCS27
00445                                                                   DTSCS27
00446      05  WRK-SSN-ENTERED-IND         PIC  X(01) VALUE 'Y'.        DTSCS27
00447          88  WRK-SSN-ENTERED-YES-88         VALUE 'Y'.            DTSCS27
00448          88  WRK-SSN-ENTERED-NO-88          VALUE 'N'.            DTSCS27
00449                                                                   DTSCS27
00450      05  WRK-ALL-QTRS-FOUND-IND      PIC  X(01).                  DTSCS27
00451          88  WRK-ALL-QTRS-FOUND-YES-88      VALUE 'Y'.            DTSCS27
00452          88  WRK-ALL-QTRS-FOUND-NO-88       VALUE 'N'.            DTSCS27
00453                                                                   DTSCS27
00454      05  WRK-WAGE-FIRST-TIME-IND     PIC  X(01).                  DTSCS27
00455          88  WRK-WAGE-FIRST-TIME-YES-88     VALUE 'Y'.            DTSCS27
00456          88  WRK-WAGE-FIRST-TIME-NO-88      VALUE 'N'.            DTSCS27
00457      05  WRK-CURR-SSN                PIC S9(09)         COMP-3.   DTSCS27
00458                                                                   DTSCS27
00459      05  WRK-RATE-FOUND-IND          PIC  X(01).                  DTSCS27
00460          88  WRK-RATE-FOUND-YES-88          VALUE 'Y'.            DTSCS27
00461          88  WRK-RATE-FOUND-NO-88           VALUE 'N'.            DTSCS27
00462                                                                   DTSCS27
00463                                                                   DTSCS27
00464      05  WRK-LIABLE-YRQ-AREA.                                     DTSCS27
00465          10  WRK-QTR1-LIABLE-IND     PIC  X(01).                  DTSCS27
00466              88  WRK-QTR1-LIABLE-YES-88     VALUE 'Y'.            DTSCS27
00467              88  WRK-QTR1-LIABLE-NO-88      VALUE 'N'.            DTSCS27
00468          10  WRK-QTR2-LIABLE-IND     PIC  X(01).                  DTSCS27
00469              88  WRK-QTR2-LIABLE-YES-88     VALUE 'Y'.            DTSCS27
00470              88  WRK-QTR2-LIABLE-NO-88      VALUE 'N'.            DTSCS27
00471          10  WRK-QTR3-LIABLE-IND     PIC  X(01).                  DTSCS27
00472              88  WRK-QTR3-LIABLE-YES-88     VALUE 'Y'.            DTSCS27
00473              88  WRK-QTR3-LIABLE-NO-88      VALUE 'N'.            DTSCS27
00474          10  WRK-QTR4-LIABLE-IND     PIC  X(01).                  DTSCS27
00475              88  WRK-QTR4-LIABLE-YES-88     VALUE 'Y'.            DTSCS27
00476              88  WRK-QTR4-LIABLE-NO-88      VALUE 'N'.            DTSCS27
00477                                                                   DTSCS27
00478      05  WRK-FIRST-ANN-RPT-YR        PIC S9(05)         COMP-3    DTSCS27
00479                                             VALUE +2002.          DTSCS27
00480                                                                   DTSCS27
00481      05  WRK-END-YRQ                 PIC S9(05)         COMP-3.   DTSCS27
00482                                                                   DTSCS27
00483                                                                   DTSCS27
00484      05  WRK-YRQ1                    PIC S9(05)         COMP-3.   DTSCS27
00485      05  WRK-YRQ2                    PIC S9(05)         COMP-3.   DTSCS27
00486      05  WRK-YRQ3                    PIC S9(05)         COMP-3.   DTSCS27
00487      05  WRK-YRQ4                    PIC S9(05)         COMP-3.   DTSCS27
00488                                                                   DTSCS27
00489                                                                   DTSCS27
00490      05  WRK-CALC-TAX-WAGE           PIC S9(11)V9(02)   COMP-3.   DTSCS27
00491                                                                   DTSCS27
00492      05  WRK-TOT-WAGE                PIC S9(11)V9(02) COMP-3.     DTSCS27
00493                                                                   DTSCS27
00494      05  WRK-EXCESS-WAGE             PIC S9(11)V9(02) COMP-3.     DTSCS27
00495                                                                   DTSCS27
00496      05  COMPUTED-TOT-WAGE           PIC S9(11)V9(02)   COMP-3.   DTSCS27
00497                                                                   DTSCS27
00498      05  COMPUTED-EXCESS-WAGE        PIC S9(11)V9(02)   COMP-3.   DTSCS27
00499                                                                   DTSCS27
00500      05  COMPUTED-TAX-WAGE-1         PIC S9(11)V9(02)   COMP-3.   DTSCS27
00501                                                                   DTSCS27
00502      05  COMPUTED-TAX-WAGE-2         PIC S9(11)V9(02)   COMP-3.   DTSCS27
00503                                                                   DTSCS27
00504      05  WRK-MAX-WORKERS             PIC S9(07)  COMP-3           DTSCS27
00505                                             VALUE +0.             DTSCS27
00506                                                                   DTSCS27
00507      05  WRK-MAX-WAGE-ITEMS          PIC S9(04)         COMP      DTSCS27
00508                                             VALUE +10.            DTSCS27
00509                                                                   DTSCS27
00510      05  WRK-AATH-ACTION             PIC  X(01).                  DTSCS27
00511          88  WRK-AATH-ACTION-ADD-88    VALUE 'A'.                 DTSCS27
00512          88  WRK-AATH-ACTION-UPD-88    VALUE 'U'.                 DTSCS27
00513          88  WRK-AATH-ACTION-DEL-88    VALUE 'D'.                 DTSCS27
00514                                                                   DTSCS27
00515      05  TS-CONTROL-AREA.                                         DTSCS27
00516          10  ITEM-LENGTH             PIC S9(04)  COMP             DTSCS27
00517                                          VALUE +1007.             DTSCS27
00518          10  ITEM-MAX                PIC S9(05)  COMP             DTSCS27
00519                                          VALUE +32760.            DTSCS27
00520          10  ITEM-SUB                PIC S9(04)  COMP.            DTSCS27
00521          10  SSN-SUB                 PIC S9(04)  COMP.            DTSCS27
00522          10  WRK-TS-FOUND-IND        PIC  X(01).                  DTSCS27
00523              88  WRK-TS-FOUND-YES-88        VALUE 'Y'.            DTSCS27
00524              88  WRK-TS-FOUND-NO-88         VALUE 'N'.            DTSCS27
00525                                                                   DTSCS27
00526  01  TS-AREA.                                                     DTSCS27
00527  ++INCLUDE DTSIL427                                               DTSCS27
00528                                                                   DTSCS27
00529  01  WRK-EDITED-ELEMENTS.                                         DTSCS27
00530      05  WRK-YRQ                     PIC S9(05)       COMP-3.     DTSCS27
00531                                                                   DTSCS27
00532      05  WRK-TAX-WAGE                PIC S9(11)V9(02) COMP-3.     DTSCS27
00533      05  WRK-TAX-WAGE-IND            PIC  X(01).                  DTSCS27
00534          88  WRK-TAX-WAGE-OK-88        VALUE '0'.                 DTSCS27
00535          88  WRK-TAX-WAGE-INVALID-88   VALUE '1'.                 DTSCS27
00536          88  WRK-TAX-WAGE-NO-ENTRY-88  VALUE '2'.                 DTSCS27
00537                                                                   DTSCS27
00538      05  WRK-REMIT-AMT               PIC S9(09)V9(02) COMP-3.     DTSCS27
00539      05  WRK-REMIT-AMT-IND           PIC  X(01).                  DTSCS27
00540          88  WRK-REMIT-AMT-OK-88       VALUE '0'.                 DTSCS27
00541          88  WRK-REMIT-AMT-INVALID-88  VALUE '1'.                 DTSCS27
00542          88  WRK-REMIT-AMT-NO-ENTRY-88 VALUE '2'.                 DTSCS27
00543                                                                   DTSCS27
00544      05  WRK-TOT-WORKERS             PIC S9(07)       COMP-3.     DTSCS27
00545                                                                   DTSCS27
00546      05  WRK-JAN-EMPL-CNT            PIC S9(07)       COMP-3.     DTSCS27
00547          88   WRK-JAN-NO-ENTRY-88       VALUE +9999999.           DTSCS27
00548                                                                   DTSCS27
00549      05  WRK-FEB-EMPL-CNT            PIC S9(07)       COMP-3.     DTSCS27
00550          88   WRK-FEB-NO-ENTRY-88       VALUE +9999999.           DTSCS27
00551                                                                   DTSCS27
00552      05  WRK-MAR-EMPL-CNT            PIC S9(07)       COMP-3.     DTSCS27
00553          88   WRK-MAR-NO-ENTRY-88       VALUE +9999999.           DTSCS27
00554                                                                   DTSCS27
00555      05  WRK-APR-EMPL-CNT            PIC S9(07)       COMP-3.     DTSCS27
00556          88   WRK-APR-NO-ENTRY-88       VALUE +9999999.           DTSCS27
00557                                                                   DTSCS27
00558      05  WRK-MAY-EMPL-CNT            PIC S9(07)       COMP-3.     DTSCS27
00559          88   WRK-MAY-NO-ENTRY-88       VALUE +9999999.           DTSCS27
00560                                                                   DTSCS27
00561      05  WRK-JUN-EMPL-CNT            PIC S9(07)       COMP-3.     DTSCS27
00562          88   WRK-JUN-NO-ENTRY-88       VALUE +9999999.           DTSCS27
00563                                                                   DTSCS27
00564      05  WRK-JUL-EMPL-CNT            PIC S9(07)       COMP-3.     DTSCS27
00565          88   WRK-JUL-NO-ENTRY-88       VALUE +9999999.           DTSCS27
00566                                                                   DTSCS27
00567      05  WRK-AUG-EMPL-CNT            PIC S9(07)       COMP-3.     DTSCS27
00568          88   WRK-AUG-NO-ENTRY-88       VALUE +9999999.           DTSCS27
00569                                                                   DTSCS27
00570      05  WRK-SEP-EMPL-CNT            PIC S9(07)       COMP-3.     DTSCS27
00571          88   WRK-SEP-NO-ENTRY-88       VALUE +9999999.           DTSCS27
00572                                                                   DTSCS27
00573      05  WRK-OCT-EMPL-CNT            PIC S9(07)       COMP-3.     DTSCS27
00574          88   WRK-OCT-NO-ENTRY-88       VALUE +9999999.           DTSCS27
00575                                                                   DTSCS27
00576      05  WRK-NOV-EMPL-CNT            PIC S9(07)       COMP-3.     DTSCS27
00577          88   WRK-NOV-NO-ENTRY-88       VALUE +9999999.           DTSCS27
00578                                                                   DTSCS27
00579      05  WRK-DEC-EMPL-CNT            PIC S9(07)       COMP-3.     DTSCS27
00580          88   WRK-DEC-NO-ENTRY-88       VALUE +9999999.           DTSCS27
00581                                                                   DTSCS27
00582      05  WRK-EMPL-CNT-ERROR-IND      PIC  X(01).                  DTSCS27
00583          88   WRK-EMPL-CNT-ERROR-YES    VALUE 'Y'.                DTSCS27
00584          88   WRK-EMPL-CNT-ERROR-NO     VALUE 'N'.                DTSCS27
00585                                                                   DTSCS27
00586      05  WRK-RECEIVED-DATE           PIC S9(09)       COMP-3.     DTSCS27
00587                                                                   DTSCS27
00588      05  WRK-MPRF-EXISTS-IND         PIC  X(01).                  DTSCS27
00589          88  WRK-MPRF-EXISTS-NO-88           VALUE 'N'.           DTSCS27
00590          88  WRK-MPRF-EXISTS-YES-88          VALUE 'Y'.           DTSCS27
00591                                                                   DTSCS27
00592      05  WRK-PASSED-FULL-EDITS-IND   PIC  X(01).                  DTSCS27
00593          88  WRK-PASSED-FULL-EDITS-NO-88     VALUE 'N'.           DTSCS27
00594          88  WRK-PASSED-FULL-EDITS-YES-88    VALUE 'Y'.           DTSCS27
00595                                                                   DTSCS27
00596      05  WRK-BLANK-LINE-IND          PIC  X(01).                  DTSCS27
00597          88  WRK-BLANK-LINE-YES-88           VALUE '0'.           DTSCS27
00598          88  WRK-BLANK-LINE-NO-88            VALUE '1'.           DTSCS27
00599      EJECT                                                        DTSCS27
00600  01  WRK-EDITED-WAGE-AREA.                                        DTSCS27
00601      05  WRK-PRE-EDIT-WAGE-CNT       PIC S9(04)  COMP.            DTSCS27
00602      05  WRK-POST-EDIT-WAGE-CNT      PIC S9(04)  COMP.            DTSCS27
00603                                                                   DTSCS27
00604  01  WRK-CURR-MQTR-AREA.                                          DTSCS27
00605      05  WRK-MQTR-TOT-WAGES            PIC S9(11)V9(02) COMP-3.   DTSCS27
00606      05  WRK-MQTR-TAX-WAGES            PIC S9(11)V9(02) COMP-3.   DTSCS27
00607      05  WRK-MQTR-EXCESS-WAGES         PIC S9(11)V9(02) COMP-3.   DTSCS27
00608      05  WRK-MQTR-CURR-RPT-TYPE        PIC  X(01).                DTSCS27
00609          88  WRK-MQTR-EXISTS-NO-88      VALUE SPACE.              DTSCS27
00610          88  WRK-MQTR-CURR-RCVD-88      VALUE 'O' 'M' 'A'         DTSCS27
00611                                               'C' 'F' 'H'.        DTSCS27
00612          88  WRK-MQTR-CURR-ESTIM-88     VALUE 'E'.                DTSCS27
00613      05  WRK-MQTR-ANNUAL-IND           PIC  X(01).                DTSCS27
00614          88  WRK-MQTR-ANNUAL-YES-88     VALUE 'Y'.                DTSCS27
00615                                                                   DTSCS27
00616                                                                   DTSCS27
00617  01  MSG-LITERALS.                                                DTSCS27
00618      05  MSG-E271-AREA.                                           DTSCS27
00619          10  FILLER                  PIC  X(04)  VALUE 'E271'.    DTSCS27
00620          10  FILLER                  PIC  X(60) VALUE             DTSCS27
00621        'REPORT TYPE NOT CONSISTENT WITH CURRENT REPORT'.          DTSCS27
00622                                                                   DTSCS27
00623      05  MSG-E272-AREA.                                           DTSCS27
00624          10  FILLER                  PIC  X(04)  VALUE 'E272'.    DTSCS27
00625          10  FILLER                  PIC  X(60) VALUE             DTSCS27
00626        'NOT VALID FOR NEVER SUBJECT EMPLOYER'.                    DTSCS27
00627                                                                   DTSCS27
00628      05  MSG-E273-AREA.                                           DTSCS27
00629          10  FILLER                  PIC  X(04)  VALUE 'E273'.    DTSCS27
00630          10  FILLER                  PIC  X(30)                   DTSCS27
00631                VALUE 'ENTRY DATE PRIOR TO JAN 1ST OF'.            DTSCS27
00632          10  FILLER                  PIC  X(30)                   DTSCS27
00633                VALUE ' NEW YEAR.  DISREGARD?        '.            DTSCS27
00634                                                                   DTSCS27
00635      05  MSG-E274-AREA.                                           DTSCS27
00636          10  FILLER                  PIC  X(04)  VALUE 'E274'.    DTSCS27
00637          10  FILLER                  PIC  X(60) VALUE             DTSCS27
00638        'LIABILITY NOT ESTABLISHED FOR YEAR SPECIFIED   '.         DTSCS27
00639                                                                   DTSCS27
00640      05  MSG-E275-AREA.                                           DTSCS27
00641          10  FILLER                  PIC  X(04)  VALUE 'E275'.    DTSCS27
00642          10  FILLER                  PIC  X(60) VALUE             DTSCS27
00643        'QUARTER ENTERED IS LESS THAN ARCHIVED QTR  DISREGARD?'.   DTSCS27
00644                                                                   DTSCS27
00645      05  MSG-E276-AREA.                                           DTSCS27
00646          10  FILLER                  PIC  X(04)  VALUE 'E276'.    DTSCS27
00647          10  FILLER                  PIC  X(60) VALUE             DTSCS27
00648        'CHECK EMPLOYEES  IF FAILED TO REPORT, THEN VERIFY'.       DTSCS27
00649                                                                   DTSCS27
00650      05  MSG-E277-AREA.                                           DTSCS27
00651          10  FILLER                  PIC  X(04)  VALUE 'E277'.    DTSCS27
00652          10  FILLER                  PIC  X(60) VALUE             DTSCS27
00653        'NO ANNUAL REPORTS PRIOR TO 2002 ALLOWED               '.  DTSCS27
00654                                                                   DTSCS27
00655      05  MSG-E278-AREA.                                           DTSCS27
00656          10  FILLER                  PIC  X(04)  VALUE 'E278'.    DTSCS27
00657          10  FILLER                  PIC  X(60) VALUE             DTSCS27
00658        'WITHDRAWAL  REMIT AMOUNT MUST EQUAL ZERO'.                DTSCS27
00659                                                                   DTSCS27
00660      05  MSG-E279-AREA.                                           DTSCS27
00661          10  FILLER                  PIC  X(04)  VALUE 'E279'.    DTSCS27
00662          10  FILLER                  PIC  X(60) VALUE             DTSCS27
00663      'TAX WAGES ENTERED LESS THAN COMPUTED AMOUNT'.               DTSCS27
00664                                                                   DTSCS27
00665      05  MSG-E27A-AREA.                                           DTSCS27
00666          10  FILLER                  PIC  X(04)  VALUE 'E27A'.    DTSCS27
00667          10  FILLER                  PIC  X(60) VALUE             DTSCS27
00668        'RPT TYPE IS WD  ENTERED WAGES + CURRENT WAGES MUST = 0'.  DTSCS27
00669                                                                   DTSCS27
00670      05  MSG-E27B-AREA.                                           DTSCS27
00671          10  FILLER                  PIC  X(04)  VALUE 'E27B'.    DTSCS27
00672          10  FILLER                  PIC  X(60) VALUE             DTSCS27
00673        'ORIGINAL REPORT FOR EMP NO AND YRQ PREVIOUSLY ENTERED'.   DTSCS27
00674                                                                   DTSCS27
00675      05  MSG-E27C-AREA.                                           DTSCS27
00676          10  FILLER                  PIC  X(04)  VALUE 'E27C'.    DTSCS27
00677          10  FILLER                  PIC  X(60) VALUE             DTSCS27
00678        'TRANSACTION PROCESSED - MODIFY OR DELETE NOT ALLOWED'.    DTSCS27
00679                                                                   DTSCS27
00680      05  MSG-P27D-AREA.                                           DTSCS27
00681          10  FILLER                  PIC  X(04)  VALUE 'P27D'.    DTSCS27
00682          10  FILLER                  PIC  X(60) VALUE             DTSCS27
00683        'TRANSACTION PROCESSED - MODIFY OR DELETE NOT ALLOWED'.    DTSCS27
00684                                                                   DTSCS27
00685      05  MSG-P27E-AREA.                                           DTSCS27
00686          10  FILLER                  PIC  X(04)  VALUE 'P27E'.    DTSCS27
00687          10  FILLER                  PIC  X(60) VALUE             DTSCS27
00688        'NO ERROR-TO CLEAR FOR ACCOUNTING UPDATE, PRESS F10;ENTER'.DTSCS27
00689                                                                   DTSCS27
00690      05  MSG-E27F-AREA.                                           DTSCS27
00691          10  FILLER                  PIC  X(04)  VALUE 'E27F'.    DTSCS27
00692          10  FILLER                  PIC  X(60) VALUE             DTSCS27
00693        'NOT A HOUSEHOLD EMPLOYER - ANNUAL REPORT NOT ALLOWED    '.DTSCS27
00694                                                                   DTSCS27
00695      05  MSG-E27G-AREA.                                           DTSCS27
00696          10  FILLER                  PIC  X(04)  VALUE 'E27G'.    DTSCS27
00697          10  FILLER                  PIC  X(60) VALUE             DTSCS27
00698        'ANNUAL REPORT MAY ONLY BE ADDED TO AN ANNUAL BATCH      '.DTSCS27
00699                                                                   DTSCS27
00700      05  MSG-E27H-AREA.                                           DTSCS27
00701          10  FILLER                  PIC  X(04)  VALUE 'E27H'.    DTSCS27
00702          10  FILLER                  PIC  X(60) VALUE             DTSCS27
00703        'YRQ IS FILED QUARTERLY: ANNUAL REPORT NOT ALLOWED       '.DTSCS27
00704                                                                   DTSCS27
00705      05  MSG-E27I-AREA.                                           DTSCS27
00706          10  FILLER                  PIC  X(04)  VALUE 'E27I'.    DTSCS27
00707          10  FILLER                  PIC  X(60) VALUE             DTSCS27
00708        'WAGES REPORTED FOR QTR WHEN EMPLOYER IS NOT LIABLE      '.DTSCS27
00709                                                                   DTSCS27
00710      05  MSG-E27J-AREA.                                           DTSCS27
00711          10  FILLER                  PIC  X(04)  VALUE 'E27J'.    DTSCS27
00712          10  FILLER                  PIC  X(60) VALUE             DTSCS27
00713        'QUARTERLY REPORT ALREADY ON FILE                        '.DTSCS27
00714                                                                   DTSCS27
00715      05  MSG-E27K-AREA.                                           DTSCS27
00716          10  FILLER                  PIC  X(04)  VALUE 'E27K'.    DTSCS27
00717          10  FILLER                  PIC  X(60) VALUE             DTSCS27
00718        'CHANGE RESULTS IN NEGATIVE WAGE AMOUNT                  '.DTSCS27
00719                                                                   DTSCS27
00720      05  MSG-E27L-AREA.                                           DTSCS27
00721          10  FILLER                  PIC  X(04)  VALUE 'E27L'.    DTSCS27
00722          10  FILLER                  PIC  X(60) VALUE             DTSCS27
00723        'TRANSACTION INCOMPLETE - USE F12 TO CANCEL              '.DTSCS27
00724                                                                   DTSCS27
00725      05  MSG-E27M-AREA.                                           DTSCS27
00726          10  FILLER                  PIC  X(04)  VALUE 'E27M'.    DTSCS27
00727          10  FILLER                  PIC  X(60) VALUE             DTSCS27
00728        'INVALID REPORT TYPE - NOTHING TO WITHDRAW               '.DTSCS27
00729                                                                   DTSCS27
00730      05  MSG-E27N-AREA.                                           DTSCS27
00731          10  FILLER                  PIC  X(04)  VALUE 'E27N'.    DTSCS27
00732          10  FILLER                  PIC  X(60) VALUE             DTSCS27
00733        'TAX WAGES ENTERED, BUT NO INDIVIDUAL WAGES              '.DTSCS27
00734                                                                   DTSCS27
00735      05  MSG-E27O-AREA.                                           DTSCS27
00736          10  FILLER                  PIC  X(04)  VALUE 'E27O'.    DTSCS27
00737          10  FILLER                  PIC  X(60) VALUE             DTSCS27
00738        'WORKERS ENTERED GREATER THAN MONTHLY WORKER COUNT       '.DTSCS27
00739                                                                   DTSCS27
00740      05  MSG-E27P-AREA.                                           DTSCS27
00741          10  FILLER                  PIC  X(04)  VALUE 'E27P'.    DTSCS27
00742          10  FILLER                  PIC  X(60) VALUE             DTSCS27
00743        'WAGES CHANGED BY MORE THAN 50% SINCE LAST YR. DISREGARD?'.DTSCS27
00744                                                                   DTSCS27
00745      05  MSG-E27R-AREA.                                           DTSCS27
00746          10  FILLER                  PIC  X(04)  VALUE 'E27R'.    DTSCS27
00747          10  FILLER                  PIC  X(60) VALUE             DTSCS27
00748        'TAX WAGES ENTERED EXCEED CALCULATED AMT'.                 DTSCS27
00749                                                                   DTSCS27
00750      05  MSG-E27S-AREA.                                           DTSCS27
00751          10  FILLER                  PIC  X(04)  VALUE 'E27S'.    DTSCS27
00752          10  FILLER                  PIC  X(60) VALUE             DTSCS27
00753        'TAX WAGES EXCEED TOTAL WAGES'.                            DTSCS27
00754      05  MSG-E27T-AREA.                                           DTSCS27
00755          10  FILLER                  PIC  X(04)  VALUE 'E27T'.    DTSCS27
00756          10  FILLER                  PIC  X(60) VALUE             DTSCS27
00757        'DUPLICATE SSN MAY NOT BE ENTERED.                       '.DTSCS27
00758                                                                   DTSCS27
00759      05  MSG-E27U-AREA.                                           DTSCS27
00760          10  FILLER                  PIC  X(04)  VALUE 'E27U'.    DTSCS27
00761          10  FILLER                  PIC  X(60) VALUE             DTSCS27
00762        'DELETION NOT ALLOWED                                    '.DTSCS27
00763                                                                   DTSCS27
00764      05  MSG-E27V-AREA.                                           DTSCS27
00765          10  FILLER                  PIC  X(04)  VALUE 'E27V'.    DTSCS27
00766          10  FILLER                  PIC  X(60) VALUE             DTSCS27
00767        'DELETION NOT ALLOWED FOR UNBALANCED BATCH               '.DTSCS27
00768                                                                   DTSCS27
00769      EJECT                                                        DTSCS27
00770  01  L001-COMM-AREA.                                              DTSCS27
00771  ++INCLUDE DTSIL001                                               DTSCS27
00772      EJECT                                                        DTSCS27
00773  01  L004-COMM-AREA.                                              DTSCS27
00774  ++INCLUDE DTSIL004                                               DTSCS27
00775      EJECT                                                        DTSCS27
00776  01  L006-COMM-AREA.                                              DTSCS27
00777  ++INCLUDE DTSIL006                                               DTSCS27
00778      EJECT                                                        DTSCS27
00779  01  L011-COMM-AREA.                                              DTSCS27
00780  ++INCLUDE DTSIL011                                               DTSCS27
00781      EJECT                                                        DTSCS27
00782  01  L013-COMM-AREA.                                              DTSCS27
00783  ++INCLUDE DTSIL013                                               DTSCS27
00784      EJECT                                                        DTSCS27
00785  01  L015-COMM-AREA.                                              DTSCS27
00786  ++INCLUDE DTSIL015                                               DTSCS27
00787      EJECT                                                        DTSCS27
00788  01  L016-COMM-AREA.                                              DTSCS27
00789  ++INCLUDE DTSIL016                                               DTSCS27
00790      EJECT                                                        DTSCS27
00791  01  L018-COMM-AREA.                                              DTSCS27
00792  ++INCLUDE DTSIL018                                               DTSCS27
00793      EJECT                                                        DTSCS27
00794  01  L019-COMM-AREA.                                              DTSCS27
00795  ++INCLUDE DTSIL019                                               DTSCS27
00796      EJECT                                                        DTSCS27
00797  01  L020-COMM-AREA.                                              DTSCS27
00798  ++INCLUDE DTSIL020                                               DTSCS27
00799      EJECT                                                        DTSCS27
00800  01  L032-COMM-AREA.                                              DTSCS27
00801  ++INCLUDE DTSIL032                                               DTSCS27
00802      EJECT                                                        DTSCS27
00803  01  L082-COMM-AREA.                                              DTSCS27
00804  ++INCLUDE DTSIL082                                               DTSCS27
00805      EJECT                                                        DTSCS27
00806  01  L371-COMM-AREA.                                              DTSCS27
00807  ++INCLUDE DTSIL371                                               DTSCS27
00808      EJECT                                                        DTSCS27
00809  01  L372-COMM-AREA.                                              DTSCS27
00810  ++INCLUDE DTSIL372                                               DTSCS27
00811      EJECT                                                        DTSCS27
00812  01  L381-COMM-AREA.                                              DTSCS27
00813  ++INCLUDE DTSIL381                                               DTSCS27
00814      EJECT                                                        DTSCS27
00815  01  L410-COMM-AREA.                                              DTSCS27
00816  ++INCLUDE DTSIL410                                               DTSCS27
00817      EJECT                                                        DTSCS27
00818  01  L422-COMM-AREA.                                              DTSCS27
00819  ++INCLUDE DTSIL422                                               DTSCS27
00820      EJECT                                                        DTSCS27
00821  01  L423-COMM-AREA.                                              DTSCS27
00822  ++INCLUDE DTSIL423                                               DTSCS27
00823      EJECT                                                        DTSCS27
00824  01  L805-COMM-AREA.                                              DTSCS27
00825  ++INCLUDE DTSIL805                                               DTSCS27
00826      EJECT                                                        DTSCS27
00827  01  L810-COMM-AREA.                                              DTSCS27
00828      05  L810-CONTROL-BLOCK.                                      DTSCS27
00829  ++INCLUDE DTSIL810                                               DTSCS27
00830      EJECT                                                        DTSCS27
00831      05  MSKL-REC.                                                DTSCS27
00832  ++INCLUDE DTSIMSKL                                               DTSCS27
00833      EJECT                                                        DTSCS27
00834  01  MPRF-REC.                                                    DTSCS27
00835  ++INCLUDE DTSIMPRF                                               DTSCS27
00836      EJECT                                                        DTSCS27
00837  01  MQTR-REC.                                                    DTSCS27
00838  ++INCLUDE DTSIMQTR                                               DTSCS27
00839      EJECT                                                        DTSCS27
00840  01  MSOL-REC.                                                    DTSCS27
00841  ++INCLUDE DTSIMSOL                                               DTSCS27
00842      EJECT                                                        DTSCS27
00843  01  L823-COMM-AREA.                                              DTSCS27
00844      05  L823-CONTROL-BLOCK.                                      DTSCS27
00845  ++INCLUDE DTSIL823                                               DTSCS27
00846      EJECT                                                        DTSCS27
00847      05  ASKL-REC.                                                DTSCS27
00848  ++INCLUDE DTSIASKL                                               DTSCS27
00849      EJECT                                                        DTSCS27
00850  01  AATX-REC.                                                    DTSCS27
00851  ++INCLUDE DTSIAATX                                               DTSCS27
00852      EJECT                                                        DTSCS27
00853  01  L825-COMM-AREA.                                              DTSCS27
00854      05  L825-CONTROL-BLOCK.                                      DTSCS27
00855  ++INCLUDE DTSIL825                                               DTSCS27
00856      SKIP3                                                        DTSCS27
00857      05  RSKL-REC.                                                DTSCS27
00858  ++INCLUDE DTSIRSK1                                               DTSCS27
00859                                                                   DTSCS27
00860  01  L826-COMM-AREA.                                              DTSCS27
00861      05  L826-CONTROL-BLOCK.                                      DTSCS27
00862  ++INCLUDE DTSIL826                                               DTSCS27
00863                                                                   DTSCS27
00864      05  AATH-REC.                                                DTSCS27
00865  ++INCLUDE DTSIAATH                                               DTSCS27
00866                                                                   DTSCS27
00867      EJECT                                                        DTSCS27
00868  01  L829-COMM-AREA.                                              DTSCS27
00869      05  L829-CONTROL-BLOCK.                                      DTSCS27
00870  ++INCLUDE DTSIL829                                               DTSCS27
00871      05  L829-REC                         PIC X(1007).            DTSCS27
00872      EJECT                                                        DTSCS27
00873  01  L880-COMM-AREA.                                              DTSCS27
00874      05  L880-CONTROL-BLOCK.                                      DTSCS27
00875  ++INCLUDE DTSIL880                                               DTSCS27
00876      EJECT                                                        DTSCS27
00877      05  WSKL-REC.                                                DTSCS27
00878  ++INCLUDE DTSIWSKL                                               DTSCS27
00879      EJECT                                                        DTSCS27
00880  01  W001-REC.                                                    DTSCS27
00881  ++INCLUDE DTSIW001                                               DTSCS27
00882      EJECT                                                        DTSCS27
00883  01  L851-COMM-AREA.                                              DTSCS27
00884  ++INCLUDE DTSIL851                                               DTSCS27
00885                                                                   DTSCS27
00886      05  MAP-AREA REDEFINES L851-MAP-AREA.                        DTSCS27
00887  ++INCLUDE DTSIS27                                                DTSCS27
00888      EJECT                                                        DTSCS27
00889                                                                   DTSCS27
00890  01  CATB-LITERALS.                                               DTSCS27
00891  ++INCLUDE DTSICATB                                               DTSCS27
00892                                                                   DTSCS27
00893                                                                   DTSCS27
00894                                                                   DTSCS27
00895  01  CFKD-LITERALS.                                               DTSCS27
00896  ++INCLUDE DTSICFKD                                               DTSCS27
00897                                                                   DTSCS27
00898                                                                   DTSCS27
00899                                                                   DTSCS27
00900  01  CECD-LITERALS.                                               DTSCS27
00901  ++INCLUDE DTSICECD                                               DTSCS27
00902                                                                   DTSCS27
00903                                                                   DTSCS27
00904                                                                   DTSCS27
00905  01  CPCD-LITERALS.                                               DTSCS27
00906  ++INCLUDE DTSICPCD                                               DTSCS27
00907      EJECT                                                        DTSCS27
00908                                                                   DTSCS27
00909  LINKAGE SECTION.                                                 DTSCS27
00910                                                                   DTSCS27
00911  01  DFHCOMMAREA.                                                 DTSCS27
00912  ++INCLUDE DTSILCCM                                               DTSCS27
00913      SKIP3                                                        DTSCS27
00914              15  FILLER                                           DTSCS27
00915                  REDEFINES LCCM-SCR-HOLD-AREA.                    DTSCS27
00916                  20  LCCM-SCR-HOLD-PROG-NAME  PIC  X(08).         DTSCS27
00917                  20  LCCM-SCR-HOLD-AATX-REC   PIC  X(128).        DTSCS27
00918                  20  LCCM-SCR-HOLD-FULL-EDITS-IND PIC  X(01).     DTSCS27
00919                  20  LCCM-SCR-HOLD-LAST-ITEM                      DTSCS27
00920                                            PIC S9(04) COMP.       DTSCS27
00921                  20  LCCM-SCR-HOLD-CURR-ITEM                      DTSCS27
00922                                            PIC S9(04) COMP.       DTSCS27
00923                  20  LCCM-SCR-HOLD-TOT-WORKERS                    DTSCS27
00924                                            PIC S9(07) COMP-3.     DTSCS27
00925                  20  LCCM-SCR-HOLD-DUMMY-SSN                      DTSCS27
00926                                            PIC S9(09) COMP-3.     DTSCS27
00927                  20  LCCM-SCR-HOLD-MODE-EDIT-IND                  DTSCS27
00928                                            PIC  X(01).            DTSCS27
00929                  20  LCCM-SCR-HOLD-DIS-EDIT1-IND                  DTSCS27
00930                                            PIC  X(01).            DTSCS27
00931                  20  LCCM-SCR-HOLD-DIS-EDIT2-IND                  DTSCS27
00932                                            PIC  X(01).            DTSCS27
00933                  20  LCCM-SCR-HOLD-DIS-EDIT3-IND                  DTSCS27
00934                                            PIC  X(01).            DTSCS27
00935                  20  LCCM-SCR-HOLD-DIS-EDIT4-IND                  DTSCS27
00936                                            PIC  X(01).            DTSCS27
00937                  20  LCCM-SCR-HOLD-DIS-EDIT5-IND                  DTSCS27
00938                                            PIC  X(01).            DTSCS27
00939                  20  LCCM-SCR-HOLD-DIS-EDIT6-IND                  DTSCS27
00940                                            PIC  X(01).            DTSCS27
00941                                                                   DTSCS27
00942      EJECT                                                        DTSCS27
00943  PROCEDURE DIVISION.                                              DTSCS27
00944                                                                   DTSCS27
00945      MOVE +0 TO WRK-EMP-NO                                        DTSCS27
00946                 WRK-BATCH-NO                                      DTSCS27
00947                 WRK-ITEM-NO                                       DTSCS27
00948                 WRK-SEQ-NO                                        DTSCS27
00949                 DUP-LAST.                                         DTSCS27
00950                                                                   DTSCS27
00951      MOVE LOW-VALUES TO MAP-AREA.                                 DTSCS27
00952                                                                   DTSCS27
00953      SET CURSOR-SET-NO TO TRUE.                                   DTSCS27
00954                                                                   DTSCS27
00955                                                                   DTSCS27
00956      MOVE LCCM-SCR-NUM-ACCESS-IND (WRK-SCR-ID-N)                  DTSCS27
00957        TO SCR-ACCESS-IND.                                         DTSCS27
00958                                                                   DTSCS27
00959      SET WRK-TS-FOUND-NO-88       TO TRUE.                        DTSCS27
00960      IF LCCM-SCR-HOLD-AREA = LOW-VALUES                           DTSCS27
00961         PERFORM P9000-INIT-SCR-HOLD  THRU P9000-EXIT              DTSCS27
00962      ELSE                                                         DTSCS27
00963         IF LCCM-SCR-HOLD-PROG-NAME = WRK-PROG-NAME                DTSCS27
00964            MOVE LCCM-SCR-HOLD-AREA    TO WRK-SCR-HOLD-AREA        DTSCS27
00965            MOVE WRK-SCR-HOLD-CURR-ITEM TO L829-ITEM-NO            DTSCS27
00966            PERFORM S829A-READ-ITEM  THRU S829A-EXIT               DTSCS27
00967            IF L829-OK-88                                          DTSCS27
00968               MOVE L829-REC   TO L427-WAGE-AREA                   DTSCS27
00969               IF LCCM-EMP-NO = L427-EMP-NO                        DTSCS27
00970                  SET WRK-TS-FOUND-YES-88 TO TRUE                  DTSCS27
00971                  PERFORM P9800-TS-TO-SCREEN   THRU P9800-EXIT     DTSCS27
00972               ELSE                                                DTSCS27
00973                  PERFORM P9000-INIT-SCR-HOLD  THRU P9000-EXIT     DTSCS27
00974               END-IF                                              DTSCS27
00975            ELSE                                                   DTSCS27
00976               PERFORM P9000-INIT-SCR-HOLD  THRU P9000-EXIT        DTSCS27
00977            END-IF                                                 DTSCS27
00978         ELSE                                                      DTSCS27
00979            PERFORM P9000-INIT-SCR-HOLD  THRU P9000-EXIT           DTSCS27
00980         END-IF                                                    DTSCS27
00981      END-IF.                                                      DTSCS27
00982                                                                   DTSCS27
00983      IF WRK-SCR-HOLD-MODE-EDIT-YES-88                             DTSCS27
00984         NEXT SENTENCE                                             DTSCS27
00985      ELSE                                                         DTSCS27
00986         SET WRK-SCR-HOLD-MODE-EDIT-NO-88 TO TRUE.                 DTSCS27
00987                                                                   DTSCS27
00988      MOVE SPACE TO REQ-IND.                                       DTSCS27
00989                                                                   DTSCS27
00990      PERFORM P1000-ANALYZE-REQUEST THRU P1000-EXIT.               DTSCS27
00991                                                                   DTSCS27
00992                                                                   DTSCS27
00993 *-----------------------------------------------------            DTSCS27
00994 *    P1000-ANALYZE-REQUEST HAS DETERMINED, BASED ON THE           DTSCS27
00995 *    "AID" KEY PRESSED AND THE CONTEXT OF THE CURRENT             DTSCS27
00996 *    REQUEST WITHIN THE PSEUDO CONVERSATION, THE TYPE             DTSCS27
00997 *    OF ACTIVITY THE WORK STATION OPERATOR HAS REQUESTED.         DTSCS27
00998 *                                                                 DTSCS27
00999 *    THE REQUEST, REFLECTED IN REQ-IND WILL NOW BE                DTSCS27
01000 *    PROCESSED.                                                   DTSCS27
01001 *                                                                 DTSCS27
01002 *    THE REQUEST PROCESSING PARAGRAPHS WILL SET RESP-IND,         DTSCS27
01003 *    INDICATING THE TYPE OF RESPONSE TO BE SENT TO THE            DTSCS27
01004 *    WORK STATION OPERATOR.                                       DTSCS27
01005 *-----------------------------------------------------            DTSCS27
01006                                                                   DTSCS27
01007      MOVE SPACE TO RESP-IND.                                      DTSCS27
01008                                                                   DTSCS27
01009      IF REQ-ERROR                                                 DTSCS27
01010         PERFORM P2000-REQUEST-ERROR THRU P2000-EXIT               DTSCS27
01011      ELSE                                                         DTSCS27
01012      IF REQ-JUMP                                                  DTSCS27
01013         PERFORM P3000-REQUEST-JUMP THRU P3000-EXIT                DTSCS27
01014      ELSE                                                         DTSCS27
01015      IF REQ-CLEAR                                                 DTSCS27
01016         PERFORM P4000-REQUEST-CLEAR THRU P4000-EXIT               DTSCS27
01017      ELSE                                                         DTSCS27
01018      IF REQ-CURSOR-TO-GOTO                                        DTSCS27
01019         PERFORM P5000-CURSOR-TO-GOTO THRU P5000-EXIT              DTSCS27
01020      ELSE                                                         DTSCS27
01021      IF REQ-INQUIRE                                               DTSCS27
01022         PERFORM P6000-REQUEST-INQUIRE THRU P6000-EXIT             DTSCS27
01023      ELSE                                                         DTSCS27
01024      IF REQ-EDIT                                                  DTSCS27
01025         PERFORM P7000-REQUEST-EDIT THRU P7000-EXIT                DTSCS27
01026      ELSE                                                         DTSCS27
01027      IF REQ-UPDATE                                                DTSCS27
01028         PERFORM P8000-REQUEST-UPDATE THRU P8000-EXIT              DTSCS27
01029      ELSE                                                         DTSCS27
01030         GO TO S899-ABEND.                                         DTSCS27
01031                                                                   DTSCS27
01032                                                                   DTSCS27
01033 *-----------------------------------------------------            DTSCS27
01034 *    THE REQUEST PROCESSING PARAGRAPHS HAVE INDICATED             DTSCS27
01035 *    IN RESP-IND THE TYPE OF RESPONSE TO BE MADE.                 DTSCS27
01036 *-----------------------------------------------------            DTSCS27
01037                                                                   DTSCS27
01038      IF RESP-SEND-MAP                                             DTSCS27
01039          PERFORM S9300-SEND-MAP THRU S9300-EXIT                   DTSCS27
01040          SET LCCM-END-TASK-88 TO TRUE                             DTSCS27
01041      ELSE                                                         DTSCS27
01042      IF RESP-SEND-MSGONLY                                         DTSCS27
01043          PERFORM S9200-SEND-DATAONLY THRU S9200-EXIT              DTSCS27
01044          SET LCCM-END-TASK-88 TO TRUE                             DTSCS27
01045      ELSE                                                         DTSCS27
01046      IF RESP-JUMP                                                 DTSCS27
01047          SET LCCM-LINK-SCREEN-88 TO TRUE                          DTSCS27
01048      ELSE                                                         DTSCS27
01049      IF RESP-CURSOR-TO-GOTO                                       DTSCS27
01050          PERFORM S9200-SEND-DATAONLY THRU S9200-EXIT              DTSCS27
01051          SET LCCM-END-TASK-88 TO TRUE                             DTSCS27
01052      ELSE                                                         DTSCS27
01053          GO TO S899-ABEND.                                        DTSCS27
01054                                                                   DTSCS27
01055                                                                   DTSCS27
01056  MAINLINE-EXIT.                                                   DTSCS27
01057                                                                   DTSCS27
01058      EXEC CICS                                                    DTSCS27
01059          RETURN                                                   DTSCS27
01060      END-EXEC.                                                    DTSCS27
01061                                                                   DTSCS27
01062      GOBACK.                                                      DTSCS27
01063 /*****************************************************************DTSCS27
01064 * DETERMINE CURRENT SCREEN STATE AND REQUEST COMBINATION         *DTSCS27
01065 ******************************************************************DTSCS27
01066                                                                   DTSCS27
01067  P1000-ANALYZE-REQUEST.                                           DTSCS27
01068                                                                   DTSCS27
01069 *-----------------------------------------------------            DTSCS27
01070 *     IF SCREEN IS NOT CURRENTLY DISPLAYED (JUMP TO HERE)         DTSCS27
01071 *     THEN ANY KEY PRESSED WILL BE IGNORED (WILL BE               DTSCS27
01072 *     REPLACED WITH F09)                                          DTSCS27
01073 *-----------------------------------------------------            DTSCS27
01074                                                                   DTSCS27
01075      IF LCCM-SCR-ID NOT = WRK-SCR-ID                              DTSCS27
01076          PERFORM P1200-JUMP-IN THRU P1200-EXIT                    DTSCS27
01077          GO TO P1000-EXIT.                                        DTSCS27
01078                                                                   DTSCS27
01079                                                                   DTSCS27
01080 *-----------------------------------------------------            DTSCS27
01081 *      MAP IS RECEIVED                                            DTSCS27
01082 *-----------------------------------------------------            DTSCS27
01083                                                                   DTSCS27
01084      PERFORM S9100-RECEIVE THRU S9100-EXIT.                       DTSCS27
01085                                                                   DTSCS27
01086                                                                   DTSCS27
01087 *-----------------------------------------------------            DTSCS27
01088 *    CHECK FOR AID KEYS THAT DO NOT SEND DATA FROM THE            DTSCS27
01089 *    WORK STATION                                                 DTSCS27
01090 *-----------------------------------------------------            DTSCS27
01091                                                                   DTSCS27
01092      IF LCCM-CLEAR-88                                             DTSCS27
01093         SET WRK-SCR-HOLD-MODE-EDIT-NO-88 TO TRUE                  DTSCS27
01094         SET REQ-CLEAR TO TRUE                                     DTSCS27
01095         GO TO P1000-EXIT.                                         DTSCS27
01096                                                                   DTSCS27
01097                                                                   DTSCS27
01098 *-----------------------------------------------------            DTSCS27
01099 *    IF IN UPDATE MODE, SPECIFIC KEYS MUST BE CHECKED             DTSCS27
01100 *-----------------------------------------------------            DTSCS27
01101                                                                   DTSCS27
01102      IF LCCM-SCR-UPDATE-LOCKED                                    DTSCS27
01103         PERFORM P1100-UPDATE-LOCKED THRU P1100-EXIT               DTSCS27
01104         GO TO P1000-EXIT.                                         DTSCS27
01105                                                                   DTSCS27
01106                                                                   DTSCS27
01107 *-----------------------------------------------------            DTSCS27
01108 *    PA2 IS A REQUEST TO POSITION CURSOR AT GO TO:                DTSCS27
01109 *-----------------------------------------------------            DTSCS27
01110                                                                   DTSCS27
01111      IF LCCM-PA2-88                                               DTSCS27
01112          SET REQ-CURSOR-TO-GOTO TO TRUE                           DTSCS27
01113          GO TO P1000-EXIT.                                        DTSCS27
01114                                                                   DTSCS27
01115                                                                   DTSCS27
01116 *-----------------------------------------------------            DTSCS27
01117 *    ALL OTHER PA KEYS ARE NOT ACTIVE                             DTSCS27
01118 *-----------------------------------------------------            DTSCS27
01119                                                                   DTSCS27
01120      IF LCCM-PA-88                                                DTSCS27
01121        PERFORM S804-INVALID-KEY THRU S804-EXIT                    DTSCS27
01122        SET REQ-ERROR TO TRUE                                      DTSCS27
01123        GO TO P1000-EXIT.                                          DTSCS27
01124                                                                   DTSCS27
01125                                                                   DTSCS27
01126      IF MAP-EDIT-VALID-88                                         DTSCS27
01127          MOVE MAP-EDIT-MODE TO LCCM-OP-ARPT-EDIT-MODE.            DTSCS27
01128                                                                   DTSCS27
01129                                                                   DTSCS27
01130 *-----------------------------------------------------            DTSCS27
01131 *    F12 PRESSED WHEN UPDATE NOT IN PROGRESS IS A                 DTSCS27
01132 *    REQUEST TO CLEAR THE SCREEN.                                 DTSCS27
01133 *-----------------------------------------------------            DTSCS27
01134                                                                   DTSCS27
01135      IF LCCM-F12-88                                               DTSCS27
01136         SET WRK-SCR-HOLD-MODE-EDIT-NO-88 TO TRUE                  DTSCS27
01137         MOVE LOW-VALUES TO MAP-AREA                               DTSCS27
01138         SET REQ-CLEAR TO TRUE                                     DTSCS27
01139         GO TO P1000-EXIT.                                         DTSCS27
01140                                                                   DTSCS27
01141                                                                   DTSCS27
01142 *-----------------------------------------------------            DTSCS27
01143 *    IF EXIT KEY PRESSED, JUMP TO NEXT HIGHER FUNCTION            DTSCS27
01144 *-----------------------------------------------------            DTSCS27
01145                                                                   DTSCS27
01146      IF LCCM-F03-88                                               DTSCS27
01147         IF WRK-SCR-HOLD-MODE-EDIT-NO-88                           DTSCS27
01148            MOVE WRK-F03-SCR-ID TO LCCM-REQ-SCR-ID                 DTSCS27
01149            SET REQ-JUMP TO TRUE                                   DTSCS27
01150            GO TO P1000-EXIT                                       DTSCS27
01151         ELSE                                                      DTSCS27
01152            MOVE MSG-E27L-AREA   TO LCCM-MSG-AREA                  DTSCS27
01153            SET REQ-ERROR TO TRUE                                  DTSCS27
01154            GO TO P1000-EXIT.                                      DTSCS27
01155                                                                   DTSCS27
01156 *-----------------------------------------------------            DTSCS27
01157 *    IF PRIOR SCREEN KEY PRESSED, JUMP TO PREVIOUS SCREEN         DTSCS27
01158 *-----------------------------------------------------            DTSCS27
01159                                                                   DTSCS27
01160      IF LCCM-F04-88                                               DTSCS27
01161         IF WRK-SCR-HOLD-MODE-EDIT-NO-88                           DTSCS27
01162            MOVE LCCM-PRIOR-SCR-ID TO LCCM-REQ-SCR-ID              DTSCS27
01163            SET REQ-JUMP TO TRUE                                   DTSCS27
01164            GO TO P1000-EXIT                                       DTSCS27
01165         ELSE                                                      DTSCS27
01166            MOVE MSG-E27L-AREA   TO LCCM-MSG-AREA                  DTSCS27
01167            SET REQ-ERROR TO TRUE                                  DTSCS27
01168            GO TO P1000-EXIT.                                      DTSCS27
01169                                                                   DTSCS27
01170                                                                   DTSCS27
01171 *---------------------------------------------------------        DTSCS27
01172 *    IF CORRESPONDENCE SCREEN KEY PRESSED, JUMP TO                DTSCS27
01173 *    CORRESPONDENCE SCREEN.                                       DTSCS27
01174 *---------------------------------------------------------        DTSCS27
01175                                                                   DTSCS27
01176      IF LCCM-F14-88                                               DTSCS27
01177         IF WRK-SCR-HOLD-MODE-EDIT-NO-88                           DTSCS27
01178            MOVE LCCM-CORR-SCR-ID TO LCCM-REQ-SCR-ID               DTSCS27
01179            SET REQ-JUMP TO TRUE                                   DTSCS27
01180            GO TO P1000-EXIT                                       DTSCS27
01181         ELSE                                                      DTSCS27
01182            MOVE MSG-E27L-AREA   TO LCCM-MSG-AREA                  DTSCS27
01183            SET REQ-ERROR TO TRUE                                  DTSCS27
01184            GO TO P1000-EXIT.                                      DTSCS27
01185                                                                   DTSCS27
01186                                                                   DTSCS27
01187 *-----------------------------------------------------            DTSCS27
01188 *    IF DIFFERENT SCREEN TYPE IS REQUESTED, JUMP TO               DTSCS27
01189 *    REQUESTED SCREEN TYPE                                        DTSCS27
01190 *-----------------------------------------------------            DTSCS27
01191                                                                   DTSCS27
01192      IF MAP-GOTO = SPACES OR LOW-VALUES OR WRK-SCR-ID             DTSCS27
01193         NEXT SENTENCE                                             DTSCS27
01194      ELSE                                                         DTSCS27
01195        IF WRK-SCR-HOLD-MODE-EDIT-NO-88                            DTSCS27
01196           MOVE MAP-GOTO TO LCCM-REQ-SCR-ID                        DTSCS27
01197           SET REQ-JUMP TO TRUE                                    DTSCS27
01198           GO TO P1000-EXIT                                        DTSCS27
01199         ELSE                                                      DTSCS27
01200            MOVE MSG-E27L-AREA   TO LCCM-MSG-AREA                  DTSCS27
01201            SET REQ-ERROR TO TRUE                                  DTSCS27
01202            GO TO P1000-EXIT.                                      DTSCS27
01203                                                                   DTSCS27
01204                                                                   DTSCS27
01205 *-----------------------------------------------------            DTSCS27
01206 *    IF REQUEST TO UPDATE THE DATA (ADD,MOD,DEL)                  DTSCS27
01207 *          VERIFY USER ACCESS TO PERFORM UPDATE                   DTSCS27
01208 *-----------------------------------------------------            DTSCS27
01209                                                                   DTSCS27
01210      IF LCCM-ENTER-88                                             DTSCS27
01211          SET WRK-SCR-HOLD-MODE-EDIT-YES-88 TO TRUE                DTSCS27
01212          IF SCR-ACCESS-UPDATE                                     DTSCS27
01213              SET REQ-UPDATE TO TRUE                               DTSCS27
01214              GO TO P1000-EXIT                                     DTSCS27
01215          ELSE                                                     DTSCS27
01216              PERFORM S804-INVALID-KEY THRU S804-EXIT              DTSCS27
01217              SET REQ-ERROR TO TRUE                                DTSCS27
01218              GO TO P1000-EXIT.                                    DTSCS27
01219                                                                   DTSCS27
01220      IF LCCM-F10-88                                               DTSCS27
01221           OR LCCM-F23-88                                          DTSCS27
01222         SET WRK-SCR-HOLD-MODE-EDIT-YES-88 TO TRUE                 DTSCS27
01223         IF SCR-ACCESS-UPDATE                                      DTSCS27
01224            SET REQ-EDIT TO TRUE                                   DTSCS27
01225            GO TO P1000-EXIT                                       DTSCS27
01226         ELSE                                                      DTSCS27
01227            PERFORM S804-INVALID-KEY THRU S804-EXIT                DTSCS27
01228            SET REQ-ERROR TO TRUE                                  DTSCS27
01229            GO TO P1000-EXIT.                                      DTSCS27
01230                                                                   DTSCS27
01231                                                                   DTSCS27
01232 *-----------------------------------------------------            DTSCS27
01233 *    IF INQUIRY TYPE KEY PRESSED (F9, F7, OR F8),                 DTSCS27
01234 *        INDICATES INQUIRY REQUEST                                DTSCS27
01235 *-----------------------------------------------------            DTSCS27
01236                                                                   DTSCS27
01237      IF LCCM-F09-88                                               DTSCS27
01238      OR LCCM-F07-88                                               DTSCS27
01239      OR LCCM-F08-88                                               DTSCS27
01240         IF WRK-SCR-HOLD-MODE-EDIT-NO-88                           DTSCS27
01241            SET REQ-INQUIRE TO TRUE                                DTSCS27
01242            GO TO P1000-EXIT                                       DTSCS27
01243         ELSE                                                      DTSCS27
01244            MOVE MSG-E27L-AREA   TO LCCM-MSG-AREA                  DTSCS27
01245            SET REQ-ERROR TO TRUE                                  DTSCS27
01246            GO TO P1000-EXIT.                                      DTSCS27
01247                                                                   DTSCS27
01248 *-----------------------------------------------------            DTSCS27
01249 *    THE F5 AND F6 KEYS PAGE THROUGH WAGE DATA.                   DTSCS27
01250 *    IF THE SCREEN IS IN INQUIRY MODE, PROCESS THE                DTSCS27
01251 *    REQUEST THROUGH P7000.  OTHERWISE, PROCESS IT                DTSCS27
01252 *    THROUGH P8000.                                               DTSCS27
01253 *-----------------------------------------------------            DTSCS27
01254                                                                   DTSCS27
01255      IF LCCM-F05-88                                               DTSCS27
01256      OR LCCM-F06-88                                               DTSCS27
01257         IF LCCM-SCR-INQUIRE                                       DTSCS27
01258            SET REQ-EDIT    TO TRUE                                DTSCS27
01259            GO TO P1000-EXIT                                       DTSCS27
01260         ELSE                                                      DTSCS27
01261         IF SCR-ACCESS-UPDATE                                      DTSCS27
01262            SET REQ-UPDATE TO TRUE                                 DTSCS27
01263            GO TO P1000-EXIT                                       DTSCS27
01264         ELSE                                                      DTSCS27
01265            PERFORM S804-INVALID-KEY THRU S804-EXIT                DTSCS27
01266            SET REQ-ERROR TO TRUE                                  DTSCS27
01267            GO TO P1000-EXIT.                                      DTSCS27
01268                                                                   DTSCS27
01269 *-----------------------------------------------------            DTSCS27
01270 *     ANY OTHER KEY IS INVALID                                    DTSCS27
01271 *-----------------------------------------------------            DTSCS27
01272                                                                   DTSCS27
01273      PERFORM S804-INVALID-KEY THRU S804-EXIT.                     DTSCS27
01274                                                                   DTSCS27
01275      SET REQ-ERROR TO TRUE.                                       DTSCS27
01276  P1000-EXIT.                                                      DTSCS27
01277      EXIT.                                                        DTSCS27
01278      EJECT                                                        DTSCS27
01279 ******************************************************************DTSCS27
01280 * THE SCREEN IS LOCKED FOR UPDATE AND THE USER CONFIRMS HIS WISH *DTSCS27
01281 ******************************************************************DTSCS27
01282                                                                   DTSCS27
01283  P1100-UPDATE-LOCKED.                                             DTSCS27
01284                                                                   DTSCS27
01285 *-----------------------------------------------------            DTSCS27
01286 *    IF THE SCREEN IS "LOCKED FOR UPDATE", THEN                   DTSCS27
01287 *    THE ONLY VALID OPERATOR REQUESTS ARE ENTER                   DTSCS27
01288 *    (CONFIRMING UPDATE) OR F12 (CANCELLING UPDATE).              DTSCS27
01289 *-----------------------------------------------------            DTSCS27
01290                                                                   DTSCS27
01291      IF LCCM-ENTER-88 OR LCCM-F12-88                              DTSCS27
01292         SET WRK-SCR-HOLD-MODE-EDIT-NO-88 TO TRUE                  DTSCS27
01293         SET REQ-UPDATE TO TRUE                                    DTSCS27
01294      ELSE                                                         DTSCS27
01295         SET REQ-ERROR TO TRUE                                     DTSCS27
01296 *****IF LCCM-SCR-ADD-LOCKED                                       DTSCS27
01297 ********MOVE PMSG-ADD-CONFIRM TO LCCM-MSG-ID                      DTSCS27
01298 *****ELSE                                                         DTSCS27
01299      IF LCCM-SCR-MOD-LOCKED                                       DTSCS27
01300         MOVE PMSG-MOD-CONFIRM TO LCCM-MSG-ID                      DTSCS27
01301      ELSE                                                         DTSCS27
01302      IF LCCM-SCR-DEL-LOCKED                                       DTSCS27
01303         MOVE PMSG-DEL-CONFIRM TO LCCM-MSG-ID                      DTSCS27
01304      ELSE                                                         DTSCS27
01305         GO TO S899-ABEND.                                         DTSCS27
01306  P1100-EXIT.                                                      DTSCS27
01307      EXIT.                                                        DTSCS27
01308      SKIP3                                                        DTSCS27
01309 *-----------------------------------------------------            DTSCS27
01310 *    IF A DOCUMENT IS INDICATED BY LCCM-BATCH-NO AND              DTSCS27
01311 *    LCCM-ITEM-NO AND THE DOCUMENT EXISTS AND THE                 DTSCS27
01312 *    DOCUMENT IS AN AATX RECORD, THEN ASSUME WE ARE TO            DTSCS27
01313 *    INQUIRE LCCM-BATCH-NO+LCCM-ITEM-NO;                          DTSCS27
01314 *                                                                 DTSCS27
01315 *    OTHERWISE, ASSUME WE ARE TO SET THE SCREEN TO A              DTSCS27
01316 *    DATA ENTRY MODE (SET SCREEN TO CLEAR).                       DTSCS27
01317 *-----------------------------------------------------            DTSCS27
01318                                                                   DTSCS27
01319  P1200-JUMP-IN.                                                   DTSCS27
01320                                                                   DTSCS27
01321      SET LCCM-F09-88 TO TRUE.                                     DTSCS27
01322                                                                   DTSCS27
01323      IF LCCM-BATCH-NO = +0                                        DTSCS27
01324          PERFORM P9000-INIT-SCR-HOLD THRU P9000-EXIT              DTSCS27
01325          SET REQ-CLEAR TO TRUE                                    DTSCS27
01326          GO TO P1200-EXIT.                                        DTSCS27
01327                                                                   DTSCS27
01328      IF LCCM-ITEM-NO = +0                                         DTSCS27
01329          PERFORM P9000-INIT-SCR-HOLD THRU P9000-EXIT              DTSCS27
01330          SET REQ-CLEAR TO TRUE                                    DTSCS27
01331          GO TO P1200-EXIT.                                        DTSCS27
01332                                                                   DTSCS27
01333                                                                   DTSCS27
01334      MOVE LOW-VALUES TO ASKL-KEY-AREA.                            DTSCS27
01335                                                                   DTSCS27
01336      MOVE LCCM-BATCH-NO TO ASKL-BATCH-NO.                         DTSCS27
01337                                                                   DTSCS27
01338      MOVE LCCM-ITEM-NO TO ASKL-ITEM-NO.                           DTSCS27
01339                                                                   DTSCS27
01340      PERFORM S823-READ THRU S823-EXIT.                            DTSCS27
01341                                                                   DTSCS27
01342      IF L823-NO-REC-88                                            DTSCS27
01343          SET REQ-CLEAR TO TRUE                                    DTSCS27
01344      ELSE                                                         DTSCS27
01345      IF ASKL-ATX-88                                               DTSCS27
01346          SET REQ-INQUIRE TO TRUE                                  DTSCS27
01347          MOVE LCCM-BATCH-NO TO MAP-BATCH-NO-N                     DTSCS27
01348          MOVE LCCM-ITEM-NO TO MAP-ITEM-NO-N                       DTSCS27
01349      ELSE                                                         DTSCS27
01350          SET REQ-CLEAR TO TRUE.                                   DTSCS27
01351                                                                   DTSCS27
01352      IF WRK-TS-FOUND-YES-88                                       DTSCS27
01353          SET REQ-INQUIRE TO TRUE.                                 DTSCS27
01354  P1200-EXIT.                                                      DTSCS27
01355      EXIT.                                                        DTSCS27
01356 /*****************************************************************DTSCS27
01357 * ANALYZE REQUEST HAS DETERMINED AN ERROR THAT MUST BE REPORTED. *DTSCS27
01358 * VERIFY THAT A MESSAGE HAS BEEN FILLED IN.                      *DTSCS27
01359 ******************************************************************DTSCS27
01360                                                                   DTSCS27
01361  P2000-REQUEST-ERROR.                                             DTSCS27
01362      IF LCCM-MSG                                                  DTSCS27
01363         SET RESP-SEND-MSGONLY TO TRUE                             DTSCS27
01364      ELSE                                                         DTSCS27
01365         GO TO S899-ABEND.                                         DTSCS27
01366  P2000-EXIT.                                                      DTSCS27
01367      EXIT.                                                        DTSCS27
01368 /*****************************************************************DTSCS27
01369 * JUMP TO A DIFFERENT SCREEN TYPE WAS REQUESTED                  *DTSCS27
01370 ******************************************************************DTSCS27
01371                                                                   DTSCS27
01372  P3000-REQUEST-JUMP.                                              DTSCS27
01373 *-----------------------------------------------------            DTSCS27
01374 *    VERIFY THAT THE REQUESTED SCREEN EXISTS AND IS ACCESSIBLE    DTSCS27
01375 *    BY USER                                                      DTSCS27
01376 *-----------------------------------------------------            DTSCS27
01377                                                                   DTSCS27
01378      PERFORM S803-REQ-SCR-ID-EDIT THRU S803-EXIT.                 DTSCS27
01379                                                                   DTSCS27
01380 *-----------------------------------------------------            DTSCS27
01381 *    VERIFICATION RETURN LCCM-MSG IF ERROR DETECTED               DTSCS27
01382 *-----------------------------------------------------            DTSCS27
01383                                                                   DTSCS27
01384      IF LCCM-MSG                                                  DTSCS27
01385         SET RESP-SEND-MSGONLY TO TRUE                             DTSCS27
01386         SET CURSOR-SET-GOTO TO TRUE                               DTSCS27
01387         GO TO P3000-EXIT.                                         DTSCS27
01388                                                                   DTSCS27
01389                                                                   DTSCS27
01390      MOVE MAP-DOC-NO-AREA TO L019-S-DOC-NO.                       DTSCS27
01391                                                                   DTSCS27
01392      PERFORM S019-BATCH-NO-FROM-SCREEN THRU S019-EXIT.            DTSCS27
01393                                                                   DTSCS27
01394      IF L019-VALID                                                DTSCS27
01395          MOVE L019-DOC-NO TO LCCM-DOC-NO.                         DTSCS27
01396                                                                   DTSCS27
01397                                                                   DTSCS27
01398      MOVE MAP-EMP-NO-AREA TO L018-S-EMP-NO-AREA.                  DTSCS27
01399                                                                   DTSCS27
01400      PERFORM S018-EMP-NO-FROM-SCREEN THRU S018-EXIT.              DTSCS27
01401                                                                   DTSCS27
01402      IF L018-VALID                                                DTSCS27
01403          MOVE L018-EMP-NO              TO LCCM-EMP-NO             DTSCS27
01404          MOVE MAP-YRQ-AREA             TO L016-S-YRQ-AREA         DTSCS27
01405          PERFORM S016-YRQ-FROM-SCREEN  THRU S016-EXIT             DTSCS27
01406          IF L016-VALID                                            DTSCS27
01407              MOVE L016-YRQ             TO LCCM-YRQ                DTSCS27
01408          ELSE                                                     DTSCS27
01409              MOVE +0                   TO LCCM-YRQ.               DTSCS27
01410                                                                   DTSCS27
01411                                                                   DTSCS27
01412 *-----------------------------------------------------            DTSCS27
01413 *    CLEAN UP INDICATORS AND PAGING STORAGE PRIOR TO LEAVING      DTSCS27
01414 *-----------------------------------------------------            DTSCS27
01415                                                                   DTSCS27
01416      PERFORM S829E-DELETE-QUEUE  THRU S829E-EXIT.                 DTSCS27
01417                                                                   DTSCS27
01418      MOVE LOW-VALUES TO LCCM-SCR-STATUS                           DTSCS27
01419                         LCCM-SCR-HOLD-AREA.                       DTSCS27
01420                                                                   DTSCS27
01421      MOVE +0 TO LCCM-SCR-ABSTIME.                                 DTSCS27
01422                                                                   DTSCS27
01423      SET RESP-JUMP TO TRUE.                                       DTSCS27
01424  P3000-EXIT.                                                      DTSCS27
01425      EXIT.                                                        DTSCS27
01426                                                                   DTSCS27
01427 /*****************************************************************DTSCS27
01428 * CLEAR KEY WAS PRESSED                                          *DTSCS27
01429 ******************************************************************DTSCS27
01430                                                                   DTSCS27
01431  P4000-REQUEST-CLEAR.                                             DTSCS27
01432                                                                   DTSCS27
01433 *-----------------------------------------------------            DTSCS27
01434 *   CLEAN UP INDICATORS AND PAGING STORAGE.  RESET KEY            DTSCS27
01435 *   FIELDS FROM EARLIER REQUESTS                                  DTSCS27
01436 *-----------------------------------------------------            DTSCS27
01437                                                                   DTSCS27
01438      IF LCCM-BATCH-NO > ZERO                                      DTSCS27
01439          MOVE LCCM-BATCH-NO TO MAP-BATCH-NO.                      DTSCS27
01440                                                                   DTSCS27
01441      MOVE +0 TO LCCM-BATCH-NO.                                    DTSCS27
01442                                                                   DTSCS27
01443      MOVE +0 TO LCCM-ITEM-NO.                                     DTSCS27
01444                                                                   DTSCS27
01445                                                                   DTSCS27
01446      IF SCR-ACCESS-UPDATE AND CURSOR-SET-NO                       DTSCS27
01447          MOVE CATB-CURSOR TO MAP-EMP-NAME-CHECK-L                 DTSCS27
01448          SET CURSOR-SET-YES TO TRUE.                              DTSCS27
01449                                                                   DTSCS27
01450                                                                   DTSCS27
01451      MOVE LCCM-TASK-START-ABSTIME TO LCCM-SCR-ABSTIME.            DTSCS27
01452                                                                   DTSCS27
01453      SET LCCM-SCR-CLEAR TO TRUE.                                  DTSCS27
01454                                                                   DTSCS27
01455      IF SCR-ACCESS-UPDATE                                         DTSCS27
01456          PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT           DTSCS27
01457      ELSE                                                         DTSCS27
01458          PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT.             DTSCS27
01459                                                                   DTSCS27
01460      MOVE LOW-VALUES TO LCCM-SCR-HOLD-AREA.                       DTSCS27
01461                                                                   DTSCS27
01462      PERFORM S829E-DELETE-QUEUE  THRU S829E-EXIT.                 DTSCS27
01463                                                                   DTSCS27
01464      SET RESP-SEND-MAP TO TRUE.                                   DTSCS27
01465  P4000-EXIT.                                                      DTSCS27
01466      EXIT.                                                        DTSCS27
01467                                                                   DTSCS27
01468                                                                   DTSCS27
01469 /*****************************************************************DTSCS27
01470 * POSITION CURSOR ON GO TO FIELD WAS REQUESTED                   *DTSCS27
01471 ******************************************************************DTSCS27
01472                                                                   DTSCS27
01473  P5000-CURSOR-TO-GOTO.                                            DTSCS27
01474      SET CURSOR-SET-GOTO TO TRUE.                                 DTSCS27
01475                                                                   DTSCS27
01476      SET RESP-CURSOR-TO-GOTO TO TRUE.                             DTSCS27
01477  P5000-EXIT.                                                      DTSCS27
01478      EXIT.                                                        DTSCS27
01479 /*****************************************************************DTSCS27
01480 * INQUIRY WAS REQUESTED                                          *DTSCS27
01481 ******************************************************************DTSCS27
01482                                                                   DTSCS27
01483  P6000-REQUEST-INQUIRE.                                           DTSCS27
01484      MOVE MAP-DOC-NO-AREA TO L019-S-DOC-NO.                       DTSCS27
01485                                                                   DTSCS27
01486      MOVE LOW-VALUES TO MAP-AREA.                                 DTSCS27
01487                                                                   DTSCS27
01488      MOVE L019-S-DOC-NO TO MAP-DOC-NO-AREA.                       DTSCS27
01489                                                                   DTSCS27
01490                                                                   DTSCS27
01491      SET LCCM-SCR-CLEAR TO TRUE.                                  DTSCS27
01492                                                                   DTSCS27
01493      MOVE LCCM-TASK-START-ABSTIME TO LCCM-SCR-ABSTIME.            DTSCS27
01494                                                                   DTSCS27
01495      SET RESP-SEND-MAP TO TRUE.                                   DTSCS27
01496                                                                   DTSCS27
01497      IF SCR-ACCESS-UPDATE                                         DTSCS27
01498         PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT            DTSCS27
01499      ELSE                                                         DTSCS27
01500         PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT.              DTSCS27
01501                                                                   DTSCS27
01502                                                                   DTSCS27
01503      PERFORM S1100-EDIT-KEY THRU S1100-EXIT.                      DTSCS27
01504                                                                   DTSCS27
01505      IF LCCM-MSG                                                  DTSCS27
01506          GO TO P6000-EXIT.                                        DTSCS27
01507                                                                   DTSCS27
01508                                                                   DTSCS27
01509      IF WRK-BATCH-NO = LCCM-BATCH-NO                              DTSCS27
01510          NEXT SENTENCE                                            DTSCS27
01511      ELSE                                                         DTSCS27
01512          MOVE WRK-BATCH-NO TO LCCM-BATCH-NO                       DTSCS27
01513          MOVE +0 TO LCCM-ITEM-NO.                                 DTSCS27
01514                                                                   DTSCS27
01515                                                                   DTSCS27
01516      IF WRK-ITEM-NO = +0                                          DTSCS27
01517          MOVE LCCM-ITEM-NO TO WRK-ITEM-NO.                        DTSCS27
01518                                                                   DTSCS27
01519                                                                   DTSCS27
01520      PERFORM P6100-LOCATE-REC THRU P6100-EXIT.                    DTSCS27
01521                                                                   DTSCS27
01522      IF LCCM-MSG                                                  DTSCS27
01523          GO TO P6000-EXIT.                                        DTSCS27
01524                                                                   DTSCS27
01525                                                                   DTSCS27
01526      MOVE ASKL-ITEM-NO TO LCCM-ITEM-NO.                           DTSCS27
01527                                                                   DTSCS27
01528                                                                   DTSCS27
01529      IF REQ-JUMP                                                  DTSCS27
01530          MOVE LCCM-ITEM-NO TO MAP-ITEM-NO-N                       DTSCS27
01531          PERFORM P3000-REQUEST-JUMP THRU P3000-EXIT               DTSCS27
01532          GO TO P6000-EXIT.                                        DTSCS27
01533                                                                   DTSCS27
01534                                                                   DTSCS27
01535      PERFORM P6900-CONSTRUCT-SCREEN THRU P6900-EXIT               DTSCS27
01536                                                                   DTSCS27
01537      IF SCR-ACCESS-UPDATE                                         DTSCS27
01538         PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT            DTSCS27
01539      ELSE                                                         DTSCS27
01540         PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT.              DTSCS27
01541                                                                   DTSCS27
01542      MOVE WRK-SCR-HOLD-AREA   TO LCCM-SCR-HOLD-AREA.              DTSCS27
01543                                                                   DTSCS27
01544      SET LCCM-SCR-INQUIRE TO TRUE.                                DTSCS27
01545  P6000-EXIT.                                                      DTSCS27
01546      EXIT.                                                        DTSCS27
01547      EJECT                                                        DTSCS27
01548  P6100-LOCATE-REC.                                                DTSCS27
01549      PERFORM P6110-START-REC THRU P6110-EXIT.                     DTSCS27
01550                                                                   DTSCS27
01551      IF L823-NO-REC-88                                            DTSCS27
01552          MOVE EMSG-NO-RECORD TO WRK-MSG-AREA                      DTSCS27
01553          PERFORM S1111-ERROR THRU S1111-EXIT                      DTSCS27
01554          GO TO P6100-EXIT.                                        DTSCS27
01555                                                                   DTSCS27
01556      MOVE SPACE TO PAGE-TYPE-IND.                                 DTSCS27
01557                                                                   DTSCS27
01558      IF LCCM-F09-88                                               DTSCS27
01559          PERFORM P6120-PAGE-NONE THRU P6120-EXIT                  DTSCS27
01560      ELSE                                                         DTSCS27
01561      IF LCCM-F07-88                                               DTSCS27
01562          PERFORM P6130-PAGE-BACK THRU P6130-EXIT                  DTSCS27
01563      ELSE                                                         DTSCS27
01564      IF LCCM-F08-88                                               DTSCS27
01565          PERFORM P6140-PAGE-NEXT THRU P6140-EXIT                  DTSCS27
01566      ELSE                                                         DTSCS27
01567          GO TO S899-ABEND.                                        DTSCS27
01568                                                                   DTSCS27
01569      IF LCCM-MSG                                                  DTSCS27
01570          GO TO P6100-EXIT.                                        DTSCS27
01571                                                                   DTSCS27
01572      IF ASKL-ATX-88                                               DTSCS27
01573          NEXT SENTENCE                                            DTSCS27
01574      ELSE                                                         DTSCS27
01575      IF ASKL-RPT-88                                               DTSCS27
01576          MOVE '24' TO LCCM-REQ-SCR-ID                             DTSCS27
01577          SET REQ-JUMP TO TRUE                                     DTSCS27
01578      ELSE                                                         DTSCS27
01579      IF ASKL-ADJ-88                                               DTSCS27
01580          MOVE '26' TO LCCM-REQ-SCR-ID                             DTSCS27
01581          SET REQ-JUMP TO TRUE                                     DTSCS27
01582      ELSE                                                         DTSCS27
01583      IF ASKL-PAY-88                                               DTSCS27
01584          MOVE '25' TO LCCM-REQ-SCR-ID                             DTSCS27
01585          SET REQ-JUMP TO TRUE                                     DTSCS27
01586      ELSE                                                         DTSCS27
01587          GO TO S899-ABEND.                                        DTSCS27
01588  P6100-EXIT.                                                      DTSCS27
01589      EXIT.                                                        DTSCS27
01590      SKIP3                                                        DTSCS27
01591  P6110-START-REC.                                                 DTSCS27
01592      MOVE LOW-VALUES TO ASKL-KEY-AREA.                            DTSCS27
01593                                                                   DTSCS27
01594      MOVE WRK-BATCH-NO TO ASKL-BATCH-NO.                          DTSCS27
01595                                                                   DTSCS27
01596      MOVE WRK-ITEM-NO TO ASKL-ITEM-NO.                            DTSCS27
01597                                                                   DTSCS27
01598      IF ASKL-ITEM-NO = +0                                         DTSCS27
01599          MOVE +1 TO ASKL-ITEM-NO.                                 DTSCS27
01600                                                                   DTSCS27
01601                                                                   DTSCS27
01602      PERFORM S823-START-BROWSE THRU S823-EXIT.                    DTSCS27
01603                                                                   DTSCS27
01604      IF L823-NO-REC-88                                            DTSCS27
01605          NEXT SENTENCE                                            DTSCS27
01606      ELSE                                                         DTSCS27
01607          IF WRK-BATCH-NO = ASKL-BATCH-NO                          DTSCS27
01608              GO TO P6110-EXIT                                     DTSCS27
01609          ELSE                                                     DTSCS27
01610              PERFORM S823-END-BROWSE THRU S823-EXIT.              DTSCS27
01611                                                                   DTSCS27
01612                                                                   DTSCS27
01613      MOVE LOW-VALUES TO ASKL-KEY-AREA.                            DTSCS27
01614                                                                   DTSCS27
01615      MOVE WRK-BATCH-NO TO ASKL-BATCH-NO.                          DTSCS27
01616                                                                   DTSCS27
01617      MOVE +1 TO ASKL-ITEM-NO.                                     DTSCS27
01618                                                                   DTSCS27
01619      PERFORM S823-START-BROWSE THRU S823-EXIT.                    DTSCS27
01620                                                                   DTSCS27
01621      IF L823-NO-REC-88                                            DTSCS27
01622          NEXT SENTENCE                                            DTSCS27
01623      ELSE                                                         DTSCS27
01624          IF WRK-BATCH-NO = ASKL-BATCH-NO                          DTSCS27
01625              PERFORM P6111-POSITION-LAST THRU P6111-EXIT          DTSCS27
01626              GO TO P6110-EXIT                                     DTSCS27
01627          ELSE                                                     DTSCS27
01628              PERFORM S823-END-BROWSE THRU S823-EXIT               DTSCS27
01629              SET L823-NO-REC-88 TO TRUE.                          DTSCS27
01630  P6110-EXIT.                                                      DTSCS27
01631      EXIT.                                                        DTSCS27
01632      SKIP3                                                        DTSCS27
01633  P6111-POSITION-LAST.                                             DTSCS27
01634      PERFORM                                                      DTSCS27
01635        UNTIL L823-NO-REC-88                                       DTSCS27
01636          MOVE ASKL-KEY-AREA TO HOLD-KEY-AREA                      DTSCS27
01637          PERFORM S823-READ-NEXT THRU S823-EXIT                    DTSCS27
01638          IF L823-OK-88                                            DTSCS27
01639              IF WRK-BATCH-NO NOT = ASKL-BATCH-NO                  DTSCS27
01640                  PERFORM S823-END-BROWSE THRU S823-EXIT           DTSCS27
01641                  SET L823-NO-REC-88 TO TRUE                       DTSCS27
01642              END-IF                                               DTSCS27
01643          END-IF                                                   DTSCS27
01644      END-PERFORM.                                                 DTSCS27
01645                                                                   DTSCS27
01646      MOVE HOLD-KEY-AREA TO ASKL-KEY-AREA.                         DTSCS27
01647                                                                   DTSCS27
01648      PERFORM S823-START-BROWSE THRU S823-EXIT.                    DTSCS27
01649                                                                   DTSCS27
01650      IF L823-NO-REC-88                                            DTSCS27
01651          NEXT SENTENCE                                            DTSCS27
01652      ELSE                                                         DTSCS27
01653          IF ASKL-KEY-AREA NOT = HOLD-KEY-AREA                     DTSCS27
01654              PERFORM S823-END-BROWSE THRU S823-EXIT               DTSCS27
01655              SET L823-NO-REC-88 TO TRUE.                          DTSCS27
01656  P6111-EXIT.                                                      DTSCS27
01657      EXIT.                                                        DTSCS27
01658      SKIP3                                                        DTSCS27
01659  P6120-PAGE-NONE.                                                 DTSCS27
01660      PERFORM S823-END-BROWSE THRU S823-EXIT.                      DTSCS27
01661                                                                   DTSCS27
01662      IF WRK-ITEM-NO = +0                                          DTSCS27
01663          NEXT SENTENCE                                            DTSCS27
01664      ELSE                                                         DTSCS27
01665      IF ASKL-ITEM-NO = WRK-ITEM-NO                                DTSCS27
01666          NEXT SENTENCE                                            DTSCS27
01667      ELSE                                                         DTSCS27
01668          MOVE EMSG-NO-DOC TO WRK-MSG-AREA                         DTSCS27
01669          PERFORM S1112-ERROR THRU S1112-EXIT.                     DTSCS27
01670  P6120-EXIT.                                                      DTSCS27
01671      EXIT.                                                        DTSCS27
01672      SKIP3                                                        DTSCS27
01673  P6130-PAGE-BACK.                                                 DTSCS27
01674      IF ASKL-ITEM-NO >= LCCM-ITEM-NO                              DTSCS27
01675          NEXT SENTENCE                                            DTSCS27
01676      ELSE                                                         DTSCS27
01677          PERFORM S823-END-BROWSE THRU S823-EXIT                   DTSCS27
01678          GO TO P6130-EXIT.                                        DTSCS27
01679                                                                   DTSCS27
01680      MOVE ASKL-KEY-AREA TO HOLD-KEY-AREA.                         DTSCS27
01681                                                                   DTSCS27
01682      PERFORM S823-READ-PREV THRU S823-EXIT.                       DTSCS27
01683                                                                   DTSCS27
01684      IF L823-NO-REC-88                                            DTSCS27
01685          SET PAGE-FIRST-88 TO TRUE                                DTSCS27
01686          GO TO P6130-EXIT.                                        DTSCS27
01687                                                                   DTSCS27
01688      PERFORM S823-READ-PREV THRU S823-EXIT.                       DTSCS27
01689                                                                   DTSCS27
01690      IF L823-NO-REC-88                                            DTSCS27
01691          SET PAGE-FIRST-88 TO TRUE                                DTSCS27
01692          GO TO P6130-EXIT.                                        DTSCS27
01693                                                                   DTSCS27
01694      PERFORM S823-END-BROWSE THRU S823-EXIT.                      DTSCS27
01695                                                                   DTSCS27
01696      IF (ASKL-ITEM-NO > +0)                                       DTSCS27
01697             AND                                                   DTSCS27
01698         (ASKL-BATCH-NO = WRK-BATCH-NO)                            DTSCS27
01699          NEXT SENTENCE                                            DTSCS27
01700      ELSE                                                         DTSCS27
01701          SET PAGE-FIRST-88 TO TRUE                                DTSCS27
01702          MOVE HOLD-KEY-AREA TO ASKL-KEY-AREA                      DTSCS27
01703          PERFORM S823-READ THRU S823-EXIT                         DTSCS27
01704          IF L823-NO-REC-88                                        DTSCS27
01705              GO TO S899-ABEND.                                    DTSCS27
01706  P6130-EXIT.                                                      DTSCS27
01707      EXIT.                                                        DTSCS27
01708      SKIP3                                                        DTSCS27
01709  P6140-PAGE-NEXT.                                                 DTSCS27
01710      IF LCCM-ITEM-NO = ASKL-ITEM-NO                               DTSCS27
01711          NEXT SENTENCE                                            DTSCS27
01712      ELSE                                                         DTSCS27
01713          PERFORM S823-END-BROWSE THRU S823-EXIT                   DTSCS27
01714          GO TO P6140-EXIT.                                        DTSCS27
01715                                                                   DTSCS27
01716      MOVE ASKL-KEY-AREA TO HOLD-KEY-AREA.                         DTSCS27
01717                                                                   DTSCS27
01718      PERFORM S823-READ-NEXT THRU S823-EXIT.                       DTSCS27
01719                                                                   DTSCS27
01720      IF L823-NO-REC-88                                            DTSCS27
01721          SET PAGE-LAST-88 TO TRUE                                 DTSCS27
01722          GO TO P6140-EXIT.                                        DTSCS27
01723                                                                   DTSCS27
01724      PERFORM S823-END-BROWSE THRU S823-EXIT.                      DTSCS27
01725                                                                   DTSCS27
01726      IF (ASKL-ITEM-NO > +0)                                       DTSCS27
01727             AND                                                   DTSCS27
01728         (ASKL-BATCH-NO = WRK-BATCH-NO)                            DTSCS27
01729          NEXT SENTENCE                                            DTSCS27
01730      ELSE                                                         DTSCS27
01731          SET PAGE-LAST-88 TO TRUE                                 DTSCS27
01732          MOVE HOLD-KEY-AREA TO ASKL-KEY-AREA                      DTSCS27
01733          PERFORM S823-READ THRU S823-EXIT                         DTSCS27
01734          IF L823-NO-REC-88                                        DTSCS27
01735              GO TO S899-ABEND.                                    DTSCS27
01736  P6140-EXIT.                                                      DTSCS27
01737      EXIT.                                                        DTSCS27
01738 /*****************************************************************DTSCS27
01739 * THE RECORD WAS FOUND SO FORMAT AND PLACE ALL FIELDS            *DTSCS27
01740 ******************************************************************DTSCS27
01741                                                                   DTSCS27
01742  P6900-CONSTRUCT-SCREEN.                                          DTSCS27
01743      IF ASKL-ATX-88                                               DTSCS27
01744          NEXT SENTENCE                                            DTSCS27
01745      ELSE                                                         DTSCS27
01746          GO TO S899-ABEND.                                        DTSCS27
01747                                                                   DTSCS27
01748      MOVE ASKL-REC TO AATX-REC.                                   DTSCS27
01749                                                                   DTSCS27
01750      PERFORM P6910-FROM-AATX THRU P6910-EXIT.                     DTSCS27
01751                                                                   DTSCS27
01752      PERFORM S1004-INQ-SCREEN-EDITS THRU S1004-EXIT.              DTSCS27
01753                                                                   DTSCS27
01754      IF AATX-PROCESSED-DATE > +0                                  DTSCS27
01755          MOVE MSG-P27D-AREA TO LCCM-MSG-AREA                      DTSCS27
01756 *********PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT              DTSCS27
01757          GO TO P6900-EXIT.                                        DTSCS27
01758                                                                   DTSCS27
01759      PERFORM P6920-FROM-W001 THRU P6920-EXIT.                     DTSCS27
01760                                                                   DTSCS27
01761      IF (AATX-PASSED-FULL-EDITS-NO-88)                            DTSCS27
01762                AND                                                DTSCS27
01763         (LCCM-OP-ARPT-EDIT-FULL-88)                               DTSCS27
01764          PERFORM P6990-REEDIT THRU P6990-EXIT                     DTSCS27
01765          GO TO P6900-EXIT.                                        DTSCS27
01766                                                                   DTSCS27
01767      IF PAGE-FIRST-88                                             DTSCS27
01768          MOVE PMSG-FIRST-PAGE TO LCCM-MSG-AREA                    DTSCS27
01769      ELSE                                                         DTSCS27
01770      IF PAGE-LAST-88                                              DTSCS27
01771          MOVE PMSG-LAST-PAGE TO LCCM-MSG-AREA.                    DTSCS27
01772  P6900-EXIT.                                                      DTSCS27
01773      EXIT.                                                        DTSCS27
01774                                                                   DTSCS27
01775                                                                   DTSCS27
01776                                                                   DTSCS27
01777  P6910-FROM-AATX.                                                 DTSCS27
01778      MOVE AATX-BATCH-NO TO MAP-BATCH-NO-N.                        DTSCS27
01779                                                                   DTSCS27
01780      MOVE AATX-ITEM-NO TO MAP-ITEM-NO-N.                          DTSCS27
01781                                                                   DTSCS27
01782      IF NOT AATX-NAME-CHECK-NO-ENTRY-88                           DTSCS27
01783          MOVE AATX-NAME-CHECK TO MAP-EMP-NAME-CHECK.              DTSCS27
01784                                                                   DTSCS27
01785      IF NOT AATX-EMP-NO-NO-ENTRY-88                               DTSCS27
01786          MOVE AATX-EMP-NO TO LCCM-EMP-NO                          DTSCS27
01787                              WRK-DISPLAY                          DTSCS27
01788          MOVE WRK-EMP-NO-1 TO MAP-EMP-NO-1                        DTSCS27
01789          MOVE WRK-EMP-NO-2 TO MAP-EMP-NO-2.                       DTSCS27
01790                                                                   DTSCS27
01791      IF NOT AATX-YRQ-NO-ENTRY-88                                  DTSCS27
01792          MOVE AATX-YRQ TO WRK-DISPLAY                             DTSCS27
01793          MOVE WRK-DISPLAY-YRQ-YR TO MAP-YRQ-YR                    DTSCS27
01794          MOVE WRK-DISPLAY-YRQ-Q  TO MAP-YRQ-Q.                    DTSCS27
01795                                                                   DTSCS27
01796      MOVE AATX-VERIFIED-IND TO MAP-VERIFIED-IND                   DTSCS27
01797                                                                   DTSCS27
01798      IF NOT AATX-JAN-NO-ENTRY-88                                  DTSCS27
01799         MOVE AATX-JAN-EMPL-CNT TO MAP-JAN-EMPL-CNT-N.             DTSCS27
01800                                                                   DTSCS27
01801      IF NOT AATX-FEB-NO-ENTRY-88                                  DTSCS27
01802         MOVE AATX-FEB-EMPL-CNT TO MAP-FEB-EMPL-CNT-N.             DTSCS27
01803                                                                   DTSCS27
01804      IF NOT AATX-MAR-NO-ENTRY-88                                  DTSCS27
01805         MOVE AATX-MAR-EMPL-CNT TO MAP-MAR-EMPL-CNT-N.             DTSCS27
01806                                                                   DTSCS27
01807      IF NOT AATX-APR-NO-ENTRY-88                                  DTSCS27
01808         MOVE AATX-APR-EMPL-CNT TO MAP-APR-EMPL-CNT-N.             DTSCS27
01809                                                                   DTSCS27
01810      IF NOT AATX-MAY-NO-ENTRY-88                                  DTSCS27
01811         MOVE AATX-MAY-EMPL-CNT TO MAP-MAY-EMPL-CNT-N.             DTSCS27
01812                                                                   DTSCS27
01813      IF NOT AATX-JUN-NO-ENTRY-88                                  DTSCS27
01814         MOVE AATX-JUN-EMPL-CNT TO MAP-JUN-EMPL-CNT-N.             DTSCS27
01815                                                                   DTSCS27
01816      IF NOT AATX-JUL-NO-ENTRY-88                                  DTSCS27
01817         MOVE AATX-JUL-EMPL-CNT TO MAP-JUL-EMPL-CNT-N.             DTSCS27
01818                                                                   DTSCS27
01819      IF NOT AATX-AUG-NO-ENTRY-88                                  DTSCS27
01820         MOVE AATX-AUG-EMPL-CNT TO MAP-AUG-EMPL-CNT-N.             DTSCS27
01821                                                                   DTSCS27
01822      IF NOT AATX-SEP-NO-ENTRY-88                                  DTSCS27
01823         MOVE AATX-SEP-EMPL-CNT TO MAP-SEP-EMPL-CNT-N.             DTSCS27
01824                                                                   DTSCS27
01825      IF NOT AATX-OCT-NO-ENTRY-88                                  DTSCS27
01826         MOVE AATX-OCT-EMPL-CNT TO MAP-OCT-EMPL-CNT-N.             DTSCS27
01827                                                                   DTSCS27
01828      IF NOT AATX-NOV-NO-ENTRY-88                                  DTSCS27
01829         MOVE AATX-NOV-EMPL-CNT TO MAP-NOV-EMPL-CNT-N.             DTSCS27
01830                                                                   DTSCS27
01831      IF NOT AATX-DEC-NO-ENTRY-88                                  DTSCS27
01832         MOVE AATX-DEC-EMPL-CNT TO MAP-DEC-EMPL-CNT-N.             DTSCS27
01833                                                                   DTSCS27
01834      IF NOT AATX-TOT-WAGE-NO-ENTRY-88                             DTSCS27
01835          MOVE AATX-TOT-WAGE TO MAP-TOT-WAGE-N.                    DTSCS27
01836                                                                   DTSCS27
01837      IF NOT AATX-TAX-WAGE-NO-ENTRY-88                             DTSCS27
01838          MOVE AATX-TAX-WAGE TO MAP-TAX-WAGE-N.                    DTSCS27
01839                                                                   DTSCS27
01840      IF NOT AATX-REMIT-AMT-NO-ENTRY-88                            DTSCS27
01841          MOVE AATX-REMIT-AMT TO MAP-REMIT-AMT-N.                  DTSCS27
01842                                                                   DTSCS27
01843      MOVE AATX-RPT-TYPE TO MAP-RPT-TYPE.                          DTSCS27
01844                                                                   DTSCS27
01845      MOVE AATX-WAIVE-BOTH-IND TO MAP-WAIVE-BOTH-IND               DTSCS27
01846                                                                   DTSCS27
01847      MOVE AATX-WAIVE-LATE-PEN-IND TO MAP-WAIVE-LATE-PEN-IND       DTSCS27
01848                                                                   DTSCS27
01849      MOVE AATX-WAIVE-INT-IND TO MAP-WAIVE-INT-IND                 DTSCS27
01850                                                                   DTSCS27
01851      MOVE AATX-RESPONSIBLE-ACTIVITY TO MAP-RESPONSIBLE-ACTIVITY.  DTSCS27
01852                                                                   DTSCS27
01853      MOVE AATX-RESPONSIBLE-OP-ID TO MAP-RESPONSIBLE-OP-ID.        DTSCS27
01854                                                                   DTSCS27
01855      IF AATX-RECEIVED-DATE > +0                                   DTSCS27
01856         MOVE AATX-RECEIVED-DATE TO WRK-DISPLAY                    DTSCS27
01857         MOVE WRK-DISPLAY-MO TO MAP-RECEIVED-DATE-MO               DTSCS27
01858         MOVE WRK-DISPLAY-DA TO MAP-RECEIVED-DATE-DA               DTSCS27
01859         MOVE WRK-DISPLAY-YR TO MAP-RECEIVED-DATE-YR.              DTSCS27
01860                                                                   DTSCS27
01861      MOVE AATX-DISREGARD-EDITS-IND TO MAP-DISREGARD-EDITS-IND.    DTSCS27
01862                                                                   DTSCS27
01863      MOVE AATX-STATUS-CHANGE-IND   TO MAP-STATUS-CHANGE-IND.      DTSCS27
01864                                                                   DTSCS27
01865      MOVE AATX-PASSED-FULL-EDITS-IND                              DTSCS27
01866        TO MAP-PASSED-FULL-EDITS-IND.                              DTSCS27
01867                                                                   DTSCS27
01868      IF AATX-PROCESSED-DATE > +0                                  DTSCS27
01869         MOVE AATX-PROCESSED-DATE TO L001-FED-8-DATE-9             DTSCS27
01870         PERFORM S001-FROM-FED-8 THRU S001-EXIT                    DTSCS27
01871         MOVE L001-SLASH-DATE TO MAP-PROCESSED-DATE.               DTSCS27
01872  P6910-EXIT.                                                      DTSCS27
01873      EXIT.                                                        DTSCS27
01874                                                                   DTSCS27
01875  P6920-FROM-W001.                                                 DTSCS27
01876      PERFORM P9000-INIT-SCR-HOLD  THRU P9000-EXIT.                DTSCS27
01877      MOVE ZERO               TO WRK-TOT-WAGE                      DTSCS27
01878                                 WRK-CALC-TAX-WAGE.                DTSCS27
01879                                                                   DTSCS27
01880      MOVE LOW-VALUES TO WSKL-KEY-AREA.                            DTSCS27
01881                                                                   DTSCS27
01882      MOVE AATX-BATCH-NO TO WSKL-BATCH-NO.                         DTSCS27
01883                                                                   DTSCS27
01884      MOVE AATX-ITEM-NO TO WSKL-ITEM-NO.                           DTSCS27
01885                                                                   DTSCS27
01886      MOVE +1          TO WSKL-SEQ-NO.                             DTSCS27
01887                                                                   DTSCS27
01888      PERFORM S880-START-BROWSE THRU S880-EXIT.                    DTSCS27
01889                                                                   DTSCS27
01890      IF L880-NO-REC-88                                            DTSCS27
01891         GO TO P6920-EXIT.                                         DTSCS27
01892                                                                   DTSCS27
01893      MOVE +0 TO SUB.                                              DTSCS27
01894      SET WRK-WAGE-FIRST-TIME-YES-88 TO TRUE.                      DTSCS27
01895      PERFORM P6921-WAGE-ITEMS THRU P6921-EXIT                     DTSCS27
01896         UNTIL L880-NO-REC-88.                                     DTSCS27
01897                                                                   DTSCS27
01898      IF SUB > ZERO                                                DTSCS27
01899         PERFORM P9500-SAVE-TO-TS    THRU P9500-EXIT.              DTSCS27
01900                                                                   DTSCS27
01901      IF WRK-SCR-HOLD-LAST-ITEM = ZERO                             DTSCS27
01902         NEXT SENTENCE                                             DTSCS27
01903      ELSE                                                         DTSCS27
01904         MOVE 1                        TO L829-ITEM-NO             DTSCS27
01905                                          WRK-SCR-HOLD-CURR-ITEM   DTSCS27
01906         PERFORM S829A-READ-ITEM       THRU S829A-EXIT             DTSCS27
01907         MOVE L829-REC                 TO L427-WAGE-AREA           DTSCS27
01908         PERFORM P9800-TS-TO-SCREEN    THRU P9800-EXIT.            DTSCS27
01909                                                                   DTSCS27
01910      MOVE WRK-CALC-TAX-WAGE  TO MAP-CALC-TAX-WAGE.                DTSCS27
01911      MOVE WRK-TOT-WAGE       TO MAP-TOT-WAGE-N.                   DTSCS27
01912                                                                   DTSCS27
01913  P6920-EXIT.                                                      DTSCS27
01914      EXIT.                                                        DTSCS27
01915                                                                   DTSCS27
01916  P6921-WAGE-ITEMS.                                                DTSCS27
01917      MOVE WSKL-REC    TO W001-REC.                                DTSCS27
01918                                                                   DTSCS27
01919      IF W001-BATCH-NO = AATX-BATCH-NO                             DTSCS27
01920      AND W001-ITEM-NO = AATX-ITEM-NO                              DTSCS27
01921         NEXT SENTENCE                                             DTSCS27
01922      ELSE                                                         DTSCS27
01923         SET L880-NO-REC-88    TO TRUE                             DTSCS27
01924         GO TO P6921-EXIT.                                         DTSCS27
01925                                                                   DTSCS27
01926      IF WRK-WAGE-FIRST-TIME-YES-88                                DTSCS27
01927         SET WRK-WAGE-FIRST-TIME-NO-88   TO TRUE                   DTSCS27
01928         MOVE W001-SSN                   TO WRK-CURR-SSN           DTSCS27
01929         MOVE +1                         TO SUB                    DTSCS27
01930         PERFORM P6921A-SET-SUBSCRIPT    THRU P6921A-EXIT          DTSCS27
01931      ELSE                                                         DTSCS27
01932         IF W001-SSN NOT = WRK-CURR-SSN                            DTSCS27
01933            MOVE W001-SSN                  TO WRK-CURR-SSN         DTSCS27
01934            ADD +1                         TO SUB                  DTSCS27
01935            IF SUB > WRK-MAX-WAGE-ITEMS                            DTSCS27
01936               PERFORM P9500-SAVE-TO-TS    THRU P9500-EXIT         DTSCS27
01937               PERFORM P9900-INIT-TS       THRU P9900-EXIT         DTSCS27
01938               MOVE +1                     TO SUB                  DTSCS27
01939            END-IF                                                 DTSCS27
01940            PERFORM P6921A-SET-SUBSCRIPT    THRU P6921A-EXIT.      DTSCS27
01941                                                                   DTSCS27
01942      IF AATX-ORIG-88                                              DTSCS27
01943      OR AATX-ESTIM-88                                             DTSCS27
01944         NEXT SENTENCE                                             DTSCS27
01945      ELSE                                                         DTSCS27
01946         PERFORM P6921B-CURR-WAGE-LINE  THRU P6921B-EXIT.          DTSCS27
01947                                                                   DTSCS27
01948      MOVE SUB                    TO L427-WAGE-TBL-CNT.            DTSCS27
01949                                                                   DTSCS27
01950      MOVE W001-SSN               TO L427-SSN (SUB).               DTSCS27
01951      MOVE W001-SSN-ERR-ID        TO L427-SSN-ERR-ID (SUB).        DTSCS27
01952      IF L427-SSN-DUMMY-88 (SUB)                                   DTSCS27
01953         IF W001-SSN > WRK-SCR-HOLD-DUMMY-SSN                      DTSCS27
01954            MOVE W001-SSN TO WRK-SCR-HOLD-DUMMY-SSN.               DTSCS27
01955                                                                   DTSCS27
01956      MOVE W001-NAME              TO L427-SSN-NAME (SUB).          DTSCS27
01957      MOVE W001-NAME-ERR-ID       TO L427-SSN-NAME-ERR-ID (SUB).   DTSCS27
01958                                                                   DTSCS27
01959      MOVE W001-YRQ               TO L004-QTR-5-9.                 DTSCS27
01960      EVALUATE L004-QTR-5-Q                                        DTSCS27
01961         WHEN 1                                                    DTSCS27
01962            MOVE W001-WAGE-CHNG   TO L427-QTR1-WAGE-CHNG (SUB)     DTSCS27
01963            MOVE W001-CURR-WAGE   TO L427-QTR1-CURR-WAGE (SUB)     DTSCS27
01964            MOVE W001-TAX-WAGE    TO L427-QTR1-TAX-WAGE (SUB)      DTSCS27
01965            MOVE W001-PRIOR-WAGE  TO L427-QTR1-PRIOR-WAGE (SUB)    DTSCS27
01966            MOVE W001-WAGE-ERR-ID TO L427-QTR1-ERR-ID (SUB)        DTSCS27
01967         WHEN 2                                                    DTSCS27
01968            MOVE W001-WAGE-CHNG   TO L427-QTR2-WAGE-CHNG (SUB)     DTSCS27
01969            MOVE W001-CURR-WAGE   TO L427-QTR2-CURR-WAGE (SUB)     DTSCS27
01970            MOVE W001-TAX-WAGE    TO L427-QTR2-TAX-WAGE (SUB)      DTSCS27
01971            MOVE W001-PRIOR-WAGE  TO L427-QTR2-PRIOR-WAGE (SUB)    DTSCS27
01972            MOVE W001-WAGE-ERR-ID TO L427-QTR2-ERR-ID (SUB)        DTSCS27
01973         WHEN 3                                                    DTSCS27
01974            MOVE W001-WAGE-CHNG   TO L427-QTR3-WAGE-CHNG (SUB)     DTSCS27
01975            MOVE W001-CURR-WAGE   TO L427-QTR3-CURR-WAGE (SUB)     DTSCS27
01976            MOVE W001-TAX-WAGE    TO L427-QTR3-TAX-WAGE (SUB)      DTSCS27
01977            MOVE W001-PRIOR-WAGE  TO L427-QTR3-PRIOR-WAGE (SUB)    DTSCS27
01978            MOVE W001-WAGE-ERR-ID TO L427-QTR3-ERR-ID (SUB)        DTSCS27
01979         WHEN 4                                                    DTSCS27
01980            MOVE W001-WAGE-CHNG   TO L427-QTR4-WAGE-CHNG (SUB)     DTSCS27
01981            MOVE W001-CURR-WAGE   TO L427-QTR4-CURR-WAGE (SUB)     DTSCS27
01982            MOVE W001-TAX-WAGE    TO L427-QTR4-TAX-WAGE (SUB)      DTSCS27
01983            MOVE W001-PRIOR-WAGE  TO L427-QTR4-PRIOR-WAGE (SUB)    DTSCS27
01984            MOVE W001-WAGE-ERR-ID TO L427-QTR4-ERR-ID (SUB)        DTSCS27
01985      END-EVALUATE.                                                DTSCS27
01986                                                                   DTSCS27
01987      PERFORM S880-READ-NEXT      THRU S880-EXIT.                  DTSCS27
01988                                                                   DTSCS27
01989  P6921-EXIT.                                                      DTSCS27
01990      EXIT.                                                        DTSCS27
01991                                                                   DTSCS27
01992  P6921A-SET-SUBSCRIPT.                                            DTSCS27
01993         IF AATX-ORIG-88                                           DTSCS27
01994         OR AATX-ESTIM-88                                          DTSCS27
01995            NEXT SENTENCE                                          DTSCS27
01996         ELSE                                                      DTSCS27
01997            MOVE SUB TO SUB1                                       DTSCS27
01998            COMPUTE SUB = SUB + 1                                  DTSCS27
01999         END-IF.                                                   DTSCS27
02000                                                                   DTSCS27
02001  P6921A-EXIT.                                                     DTSCS27
02002      EXIT.                                                        DTSCS27
02003                                                                   DTSCS27
02004  P6921B-CURR-WAGE-LINE.                                           DTSCS27
02005      MOVE W001-SSN               TO L427-SSN (SUB1).              DTSCS27
02006      SET  L427-SSN-CURR-WAGE-88 (SUB1)  TO TRUE.                  DTSCS27
02007      MOVE W001-NAME              TO L427-SSN-NAME (SUB1).         DTSCS27
02008      MOVE W001-NAME-ERR-ID       TO L427-SSN-NAME-ERR-ID (SUB1).  DTSCS27
02009                                                                   DTSCS27
02010      MOVE W001-YRQ               TO L004-QTR-5-9.                 DTSCS27
02011      EVALUATE L004-QTR-5-Q                                        DTSCS27
02012         WHEN 1                                                    DTSCS27
02013            MOVE W001-CURR-WAGE   TO L427-QTR1-CURR-WAGE (SUB1)    DTSCS27
02014            MOVE W001-WAGE-ERR-ID TO L427-QTR1-ERR-ID (SUB1)       DTSCS27
02015         WHEN 2                                                    DTSCS27
02016            MOVE W001-CURR-WAGE   TO L427-QTR2-CURR-WAGE (SUB1)    DTSCS27
02017            MOVE W001-WAGE-ERR-ID TO L427-QTR2-ERR-ID (SUB1)       DTSCS27
02018         WHEN 3                                                    DTSCS27
02019            MOVE W001-CURR-WAGE   TO L427-QTR3-CURR-WAGE (SUB1)    DTSCS27
02020            MOVE W001-WAGE-ERR-ID TO L427-QTR3-ERR-ID (SUB1)       DTSCS27
02021         WHEN 4                                                    DTSCS27
02022            MOVE W001-CURR-WAGE   TO L427-QTR4-CURR-WAGE (SUB1)    DTSCS27
02023            MOVE W001-WAGE-ERR-ID TO L427-QTR4-ERR-ID (SUB1)       DTSCS27
02024      END-EVALUATE.                                                DTSCS27
02025                                                                   DTSCS27
02026  P6921B-EXIT.                                                     DTSCS27
02027      EXIT.                                                        DTSCS27
02028                                                                   DTSCS27
02029                                                                   DTSCS27
02030                                                                   DTSCS27
02031  P6990-REEDIT.                                                    DTSCS27
02032      SET LCCM-F10-88 TO TRUE.                                     DTSCS27
02033                                                                   DTSCS27
02034      PERFORM S1000-SCREEN-EDITS THRU S1000-EXIT.                  DTSCS27
02035      PERFORM P8970-FINAL-EDIT  THRU P8970-EXIT.                   DTSCS27
02036      PERFORM S1003-FINAL-EDITS  THRU S1003-EXIT.                  DTSCS27
02037                                                                   DTSCS27
02038      IF LCCM-NO-MSG                                               DTSCS27
02039          IF SCR-ACCESS-UPDATE                                     DTSCS27
02040              MOVE MSG-P27E-AREA TO LCCM-MSG-AREA.                 DTSCS27
02041                                                                   DTSCS27
02042      IF SCR-ACCESS-UPDATE                                         DTSCS27
02043          NEXT SENTENCE                                            DTSCS27
02044      ELSE                                                         DTSCS27
02045          PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT.             DTSCS27
02046  P6990-EXIT.                                                      DTSCS27
02047      EXIT.                                                        DTSCS27
02048 /*****************************************************************DTSCS27
02049 * FUNCTION KEY TO ADD, MOD OR DEL THE RECORD WAS PRESSED.        *DTSCS27
02050 ******************************************************************DTSCS27
02051                                                                   DTSCS27
02052  P7000-REQUEST-EDIT.                                              DTSCS27
02053      PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT.              DTSCS27
02054                                                                   DTSCS27
02055 *****IF LCCM-ENTER-88                                             DTSCS27
02056 *****   PERFORM P7100-EDIT-ADD THRU P7100-EXIT                    DTSCS27
02057 *****ELSE                                                         DTSCS27
02058      IF LCCM-F10-88                                               DTSCS27
02059      OR LCCM-F05-88                                               DTSCS27
02060      OR LCCM-F06-88                                               DTSCS27
02061         PERFORM P7200-EDIT-MOD THRU P7200-EXIT                    DTSCS27
02062      ELSE                                                         DTSCS27
02063      IF LCCM-F23-88                                               DTSCS27
02064         PERFORM P7300-EDIT-DEL THRU P7300-EXIT                    DTSCS27
02065      ELSE                                                         DTSCS27
02066         GO TO S899-ABEND.                                         DTSCS27
02067                                                                   DTSCS27
02068                                                                   DTSCS27
02069 *------------------------------------------------------           DTSCS27
02070 *  SCREEN STATUS IS NOT CHANGED IF AN ERROR IS DETECTED.          DTSCS27
02071 *  IN ORDER TO CONTINUE TO ATTEMPT A MOD THE SCREEN MUST          DTSCS27
02072 *  REMAIN IN 'INQUIRE' STATUS.                                    DTSCS27
02073 *------------------------------------------------------           DTSCS27
02074                                                                   DTSCS27
02075      IF LCCM-MSG                                                  DTSCS27
02076      OR LCCM-F05-88                                               DTSCS27
02077      OR LCCM-F06-88                                               DTSCS27
02078         NEXT SENTENCE                                             DTSCS27
02079      ELSE                                                         DTSCS27
02080         PERFORM S5100-SET-LOCK-ATTRB THRU S5100-EXIT              DTSCS27
02081 *****   IF LCCM-ENTER-88                                          DTSCS27
02082 *****      SET LCCM-SCR-ADD-LOCKED TO TRUE                        DTSCS27
02083 *****      MOVE PMSG-ADD-CONFIRM TO LCCM-MSG-ID                   DTSCS27
02084 *****   ELSE                                                      DTSCS27
02085         IF LCCM-F10-88                                            DTSCS27
02086            SET LCCM-SCR-MOD-LOCKED TO TRUE                        DTSCS27
02087            MOVE PMSG-MOD-CONFIRM TO LCCM-MSG-ID                   DTSCS27
02088         ELSE                                                      DTSCS27
02089         IF LCCM-F23-88                                            DTSCS27
02090            SET LCCM-SCR-DEL-LOCKED TO TRUE                        DTSCS27
02091            MOVE PMSG-DEL-CONFIRM TO LCCM-MSG-ID.                  DTSCS27
02092                                                                   DTSCS27
02093      MOVE WRK-SCR-HOLD-AREA   TO LCCM-SCR-HOLD-AREA.              DTSCS27
02094                                                                   DTSCS27
02095      SET RESP-SEND-MAP TO TRUE.                                   DTSCS27
02096  P7000-EXIT.                                                      DTSCS27
02097      EXIT.                                                        DTSCS27
02098 /*****************************************************************DTSCS27
02099 * MODIFICATION FUNCTION WAS REQUESTED                            *DTSCS27
02100 ******************************************************************DTSCS27
02101                                                                   DTSCS27
02102  P7200-EDIT-MOD.                                                  DTSCS27
02103                                                                   DTSCS27
02104 *-----------------------------------------------------            DTSCS27
02105 *    MODIFICATION REQUIRES THAT A RECORD WAS SUCCESSFULLY         DTSCS27
02106 *    INQUIRED                                                     DTSCS27
02107 *-----------------------------------------------------            DTSCS27
02108                                                                   DTSCS27
02109      IF NOT LCCM-SCR-INQUIRE                                      DTSCS27
02110         MOVE EMSG-MOD-PRECEDED TO LCCM-MSG-ID                     DTSCS27
02111         GO TO P7200-EXIT.                                         DTSCS27
02112                                                                   DTSCS27
02113                                                                   DTSCS27
02114 *-----------------------------------------------------            DTSCS27
02115 *    MAP-BATCH-NO MAY NOT BE CHANGED DURING THE MOD               DTSCS27
02116 *-----------------------------------------------------            DTSCS27
02117                                                                   DTSCS27
02118      PERFORM S1100-EDIT-KEY THRU S1100-EXIT.                      DTSCS27
02119                                                                   DTSCS27
02120      IF LCCM-MSG                                                  DTSCS27
02121          GO TO P7200-EXIT.                                        DTSCS27
02122                                                                   DTSCS27
02123      IF LCCM-BATCH-NO NOT = WRK-BATCH-NO                          DTSCS27
02124         MOVE EMSG-NO-BATCH-NO-CHANGE TO WRK-MSG-AREA              DTSCS27
02125         PERFORM S1111-ERROR THRU S1111-EXIT                       DTSCS27
02126         GO TO P7200-EXIT.                                         DTSCS27
02127                                                                   DTSCS27
02128      IF LCCM-ITEM-NO NOT = WRK-ITEM-NO                            DTSCS27
02129         MOVE EMSG-NO-ITEM-NO-CHANGE  TO WRK-MSG-AREA              DTSCS27
02130         PERFORM S1112-ERROR THRU S1112-EXIT                       DTSCS27
02131         GO TO P7200-EXIT.                                         DTSCS27
02132                                                                   DTSCS27
02133                                                                   DTSCS27
02134      PERFORM P7910-EDIT-FOR-PROCESSED THRU P7910-EXIT.            DTSCS27
02135                                                                   DTSCS27
02136      IF LCCM-MSG                                                  DTSCS27
02137          GO TO P7200-EXIT.                                        DTSCS27
02138                                                                   DTSCS27
02139                                                                   DTSCS27
02140      PERFORM S1000-SCREEN-EDITS THRU S1000-EXIT.                  DTSCS27
02141      IF LCCM-MSG                                                  DTSCS27
02142         IF WRK-SSN-ENTERED-NO-88                                  DTSCS27
02143            GO TO P7200-EXIT                                       DTSCS27
02144         ELSE                                                      DTSCS27
02145            PERFORM P9300-SCREEN-TO-TS THRU P9300-EXIT             DTSCS27
02146            GO TO P7200-EXIT.                                      DTSCS27
02147                                                                   DTSCS27
02148      PERFORM P9300-SCREEN-TO-TS THRU P9300-EXIT.                  DTSCS27
02149                                                                   DTSCS27
02150      IF LCCM-F05-88                                               DTSCS27
02151         PERFORM P7950-PAGE-BACK      THRU P7950-EXIT              DTSCS27
02152         PERFORM S5400-SET-ADD-LOCK-ATTRB  THRU S5400-EXIT         DTSCS27
02153         GO TO P7200-EXIT                                          DTSCS27
02154      ELSE                                                         DTSCS27
02155         IF LCCM-F06-88                                            DTSCS27
02156            PERFORM P7960-PAGE-FWRD   THRU P7960-EXIT              DTSCS27
02157            PERFORM S5400-SET-ADD-LOCK-ATTRB  THRU S5400-EXIT      DTSCS27
02158            GO TO P7200-EXIT.                                      DTSCS27
02159                                                                   DTSCS27
02160      PERFORM P8970-FINAL-EDIT  THRU P8970-EXIT.                   DTSCS27
02161                                                                   DTSCS27
02162      MOVE WRK-PASSED-FULL-EDITS-IND                               DTSCS27
02163        TO  WRK-SCR-HOLD-FULL-EDITS-IND                            DTSCS27
02164            MAP-PASSED-FULL-EDITS-IND.                             DTSCS27
02165  P7200-EXIT.                                                      DTSCS27
02166      EXIT.                                                        DTSCS27
02167 /*****************************************************************DTSCS27
02168 * DELETE FUNCTION WAS REQUESTED                                  *DTSCS27
02169 ******************************************************************DTSCS27
02170                                                                   DTSCS27
02171  P7300-EDIT-DEL.                                                  DTSCS27
02172                                                                   DTSCS27
02173 *-----------------------------------------------------            DTSCS27
02174 *    DELETION ALLOWED ONLY FOR USERS REFERENCED BELOW:            DTSCS27
02175 *-----------------------------------------------------            DTSCS27
02176      IF SCR-ACCESS-SUPERVISOR                                     DTSCS27
02177         NEXT SENTENCE                                             DTSCS27
02178      ELSE                                                         DTSCS27
02179         MOVE MSG-E27U-AREA  TO WRK-MSG-AREA                       DTSCS27
02180         PERFORM S1111-ERROR THRU S1111-EXIT                       DTSCS27
02181         GO TO P7300-EXIT.                                         DTSCS27
02182                                                                   DTSCS27
02183 *-----------------------------------------------------            DTSCS27
02184 *    DELETION REQUIRES THAT A RECORD WAS SUCCESSFULLY             DTSCS27
02185 *    INQUIRED                                                     DTSCS27
02186 *-----------------------------------------------------            DTSCS27
02187                                                                   DTSCS27
02188      IF NOT LCCM-SCR-INQUIRE                                      DTSCS27
02189         MOVE EMSG-DEL-PRECEDED TO LCCM-MSG-ID                     DTSCS27
02190         GO TO P7300-EXIT.                                         DTSCS27
02191                                                                   DTSCS27
02192                                                                   DTSCS27
02193 *-----------------------------------------------------            DTSCS27
02194 *    MAP-BATCH-NO MAY NOT BE CHANGED DURING THE DEL               DTSCS27
02195 *-----------------------------------------------------            DTSCS27
02196                                                                   DTSCS27
02197      PERFORM S1100-EDIT-KEY THRU S1100-EXIT.                      DTSCS27
02198                                                                   DTSCS27
02199      IF LCCM-MSG                                                  DTSCS27
02200          GO TO P7300-EXIT.                                        DTSCS27
02201                                                                   DTSCS27
02202      IF LCCM-BATCH-NO NOT = WRK-BATCH-NO                          DTSCS27
02203         MOVE EMSG-NO-BATCH-NO-CHANGE TO WRK-MSG-AREA              DTSCS27
02204         PERFORM S1111-ERROR THRU S1111-EXIT                       DTSCS27
02205         GO TO P7300-EXIT.                                         DTSCS27
02206                                                                   DTSCS27
02207      IF LCCM-ITEM-NO NOT = WRK-ITEM-NO                            DTSCS27
02208         MOVE EMSG-NO-ITEM-NO-CHANGE TO WRK-MSG-AREA               DTSCS27
02209         PERFORM S1112-ERROR THRU S1112-EXIT                       DTSCS27
02210         GO TO P7300-EXIT.                                         DTSCS27
02211                                                                   DTSCS27
02212      MOVE WRK-BATCH-NO TO L372-BATCH-NO.                          DTSCS27
02213      PERFORM S372-BATCH-INQUIRY THRU S372-EXIT.                   DTSCS27
02214      IF L372-BATCH-BALANCED-NO-88                                 DTSCS27
02215         MOVE MSG-E27V-AREA  TO WRK-MSG-AREA                       DTSCS27
02216         PERFORM S1111-ERROR THRU S1111-EXIT                       DTSCS27
02217         GO TO P7300-EXIT.                                         DTSCS27
02218                                                                   DTSCS27
02219      PERFORM P7910-EDIT-FOR-PROCESSED THRU P7910-EXIT.            DTSCS27
02220                                                                   DTSCS27
02221      IF LCCM-MSG                                                  DTSCS27
02222          GO TO P7300-EXIT.                                        DTSCS27
02223  P7300-EXIT.                                                      DTSCS27
02224      EXIT.                                                        DTSCS27
02225      EJECT                                                        DTSCS27
02226  P7910-EDIT-FOR-PROCESSED.                                        DTSCS27
02227      MOVE LOW-VALUES TO ASKL-KEY-AREA.                            DTSCS27
02228                                                                   DTSCS27
02229      MOVE WRK-BATCH-NO TO ASKL-BATCH-NO.                          DTSCS27
02230                                                                   DTSCS27
02231      MOVE WRK-ITEM-NO TO ASKL-ITEM-NO.                            DTSCS27
02232                                                                   DTSCS27
02233      PERFORM S823-READ THRU S823-EXIT.                            DTSCS27
02234                                                                   DTSCS27
02235      IF L823-NO-REC-88                                            DTSCS27
02236          GO TO P7910-EXIT.                                        DTSCS27
02237                                                                   DTSCS27
02238                                                                   DTSCS27
02239      MOVE ASKL-REC TO AATX-REC.                                   DTSCS27
02240                                                                   DTSCS27
02241                                                                   DTSCS27
02242      IF AATX-NOT-PROCESSED-88                                     DTSCS27
02243          CONTINUE                                                 DTSCS27
02244      ELSE                                                         DTSCS27
02245          MOVE MSG-E27C-AREA TO WRK-MSG-AREA                       DTSCS27
02246          PERFORM S1111-ERROR THRU S1111-EXIT                      DTSCS27
02247          PERFORM S1112-ERROR THRU S1112-EXIT                      DTSCS27
02248          GO TO P7910-EXIT.                                        DTSCS27
02249  P7910-EXIT.                                                      DTSCS27
02250      EXIT.                                                        DTSCS27
02251                                                                   DTSCS27
02252  P7950-PAGE-BACK.                                                 DTSCS27
02253      IF WRK-SCR-HOLD-CURR-ITEM > +1                               DTSCS27
02254         SUBTRACT +1 FROM WRK-SCR-HOLD-CURR-ITEM                   DTSCS27
02255         MOVE WRK-SCR-HOLD-CURR-ITEM TO L829-ITEM-NO               DTSCS27
02256         PERFORM S829A-READ-ITEM THRU S829A-EXIT                   DTSCS27
02257         MOVE L829-REC               TO L427-WAGE-AREA             DTSCS27
02258         PERFORM P9800-TS-TO-SCREEN  THRU P9800-EXIT               DTSCS27
02259      ELSE                                                         DTSCS27
02260         MOVE PMSG-FIRST-PAGE      TO LCCM-MSG-ID                  DTSCS27
02261      END-IF.                                                      DTSCS27
02262                                                                   DTSCS27
02263      IF (MAP-SSN1 (1) = SPACES OR LOW-VALUES)                     DTSCS27
02264         MOVE CATB-CURSOR TO MAP-SSN1-L (1)                        DTSCS27
02265      ELSE                                                         DTSCS27
02266         IF L427-SSN-CURR-WAGE-88 (1)                              DTSCS27
02267            MOVE CATB-CURSOR TO MAP-YRQ1-WAGES-L (2)               DTSCS27
02268         ELSE                                                      DTSCS27
02269            MOVE CATB-CURSOR TO MAP-YRQ1-WAGES-L (1).              DTSCS27
02270      SET CURSOR-SET-YES TO TRUE.                                  DTSCS27
02271                                                                   DTSCS27
02272  P7950-EXIT.                                                      DTSCS27
02273      EXIT.                                                        DTSCS27
02274                                                                   DTSCS27
02275  P7960-PAGE-FWRD.                                                 DTSCS27
02276      IF WRK-SCR-HOLD-CURR-ITEM < WRK-SCR-HOLD-LAST-ITEM           DTSCS27
02277         ADD +1 TO WRK-SCR-HOLD-CURR-ITEM                          DTSCS27
02278         MOVE WRK-SCR-HOLD-CURR-ITEM TO L829-ITEM-NO               DTSCS27
02279         PERFORM S829A-READ-ITEM THRU S829A-EXIT                   DTSCS27
02280         MOVE L829-REC               TO L427-WAGE-AREA             DTSCS27
02281         PERFORM P9800-TS-TO-SCREEN  THRU P9800-EXIT               DTSCS27
02282      ELSE                                                         DTSCS27
02283         PERFORM P9120-BLANK-WAGE-SCR  THRU P9120-EXIT             DTSCS27
02284 *&      IF L427-WAGE-TBL-CNT < WRK-MAX-WAGE-ITEMS                 DTSCS27
02285 *          MOVE PMSG-LAST-PAGE      TO LCCM-MSG-ID                DTSCS27
02286 *       ELSE                                                      DTSCS27
02287 *          PERFORM P9120-BLANK-WAGE-SCR  THRU P9120-EXIT          DTSCS27
02288 *&      END-IF                                                    DTSCS27
02289      END-IF.                                                      DTSCS27
02290                                                                   DTSCS27
02291      IF (MAP-SSN1 (1) = SPACES OR LOW-VALUES)                     DTSCS27
02292         MOVE CATB-CURSOR TO MAP-SSN1-L (1)                        DTSCS27
02293      ELSE                                                         DTSCS27
02294         IF L427-SSN-CURR-WAGE-88 (1)                              DTSCS27
02295            MOVE CATB-CURSOR TO MAP-YRQ1-WAGES-L (2)               DTSCS27
02296         ELSE                                                      DTSCS27
02297            MOVE CATB-CURSOR TO MAP-YRQ1-WAGES-L (1).              DTSCS27
02298      SET CURSOR-SET-YES TO TRUE.                                  DTSCS27
02299                                                                   DTSCS27
02300  P7960-EXIT.                                                      DTSCS27
02301      EXIT.                                                        DTSCS27
02302                                                                   DTSCS27
02303 /*****************************************************************DTSCS27
02304 * THE UPDATE/ADD/DELETE FUNCTION WAS CONFIRMED OR CANCELED       *DTSCS27
02305 ******************************************************************DTSCS27
02306                                                                   DTSCS27
02307  P8000-REQUEST-UPDATE.                                            DTSCS27
02308                                                                   DTSCS27
02309      EVALUATE TRUE                                                DTSCS27
02310         WHEN LCCM-SCR-MOD-LOCKED                                  DTSCS27
02311            PERFORM P8200-MOD THRU P8200-EXIT                      DTSCS27
02312         WHEN LCCM-SCR-DEL-LOCKED                                  DTSCS27
02313            PERFORM P8300-DEL THRU P8300-EXIT                      DTSCS27
02314         WHEN OTHER                                                DTSCS27
02315            PERFORM P8100-ADD THRU P8100-EXIT                      DTSCS27
02316      END-EVALUATE.                                                DTSCS27
02317                                                                   DTSCS27
02318      MOVE WRK-SCR-HOLD-AREA   TO LCCM-SCR-HOLD-AREA.              DTSCS27
02319                                                                   DTSCS27
02320      SET RESP-SEND-MAP TO TRUE.                                   DTSCS27
02321  P8000-EXIT.                                                      DTSCS27
02322      EXIT.                                                        DTSCS27
02323 /*****************************************************************DTSCS27
02324 *                                                                *DTSCS27
02325 ******************************************************************DTSCS27
02326                                                                   DTSCS27
02327  P8100-ADD.                                                       DTSCS27
02328      PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT.              DTSCS27
02329                                                                   DTSCS27
02330      IF NOT LCCM-SCR-CLEAR                                        DTSCS27
02331         MOVE EMSG-ADD-PRECEDED TO LCCM-MSG-ID                     DTSCS27
02332         GO TO P8100-EXIT.                                         DTSCS27
02333                                                                   DTSCS27
02334      SET WRK-SSN-ENTERED-NO-88 TO TRUE.                           DTSCS27
02335      PERFORM S1000-SCREEN-EDITS          THRU S1000-EXIT          DTSCS27
02336      IF LCCM-MSG                                                  DTSCS27
02337         IF WRK-SSN-ENTERED-NO-88                                  DTSCS27
02338            GO TO P8100-EXIT                                       DTSCS27
02339         ELSE                                                      DTSCS27
02340            PERFORM P9300-SCREEN-TO-TS THRU P9300-EXIT             DTSCS27
02341            GO TO P8100-EXIT.                                      DTSCS27
02342                                                                   DTSCS27
02343      PERFORM P8104-SET-LCCM-BATCH        THRU P8104-EXIT.         DTSCS27
02344                                                                   DTSCS27
02345      PERFORM P8101-PREVIOUSLY-ENTERED-EDIT THRU P8101-EXIT.       DTSCS27
02346      IF LCCM-MSG                                                  DTSCS27
02347          GO TO P8100-EXIT.                                        DTSCS27
02348                                                                   DTSCS27
02349 *---------------------------------------------------              DTSCS27
02350 *    BATCH HEADER RECORD MUST EXIST                               DTSCS27
02351 *---------------------------------------------------              DTSCS27
02352      PERFORM P8910-CHECK-BATCH THRU P8910-EXIT.                   DTSCS27
02353      IF LCCM-MSG                                                  DTSCS27
02354         GO TO P8100-EXIT.                                         DTSCS27
02355                                                                   DTSCS27
02356      IF WRK-ITEM-NO = +0                                          DTSCS27
02357          PERFORM P8102-CHECK-FULL-BATCH THRU P8102-EXIT           DTSCS27
02358      ELSE                                                         DTSCS27
02359          PERFORM P8103-CHECK-DUPLICATE THRU P8103-EXIT.           DTSCS27
02360                                                                   DTSCS27
02361      IF LCCM-MSG                                                  DTSCS27
02362          GO TO P8100-EXIT.                                        DTSCS27
02363                                                                   DTSCS27
02364      IF WRK-TS-FOUND-NO-88                                        DTSCS27
02365         IF WRK-SSN-ENTERED-NO-88                                  DTSCS27
02366            PERFORM P9100-FIND-WAGES         THRU P9100-EXIT       DTSCS27
02367            IF MAP-RPT-WITHDRW-88                                  DTSCS27
02368               PERFORM P8140-WITHDRAW        THRU P8140-EXIT       DTSCS27
02369               GO TO P8100-EXIT                                    DTSCS27
02370            ELSE                                                   DTSCS27
02371               PERFORM S5400-SET-ADD-LOCK-ATTRB THRU S5400-EXIT    DTSCS27
02372               GO TO P8100-EXIT.                                   DTSCS27
02373                                                                   DTSCS27
02374      PERFORM P9300-SCREEN-TO-TS THRU P9300-EXIT.                  DTSCS27
02375                                                                   DTSCS27
02376      IF LCCM-F05-88                                               DTSCS27
02377         PERFORM P8950-PAGE-BACK             THRU P8950-EXIT       DTSCS27
02378         PERFORM S5400-SET-ADD-LOCK-ATTRB    THRU S5400-EXIT       DTSCS27
02379         GO TO P8100-EXIT                                          DTSCS27
02380      ELSE                                                         DTSCS27
02381         IF LCCM-F06-88                                            DTSCS27
02382            PERFORM P8960-PAGE-FWRD           THRU P8960-EXIT      DTSCS27
02383            PERFORM S5400-SET-ADD-LOCK-ATTRB  THRU S5400-EXIT      DTSCS27
02384            GO TO P8100-EXIT.                                      DTSCS27
02385                                                                   DTSCS27
02386      IF WRK-PASSED-FULL-EDITS-YES-88                              DTSCS27
02387         PERFORM P8970-FINAL-EDIT       THRU P8970-EXIT.           DTSCS27
02388      IF LCCM-MSG                                                  DTSCS27
02389         GO TO P8100-EXIT                                          DTSCS27
02390      ELSE                                                         DTSCS27
02391         PERFORM P8110-ADD-AATX      THRU P8110-EXIT               DTSCS27
02392         MOVE AATX-REC               TO WRK-SCR-HOLD-AATX-REC      DTSCS27
02393         PERFORM P8930-WRITE-WAGES   THRU P8930-EXIT               DTSCS27
02394         PERFORM P9000-INIT-SCR-HOLD THRU P9000-EXIT               DTSCS27
02395         SET WRK-SCR-HOLD-MODE-EDIT-NO-88 TO TRUE                  DTSCS27
02396         PERFORM P8130-READY-SCREEN  THRU P8130-EXIT               DTSCS27
02397         GO TO P8100-EXIT                                          DTSCS27
02398      END-IF.                                                      DTSCS27
02399                                                                   DTSCS27
02400      PERFORM S5400-SET-ADD-LOCK-ATTRB  THRU S5400-EXIT.           DTSCS27
02401                                                                   DTSCS27
02402  P8100-EXIT.                                                      DTSCS27
02403      EXIT.                                                        DTSCS27
02404      SKIP3                                                        DTSCS27
02405  P8101-PREVIOUSLY-ENTERED-EDIT.                                   DTSCS27
02406      IF WRK-SCR-HOLD-AATX-REC = LOW-VALUES                        DTSCS27
02407          GO TO P8101-EXIT.                                        DTSCS27
02408                                                                   DTSCS27
02409      IF MAP-RPT-ORIG-88                                           DTSCS27
02410          NEXT SENTENCE                                            DTSCS27
02411      ELSE                                                         DTSCS27
02412          GO TO P8101-EXIT.                                        DTSCS27
02413                                                                   DTSCS27
02414      MOVE WRK-SCR-HOLD-AATX-REC TO AATX-REC.                      DTSCS27
02415                                                                   DTSCS27
02416 *& THE FOLLOWING 3 LINES ADDED TO PREVENT DUPLICATE TRANSACTION   DTSCS27
02417 *  ERRORS WHEN REPORTS ENTERED WITHOUT ACCOUNT NUMBER.  GD 2/10/20DTSCS27
02418      IF WRK-EMP-NO = ZERO                                         DTSCS27
02419         NEXT SENTENCE                                             DTSCS27
02420      ELSE                                                         DTSCS27
02421      IF (AATX-ORIG-88)                                            DTSCS27
02422            AND                                                    DTSCS27
02423         (AATX-EMP-NO = WRK-EMP-NO)                                DTSCS27
02424            AND                                                    DTSCS27
02425         (AATX-YRQ  = WRK-YRQ)                                     DTSCS27
02426          MOVE MSG-E27B-AREA TO WRK-MSG-AREA                       DTSCS27
02427          PERFORM S1201-ERROR THRU S1201-EXIT.                     DTSCS27
02428  P8101-EXIT.                                                      DTSCS27
02429      EXIT.                                                        DTSCS27
02430      SKIP3                                                        DTSCS27
02431  P8102-CHECK-FULL-BATCH.                                          DTSCS27
02432      IF L372-LAST-USED-ITEM-MAX-88                                DTSCS27
02433          MOVE EMSG-BATCH-FULL TO WRK-MSG-AREA                     DTSCS27
02434          PERFORM S1111-ERROR THRU S1111-EXIT.                     DTSCS27
02435  P8102-EXIT.                                                      DTSCS27
02436      EXIT.                                                        DTSCS27
02437      SKIP3                                                        DTSCS27
02438  P8103-CHECK-DUPLICATE.                                           DTSCS27
02439      IF WRK-ITEM-NO > L372-LAST-USED-ITEM-NO                      DTSCS27
02440          GO TO P8103-EXIT.                                        DTSCS27
02441                                                                   DTSCS27
02442                                                                   DTSCS27
02443      MOVE LOW-VALUES TO ASKL-KEY-AREA.                            DTSCS27
02444                                                                   DTSCS27
02445      MOVE WRK-BATCH-NO TO ASKL-BATCH-NO.                          DTSCS27
02446                                                                   DTSCS27
02447      MOVE WRK-ITEM-NO TO ASKL-ITEM-NO.                            DTSCS27
02448                                                                   DTSCS27
02449      PERFORM S823-READ THRU S823-EXIT.                            DTSCS27
02450                                                                   DTSCS27
02451      IF L823-OK-88                                                DTSCS27
02452          MOVE EMSG-RECORD-EXISTS TO WRK-MSG-AREA                  DTSCS27
02453          PERFORM S1112-ERROR THRU S1112-EXIT.                     DTSCS27
02454  P8103-EXIT.                                                      DTSCS27
02455      EXIT.                                                        DTSCS27
02456      SKIP3                                                        DTSCS27
02457  P8104-SET-LCCM-BATCH.                                            DTSCS27
02458      IF (WRK-BATCH-NO = LCCM-BATCH-NO)                            DTSCS27
02459          NEXT SENTENCE                                            DTSCS27
02460      ELSE                                                         DTSCS27
02461          MOVE WRK-BATCH-NO TO LCCM-BATCH-NO                       DTSCS27
02462          MOVE +0 TO LCCM-ITEM-NO.                                 DTSCS27
02463                                                                   DTSCS27
02464  P8104-EXIT.                                                      DTSCS27
02465      EXIT.                                                        DTSCS27
02466      SKIP3                                                        DTSCS27
02467  P8110-ADD-AATX.                                                  DTSCS27
02468 *---------------------------------------------------              DTSCS27
02469 * BUILD A BATCH HEADER ON THE FLY IF NO BATCH-NO SPECIFIED        DTSCS27
02470 *---------------------------------------------------              DTSCS27
02471 *****IF WRK-BATCH-NO = +0                                         DTSCS27
02472 ********MOVE LCCM-OP-ID TO L373-ESTB-OP-ID                        DTSCS27
02473 ********PERFORM S373-ADD-HDR THRU S373-EXIT                       DTSCS27
02474 ********MOVE L373-BATCH-NO TO MAP-BATCH-NO                        DTSCS27
02475 ******************************LCCM-BATCH-NO                       DTSCS27
02476 ******************************WRK-BATCH-NO.                       DTSCS27
02477                                                                   DTSCS27
02478      MOVE WRK-BATCH-NO TO L372-BATCH-NO.                          DTSCS27
02479                                                                   DTSCS27
02480      MOVE +1 TO L372-CHNG-ATC-FILE-TRAN-CNT.                      DTSCS27
02481                                                                   DTSCS27
02482      MOVE WRK-REMIT-AMT TO L372-CHNG-ATC-FILE-REMIT-AMT.          DTSCS27
02483                                                                   DTSCS27
02484      IF WRK-ITEM-NO > +0                                          DTSCS27
02485          MOVE WRK-ITEM-NO TO L372-CHNG-LAST-USED-ITEM-NO          DTSCS27
02486          SET L372-CHNG-INCR-LAST-USED-N-88 TO TRUE                DTSCS27
02487      ELSE                                                         DTSCS27
02488          MOVE +0 TO L372-CHNG-LAST-USED-ITEM-NO                   DTSCS27
02489          SET L372-CHNG-INCR-LAST-USED-Y-88 TO TRUE.               DTSCS27
02490                                                                   DTSCS27
02491      PERFORM S372-BATCH-UPDATE THRU S372-EXIT.                    DTSCS27
02492                                                                   DTSCS27
02493      IF L372-RESULT-OK                                            DTSCS27
02494          NEXT SENTENCE                                            DTSCS27
02495      ELSE                                                         DTSCS27
02496          GO TO S899-ABEND.                                        DTSCS27
02497                                                                   DTSCS27
02498 *****MOVE L372-LAST-USED-ITEM-NO TO LCCM-ITEM-NO                  DTSCS27
02499 ************************************WRK-ITEM-NO.                  DTSCS27
02500                                                                   DTSCS27
02501      IF WRK-ITEM-NO > +0                                          DTSCS27
02502          MOVE WRK-ITEM-NO TO LCCM-ITEM-NO                         DTSCS27
02503      ELSE                                                         DTSCS27
02504          MOVE L372-LAST-USED-ITEM-NO TO WRK-ITEM-NO               DTSCS27
02505                                         LCCM-ITEM-NO.             DTSCS27
02506                                                                   DTSCS27
02507      PERFORM P8920-CONSTRUCT-AATX THRU P8920-EXIT.                DTSCS27
02508                                                                   DTSCS27
02509      MOVE AATX-REC TO ASKL-REC.                                   DTSCS27
02510                                                                   DTSCS27
02511      PERFORM S823-WRITE THRU S823-EXIT.                           DTSCS27
02512                                                                   DTSCS27
02513      SET WRK-AATH-ACTION-ADD-88   TO TRUE.                        DTSCS27
02514      PERFORM S826-WRITE-ATH       THRU S826-EXIT.                 DTSCS27
02515                                                                   DTSCS27
02516  P8110-EXIT.                                                      DTSCS27
02517      EXIT.                                                        DTSCS27
02518                                                                   DTSCS27
02519                                                                   DTSCS27
02520                                                                   DTSCS27
02521                                                                   DTSCS27
02522  P8130-READY-SCREEN.                                              DTSCS27
02523      MOVE LOW-VALUES TO MAP-AREA.                                 DTSCS27
02524                                                                   DTSCS27
02525      PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT.              DTSCS27
02526                                                                   DTSCS27
02527      MOVE LCCM-BATCH-NO TO MAP-BATCH-NO-N.                        DTSCS27
02528                                                                   DTSCS27
02529      MOVE LCCM-ENTRY-MODE TO MAP-ENTRY-MODE.                      DTSCS27
02530                                                                   DTSCS27
02531      IF MAP-ENTRY-MODE-1                                          DTSCS27
02532         IF CURSOR-SET-NO                                          DTSCS27
02533            MOVE CATB-CURSOR TO MAP-EMP-NAME-CHECK-L               DTSCS27
02534            SET CURSOR-SET-YES TO TRUE                             DTSCS27
02535         END-IF                                                    DTSCS27
02536      ELSE                                                         DTSCS27
02537      IF MAP-ENTRY-MODE-2                                          DTSCS27
02538         MOVE AATX-YRQ  TO WRK-DISPLAY                             DTSCS27
02539         MOVE WRK-DISPLAY-YRQ-YR TO MAP-YRQ-YR                     DTSCS27
02540         MOVE WRK-DISPLAY-YRQ-Q  TO MAP-YRQ-Q                      DTSCS27
02541         IF CURSOR-SET-NO                                          DTSCS27
02542            MOVE CATB-CURSOR TO MAP-EMP-NAME-CHECK-L               DTSCS27
02543            SET CURSOR-SET-YES TO TRUE                             DTSCS27
02544         END-IF                                                    DTSCS27
02545      ELSE                                                         DTSCS27
02546      IF MAP-ENTRY-MODE-3                                          DTSCS27
02547         MOVE AATX-NAME-CHECK TO MAP-EMP-NAME-CHECK                DTSCS27
02548         MOVE AATX-EMP-NO TO LCCM-EMP-NO                           DTSCS27
02549                             WRK-DISPLAY                           DTSCS27
02550         MOVE WRK-EMP-NO-1 TO MAP-EMP-NO-1                         DTSCS27
02551         MOVE WRK-EMP-NO-2 TO MAP-EMP-NO-2                         DTSCS27
02552         MOVE AATX-RPT-TYPE TO MAP-RPT-TYPE                        DTSCS27
02553         MOVE AATX-WAIVE-BOTH-IND TO MAP-WAIVE-BOTH-IND            DTSCS27
02554         MOVE AATX-WAIVE-LATE-PEN-IND TO MAP-WAIVE-LATE-PEN-IND    DTSCS27
02555         MOVE AATX-WAIVE-INT-IND TO MAP-WAIVE-INT-IND              DTSCS27
02556         MOVE AATX-RESPONSIBLE-ACTIVITY TO MAP-RESPONSIBLE-ACTIVITYDTSCS27
02557         MOVE AATX-RESPONSIBLE-OP-ID TO MAP-RESPONSIBLE-OP-ID      DTSCS27
02558         IF AATX-RECEIVED-DATE > +0                                DTSCS27
02559            MOVE AATX-RECEIVED-DATE TO WRK-DISPLAY                 DTSCS27
02560            MOVE WRK-DISPLAY-MO TO MAP-RECEIVED-DATE-MO            DTSCS27
02561            MOVE WRK-DISPLAY-DA TO MAP-RECEIVED-DATE-DA            DTSCS27
02562            MOVE WRK-DISPLAY-YR TO MAP-RECEIVED-DATE-YR            DTSCS27
02563         END-IF                                                    DTSCS27
02564         IF CURSOR-SET-NO                                          DTSCS27
02565            MOVE CATB-CURSOR TO MAP-YRQ-YR-L                       DTSCS27
02566            SET CURSOR-SET-YES TO TRUE                             DTSCS27
02567         END-IF                                                    DTSCS27
02568      END-IF.                                                      DTSCS27
02569                                                                   DTSCS27
02570  P8130-EXIT.                                                      DTSCS27
02571      EXIT.                                                        DTSCS27
02572                                                                   DTSCS27
02573  P8140-WITHDRAW.                                                  DTSCS27
02574      MOVE ZERO               TO WRK-TOT-WAGE                      DTSCS27
02575                                 WRK-TAX-WAGE                      DTSCS27
02576                                 WRK-REMIT-AMT.                    DTSCS27
02577                                                                   DTSCS27
02578      PERFORM P8141-CALC-WAGES THRU P8141-EXIT                     DTSCS27
02579         VARYING ITEM-SUB FROM +1 BY +1                            DTSCS27
02580         UNTIL ITEM-SUB > WRK-SCR-HOLD-LAST-ITEM.                  DTSCS27
02581                                                                   DTSCS27
02582      IF WRK-TOT-WAGE = ZERO                                       DTSCS27
02583         MOVE LCCM-LAST-UC30-MASS-MAIL-YRQ  TO L004-QTR-5-9        DTSCS27
02584         PERFORM S004-FROM-5                THRU S004-EXIT         DTSCS27
02585         SUBTRACT +16                       FROM L004-ABS-QTR      DTSCS27
02586         PERFORM S004-FROM-ABS              THRU S004-EXIT         DTSCS27
02587         IF WRK-YRQ < L004-QTR-5-9                                 DTSCS27
02588            MOVE MSG-E27M-AREA TO WRK-MSG-AREA                     DTSCS27
02589            PERFORM S2501-ERROR THRU S2501-EXIT                    DTSCS27
02590         END-IF                                                    DTSCS27
02591      END-IF.                                                      DTSCS27
02592                                                                   DTSCS27
02593      IF LCCM-MSG                                                  DTSCS27
02594         GO TO P8140-EXIT.                                         DTSCS27
02595                                                                   DTSCS27
02596      PERFORM P8110-ADD-AATX      THRU P8110-EXIT.                 DTSCS27
02597      MOVE AATX-REC               TO WRK-SCR-HOLD-AATX-REC.        DTSCS27
02598      PERFORM P8930-WRITE-WAGES   THRU P8930-EXIT.                 DTSCS27
02599      PERFORM P9000-INIT-SCR-HOLD THRU P9000-EXIT.                 DTSCS27
02600      PERFORM P8130-READY-SCREEN  THRU P8130-EXIT.                 DTSCS27
02601                                                                   DTSCS27
02602  P8140-EXIT.                                                      DTSCS27
02603      EXIT.                                                        DTSCS27
02604                                                                   DTSCS27
02605  P8141-CALC-WAGES.                                                DTSCS27
02606      MOVE ITEM-SUB            TO L829-ITEM-NO                     DTSCS27
02607      PERFORM S829A-READ-ITEM THRU S829A-EXIT                      DTSCS27
02608      MOVE L829-REC           TO L427-WAGE-AREA                    DTSCS27
02609                                                                   DTSCS27
02610      PERFORM                                                      DTSCS27
02611         VARYING SSN-SUB FROM +1 BY +1                             DTSCS27
02612         UNTIL SSN-SUB > WRK-MAX-WAGE-ITEMS                        DTSCS27
02613            PERFORM P8141A-REVERSE-TAX-WAGE  THRU P8141A-EXIT      DTSCS27
02614            PERFORM P8141B-REVERSE-TOT-WAGE  THRU P8141B-EXIT      DTSCS27
02615      END-PERFORM.                                                 DTSCS27
02616                                                                   DTSCS27
02617      MOVE L427-WAGE-AREA     TO L829-REC.                         DTSCS27
02618      PERFORM S829D-REWRITE   THRU S829D-EXIT.                     DTSCS27
02619                                                                   DTSCS27
02620  P8141-EXIT.                                                      DTSCS27
02621      EXIT.                                                        DTSCS27
02622                                                                   DTSCS27
02623  P8141A-REVERSE-TAX-WAGE.                                         DTSCS27
02624      IF L427-SSN-CURR-WAGE-88 (SSN-SUB)                           DTSCS27
02625         GO TO P8141A-EXIT.                                        DTSCS27
02626                                                                   DTSCS27
02627      MOVE WRK-YRQ1                TO L423-QTR1.                   DTSCS27
02628      MOVE L427-QTR1-CURR-WAGE (SSN-SUB) TO L423-QTR1-WAGE-CHNG.   DTSCS27
02629      MOVE ZERO                      TO L423-QTR1-CURR-WAGE.       DTSCS27
02630      MOVE WRK-YRQ2                TO L423-QTR2.                   DTSCS27
02631      MOVE L427-QTR2-CURR-WAGE (SSN-SUB) TO L423-QTR2-WAGE-CHNG.   DTSCS27
02632      MOVE ZERO                      TO L423-QTR2-CURR-WAGE.       DTSCS27
02633      MOVE WRK-YRQ3                TO L423-QTR3.                   DTSCS27
02634      MOVE L427-QTR3-CURR-WAGE (SSN-SUB) TO L423-QTR3-WAGE-CHNG.   DTSCS27
02635      MOVE ZERO                      TO L423-QTR3-CURR-WAGE.       DTSCS27
02636      MOVE WRK-YRQ4                TO L423-QTR4.                   DTSCS27
02637      MOVE L427-QTR4-CURR-WAGE (SSN-SUB) TO L423-QTR4-WAGE-CHNG.   DTSCS27
02638      MOVE ZERO                      TO L423-QTR4-CURR-WAGE.       DTSCS27
02639                                                                   DTSCS27
02640      PERFORM S423-CALC-TAX-WAGES  THRU S423-EXIT.                 DTSCS27
02641                                                                   DTSCS27
02642      IF L423-QTR1-VALID-88                                        DTSCS27
02643         NEXT SENTENCE                                             DTSCS27
02644      ELSE                                                         DTSCS27
02645          PERFORM S1549-ERROR THRU S1549-EXIT.                     DTSCS27
02646                                                                   DTSCS27
02647      IF L423-QTR2-VALID-88                                        DTSCS27
02648         NEXT SENTENCE                                             DTSCS27
02649      ELSE                                                         DTSCS27
02650          PERFORM S1559-ERROR THRU S1559-EXIT.                     DTSCS27
02651                                                                   DTSCS27
02652      IF L423-QTR3-VALID-88                                        DTSCS27
02653         NEXT SENTENCE                                             DTSCS27
02654      ELSE                                                         DTSCS27
02655          PERFORM S1569-ERROR THRU S1569-EXIT.                     DTSCS27
02656                                                                   DTSCS27
02657      IF L423-QTR4-VALID-88                                        DTSCS27
02658         NEXT SENTENCE                                             DTSCS27
02659      ELSE                                                         DTSCS27
02660          PERFORM S1579-ERROR THRU S1579-EXIT.                     DTSCS27
02661                                                                   DTSCS27
02662      COMPUTE L427-QTR1-TAX-WAGE (SSN-SUB) =                       DTSCS27
02663           L423-QTR1-TAX-WAGES * -1.                               DTSCS27
02664                                                                   DTSCS27
02665      COMPUTE L427-QTR2-TAX-WAGE (SSN-SUB) =                       DTSCS27
02666           L423-QTR2-TAX-WAGES * -1.                               DTSCS27
02667                                                                   DTSCS27
02668      COMPUTE L427-QTR3-TAX-WAGE (SSN-SUB) =                       DTSCS27
02669           L423-QTR3-TAX-WAGES * -1.                               DTSCS27
02670                                                                   DTSCS27
02671      COMPUTE L427-QTR4-TAX-WAGE (SSN-SUB) =                       DTSCS27
02672           L423-QTR4-TAX-WAGES * -1.                               DTSCS27
02673                                                                   DTSCS27
02674      COMPUTE WRK-TAX-WAGE =                                       DTSCS27
02675             (WRK-TAX-WAGE +                                       DTSCS27
02676              L427-QTR1-TAX-WAGE (SSN-SUB) +                       DTSCS27
02677              L427-QTR2-TAX-WAGE (SSN-SUB) +                       DTSCS27
02678              L427-QTR3-TAX-WAGE (SSN-SUB) +                       DTSCS27
02679              L427-QTR4-TAX-WAGE (SSN-SUB)).                       DTSCS27
02680                                                                   DTSCS27
02681  P8141A-EXIT.                                                     DTSCS27
02682      EXIT.                                                        DTSCS27
02683                                                                   DTSCS27
02684  P8141B-REVERSE-TOT-WAGE.                                         DTSCS27
02685      IF L427-SSN-CURR-WAGE-88 (SSN-SUB)                           DTSCS27
02686         GO TO P8141B-EXIT.                                        DTSCS27
02687                                                                   DTSCS27
02688      COMPUTE L427-QTR1-WAGE-CHNG (SSN-SUB) =                      DTSCS27
02689              L427-QTR1-CURR-WAGE (SSN-SUB) * -1.                  DTSCS27
02690      COMPUTE L427-QTR2-WAGE-CHNG (SSN-SUB) =                      DTSCS27
02691              L427-QTR2-CURR-WAGE (SSN-SUB) * -1.                  DTSCS27
02692      COMPUTE L427-QTR3-WAGE-CHNG (SSN-SUB) =                      DTSCS27
02693              L427-QTR3-CURR-WAGE (SSN-SUB) * -1.                  DTSCS27
02694      COMPUTE L427-QTR4-WAGE-CHNG (SSN-SUB) =                      DTSCS27
02695              L427-QTR4-CURR-WAGE (SSN-SUB) * -1.                  DTSCS27
02696                                                                   DTSCS27
02697      COMPUTE WRK-TOT-WAGE =                                       DTSCS27
02698             (WRK-TOT-WAGE +                                       DTSCS27
02699              L427-QTR1-WAGE-CHNG (SSN-SUB) +                      DTSCS27
02700              L427-QTR2-WAGE-CHNG (SSN-SUB) +                      DTSCS27
02701              L427-QTR3-WAGE-CHNG (SSN-SUB) +                      DTSCS27
02702              L427-QTR4-WAGE-CHNG (SSN-SUB)).                      DTSCS27
02703                                                                   DTSCS27
02704  P8141B-EXIT.                                                     DTSCS27
02705      EXIT.                                                        DTSCS27
02706                                                                   DTSCS27
02707                                                                   DTSCS27
02708 /*****************************************************************DTSCS27
02709 * IF ENTER OR CANCEL, MODULE IS SET TO INQUIRY REGARDLESS        *DTSCS27
02710 ******************************************************************DTSCS27
02711                                                                   DTSCS27
02712  P8200-MOD.                                                       DTSCS27
02713      SET LCCM-SCR-INQUIRE TO TRUE.                                DTSCS27
02714                                                                   DTSCS27
02715      PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT.              DTSCS27
02716                                                                   DTSCS27
02717      IF LCCM-F12-88                                               DTSCS27
02718         MOVE PMSG-MOD-CANCELED TO LCCM-MSG-ID                     DTSCS27
02719         GO TO P8200-EXIT.                                         DTSCS27
02720                                                                   DTSCS27
02721      PERFORM S1100-EDIT-KEY THRU S1100-EXIT.                      DTSCS27
02722                                                                   DTSCS27
02723      IF LCCM-MSG                                                  DTSCS27
02724         GO TO P8200-EXIT.                                         DTSCS27
02725                                                                   DTSCS27
02726 *---------------------------------------------------              DTSCS27
02727 *    BATCH HEAD RECORD MUST EXIST                                 DTSCS27
02728 *---------------------------------------------------              DTSCS27
02729                                                                   DTSCS27
02730 *****IF WRK-BATCH-NO > +0                                         DTSCS27
02731 ********MOVE +1000 TO WRK-TRAN-MAX                                DTSCS27
02732 **********************WRK-ITEM-MAX                                DTSCS27
02733                                                                   DTSCS27
02734      PERFORM P8910-CHECK-BATCH THRU P8910-EXIT.                   DTSCS27
02735      IF LCCM-MSG                                                  DTSCS27
02736         GO TO P8200-EXIT.                                         DTSCS27
02737                                                                   DTSCS27
02738      SET WRK-SSN-ENTERED-NO-88 TO TRUE.                           DTSCS27
02739      PERFORM S1000-SCREEN-EDITS          THRU S1000-EXIT          DTSCS27
02740      IF LCCM-MSG                                                  DTSCS27
02741         IF WRK-SSN-ENTERED-NO-88                                  DTSCS27
02742            GO TO P8200-EXIT                                       DTSCS27
02743         ELSE                                                      DTSCS27
02744            PERFORM P9300-SCREEN-TO-TS THRU P9300-EXIT             DTSCS27
02745            GO TO P8200-EXIT.                                      DTSCS27
02746                                                                   DTSCS27
02747      PERFORM P8970-FINAL-EDIT  THRU P8970-EXIT.                   DTSCS27
02748                                                                   DTSCS27
02749      PERFORM P8210-CONSTRUCT-AATX THRU P8210-EXIT.                DTSCS27
02750                                                                   DTSCS27
02751      PERFORM P8940-DELETE-WAGES   THRU P8940-EXIT.                DTSCS27
02752                                                                   DTSCS27
02753      PERFORM P8930-WRITE-WAGES    THRU P8930-EXIT.                DTSCS27
02754                                                                   DTSCS27
02755      MOVE AATX-PASSED-FULL-EDITS-IND                              DTSCS27
02756        TO MAP-PASSED-FULL-EDITS-IND.                              DTSCS27
02757                                                                   DTSCS27
02758      PERFORM P9000-INIT-SCR-HOLD THRU P9000-EXIT.                 DTSCS27
02759      SET WRK-SCR-HOLD-MODE-EDIT-NO-88 TO TRUE.                    DTSCS27
02760      PERFORM P8130-READY-SCREEN  THRU P8130-EXIT.                 DTSCS27
02761                                                                   DTSCS27
02762      MOVE PMSG-MOD-SUCCESSFUL        TO LCCM-MSG-ID.              DTSCS27
02763  P8200-EXIT.                                                      DTSCS27
02764      EXIT.                                                        DTSCS27
02765      EJECT                                                        DTSCS27
02766  P8210-CONSTRUCT-AATX.                                            DTSCS27
02767      MOVE WRK-BATCH-NO TO AATX-BATCH-NO.                          DTSCS27
02768                                                                   DTSCS27
02769      MOVE WRK-ITEM-NO TO AATX-ITEM-NO.                            DTSCS27
02770                                                                   DTSCS27
02771      MOVE AATX-KEY-AREA TO ASKL-REC.                              DTSCS27
02772                                                                   DTSCS27
02773      PERFORM S823-READ THRU S823-EXIT.                            DTSCS27
02774                                                                   DTSCS27
02775      IF L823-NO-REC-88                                            DTSCS27
02776         MOVE EMSG-NO-DOC TO WRK-MSG-AREA                          DTSCS27
02777         PERFORM S1112-ERROR THRU S1112-EXIT                       DTSCS27
02778         GO TO P8210-EXIT.                                         DTSCS27
02779                                                                   DTSCS27
02780      MOVE ASKL-REC TO AATX-REC.                                   DTSCS27
02781                                                                   DTSCS27
02782                                                                   DTSCS27
02783      MOVE MAP-REMIT-AMT-AREA TO L011-S-AMT-AREA.                  DTSCS27
02784                                                                   DTSCS27
02785      PERFORM S011-REMIT-AMT-FROM-SCREEN THRU S011-EXIT.           DTSCS27
02786                                                                   DTSCS27
02787      MOVE LCCM-BATCH-NO TO L372-BATCH-NO.                         DTSCS27
02788                                                                   DTSCS27
02789      COMPUTE L372-CHNG-ATC-FILE-REMIT-AMT                         DTSCS27
02790        = L011-AMT - AATX-REMIT-AMT.                               DTSCS27
02791                                                                   DTSCS27
02792      MOVE +0 TO L372-CHNG-LAST-USED-ITEM-NO                       DTSCS27
02793                 L372-CHNG-ATC-FILE-TRAN-CNT.                      DTSCS27
02794                                                                   DTSCS27
02795      SET L372-CHNG-INCR-LAST-USED-N-88 TO TRUE.                   DTSCS27
02796                                                                   DTSCS27
02797      PERFORM S372-BATCH-UPDATE THRU S372-EXIT.                    DTSCS27
02798                                                                   DTSCS27
02799      IF L372-REC-NOT-FOUND                                        DTSCS27
02800          GO TO S899-ABEND.                                        DTSCS27
02801                                                                   DTSCS27
02802                                                                   DTSCS27
02803 ***  PERFORM S1001-INITIALIZE-WRK-AREA THRU S1001-EXIT.           DTSCS27
02804                                                                   DTSCS27
02805 ***  PERFORM P8220-CONSTRUCT-WRK-AREA THRU P8220-EXIT.            DTSCS27
02806                                                                   DTSCS27
02807      PERFORM P8920-CONSTRUCT-AATX THRU P8920-EXIT.                DTSCS27
02808                                                                   DTSCS27
02809      MOVE AATX-REC TO ASKL-REC.                                   DTSCS27
02810                                                                   DTSCS27
02811      PERFORM S823-REWRITE THRU S823-EXIT.                         DTSCS27
02812                                                                   DTSCS27
02813      SET WRK-AATH-ACTION-UPD-88   TO TRUE.                        DTSCS27
02814      PERFORM S826-WRITE-ATH       THRU S826-EXIT.                 DTSCS27
02815                                                                   DTSCS27
02816  P8210-EXIT.                                                      DTSCS27
02817      EXIT.                                                        DTSCS27
02818                                                                   DTSCS27
02819                                                                   DTSCS27
02820                                                                   DTSCS27
02821  P8220-CONSTRUCT-WRK-AREA.                                        DTSCS27
02822      MOVE MAP-EMP-NO-AREA TO L018-S-EMP-NO-AREA.                  DTSCS27
02823                                                                   DTSCS27
02824      PERFORM S018-EMP-NO-FROM-SCREEN THRU S018-EXIT.              DTSCS27
02825                                                                   DTSCS27
02826      IF L018-VALID                                                DTSCS27
02827          MOVE L018-EMP-NO TO WRK-EMP-NO                           DTSCS27
02828      ELSE                                                         DTSCS27
02829          MOVE +0 TO WRK-EMP-NO.                                   DTSCS27
02830                                                                   DTSCS27
02831                                                                   DTSCS27
02832      MOVE 1            TO MAP-YRQ-Q.                              DTSCS27
02833      MOVE MAP-YRQ-AREA TO L016-S-YRQ-AREA.                        DTSCS27
02834      PERFORM S016-YRQ-FROM-SCREEN THRU S016-EXIT.                 DTSCS27
02835      IF L016-VALID                                                DTSCS27
02836         MOVE L016-YRQ        TO WRK-YRQ                           DTSCS27
02837      ELSE                                                         DTSCS27
02838         MOVE ZERO            TO WRK-YRQ.                          DTSCS27
02839                                                                   DTSCS27
02840      MOVE MAP-TOT-WAGE-AREA TO L011-S-AMT-AREA.                   DTSCS27
02841                                                                   DTSCS27
02842      PERFORM S011-WAGE-FROM-SCREEN THRU S011-EXIT.                DTSCS27
02843                                                                   DTSCS27
02844      MOVE L011-AMT TO WRK-TOT-WAGE.                               DTSCS27
02845                                                                   DTSCS27
02846      MOVE MAP-TAX-WAGE-AREA TO L011-S-AMT-AREA.                   DTSCS27
02847                                                                   DTSCS27
02848      PERFORM S011-WAGE-FROM-SCREEN THRU S011-EXIT.                DTSCS27
02849                                                                   DTSCS27
02850      IF L011-NO-ENTRY                                             DTSCS27
02851          SET WRK-TAX-WAGE-NO-ENTRY-88 TO TRUE                     DTSCS27
02852      ELSE                                                         DTSCS27
02853          MOVE L011-AMT TO WRK-TAX-WAGE.                           DTSCS27
02854                                                                   DTSCS27
02855      COMPUTE WRK-EXCESS-WAGE =                                    DTSCS27
02856         (WRK-TOT-WAGE - WRK-TAX-WAGE).                            DTSCS27
02857                                                                   DTSCS27
02858                                                                   DTSCS27
02859      MOVE MAP-REMIT-AMT-AREA TO L011-S-AMT-AREA.                  DTSCS27
02860                                                                   DTSCS27
02861      PERFORM S011-REMIT-AMT-FROM-SCREEN THRU S011-EXIT.           DTSCS27
02862                                                                   DTSCS27
02863      IF L011-NO-ENTRY                                             DTSCS27
02864          SET WRK-REMIT-AMT-NO-ENTRY-88 TO TRUE                    DTSCS27
02865      ELSE                                                         DTSCS27
02866          MOVE L011-AMT TO WRK-REMIT-AMT.                          DTSCS27
02867                                                                   DTSCS27
02868                                                                   DTSCS27
02869      MOVE MAP-JAN-EMPL-CNT-AREA TO L013-S-CNT-AREA.               DTSCS27
02870      PERFORM S013-EMPL-CNT-FROM-SCREEN THRU S013-EXIT.            DTSCS27
02871      IF L013-NO-ENTRY                                             DTSCS27
02872          SET WRK-JAN-NO-ENTRY-88 TO TRUE                          DTSCS27
02873      ELSE                                                         DTSCS27
02874          MOVE L013-CNT TO WRK-JAN-EMPL-CNT.                       DTSCS27
02875                                                                   DTSCS27
02876      MOVE MAP-FEB-EMPL-CNT-AREA TO L013-S-CNT-AREA.               DTSCS27
02877      PERFORM S013-EMPL-CNT-FROM-SCREEN THRU S013-EXIT.            DTSCS27
02878      IF L013-NO-ENTRY                                             DTSCS27
02879          SET WRK-FEB-NO-ENTRY-88 TO TRUE                          DTSCS27
02880      ELSE                                                         DTSCS27
02881          MOVE L013-CNT TO WRK-FEB-EMPL-CNT.                       DTSCS27
02882                                                                   DTSCS27
02883      MOVE MAP-MAR-EMPL-CNT-AREA TO L013-S-CNT-AREA.               DTSCS27
02884      PERFORM S013-EMPL-CNT-FROM-SCREEN THRU S013-EXIT.            DTSCS27
02885      IF L013-NO-ENTRY                                             DTSCS27
02886          SET WRK-MAR-NO-ENTRY-88 TO TRUE                          DTSCS27
02887      ELSE                                                         DTSCS27
02888          MOVE L013-CNT TO WRK-MAR-EMPL-CNT.                       DTSCS27
02889                                                                   DTSCS27
02890      MOVE MAP-APR-EMPL-CNT-AREA TO L013-S-CNT-AREA.               DTSCS27
02891      PERFORM S013-EMPL-CNT-FROM-SCREEN THRU S013-EXIT.            DTSCS27
02892      IF L013-NO-ENTRY                                             DTSCS27
02893          SET WRK-APR-NO-ENTRY-88 TO TRUE                          DTSCS27
02894      ELSE                                                         DTSCS27
02895          MOVE L013-CNT TO WRK-APR-EMPL-CNT.                       DTSCS27
02896                                                                   DTSCS27
02897      MOVE MAP-MAY-EMPL-CNT-AREA TO L013-S-CNT-AREA.               DTSCS27
02898      PERFORM S013-EMPL-CNT-FROM-SCREEN THRU S013-EXIT.            DTSCS27
02899      IF L013-NO-ENTRY                                             DTSCS27
02900          SET WRK-MAY-NO-ENTRY-88 TO TRUE                          DTSCS27
02901      ELSE                                                         DTSCS27
02902          MOVE L013-CNT TO WRK-MAY-EMPL-CNT.                       DTSCS27
02903                                                                   DTSCS27
02904      MOVE MAP-JUN-EMPL-CNT-AREA TO L013-S-CNT-AREA.               DTSCS27
02905      PERFORM S013-EMPL-CNT-FROM-SCREEN THRU S013-EXIT.            DTSCS27
02906      IF L013-NO-ENTRY                                             DTSCS27
02907          SET WRK-JUN-NO-ENTRY-88 TO TRUE                          DTSCS27
02908      ELSE                                                         DTSCS27
02909          MOVE L013-CNT TO WRK-JUN-EMPL-CNT.                       DTSCS27
02910                                                                   DTSCS27
02911      MOVE MAP-JUL-EMPL-CNT-AREA TO L013-S-CNT-AREA.               DTSCS27
02912      PERFORM S013-EMPL-CNT-FROM-SCREEN THRU S013-EXIT.            DTSCS27
02913      IF L013-NO-ENTRY                                             DTSCS27
02914          SET WRK-JUL-NO-ENTRY-88 TO TRUE                          DTSCS27
02915      ELSE                                                         DTSCS27
02916          MOVE L013-CNT TO WRK-JUL-EMPL-CNT.                       DTSCS27
02917                                                                   DTSCS27
02918      MOVE MAP-AUG-EMPL-CNT-AREA TO L013-S-CNT-AREA.               DTSCS27
02919      PERFORM S013-EMPL-CNT-FROM-SCREEN THRU S013-EXIT.            DTSCS27
02920      IF L013-NO-ENTRY                                             DTSCS27
02921          SET WRK-AUG-NO-ENTRY-88 TO TRUE                          DTSCS27
02922      ELSE                                                         DTSCS27
02923          MOVE L013-CNT TO WRK-AUG-EMPL-CNT.                       DTSCS27
02924                                                                   DTSCS27
02925      MOVE MAP-SEP-EMPL-CNT-AREA TO L013-S-CNT-AREA.               DTSCS27
02926      PERFORM S013-EMPL-CNT-FROM-SCREEN THRU S013-EXIT.            DTSCS27
02927      IF L013-NO-ENTRY                                             DTSCS27
02928          SET WRK-SEP-NO-ENTRY-88 TO TRUE                          DTSCS27
02929      ELSE                                                         DTSCS27
02930          MOVE L013-CNT TO WRK-SEP-EMPL-CNT.                       DTSCS27
02931                                                                   DTSCS27
02932      MOVE MAP-OCT-EMPL-CNT-AREA TO L013-S-CNT-AREA.               DTSCS27
02933      PERFORM S013-EMPL-CNT-FROM-SCREEN THRU S013-EXIT.            DTSCS27
02934      IF L013-NO-ENTRY                                             DTSCS27
02935          SET WRK-OCT-NO-ENTRY-88 TO TRUE                          DTSCS27
02936      ELSE                                                         DTSCS27
02937          MOVE L013-CNT TO WRK-OCT-EMPL-CNT.                       DTSCS27
02938                                                                   DTSCS27
02939      MOVE MAP-NOV-EMPL-CNT-AREA TO L013-S-CNT-AREA.               DTSCS27
02940      PERFORM S013-EMPL-CNT-FROM-SCREEN THRU S013-EXIT.            DTSCS27
02941      IF L013-NO-ENTRY                                             DTSCS27
02942          SET WRK-NOV-NO-ENTRY-88 TO TRUE                          DTSCS27
02943      ELSE                                                         DTSCS27
02944          MOVE L013-CNT TO WRK-NOV-EMPL-CNT.                       DTSCS27
02945                                                                   DTSCS27
02946      MOVE MAP-DEC-EMPL-CNT-AREA TO L013-S-CNT-AREA.               DTSCS27
02947      PERFORM S013-EMPL-CNT-FROM-SCREEN THRU S013-EXIT.            DTSCS27
02948      IF L013-NO-ENTRY                                             DTSCS27
02949          SET WRK-DEC-NO-ENTRY-88 TO TRUE                          DTSCS27
02950      ELSE                                                         DTSCS27
02951          MOVE L013-CNT TO WRK-DEC-EMPL-CNT.                       DTSCS27
02952                                                                   DTSCS27
02953                                                                   DTSCS27
02954      MOVE MAP-RECEIVED-DATE-AREA TO L015-S-DATE-AREA.             DTSCS27
02955                                                                   DTSCS27
02956      PERFORM S015-DATE-FROM-SCREEN THRU S015-EXIT.                DTSCS27
02957                                                                   DTSCS27
02958      MOVE L015-DATE TO WRK-RECEIVED-DATE.                         DTSCS27
02959                                                                   DTSCS27
02960      MOVE WRK-SCR-HOLD-FULL-EDITS-IND                             DTSCS27
02961        TO WRK-PASSED-FULL-EDITS-IND.                              DTSCS27
02962                                                                   DTSCS27
02963  P8220-EXIT.                                                      DTSCS27
02964      EXIT.                                                        DTSCS27
02965 /*****************************************************************DTSCS27
02966 * IF ENTER OR CANCEL, MODULE IS SET TO INQUIRY REGARDLESS        *DTSCS27
02967 ******************************************************************DTSCS27
02968                                                                   DTSCS27
02969  P8300-DEL.                                                       DTSCS27
02970      SET LCCM-SCR-INQUIRE TO TRUE.                                DTSCS27
02971                                                                   DTSCS27
02972      PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT.              DTSCS27
02973                                                                   DTSCS27
02974      IF LCCM-F12-88                                               DTSCS27
02975         MOVE PMSG-DEL-CANCELED TO LCCM-MSG-ID                     DTSCS27
02976         GO TO P8300-EXIT.                                         DTSCS27
02977                                                                   DTSCS27
02978      PERFORM S1100-EDIT-KEY THRU S1100-EXIT.                      DTSCS27
02979                                                                   DTSCS27
02980                                                                   DTSCS27
02981 *---------------------------------------------------              DTSCS27
02982 *    BATCH HEADER RECORD MUST EXISTS                              DTSCS27
02983 *---------------------------------------------------              DTSCS27
02984                                                                   DTSCS27
02985 *****IF WRK-BATCH-NO > +0                                         DTSCS27
02986 ********MOVE +1000 TO WRK-TRAN-MAX                                DTSCS27
02987 **********************WRK-ITEM-MAX                                DTSCS27
02988                                                                   DTSCS27
02989      PERFORM P8910-CHECK-BATCH THRU P8910-EXIT.                   DTSCS27
02990                                                                   DTSCS27
02991 *****MOVE -99999 TO L372-BATCH-NO.                                DTSCS27
02992                                                                   DTSCS27
02993 *****SET L372-REC-NOT-FOUND TO TRUE.                              DTSCS27
02994                                                                   DTSCS27
02995      IF LCCM-MSG                                                  DTSCS27
02996         GO TO P8300-EXIT.                                         DTSCS27
02997                                                                   DTSCS27
02998                                                                   DTSCS27
02999      MOVE WRK-BATCH-NO TO L371-BATCH-NO.                          DTSCS27
03000                                                                   DTSCS27
03001      MOVE WRK-ITEM-NO TO L371-ITEM-NO.                            DTSCS27
03002                                                                   DTSCS27
03003      PERFORM S371-DELETE THRU S371-EXIT.                          DTSCS27
03004                                                                   DTSCS27
03005      SET WRK-AATH-ACTION-DEL-88   TO TRUE.                        DTSCS27
03006      PERFORM S826-WRITE-ATH       THRU S826-EXIT.                 DTSCS27
03007                                                                   DTSCS27
03008      PERFORM P8940-DELETE-WAGES THRU P8940-EXIT.                  DTSCS27
03009                                                                   DTSCS27
03010      PERFORM P9000-INIT-SCR-HOLD THRU P9000-EXIT.                 DTSCS27
03011                                                                   DTSCS27
03012      MOVE LOW-VALUES TO MAP-AREA.                                 DTSCS27
03013                                                                   DTSCS27
03014      PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT.              DTSCS27
03015                                                                   DTSCS27
03016      MOVE LCCM-BATCH-NO TO MAP-BATCH-NO.                          DTSCS27
03017                                                                   DTSCS27
03018      MOVE LCCM-ITEM-NO TO MAP-ITEM-NO.                            DTSCS27
03019                                                                   DTSCS27
03020      SET LCCM-SCR-CLEAR TO TRUE.                                  DTSCS27
03021                                                                   DTSCS27
03022      MOVE PMSG-DEL-SUCCESSFUL TO LCCM-MSG-ID.                     DTSCS27
03023  P8300-EXIT.                                                      DTSCS27
03024      EXIT.                                                        DTSCS27
03025                                                                   DTSCS27
03026      EJECT                                                        DTSCS27
03027  P8910-CHECK-BATCH.                                               DTSCS27
03028      MOVE WRK-BATCH-NO TO L372-BATCH-NO.                          DTSCS27
03029                                                                   DTSCS27
03030      PERFORM S372-BATCH-INQUIRY THRU S372-EXIT.                   DTSCS27
03031                                                                   DTSCS27
03032      IF L372-REC-NOT-FOUND                                        DTSCS27
03033          MOVE EMSG-NO-BATCH TO WRK-MSG-AREA                       DTSCS27
03034          PERFORM S1111-ERROR THRU S1111-EXIT                      DTSCS27
03035          GO TO P8910-EXIT                                         DTSCS27
03036      ELSE                                                         DTSCS27
03037          IF NOT L372-ANNUAL-BATCH-YES-88                          DTSCS27
03038             IF MAP-RESPONSIBLE-OP-ID = 'SYSTEM'                   DTSCS27
03039                NEXT SENTENCE                                      DTSCS27
03040             ELSE                                                  DTSCS27
03041                MOVE MSG-E27G-AREA TO WRK-MSG-AREA                 DTSCS27
03042                PERFORM S1111-ERROR THRU S1111-EXIT                DTSCS27
03043                GO TO P8910-EXIT.                                  DTSCS27
03044                                                                   DTSCS27
03045  P8910-EXIT.                                                      DTSCS27
03046      EXIT.                                                        DTSCS27
03047      SKIP3                                                        DTSCS27
03048  P8920-CONSTRUCT-AATX.                                            DTSCS27
03049      MOVE LOW-VALUES TO AATX-REC.                                 DTSCS27
03050                                                                   DTSCS27
03051      MOVE WRK-BATCH-NO TO AATX-BATCH-NO.                          DTSCS27
03052                                                                   DTSCS27
03053      MOVE WRK-ITEM-NO TO AATX-ITEM-NO.                            DTSCS27
03054                                                                   DTSCS27
03055      SET AATX-ATX-88 TO TRUE.                                     DTSCS27
03056                                                                   DTSCS27
03057                                                                   DTSCS27
03058 *    DATA HAS BEEN EDITED AND STORED INCLUDING DEFAULTS IN WRK-*  DTSCS27
03059                                                                   DTSCS27
03060      MOVE MAP-EMP-NAME-CHECK TO AATX-NAME-CHECK.                  DTSCS27
03061                                                                   DTSCS27
03062      MOVE WRK-EMP-NO TO AATX-EMP-NO.                              DTSCS27
03063                                                                   DTSCS27
03064      MOVE MAP-RPT-TYPE TO AATX-RPT-TYPE.                          DTSCS27
03065                                                                   DTSCS27
03066      MOVE WRK-YRQ  TO  AATX-YRQ.                                  DTSCS27
03067                                                                   DTSCS27
03068      MOVE WRK-TOT-WAGE TO AATX-TOT-WAGE.                          DTSCS27
03069                                                                   DTSCS27
03070      MOVE WRK-TAX-WAGE TO AATX-TAX-WAGE.                          DTSCS27
03071                                                                   DTSCS27
03072      COMPUTE WRK-EXCESS-WAGE =                                    DTSCS27
03073         (WRK-TOT-WAGE - WRK-TAX-WAGE).                            DTSCS27
03074      MOVE WRK-EXCESS-WAGE TO AATX-EXCESS-WAGE.                    DTSCS27
03075                                                                   DTSCS27
03076      MOVE WRK-REMIT-AMT TO AATX-REMIT-AMT.                        DTSCS27
03077                                                                   DTSCS27
03078      MOVE MAP-WAIVE-BOTH-IND TO AATX-WAIVE-BOTH-IND.              DTSCS27
03079                                                                   DTSCS27
03080      MOVE MAP-WAIVE-INT-IND TO AATX-WAIVE-INT-IND.                DTSCS27
03081                                                                   DTSCS27
03082      MOVE MAP-WAIVE-LATE-PEN-IND TO AATX-WAIVE-LATE-PEN-IND.      DTSCS27
03083                                                                   DTSCS27
03084      MOVE WRK-SCR-HOLD-TOT-WORKERS TO AATX-TOTAL-EMPL-CNT.        DTSCS27
03085                                                                   DTSCS27
03086      MOVE WRK-JAN-EMPL-CNT TO AATX-JAN-EMPL-CNT.                  DTSCS27
03087                                                                   DTSCS27
03088      MOVE WRK-FEB-EMPL-CNT TO AATX-FEB-EMPL-CNT.                  DTSCS27
03089                                                                   DTSCS27
03090      MOVE WRK-MAR-EMPL-CNT TO AATX-MAR-EMPL-CNT.                  DTSCS27
03091                                                                   DTSCS27
03092      MOVE WRK-APR-EMPL-CNT TO AATX-APR-EMPL-CNT.                  DTSCS27
03093                                                                   DTSCS27
03094      MOVE WRK-MAY-EMPL-CNT TO AATX-MAY-EMPL-CNT.                  DTSCS27
03095                                                                   DTSCS27
03096      MOVE WRK-JUN-EMPL-CNT TO AATX-JUN-EMPL-CNT.                  DTSCS27
03097                                                                   DTSCS27
03098      MOVE WRK-JUL-EMPL-CNT TO AATX-JUL-EMPL-CNT.                  DTSCS27
03099                                                                   DTSCS27
03100      MOVE WRK-AUG-EMPL-CNT TO AATX-AUG-EMPL-CNT.                  DTSCS27
03101                                                                   DTSCS27
03102      MOVE WRK-SEP-EMPL-CNT TO AATX-SEP-EMPL-CNT.                  DTSCS27
03103                                                                   DTSCS27
03104      MOVE WRK-OCT-EMPL-CNT TO AATX-OCT-EMPL-CNT.                  DTSCS27
03105                                                                   DTSCS27
03106      MOVE WRK-NOV-EMPL-CNT TO AATX-NOV-EMPL-CNT.                  DTSCS27
03107                                                                   DTSCS27
03108      MOVE WRK-DEC-EMPL-CNT TO AATX-DEC-EMPL-CNT.                  DTSCS27
03109                                                                   DTSCS27
03110      MOVE MAP-VERIFIED-IND TO AATX-VERIFIED-IND.                  DTSCS27
03111                                                                   DTSCS27
03112      MOVE WRK-RECEIVED-DATE TO AATX-RECEIVED-DATE.                DTSCS27
03113                                                                   DTSCS27
03114      MOVE +0 TO AATX-DEPOSIT-DATE.                                DTSCS27
03115                                                                   DTSCS27
03116      MOVE MAP-RESPONSIBLE-ACTIVITY TO AATX-RESPONSIBLE-ACTIVITY.  DTSCS27
03117                                                                   DTSCS27
03118      MOVE MAP-RESPONSIBLE-OP-ID TO AATX-RESPONSIBLE-OP-ID.        DTSCS27
03119                                                                   DTSCS27
03120      MOVE MAP-DISREGARD-EDITS-IND TO AATX-DISREGARD-EDITS-IND.    DTSCS27
03121                                                                   DTSCS27
03122      MOVE MAP-STATUS-CHANGE-IND   TO AATX-STATUS-CHANGE-IND.      DTSCS27
03123                                                                   DTSCS27
03124      MOVE WRK-PASSED-FULL-EDITS-IND                               DTSCS27
03125        TO AATX-PASSED-FULL-EDITS-IND.                             DTSCS27
03126                                                                   DTSCS27
03127      MOVE +0 TO AATX-PROCESSED-DATE.                              DTSCS27
03128  P8920-EXIT.                                                      DTSCS27
03129      EXIT.                                                        DTSCS27
03130                                                                   DTSCS27
03131  P8930-WRITE-WAGES.                                               DTSCS27
03132      MOVE ZERO TO WRK-SEQ-NO.                                     DTSCS27
03133                                                                   DTSCS27
03134      PERFORM                                                      DTSCS27
03135         VARYING ITEM-SUB FROM +1 BY +1                            DTSCS27
03136         UNTIL ITEM-SUB > WRK-SCR-HOLD-LAST-ITEM                   DTSCS27
03137            MOVE ITEM-SUB            TO L829-ITEM-NO               DTSCS27
03138            PERFORM S829A-READ-ITEM THRU S829A-EXIT                DTSCS27
03139            MOVE L829-REC           TO L427-WAGE-AREA              DTSCS27
03140            PERFORM P8931-BUILD-W001  THRU P8931-EXIT              DTSCS27
03141               VARYING SUB FROM +1 BY +1                           DTSCS27
03142               UNTIL SUB > WRK-MAX-WAGE-ITEMS                      DTSCS27
03143      END-PERFORM.                                                 DTSCS27
03144                                                                   DTSCS27
03145  P8930-EXIT.                                                      DTSCS27
03146      EXIT.                                                        DTSCS27
03147                                                                   DTSCS27
03148  P8931-BUILD-W001.                                                DTSCS27
03149                                                                   DTSCS27
03150      IF L427-SSN-CURR-WAGE-88 (SUB)                               DTSCS27
03151 *&                                                                DTSCS27
03152 *    OR L427-SSN-DUMMY-88 (SUB)                                   DTSCS27
03153 *&                                                                DTSCS27
03154         GO TO P8931-EXIT.                                         DTSCS27
03155                                                                   DTSCS27
03156      MOVE LOW-VALUES TO W001-REC.                                 DTSCS27
03157                                                                   DTSCS27
03158      MOVE WRK-BATCH-NO TO W001-BATCH-NO.                          DTSCS27
03159                                                                   DTSCS27
03160      MOVE WRK-ITEM-NO TO W001-ITEM-NO.                            DTSCS27
03161                                                                   DTSCS27
03162      MOVE WRK-EMP-NO TO W001-EMP-NO.                              DTSCS27
03163                                                                   DTSCS27
03164      MOVE L427-SSN (SUB) TO W001-SSN.                             DTSCS27
03165      MOVE L427-SSN-ERR-ID (SUB) TO W001-SSN-ERR-ID.               DTSCS27
03166                                                                   DTSCS27
03167      MOVE L427-SSN-NAME (SUB) TO W001-NAME.                       DTSCS27
03168      MOVE L427-SSN-NAME-ERR-ID (SUB) TO W001-NAME-ERR-ID.         DTSCS27
03169                                                                   DTSCS27
03170      MOVE WRK-RECEIVED-DATE TO W001-RECEIVED-DATE.                DTSCS27
03171                                                                   DTSCS27
03172      MOVE LCCM-TASK-START-TIME TO W001-RECEIVED-TIME.             DTSCS27
03173                                                                   DTSCS27
03174      MOVE MAP-RESPONSIBLE-OP-ID TO W001-RESPONSIBLE-OP-ID.        DTSCS27
03175                                                                   DTSCS27
03176      SET W001-ANNUAL-RPT-88              TO TRUE.                 DTSCS27
03177                                                                   DTSCS27
03178 **   EVALUATE TRUE                                                DTSCS27
03179 *       WHEN AATX-CLM-AFF-88                                      DTSCS27
03180 *          SET W001-SOURCE-CLM-AFF-88    TO TRUE                  DTSCS27
03181 *       WHEN AATX-INTERSTATE-88                                   DTSCS27
03182 *          SET W001-SOURCE-INTERSTATE-88 TO TRUE                  DTSCS27
03183 *       WHEN OTHER                                                DTSCS27
03184 *          SET W001-SOURCE-RPT-88        TO TRUE                  DTSCS27
03185 **   END-EVALUATE.                                                DTSCS27
03186                                                                   DTSCS27
03187      MOVE WRK-PASSED-FULL-EDITS-IND                               DTSCS27
03188        TO AATX-PASSED-FULL-EDITS-IND.                             DTSCS27
03189                                                                   DTSCS27
03190      MOVE +0 TO AATX-PROCESSED-DATE.                              DTSCS27
03191                                                                   DTSCS27
03192      MOVE WRK-YRQ            TO L004-QTR-5-9.                     DTSCS27
03193                                                                   DTSCS27
03194 ***  WRITE WAGE RECORD FOR FIRST QUARTER                          DTSCS27
03195                                                                   DTSCS27
03196      IF W001-SSN = ZERO                                           DTSCS27
03197      AND L427-QTR1-WAGE-CHNG (SUB) = ZERO                         DTSCS27
03198         NEXT SENTENCE                                             DTSCS27
03199      ELSE                                                         DTSCS27
03200         ADD +1                            TO WRK-SEQ-NO           DTSCS27
03201         MOVE 1                            TO L004-QTR-5-Q         DTSCS27
03202         MOVE L427-QTR1-WAGE-CHNG (SUB)    TO W001-WAGE-CHNG       DTSCS27
03203         MOVE L427-QTR1-CURR-WAGE (SUB)    TO W001-CURR-WAGE       DTSCS27
03204         MOVE L427-QTR1-TAX-WAGE (SUB)     TO W001-TAX-WAGE        DTSCS27
03205         MOVE L427-QTR1-PRIOR-WAGE (SUB)   TO W001-PRIOR-WAGE      DTSCS27
03206         MOVE L427-QTR1-ERR-ID (SUB)       TO W001-WAGE-ERR-ID     DTSCS27
03207         PERFORM P8931A-WRITE              THRU P8931A-EXIT.       DTSCS27
03208                                                                   DTSCS27
03209 ***  WRITE WAGE RECORD FOR SECOND QUARTER                         DTSCS27
03210                                                                   DTSCS27
03211      IF W001-SSN = ZERO                                           DTSCS27
03212      AND L427-QTR2-WAGE-CHNG (SUB) = ZERO                         DTSCS27
03213         NEXT SENTENCE                                             DTSCS27
03214      ELSE                                                         DTSCS27
03215         ADD +1                            TO WRK-SEQ-NO           DTSCS27
03216         MOVE 2                            TO L004-QTR-5-Q         DTSCS27
03217         MOVE L427-QTR2-WAGE-CHNG (SUB)    TO W001-WAGE-CHNG       DTSCS27
03218         MOVE L427-QTR2-CURR-WAGE (SUB)    TO W001-CURR-WAGE       DTSCS27
03219         MOVE L427-QTR2-TAX-WAGE (SUB)     TO W001-TAX-WAGE        DTSCS27
03220         MOVE L427-QTR2-PRIOR-WAGE (SUB)   TO W001-PRIOR-WAGE      DTSCS27
03221         MOVE L427-QTR2-ERR-ID (SUB)       TO W001-WAGE-ERR-ID     DTSCS27
03222         PERFORM P8931A-WRITE              THRU P8931A-EXIT.       DTSCS27
03223                                                                   DTSCS27
03224 ***  WRITE WAGE RECORD FOR THIRD QUARTER                          DTSCS27
03225                                                                   DTSCS27
03226      IF W001-SSN = ZERO                                           DTSCS27
03227      AND L427-QTR3-WAGE-CHNG (SUB) = ZERO                         DTSCS27
03228         NEXT SENTENCE                                             DTSCS27
03229      ELSE                                                         DTSCS27
03230         ADD +1                            TO WRK-SEQ-NO           DTSCS27
03231         MOVE 3                            TO L004-QTR-5-Q         DTSCS27
03232         MOVE L427-QTR3-WAGE-CHNG (SUB)    TO W001-WAGE-CHNG       DTSCS27
03233         MOVE L427-QTR3-CURR-WAGE (SUB)    TO W001-CURR-WAGE       DTSCS27
03234         MOVE L427-QTR3-TAX-WAGE (SUB)     TO W001-TAX-WAGE        DTSCS27
03235         MOVE L427-QTR3-PRIOR-WAGE (SUB)   TO W001-PRIOR-WAGE      DTSCS27
03236         MOVE L427-QTR3-ERR-ID (SUB)       TO W001-WAGE-ERR-ID     DTSCS27
03237         PERFORM P8931A-WRITE              THRU P8931A-EXIT.       DTSCS27
03238                                                                   DTSCS27
03239 ***  WRITE WAGE RECORD FOR FOURTH QUARTER                         DTSCS27
03240                                                                   DTSCS27
03241      IF W001-SSN = ZERO                                           DTSCS27
03242      AND L427-QTR4-WAGE-CHNG (SUB) = ZERO                         DTSCS27
03243         NEXT SENTENCE                                             DTSCS27
03244      ELSE                                                         DTSCS27
03245         ADD +1                            TO WRK-SEQ-NO           DTSCS27
03246         MOVE 4                            TO L004-QTR-5-Q         DTSCS27
03247         MOVE L427-QTR4-WAGE-CHNG (SUB)    TO W001-WAGE-CHNG       DTSCS27
03248         MOVE L427-QTR4-CURR-WAGE (SUB)    TO W001-CURR-WAGE       DTSCS27
03249         MOVE L427-QTR4-TAX-WAGE (SUB)     TO W001-TAX-WAGE        DTSCS27
03250         MOVE L427-QTR4-PRIOR-WAGE (SUB)   TO W001-PRIOR-WAGE      DTSCS27
03251         MOVE L427-QTR4-ERR-ID (SUB)       TO W001-WAGE-ERR-ID     DTSCS27
03252         PERFORM P8931A-WRITE              THRU P8931A-EXIT.       DTSCS27
03253                                                                   DTSCS27
03254  P8931-EXIT.                                                      DTSCS27
03255      EXIT.                                                        DTSCS27
03256                                                                   DTSCS27
03257  P8931A-WRITE.                                                    DTSCS27
03258      MOVE WRK-SEQ-NO                   TO W001-SEQ-NO.            DTSCS27
03259      MOVE L004-QTR-5-9                 TO W001-YRQ.               DTSCS27
03260      MOVE W001-REC                     TO WSKL-REC.               DTSCS27
03261      PERFORM S880-WRITE                THRU S880-EXIT.            DTSCS27
03262  P8931A-EXIT.                                                     DTSCS27
03263      EXIT.                                                        DTSCS27
03264                                                                   DTSCS27
03265  P8940-DELETE-WAGES.                                              DTSCS27
03266       MOVE LOW-VALUES TO WSKL-KEY-AREA.                           DTSCS27
03267                                                                   DTSCS27
03268       MOVE WRK-BATCH-NO   TO WSKL-BATCH-NO.                       DTSCS27
03269                                                                   DTSCS27
03270       MOVE WRK-ITEM-NO    TO WSKL-ITEM-NO.                        DTSCS27
03271                                                                   DTSCS27
03272       PERFORM S880-START-BROWSE THRU S880-EXIT.                   DTSCS27
03273                                                                   DTSCS27
03274       IF L880-NO-REC-88                                           DTSCS27
03275           GO TO P8940-EXIT                                        DTSCS27
03276       ELSE                                                        DTSCS27
03277           PERFORM P8941-DELETE-LOOP  THRU P8941-EXIT              DTSCS27
03278              UNTIL L880-NO-REC-88.                                DTSCS27
03279                                                                   DTSCS27
03280  P8940-EXIT.                                                      DTSCS27
03281      EXIT.                                                        DTSCS27
03282                                                                   DTSCS27
03283  P8941-DELETE-LOOP.                                               DTSCS27
03284       IF WSKL-BATCH-NO = WRK-BATCH-NO                             DTSCS27
03285       AND WSKL-ITEM-NO = WRK-ITEM-NO                              DTSCS27
03286           NEXT SENTENCE                                           DTSCS27
03287       ELSE                                                        DTSCS27
03288           PERFORM S880-END-BROWSE THRU S880-EXIT                  DTSCS27
03289           SET L880-NO-REC-88 TO TRUE                              DTSCS27
03290           GO TO P8941-EXIT.                                       DTSCS27
03291                                                                   DTSCS27
03292       PERFORM S880-END-BROWSE THRU S880-EXIT.                     DTSCS27
03293                                                                   DTSCS27
03294       PERFORM S880-DELETE     THRU S880-EXIT.                     DTSCS27
03295                                                                   DTSCS27
03296       PERFORM S880-START-BROWSE THRU S880-EXIT.                   DTSCS27
03297  P8941-EXIT.                                                      DTSCS27
03298      EXIT.                                                        DTSCS27
03299                                                                   DTSCS27
03300  P8950-PAGE-BACK.                                                 DTSCS27
03301      IF WRK-SCR-HOLD-CURR-ITEM > +1                               DTSCS27
03302         SUBTRACT +1 FROM WRK-SCR-HOLD-CURR-ITEM                   DTSCS27
03303         MOVE WRK-SCR-HOLD-CURR-ITEM TO L829-ITEM-NO               DTSCS27
03304         PERFORM S829A-READ-ITEM THRU S829A-EXIT                   DTSCS27
03305         MOVE L829-REC               TO L427-WAGE-AREA             DTSCS27
03306         PERFORM P9800-TS-TO-SCREEN  THRU P9800-EXIT               DTSCS27
03307      ELSE                                                         DTSCS27
03308         MOVE PMSG-FIRST-PAGE      TO LCCM-MSG-ID                  DTSCS27
03309      END-IF.                                                      DTSCS27
03310                                                                   DTSCS27
03311      IF (MAP-SSN1 (1) = SPACES OR LOW-VALUES)                     DTSCS27
03312         MOVE CATB-CURSOR TO MAP-SSN1-L (1)                        DTSCS27
03313      ELSE                                                         DTSCS27
03314         IF L427-SSN-CURR-WAGE-88 (1)                              DTSCS27
03315            MOVE CATB-CURSOR TO MAP-YRQ1-WAGES-L (2)               DTSCS27
03316         ELSE                                                      DTSCS27
03317            MOVE CATB-CURSOR TO MAP-YRQ1-WAGES-L (1).              DTSCS27
03318      SET CURSOR-SET-YES TO TRUE.                                  DTSCS27
03319                                                                   DTSCS27
03320  P8950-EXIT.                                                      DTSCS27
03321      EXIT.                                                        DTSCS27
03322                                                                   DTSCS27
03323  P8960-PAGE-FWRD.                                                 DTSCS27
03324      IF WRK-SCR-HOLD-CURR-ITEM < WRK-SCR-HOLD-LAST-ITEM           DTSCS27
03325         ADD +1 TO WRK-SCR-HOLD-CURR-ITEM                          DTSCS27
03326         MOVE WRK-SCR-HOLD-CURR-ITEM TO L829-ITEM-NO               DTSCS27
03327         PERFORM S829A-READ-ITEM THRU S829A-EXIT                   DTSCS27
03328         MOVE L829-REC               TO L427-WAGE-AREA             DTSCS27
03329         PERFORM P9800-TS-TO-SCREEN  THRU P9800-EXIT               DTSCS27
03330      ELSE                                                         DTSCS27
03331         PERFORM P9120-BLANK-WAGE-SCR  THRU P9120-EXIT             DTSCS27
03332 *&      IF L427-WAGE-TBL-CNT < WRK-MAX-WAGE-ITEMS                 DTSCS27
03333 *          MOVE PMSG-LAST-PAGE      TO LCCM-MSG-ID                DTSCS27
03334 *       ELSE                                                      DTSCS27
03335 *          PERFORM P9120-BLANK-WAGE-SCR  THRU P9120-EXIT          DTSCS27
03336 *&      END-IF                                                    DTSCS27
03337      END-IF.                                                      DTSCS27
03338                                                                   DTSCS27
03339      IF (MAP-SSN1 (1) = SPACES OR LOW-VALUES)                     DTSCS27
03340         MOVE CATB-CURSOR TO MAP-SSN1-L (1)                        DTSCS27
03341      ELSE                                                         DTSCS27
03342         IF L427-SSN-CURR-WAGE-88 (1)                              DTSCS27
03343            MOVE CATB-CURSOR TO MAP-YRQ1-WAGES-L (2)               DTSCS27
03344         ELSE                                                      DTSCS27
03345            MOVE CATB-CURSOR TO MAP-YRQ1-WAGES-L (1).              DTSCS27
03346      SET CURSOR-SET-YES TO TRUE.                                  DTSCS27
03347                                                                   DTSCS27
03348  P8960-EXIT.                                                      DTSCS27
03349      EXIT.                                                        DTSCS27
03350                                                                   DTSCS27
03351  P8970-FINAL-EDIT.                                                DTSCS27
03352                                                                   DTSCS27
03353      MOVE ZERO               TO WRK-TOT-WAGE                      DTSCS27
03354                                 WRK-CALC-TAX-WAGE                 DTSCS27
03355                                 DUP-SUB.                          DTSCS27
03356                                                                   DTSCS27
03357      MOVE L427-EMP-NO             TO L423-EMP-NO.                 DTSCS27
03358                                                                   DTSCS27
03359      PERFORM P8971-SUM-WAGES THRU P8971-EXIT                      DTSCS27
03360         VARYING ITEM-SUB FROM +1 BY +1                            DTSCS27
03361         UNTIL ITEM-SUB > WRK-SCR-HOLD-LAST-ITEM.                  DTSCS27
03362                                                                   DTSCS27
03363      MOVE WRK-CALC-TAX-WAGE  TO MAP-CALC-TAX-WAGE.                DTSCS27
03364      MOVE WRK-TOT-WAGE       TO MAP-TOT-WAGE-N.                   DTSCS27
03365                                                                   DTSCS27
03366      IF WRK-CALC-TAX-WAGE = ZERO                                  DTSCS27
03367         MOVE MAP-TAX-WAGE-AREA TO L011-S-AMT-AREA                 DTSCS27
03368         PERFORM S011-WAGE-FROM-SCREEN THRU S011-EXIT              DTSCS27
03369         IF L011-NO-ENTRY                                          DTSCS27
03370         OR (L011-VALID AND L011-AMT = ZERO)                       DTSCS27
03371         OR L011-NOT-VALID                                         DTSCS27
03372            NEXT SENTENCE                                          DTSCS27
03373         ELSE                                                      DTSCS27
03374            MOVE MSG-E27N-AREA TO WRK-MSG-AREA                     DTSCS27
03375            PERFORM P8972-ERROR      THRU P8972-EXIT               DTSCS27
03376            GO TO P8970-EXIT.                                      DTSCS27
03377                                                                   DTSCS27
03378      IF MAP-RPT-ORIG-88 OR MAP-RPT-ESTIM-88                       DTSCS27
03379         NEXT SENTENCE                                             DTSCS27
03380      ELSE                                                         DTSCS27
03381         MOVE WRK-CALC-TAX-WAGE TO WRK-TAX-WAGE.                   DTSCS27
03382                                                                   DTSCS27
03383      PERFORM S1003-FINAL-EDITS THRU S1003-EXIT.                   DTSCS27
03384                                                                   DTSCS27
03385  P8970-EXIT.                                                      DTSCS27
03386      EXIT.                                                        DTSCS27
03387                                                                   DTSCS27
03388  P8971-SUM-WAGES.                                                 DTSCS27
03389      MOVE ITEM-SUB            TO L829-ITEM-NO                     DTSCS27
03390      PERFORM S829A-READ-ITEM THRU S829A-EXIT                      DTSCS27
03391      MOVE L829-REC           TO L427-WAGE-AREA                    DTSCS27
03392                                                                   DTSCS27
03393      PERFORM                                                      DTSCS27
03394         VARYING SSN-SUB FROM +1 BY +1                             DTSCS27
03395         UNTIL SSN-SUB > WRK-MAX-WAGE-ITEMS                        DTSCS27
03396 *&         IF NOT L427-SSN-CURR-WAGE-88 (SSN-SUB) DEVL VERSION    DTSCS27
03397            IF NOT L427-SSN-PRE-FILL-88 (SSN-SUB)                  DTSCS27
03398               IF L427-SSN (SSN-SUB) NOT = ZERO                    DTSCS27
03399                  IF DUP-SUB < DUP-MAX                             DTSCS27
03400                     ADD +1 TO DUP-SUB                             DTSCS27
03401                     MOVE DUP-SUB TO DUP-LAST                      DTSCS27
03402                     MOVE L427-SSN (SSN-SUB)                       DTSCS27
03403                       TO WRK-CHK-SSN (DUP-SUB)                    DTSCS27
03404                  END-IF                                           DTSCS27
03405               END-IF                                              DTSCS27
03406            END-IF                                                 DTSCS27
03407            COMPUTE WRK-TOT-WAGE =                                 DTSCS27
03408               (WRK-TOT-WAGE +                                     DTSCS27
03409                L427-QTR1-WAGE-CHNG (SSN-SUB) +                    DTSCS27
03410                L427-QTR2-WAGE-CHNG (SSN-SUB) +                    DTSCS27
03411                L427-QTR3-WAGE-CHNG (SSN-SUB) +                    DTSCS27
03412                L427-QTR4-WAGE-CHNG (SSN-SUB))                     DTSCS27
03413            COMPUTE WRK-CALC-TAX-WAGE =                            DTSCS27
03414               (WRK-CALC-TAX-WAGE +                                DTSCS27
03415                L427-QTR1-TAX-WAGE (SSN-SUB) +                     DTSCS27
03416                L427-QTR2-TAX-WAGE (SSN-SUB) +                     DTSCS27
03417                L427-QTR3-TAX-WAGE (SSN-SUB) +                     DTSCS27
03418                L427-QTR4-TAX-WAGE (SSN-SUB))                      DTSCS27
03419      END-PERFORM.                                                 DTSCS27
03420                                                                   DTSCS27
03421  P8971-EXIT.                                                      DTSCS27
03422      EXIT.                                                        DTSCS27
03423                                                                   DTSCS27
03424  P8972-ERROR.                                                     DTSCS27
03425      IF LCCM-NO-MSG                                               DTSCS27
03426          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
03427          IF (MAP-SSN1 (1) = SPACES OR LOW-VALUES)                 DTSCS27
03428             MOVE CATB-CURSOR TO MAP-SSN1-L (1)                    DTSCS27
03429          ELSE                                                     DTSCS27
03430             IF L427-SSN-CURR-WAGE-88 (1)                          DTSCS27
03431                MOVE CATB-CURSOR TO MAP-YRQ1-WAGES-L (2)           DTSCS27
03432             ELSE                                                  DTSCS27
03433                MOVE CATB-CURSOR TO MAP-YRQ1-WAGES-L (1).          DTSCS27
03434      SET CURSOR-SET-YES TO TRUE.                                  DTSCS27
03435  P8972-EXIT.                                                      DTSCS27
03436      EXIT.                                                        DTSCS27
03437                                                                   DTSCS27
03438  P9000-INIT-SCR-HOLD.                                             DTSCS27
03439      PERFORM S829E-DELETE-QUEUE  THRU S829E-EXIT.                 DTSCS27
03440      MOVE LOW-VALUES         TO WRK-SCR-HOLD-AREA.                DTSCS27
03441      MOVE WRK-PROG-NAME      TO WRK-SCR-HOLD-PROG-NAME.           DTSCS27
03442                                                                   DTSCS27
03443      MOVE ZERO               TO WRK-SCR-HOLD-CURR-ITEM            DTSCS27
03444                                 WRK-SCR-HOLD-LAST-ITEM            DTSCS27
03445                                 WRK-SCR-HOLD-TOT-WORKERS          DTSCS27
03446                                 WRK-SCR-HOLD-DUMMY-SSN.           DTSCS27
03447                                                                   DTSCS27
03448      SET WRK-SCR-HOLD-DIS-EDIT1-NO-88 TO TRUE.                    DTSCS27
03449      SET WRK-SCR-HOLD-DIS-EDIT2-NO-88 TO TRUE.                    DTSCS27
03450      SET WRK-SCR-HOLD-DIS-EDIT3-NO-88 TO TRUE.                    DTSCS27
03451      SET WRK-SCR-HOLD-DIS-EDIT4-NO-88 TO TRUE.                    DTSCS27
03452      SET WRK-SCR-HOLD-DIS-EDIT5-NO-88 TO TRUE.                    DTSCS27
03453      SET WRK-SCR-HOLD-DIS-EDIT6-NO-88 TO TRUE.                    DTSCS27
03454                                                                   DTSCS27
03455      PERFORM P9900-INIT-TS    THRU P9900-EXIT.                    DTSCS27
03456                                                                   DTSCS27
03457  P9000-EXIT.                                                      DTSCS27
03458      EXIT.                                                        DTSCS27
03459                                                                   DTSCS27
03460 /*****************************************************************DTSCS27
03461 * FORMAT THE NEXT SCREEN.  THE SCREEN WILL BE BLANK IF THE        DTSCS27
03462 * PREFILL OPTION IS NOT SELECTED, AND WILL CONTAIN WAGES FOR      DTSCS27
03463 * THE NEXT 10 SSNS ON FILE IF THE OPTION WAS SELECTED.            DTSCS27
03464 ******************************************************************DTSCS27
03465  P9100-FIND-WAGES.                                                DTSCS27
03466      IF MAP-RPT-ORIG-88 OR MAP-RPT-ESTIM-88                       DTSCS27
03467         SET L422-RPT-TYPE-ORIG-88 TO TRUE                         DTSCS27
03468      ELSE                                                         DTSCS27
03469         IF MAP-RPT-WITHDRW-88                                     DTSCS27
03470            SET L422-RPT-TYPE-WD-88    TO TRUE                     DTSCS27
03471         ELSE                                                      DTSCS27
03472            SET L422-RPT-TYPE-SUPPL-88 TO TRUE.                    DTSCS27
03473      MOVE WRK-EMP-NO              TO L422-EMP-NO.                 DTSCS27
03474      MOVE WRK-YRQ1                TO L422-QTR1.                   DTSCS27
03475      MOVE WRK-YRQ2                TO L422-QTR2.                   DTSCS27
03476      MOVE WRK-YRQ3                TO L422-QTR3.                   DTSCS27
03477      MOVE WRK-YRQ4                TO L422-QTR4.                   DTSCS27
03478      MOVE LCCM-TS-NAME-PREFIX     TO L422-TS-NAME-PREFIX.         DTSCS27
03479                                                                   DTSCS27
03480      PERFORM S422-FIND-WAGES      THRU S422-EXIT.                 DTSCS27
03481                                                                   DTSCS27
03482      MOVE L422-TS-CNT             TO WRK-SCR-HOLD-LAST-ITEM.      DTSCS27
03483      MOVE L422-LAST-DUMMY-SSN     TO WRK-SCR-HOLD-DUMMY-SSN.      DTSCS27
03484      IF MAP-RPT-WITHDRW-88                                        DTSCS27
03485         GO TO P9100-EXIT.                                         DTSCS27
03486                                                                   DTSCS27
03487      IF L422-TS-CNT > ZERO                                        DTSCS27
03488         MOVE +1                      TO L829-ITEM-NO              DTSCS27
03489                                         WRK-SCR-HOLD-CURR-ITEM    DTSCS27
03490         PERFORM S829A-READ-ITEM         THRU S829A-EXIT           DTSCS27
03491         IF L829-OK-88                                             DTSCS27
03492            MOVE L829-REC                TO L427-WAGE-AREA         DTSCS27
03493            PERFORM P9800-TS-TO-SCREEN   THRU P9800-EXIT           DTSCS27
03494         ELSE                                                      DTSCS27
03495            MOVE 1                    TO WRK-SCR-HOLD-LAST-ITEM    DTSCS27
03496                                         WRK-SCR-HOLD-CURR-ITEM    DTSCS27
03497            PERFORM P9120-BLANK-WAGE-SCR THRU P9120-EXIT           DTSCS27
03498      ELSE                                                         DTSCS27
03499         PERFORM P9120-BLANK-WAGE-SCR    THRU P9120-EXIT.          DTSCS27
03500                                                                   DTSCS27
03501      IF (MAP-SSN1 (1) = SPACES OR LOW-VALUES)                     DTSCS27
03502         MOVE CATB-CURSOR TO MAP-SSN1-L (1)                        DTSCS27
03503      ELSE                                                         DTSCS27
03504         IF L427-SSN-CURR-WAGE-88 (1)                              DTSCS27
03505            MOVE CATB-CURSOR TO MAP-YRQ1-WAGES-L (2)               DTSCS27
03506         ELSE                                                      DTSCS27
03507            MOVE CATB-CURSOR TO MAP-YRQ1-WAGES-L (1).              DTSCS27
03508      SET CURSOR-SET-YES TO TRUE.                                  DTSCS27
03509                                                                   DTSCS27
03510  P9100-EXIT.                                                      DTSCS27
03511      EXIT.                                                        DTSCS27
03512                                                                   DTSCS27
03513 /*****************************************************************DTSCS27
03514 * FORMAT A BLANK SCREEN FOR DATA ENTRY AND BUILD THE ASSOCIATED   DTSCS27
03515 * TEMPORARY STORAGE RECORD.                                       DTSCS27
03516 ******************************************************************DTSCS27
03517  P9120-BLANK-WAGE-SCR.                                            DTSCS27
03518      PERFORM P9900-INIT-TS    THRU P9900-EXIT.                    DTSCS27
03519                                                                   DTSCS27
03520      MOVE WRK-EMP-NO          TO L427-EMP-NO.                     DTSCS27
03521      ADD 1                    TO WRK-SCR-HOLD-LAST-ITEM.          DTSCS27
03522      MOVE WRK-SCR-HOLD-LAST-ITEM TO WRK-SCR-HOLD-CURR-ITEM.       DTSCS27
03523      MOVE L427-WAGE-AREA      TO L829-REC.                        DTSCS27
03524                                                                   DTSCS27
03525      PERFORM S829B-WRITE      THRU S829B-EXIT.                    DTSCS27
03526                                                                   DTSCS27
03527      PERFORM P9810-CLEAR-SCREEN THRU P9810-EXIT                   DTSCS27
03528         VARYING SSN-SUB FROM +1 BY +1                             DTSCS27
03529         UNTIL SSN-SUB > WRK-MAX-WAGE-ITEMS.                       DTSCS27
03530                                                                   DTSCS27
03531  P9120-EXIT.                                                      DTSCS27
03532      EXIT.                                                        DTSCS27
03533                                                                   DTSCS27
03534  P9200-NEXT-WAGE-SCR.                                             DTSCS27
03535      IF WRK-SCR-HOLD-CURR-ITEM < WRK-SCR-HOLD-LAST-ITEM           DTSCS27
03536         ADD +1 TO WRK-SCR-HOLD-CURR-ITEM                          DTSCS27
03537         MOVE WRK-SCR-HOLD-CURR-ITEM TO L829-ITEM-NO               DTSCS27
03538         PERFORM S829A-READ-ITEM THRU S829A-EXIT                   DTSCS27
03539         MOVE L829-REC               TO L427-WAGE-AREA             DTSCS27
03540         PERFORM P9800-TS-TO-SCREEN  THRU P9800-EXIT               DTSCS27
03541      ELSE                                                         DTSCS27
03542         IF L427-WAGE-TBL-CNT < WRK-MAX-WAGE-ITEMS                 DTSCS27
03543            MOVE PMSG-LAST-PAGE      TO LCCM-MSG-ID                DTSCS27
03544         ELSE                                                      DTSCS27
03545            PERFORM P9120-BLANK-WAGE-SCR  THRU P9120-EXIT          DTSCS27
03546         END-IF                                                    DTSCS27
03547      END-IF.                                                      DTSCS27
03548                                                                   DTSCS27
03549      IF (MAP-SSN1 (1) = SPACES OR LOW-VALUES)                     DTSCS27
03550         MOVE CATB-CURSOR TO MAP-SSN1-L (1)                        DTSCS27
03551      ELSE                                                         DTSCS27
03552         IF L427-SSN-CURR-WAGE-88 (1)                              DTSCS27
03553            MOVE CATB-CURSOR TO MAP-YRQ1-WAGES-L (1)               DTSCS27
03554         ELSE                                                      DTSCS27
03555            MOVE CATB-CURSOR TO MAP-YRQ1-WAGES-L (1).              DTSCS27
03556      SET CURSOR-SET-YES TO TRUE.                                  DTSCS27
03557                                                                   DTSCS27
03558  P9200-EXIT.                                                      DTSCS27
03559      EXIT.                                                        DTSCS27
03560                                                                   DTSCS27
03561  P9300-SCREEN-TO-TS.                                              DTSCS27
03562      MOVE +0   TO WRK-POST-EDIT-WAGE-CNT.                         DTSCS27
03563                                                                   DTSCS27
03564      PERFORM                                                      DTSCS27
03565         VARYING SSN-SUB FROM +1 BY +1                             DTSCS27
03566         UNTIL SSN-SUB > WRK-MAX-WAGE-ITEMS                        DTSCS27
03567            IF L427-QTR1-WAGE-CHNG (SSN-SUB) NOT = ZERO            DTSCS27
03568            OR L427-QTR2-WAGE-CHNG (SSN-SUB) NOT = ZERO            DTSCS27
03569            OR L427-QTR3-WAGE-CHNG (SSN-SUB) NOT = ZERO            DTSCS27
03570            OR L427-QTR4-WAGE-CHNG (SSN-SUB) NOT = ZERO            DTSCS27
03571               ADD +1 TO WRK-POST-EDIT-WAGE-CNT                    DTSCS27
03572            END-IF                                                 DTSCS27
03573      END-PERFORM.                                                 DTSCS27
03574                                                                   DTSCS27
03575                                                                   DTSCS27
03576      IF L427-EDITED-NO-88                                         DTSCS27
03577         ADD WRK-POST-EDIT-WAGE-CNT TO WRK-SCR-HOLD-TOT-WORKERS    DTSCS27
03578      ELSE                                                         DTSCS27
03579         SUBTRACT WRK-PRE-EDIT-WAGE-CNT FROM                       DTSCS27
03580                                      WRK-SCR-HOLD-TOT-WORKERS     DTSCS27
03581         ADD WRK-POST-EDIT-WAGE-CNT                                DTSCS27
03582                                  TO WRK-SCR-HOLD-TOT-WORKERS.     DTSCS27
03583                                                                   DTSCS27
03584      IF L427-EMP-NO NOT = WRK-EMP-NO                              DTSCS27
03585         MOVE WRK-EMP-NO TO L427-EMP-NO.                           DTSCS27
03586                                                                   DTSCS27
03587      SET L427-EDITED-YES-88 TO TRUE.                              DTSCS27
03588      MOVE L427-WAGE-AREA     TO L829-REC.                         DTSCS27
03589      IF WRK-SCR-HOLD-LAST-ITEM = ZERO                             DTSCS27
03590         ADD 1                    TO WRK-SCR-HOLD-LAST-ITEM        DTSCS27
03591         MOVE WRK-SCR-HOLD-LAST-ITEM TO WRK-SCR-HOLD-CURR-ITEM     DTSCS27
03592         PERFORM S829B-WRITE          THRU S829B-EXIT              DTSCS27
03593      ELSE                                                         DTSCS27
03594         PERFORM S829D-REWRITE   THRU S829D-EXIT.                  DTSCS27
03595                                                                   DTSCS27
03596  P9300-EXIT.                                                      DTSCS27
03597      EXIT.                                                        DTSCS27
03598                                                                   DTSCS27
03599  P9500-SAVE-TO-TS.                                                DTSCS27
03600      MOVE WRK-EMP-NO              TO L427-EMP-NO.                 DTSCS27
03601      SET L427-EDITED-YES-88       TO TRUE.                        DTSCS27
03602                                                                   DTSCS27
03603      PERFORM                                                      DTSCS27
03604         VARYING SSN-SUB FROM +1 BY +1                             DTSCS27
03605         UNTIL SSN-SUB > WRK-MAX-WAGE-ITEMS                        DTSCS27
03606            IF NOT L427-SSN-CURR-WAGE-88 (SSN-SUB)                 DTSCS27
03607               IF L427-SSN (SSN-SUB) NOT = ZERO                    DTSCS27
03608 *&            OR L427-SSN-NAME (SSN-SUB) NOT = SPACES             DTSCS27
03609               OR L427-QTR1-WAGE-CHNG (SSN-SUB) NOT = ZERO         DTSCS27
03610               OR L427-QTR2-WAGE-CHNG (SSN-SUB) NOT = ZERO         DTSCS27
03611               OR L427-QTR3-WAGE-CHNG (SSN-SUB) NOT = ZERO         DTSCS27
03612               OR L427-QTR4-WAGE-CHNG (SSN-SUB) NOT = ZERO         DTSCS27
03613                  ADD +1 TO WRK-SCR-HOLD-TOT-WORKERS               DTSCS27
03614               END-IF                                              DTSCS27
03615            END-IF                                                 DTSCS27
03616            COMPUTE WRK-TOT-WAGE =                                 DTSCS27
03617               (WRK-TOT-WAGE +                                     DTSCS27
03618                L427-QTR1-WAGE-CHNG (SSN-SUB) +                    DTSCS27
03619                L427-QTR2-WAGE-CHNG (SSN-SUB) +                    DTSCS27
03620                L427-QTR3-WAGE-CHNG (SSN-SUB) +                    DTSCS27
03621                L427-QTR4-WAGE-CHNG (SSN-SUB))                     DTSCS27
03622            COMPUTE WRK-CALC-TAX-WAGE =                            DTSCS27
03623               (WRK-CALC-TAX-WAGE +                                DTSCS27
03624                L427-QTR1-TAX-WAGE (SSN-SUB) +                     DTSCS27
03625                L427-QTR2-TAX-WAGE (SSN-SUB) +                     DTSCS27
03626                L427-QTR3-TAX-WAGE (SSN-SUB) +                     DTSCS27
03627                L427-QTR4-TAX-WAGE (SSN-SUB))                      DTSCS27
03628      END-PERFORM.                                                 DTSCS27
03629                                                                   DTSCS27
03630                                                                   DTSCS27
03631      MOVE L427-WAGE-AREA          TO L829-REC.                    DTSCS27
03632      ADD 1                        TO WRK-SCR-HOLD-LAST-ITEM.      DTSCS27
03633      MOVE WRK-SCR-HOLD-LAST-ITEM  TO WRK-SCR-HOLD-CURR-ITEM.      DTSCS27
03634      PERFORM S829B-WRITE          THRU S829B-EXIT.                DTSCS27
03635                                                                   DTSCS27
03636  P9500-EXIT.                                                      DTSCS27
03637      EXIT.                                                        DTSCS27
03638                                                                   DTSCS27
03639  P9800-TS-TO-SCREEN.                                              DTSCS27
03640      MOVE +0   TO WRK-PRE-EDIT-WAGE-CNT.                          DTSCS27
03641                                                                   DTSCS27
03642      PERFORM P9810-CLEAR-SCREEN THRU P9810-EXIT                   DTSCS27
03643         VARYING SSN-SUB FROM +1 BY +1                             DTSCS27
03644         UNTIL SSN-SUB > WRK-MAX-WAGE-ITEMS.                       DTSCS27
03645                                                                   DTSCS27
03646      PERFORM P9820-TS-ITEM      THRU P9820-EXIT                   DTSCS27
03647         VARYING SSN-SUB FROM +1 BY +1                             DTSCS27
03648         UNTIL SSN-SUB > WRK-MAX-WAGE-ITEMS.                       DTSCS27
03649                                                                   DTSCS27
03650  P9800-EXIT.                                                      DTSCS27
03651      EXIT.                                                        DTSCS27
03652                                                                   DTSCS27
03653  P9810-CLEAR-SCREEN.                                              DTSCS27
03654      MOVE LOW-VALUE        TO MAP-SSN1 (SSN-SUB)                  DTSCS27
03655                               MAP-SSN2 (SSN-SUB)                  DTSCS27
03656                               MAP-SSN3 (SSN-SUB)                  DTSCS27
03657                               MAP-SSN-NAME-CHK (SSN-SUB)          DTSCS27
03658                               MAP-YRQ1-WAGES   (SSN-SUB)          DTSCS27
03659                               MAP-YRQ2-WAGES   (SSN-SUB)          DTSCS27
03660                               MAP-YRQ3-WAGES   (SSN-SUB)          DTSCS27
03661                               MAP-YRQ4-WAGES   (SSN-SUB).         DTSCS27
03662  P9810-EXIT.                                                      DTSCS27
03663      EXIT.                                                        DTSCS27
03664                                                                   DTSCS27
03665  P9820-TS-ITEM.                                                   DTSCS27
03666      IF L427-QTR1-WAGE-CHNG (SSN-SUB) NOT = ZERO                  DTSCS27
03667      OR L427-QTR2-WAGE-CHNG (SSN-SUB) NOT = ZERO                  DTSCS27
03668      OR L427-QTR3-WAGE-CHNG (SSN-SUB) NOT = ZERO                  DTSCS27
03669      OR L427-QTR4-WAGE-CHNG (SSN-SUB) NOT = ZERO                  DTSCS27
03670         ADD +1 TO WRK-PRE-EDIT-WAGE-CNT                           DTSCS27
03671      END-IF.                                                      DTSCS27
03672                                                                   DTSCS27
03673      IF L427-SSN (SSN-SUB) NOT = ZERO                             DTSCS27
03674         MOVE L427-SSN (SSN-SUB) TO WRK-SSN-AREA                   DTSCS27
03675         MOVE WRK-SSN1         TO MAP-SSN1 (SSN-SUB)               DTSCS27
03676         MOVE WRK-SSN2         TO MAP-SSN2 (SSN-SUB)               DTSCS27
03677         MOVE WRK-SSN3         TO MAP-SSN3 (SSN-SUB).              DTSCS27
03678                                                                   DTSCS27
03679      IF L427-SSN-CURR-WAGE-88 (SSN-SUB)                           DTSCS27
03680         MOVE 'CUR'            TO MAP-SSN-NAME-CHK (SSN-SUB)       DTSCS27
03681      ELSE                                                         DTSCS27
03682 ***  IF L427-SSN-PRE-FILL-88 (SSN-SUB)                            DTSCS27
03683 ***     MOVE '>>>'            TO MAP-SSN-NAME-CHK (SSN-SUB)       DTSCS27
03684 ***  ELSE                                                         DTSCS27
03685         MOVE L427-SSN-NAME (SSN-SUB)                              DTSCS27
03686                               TO MAP-SSN-NAME-CHK (SSN-SUB).      DTSCS27
03687                                                                   DTSCS27
03688      IF L427-SSN-CURR-WAGE-88 (SSN-SUB)                           DTSCS27
03689      OR L427-SSN-PRE-FILL-88 (SSN-SUB)                            DTSCS27
03690         MOVE CATB-ASKIP-BRT-MDTON TO                              DTSCS27
03691                                 MAP-SSN1-A (SSN-SUB)              DTSCS27
03692                                 MAP-SSN2-A (SSN-SUB)              DTSCS27
03693                                 MAP-SSN3-A (SSN-SUB)              DTSCS27
03694                                 MAP-SSN-NAME-CHK-A (SSN-SUB).     DTSCS27
03695                                                                   DTSCS27
03696      IF L427-SSN-CURR-WAGE-88 (SSN-SUB)                           DTSCS27
03697         MOVE L427-QTR1-CURR-WAGE (SSN-SUB)                        DTSCS27
03698                               TO MAP-YRQ1-WAGES-N (SSN-SUB)       DTSCS27
03699      ELSE                                                         DTSCS27
03700         IF L427-QTR1-VALID-88 (SSN-SUB)                           DTSCS27
03701            MOVE L427-QTR1-WAGE-CHNG (SSN-SUB)                     DTSCS27
03702                               TO MAP-YRQ1-WAGES-N (SSN-SUB)       DTSCS27
03703         ELSE                                                      DTSCS27
03704            IF L427-QTR1-WAGE-CHNG (SSN-SUB) NOT = ZERO            DTSCS27
03705               MOVE L427-QTR1-WAGE-CHNG (SSN-SUB)                  DTSCS27
03706                               TO MAP-YRQ1-WAGES-N (SSN-SUB).      DTSCS27
03707                                                                   DTSCS27
03708      IF L427-SSN-CURR-WAGE-88 (SSN-SUB)                           DTSCS27
03709         MOVE L427-QTR2-CURR-WAGE (SSN-SUB)                        DTSCS27
03710                               TO MAP-YRQ2-WAGES-N (SSN-SUB)       DTSCS27
03711      ELSE                                                         DTSCS27
03712         IF L427-QTR2-VALID-88 (SSN-SUB)                           DTSCS27
03713            MOVE L427-QTR2-WAGE-CHNG (SSN-SUB)                     DTSCS27
03714                               TO MAP-YRQ2-WAGES-N (SSN-SUB)       DTSCS27
03715         ELSE                                                      DTSCS27
03716            IF L427-QTR2-WAGE-CHNG (SSN-SUB) NOT = ZERO            DTSCS27
03717               MOVE L427-QTR2-WAGE-CHNG (SSN-SUB)                  DTSCS27
03718                               TO MAP-YRQ2-WAGES-N (SSN-SUB).      DTSCS27
03719                                                                   DTSCS27
03720      IF L427-SSN-CURR-WAGE-88 (SSN-SUB)                           DTSCS27
03721         MOVE L427-QTR3-CURR-WAGE (SSN-SUB)                        DTSCS27
03722                               TO MAP-YRQ3-WAGES-N (SSN-SUB)       DTSCS27
03723      ELSE                                                         DTSCS27
03724         IF L427-QTR3-VALID-88 (SSN-SUB)                           DTSCS27
03725            MOVE L427-QTR3-WAGE-CHNG (SSN-SUB)                     DTSCS27
03726                               TO MAP-YRQ3-WAGES-N (SSN-SUB)       DTSCS27
03727         ELSE                                                      DTSCS27
03728            IF L427-QTR3-WAGE-CHNG (SSN-SUB) NOT = ZERO            DTSCS27
03729               MOVE L427-QTR3-WAGE-CHNG (SSN-SUB)                  DTSCS27
03730                               TO MAP-YRQ3-WAGES-N (SSN-SUB).      DTSCS27
03731                                                                   DTSCS27
03732      IF L427-SSN-CURR-WAGE-88 (SSN-SUB)                           DTSCS27
03733         MOVE L427-QTR4-CURR-WAGE (SSN-SUB)                        DTSCS27
03734                               TO MAP-YRQ4-WAGES-N (SSN-SUB)       DTSCS27
03735      ELSE                                                         DTSCS27
03736         IF L427-QTR4-VALID-88 (SSN-SUB)                           DTSCS27
03737            MOVE L427-QTR4-WAGE-CHNG (SSN-SUB)                     DTSCS27
03738                               TO MAP-YRQ4-WAGES-N (SSN-SUB)       DTSCS27
03739         ELSE                                                      DTSCS27
03740            IF L427-QTR4-WAGE-CHNG (SSN-SUB) NOT = ZERO            DTSCS27
03741               MOVE L427-QTR4-WAGE-CHNG (SSN-SUB)                  DTSCS27
03742                               TO MAP-YRQ4-WAGES-N (SSN-SUB).      DTSCS27
03743                                                                   DTSCS27
03744                                                                   DTSCS27
03745  P9820-EXIT.                                                      DTSCS27
03746      EXIT.                                                        DTSCS27
03747                                                                   DTSCS27
03748  P9900-INIT-TS.                                                   DTSCS27
03749      MOVE ZERO               TO L427-WAGE-TBL-CNT.                DTSCS27
03750      MOVE WRK-EMP-NO         TO L427-EMP-NO.                      DTSCS27
03751      SET L427-EDITED-NO-88   TO TRUE.                             DTSCS27
03752      PERFORM                                                      DTSCS27
03753         VARYING SSN-SUB FROM +1 BY +1                             DTSCS27
03754         UNTIL SSN-SUB > WRK-MAX-WAGE-ITEMS                        DTSCS27
03755            MOVE SPACE        TO L427-SSN-NAME (SSN-SUB)           DTSCS27
03756            MOVE ZERO    TO L427-SSN (SSN-SUB)                     DTSCS27
03757                            L427-QTR1-WAGE-CHNG (SSN-SUB)          DTSCS27
03758                            L427-QTR1-CURR-WAGE (SSN-SUB)          DTSCS27
03759                            L427-QTR1-PRIOR-WAGE (SSN-SUB)         DTSCS27
03760                            L427-QTR1-TAX-WAGE (SSN-SUB)           DTSCS27
03761                            L427-QTR2-WAGE-CHNG (SSN-SUB)          DTSCS27
03762                            L427-QTR2-CURR-WAGE (SSN-SUB)          DTSCS27
03763                            L427-QTR2-PRIOR-WAGE (SSN-SUB)         DTSCS27
03764                            L427-QTR2-TAX-WAGE (SSN-SUB)           DTSCS27
03765                            L427-QTR3-WAGE-CHNG (SSN-SUB)          DTSCS27
03766                            L427-QTR3-CURR-WAGE (SSN-SUB)          DTSCS27
03767                            L427-QTR3-PRIOR-WAGE (SSN-SUB)         DTSCS27
03768                            L427-QTR3-TAX-WAGE (SSN-SUB)           DTSCS27
03769                            L427-QTR4-WAGE-CHNG (SSN-SUB)          DTSCS27
03770                            L427-QTR4-CURR-WAGE (SSN-SUB)          DTSCS27
03771                            L427-QTR4-PRIOR-WAGE (SSN-SUB)         DTSCS27
03772                            L427-QTR4-TAX-WAGE (SSN-SUB)           DTSCS27
03773                                                                   DTSCS27
03774            SET L427-SSN-NO-ENTRY-88 (SSN-SUB) TO TRUE             DTSCS27
03775            SET L427-SSN-NAME-NO-ENTRY-88 (SSN-SUB) TO TRUE        DTSCS27
03776            SET L427-QTR1-NO-ENTRY-88 (SSN-SUB) TO TRUE            DTSCS27
03777            SET L427-QTR2-NO-ENTRY-88 (SSN-SUB) TO TRUE            DTSCS27
03778            SET L427-QTR3-NO-ENTRY-88 (SSN-SUB) TO TRUE            DTSCS27
03779            SET L427-QTR4-NO-ENTRY-88 (SSN-SUB) TO TRUE            DTSCS27
03780      END-PERFORM.                                                 DTSCS27
03781                                                                   DTSCS27
03782  P9900-EXIT.                                                      DTSCS27
03783      EXIT.                                                        DTSCS27
03784                                                                   DTSCS27
03785 /*****************************************************************DTSCS27
03786 * LINKS TO UTILITY MODULES                                        DTSCS27
03787 ******************************************************************DTSCS27
03788                                                                   DTSCS27
03789  S001-FROM-FED-8.                                                 DTSCS27
03790      SET L001-FROM-FED-8 TO TRUE.                                 DTSCS27
03791      GO TO S001-LINK.                                             DTSCS27
03792                                                                   DTSCS27
03793  S001-LINK.                                                       DTSCS27
03794      EXEC CICS LINK                                               DTSCS27
03795          PROGRAM  ('DTSCU001')                                    DTSCS27
03796          COMMAREA (L001-COMM-AREA)                                DTSCS27
03797      END-EXEC.                                                    DTSCS27
03798  S001-EXIT.                                                       DTSCS27
03799      EXIT.                                                        DTSCS27
03800                                                                   DTSCS27
03801                                                                   DTSCS27
03802                                                                   DTSCS27
03803  S004-FROM-5.                                                     DTSCS27
03804      SET L004-FROM-5 TO TRUE.                                     DTSCS27
03805      GO TO S004-LINK.                                             DTSCS27
03806                                                                   DTSCS27
03807  S004-FROM-ABS.                                                   DTSCS27
03808      SET L004-FROM-ABS TO TRUE.                                   DTSCS27
03809      GO TO S004-LINK.                                             DTSCS27
03810                                                                   DTSCS27
03811  S004-LINK.                                                       DTSCS27
03812      EXEC CICS LINK                                               DTSCS27
03813          PROGRAM  ('DTSCU004')                                    DTSCS27
03814          COMMAREA (L004-COMM-AREA)                                DTSCS27
03815      END-EXEC.                                                    DTSCS27
03816  S004-EXIT.                                                       DTSCS27
03817      EXIT.                                                        DTSCS27
03818                                                                   DTSCS27
03819                                                                   DTSCS27
03820                                                                   DTSCS27
03821  S006-FROM-QTR.                                                   DTSCS27
03822      SET L006-FROM-QTR TO TRUE.                                   DTSCS27
03823      GO TO S006-LINK.                                             DTSCS27
03824                                                                   DTSCS27
03825  S006-LINK.                                                       DTSCS27
03826      EXEC CICS LINK                                               DTSCS27
03827          PROGRAM  ('DTSCU006')                                    DTSCS27
03828          COMMAREA (L006-COMM-AREA)                                DTSCS27
03829      END-EXEC.                                                    DTSCS27
03830  S006-EXIT.                                                       DTSCS27
03831      EXIT.                                                        DTSCS27
03832                                                                   DTSCS27
03833                                                                   DTSCS27
03834  S011-OR-ES-WAGE-FROM-SCREEN.                                     DTSCS27
03835      MOVE 0.00 TO L011-MIN-AMT                                    DTSCS27
03836      MOVE 999999999.99 TO L011-MAX-AMT                            DTSCS27
03837      GO TO S011-MONEY-FROM-SCREEN.                                DTSCS27
03838                                                                   DTSCS27
03839  S011-SUPP-WAGE-FROM-SCREEN.                                      DTSCS27
03840      MOVE  -999999999.99 TO L011-MIN-AMT                          DTSCS27
03841      MOVE 999999999.99 TO L011-MAX-AMT                            DTSCS27
03842      GO TO S011-MONEY-FROM-SCREEN.                                DTSCS27
03843                                                                   DTSCS27
03844  S011-WD-WAGE-FROM-SCREEN.                                        DTSCS27
03845      MOVE  -999999999.99 TO L011-MIN-AMT                          DTSCS27
03846      MOVE 0.00 TO L011-MAX-AMT                                    DTSCS27
03847      GO TO S011-MONEY-FROM-SCREEN.                                DTSCS27
03848                                                                   DTSCS27
03849  S011-WAGE-FROM-SCREEN.                                           DTSCS27
03850      MOVE  -999999999.99 TO L011-MIN-AMT                          DTSCS27
03851      MOVE 999999999.99 TO L011-MAX-AMT                            DTSCS27
03852      GO TO S011-MONEY-FROM-SCREEN.                                DTSCS27
03853                                                                   DTSCS27
03854  S011-REMIT-AMT-FROM-SCREEN.                                      DTSCS27
03855      MOVE 0.00 TO L011-MIN-AMT                                    DTSCS27
03856      MOVE 999999999.99 TO L011-MAX-AMT                            DTSCS27
03857      GO TO S011-MONEY-FROM-SCREEN.                                DTSCS27
03858                                                                   DTSCS27
03859  S011-MONEY-FROM-SCREEN.                                          DTSCS27
03860      EXEC CICS LINK                                               DTSCS27
03861          PROGRAM('DTSCU011')                                      DTSCS27
03862          COMMAREA(L011-COMM-AREA)                                 DTSCS27
03863      END-EXEC.                                                    DTSCS27
03864  S011-EXIT.                                                       DTSCS27
03865      EXIT.                                                        DTSCS27
03866                                                                   DTSCS27
03867                                                                   DTSCS27
03868                                                                   DTSCS27
03869  S013-EMPL-CNT-FROM-SCREEN.                                       DTSCS27
03870      MOVE +0 TO L013-MIN-CNT.                                     DTSCS27
03871      MOVE +9998    TO L013-MAX-CNT.                               DTSCS27
03872      GO TO S013-COUNT-FROM-SCREEN.                                DTSCS27
03873                                                                   DTSCS27
03874  S013-COUNT-FROM-SCREEN.                                          DTSCS27
03875      EXEC CICS LINK                                               DTSCS27
03876          PROGRAM('DTSCU013')                                      DTSCS27
03877          COMMAREA(L013-COMM-AREA)                                 DTSCS27
03878      END-EXEC.                                                    DTSCS27
03879  S013-EXIT.                                                       DTSCS27
03880      EXIT.                                                        DTSCS27
03881                                                                   DTSCS27
03882                                                                   DTSCS27
03883                                                                   DTSCS27
03884  S015-DATE-FROM-SCREEN.                                           DTSCS27
03885      EXEC CICS LINK                                               DTSCS27
03886          PROGRAM('DTSCU015')                                      DTSCS27
03887          COMMAREA(L015-COMM-AREA)                                 DTSCS27
03888      END-EXEC.                                                    DTSCS27
03889  S015-EXIT.                                                       DTSCS27
03890      EXIT.                                                        DTSCS27
03891                                                                   DTSCS27
03892                                                                   DTSCS27
03893                                                                   DTSCS27
03894  S016-YRQ-FROM-SCREEN.                                            DTSCS27
03895      EXEC CICS LINK                                               DTSCS27
03896          PROGRAM  ('DTSCU016')                                    DTSCS27
03897          COMMAREA (L016-COMM-AREA)                                DTSCS27
03898      END-EXEC.                                                    DTSCS27
03899  S016-EXIT.                                                       DTSCS27
03900      EXIT.                                                        DTSCS27
03901                                                                   DTSCS27
03902                                                                   DTSCS27
03903                                                                   DTSCS27
03904  S018-EMP-NO-FROM-SCREEN.                                         DTSCS27
03905      EXEC CICS LINK                                               DTSCS27
03906          PROGRAM('DTSCU018')                                      DTSCS27
03907          COMMAREA(L018-COMM-AREA)                                 DTSCS27
03908      END-EXEC.                                                    DTSCS27
03909  S018-EXIT.                                                       DTSCS27
03910      EXIT.                                                        DTSCS27
03911                                                                   DTSCS27
03912                                                                   DTSCS27
03913                                                                   DTSCS27
03914  S019-BATCH-NO-FROM-SCREEN.                                       DTSCS27
03915      EXEC CICS LINK                                               DTSCS27
03916          PROGRAM('DTSCU019')                                      DTSCS27
03917          COMMAREA(L019-COMM-AREA)                                 DTSCS27
03918      END-EXEC.                                                    DTSCS27
03919  S019-EXIT.                                                       DTSCS27
03920      EXIT.                                                        DTSCS27
03921                                                                   DTSCS27
03922  S020-SSN-FROM-SCREEN.                                            DTSCS27
03923      EXEC CICS LINK                                               DTSCS27
03924          PROGRAM('DTSCU020')                                      DTSCS27
03925          COMMAREA(L020-COMM-AREA)                                 DTSCS27
03926      END-EXEC.                                                    DTSCS27
03927  S020-EXIT.                                                       DTSCS27
03928      EXIT.                                                        DTSCS27
03929                                                                   DTSCS27
03930                                                                   DTSCS27
03931                                                                   DTSCS27
03932  S032-AATX-RPT-TYPE.                                              DTSCS27
03933      SET L032-ARPT-RPT-TYPE TO TRUE.                              DTSCS27
03934      GO TO S032-LINK.                                             DTSCS27
03935                                                                   DTSCS27
03936  S032-AATX-RESPONSIBLE-ACTIVITY.                                  DTSCS27
03937      SET L032-ARPT-RESPONSIBLE-ACTIVITY TO TRUE.                  DTSCS27
03938      GO TO S032-LINK.                                             DTSCS27
03939                                                                   DTSCS27
03940  S032-LINK.                                                       DTSCS27
03941      EXEC CICS LINK                                               DTSCS27
03942          PROGRAM  ('DTSCU032')                                    DTSCS27
03943          COMMAREA (L032-COMM-AREA)                                DTSCS27
03944      END-EXEC.                                                    DTSCS27
03945  S032-EXIT.                                                       DTSCS27
03946      EXIT.                                                        DTSCS27
03947                                                                   DTSCS27
03948                                                                   DTSCS27
03949                                                                   DTSCS27
03950  S082-OP-ID-LOOKUP.                                               DTSCS27
03951      EXEC CICS LINK                                               DTSCS27
03952          PROGRAM('DTSCU082')                                      DTSCS27
03953          COMMAREA(L082-COMM-AREA)                                 DTSCS27
03954      END-EXEC.                                                    DTSCS27
03955                                                                   DTSCS27
03956      IF L082-FILE-CLOSED                                          DTSCS27
03957          MOVE L082-MSG-AREA TO LCCM-MSG-AREA                      DTSCS27
03958          SET LCCM-REQ-SCR-SF-88 TO TRUE                           DTSCS27
03959          SET LCCM-LINK-SCREEN-88 TO TRUE                          DTSCS27
03960          GO TO MAINLINE-EXIT.                                     DTSCS27
03961  S082-EXIT.                                                       DTSCS27
03962      EXIT.                                                        DTSCS27
03963                                                                   DTSCS27
03964                                                                   DTSCS27
03965                                                                   DTSCS27
03966  S371-DELETE.                                                     DTSCS27
03967      EXEC CICS LINK                                               DTSCS27
03968          PROGRAM ('DTSCU371')                                     DTSCS27
03969          COMMAREA (L371-COMM-AREA)                                DTSCS27
03970      END-EXEC.                                                    DTSCS27
03971                                                                   DTSCS27
03972      IF L371-FILE-CLOSED                                          DTSCS27
03973          MOVE L371-MSG-AREA TO LCCM-MSG-AREA                      DTSCS27
03974          SET LCCM-REQ-SCR-SF-88 TO TRUE                           DTSCS27
03975          SET LCCM-LINK-SCREEN-88 TO TRUE                          DTSCS27
03976          GO TO MAINLINE-EXIT.                                     DTSCS27
03977  S371-EXIT.                                                       DTSCS27
03978      EXIT.                                                        DTSCS27
03979                                                                   DTSCS27
03980                                                                   DTSCS27
03981                                                                   DTSCS27
03982  S372-BATCH-INQUIRY.                                              DTSCS27
03983      SET L372-INQUIRE TO TRUE.                                    DTSCS27
03984      GO TO S372-LINK.                                             DTSCS27
03985                                                                   DTSCS27
03986  S372-BATCH-UPDATE.                                               DTSCS27
03987      SET L372-UPDATE TO TRUE.                                     DTSCS27
03988      GO TO S372-LINK.                                             DTSCS27
03989                                                                   DTSCS27
03990  S372-LINK.                                                       DTSCS27
03991      EXEC CICS LINK                                               DTSCS27
03992          PROGRAM ('DTSCU372')                                     DTSCS27
03993          COMMAREA (L372-COMM-AREA)                                DTSCS27
03994      END-EXEC.                                                    DTSCS27
03995                                                                   DTSCS27
03996      IF L372-FILE-CLOSED                                          DTSCS27
03997          MOVE L372-MSG-AREA TO LCCM-MSG-AREA                      DTSCS27
03998          SET LCCM-REQ-SCR-SF-88 TO TRUE                           DTSCS27
03999          SET LCCM-LINK-SCREEN-88 TO TRUE                          DTSCS27
04000          GO TO MAINLINE-EXIT.                                     DTSCS27
04001  S372-EXIT.                                                       DTSCS27
04002      EXIT.                                                        DTSCS27
04003                                                                   DTSCS27
04004                                                                   DTSCS27
04005                                                                   DTSCS27
04006 *S373-ADD-HDR.                                                    DTSCS27
04007 *****EXEC CICS LINK                                               DTSCS27
04008 *********PROGRAM ('DTSCU373')                                     DTSCS27
04009 *********COMMAREA (L373-COMM-AREA)                                DTSCS27
04010 *****END-EXEC.                                                    DTSCS27
04011                                                                   DTSCS27
04012 *****IF L373-FILE-CLOSED                                          DTSCS27
04013 *********MOVE L373-MSG-AREA TO LCCM-MSG-AREA                      DTSCS27
04014 *********SET LCCM-REQ-SCR-SF-88 TO TRUE                           DTSCS27
04015 *********SET LCCM-LINK-SCREEN-88 TO TRUE                          DTSCS27
04016 *********GO TO MAINLINE-EXIT.                                     DTSCS27
04017 *S373-EXIT.                                                       DTSCS27
04018 *****EXIT.                                                        DTSCS27
04019                                                                   DTSCS27
04020                                                                   DTSCS27
04021                                                                   DTSCS27
04022  S381-LOOKUP-LIABILITY.                                           DTSCS27
04023      EXEC CICS LINK                                               DTSCS27
04024          PROGRAM ('DTSCU381')                                     DTSCS27
04025          COMMAREA (L381-COMM-AREA)                                DTSCS27
04026      END-EXEC.                                                    DTSCS27
04027                                                                   DTSCS27
04028      IF L381-FILE-CLOSED-88                                       DTSCS27
04029          MOVE L381-MSG-AREA TO LCCM-MSG-AREA                      DTSCS27
04030          SET LCCM-REQ-SCR-SF-88 TO TRUE                           DTSCS27
04031          SET LCCM-LINK-SCREEN-88 TO TRUE                          DTSCS27
04032          GO TO MAINLINE-EXIT.                                     DTSCS27
04033  S381-EXIT.                                                       DTSCS27
04034      EXIT.                                                        DTSCS27
04035                                                                   DTSCS27
04036  S410-FILING-SCHEDULE.                                            DTSCS27
04037      EXEC CICS LINK                                               DTSCS27
04038          PROGRAM ('DTSCU410')                                     DTSCS27
04039          COMMAREA (L410-COMM-AREA)                                DTSCS27
04040      END-EXEC.                                                    DTSCS27
04041                                                                   DTSCS27
04042  S410-EXIT.                                                       DTSCS27
04043      EXIT.                                                        DTSCS27
04044                                                                   DTSCS27
04045  S422-FIND-WAGES.                                                 DTSCS27
04046      EXEC CICS LINK                                               DTSCS27
04047          PROGRAM ('DTSCU422')                                     DTSCS27
04048          COMMAREA (L422-COMM-AREA)                                DTSCS27
04049      END-EXEC.                                                    DTSCS27
04050                                                                   DTSCS27
04051  S422-EXIT.                                                       DTSCS27
04052      EXIT.                                                        DTSCS27
04053                                                                   DTSCS27
04054  S423-CALC-TAX-WAGES.                                             DTSCS27
04055      EXEC CICS LINK                                               DTSCS27
04056          PROGRAM ('DTSCU423')                                     DTSCS27
04057          COMMAREA (L423-COMM-AREA)                                DTSCS27
04058      END-EXEC.                                                    DTSCS27
04059                                                                   DTSCS27
04060  S423-EXIT.                                                       DTSCS27
04061      EXIT.                                                        DTSCS27
04062                                                                   DTSCS27
04063                                                                   DTSCS27
04064                                                                   DTSCS27
04065  S803-REQ-SCR-ID-EDIT.                                            DTSCS27
04066      EXEC CICS LINK                                               DTSCS27
04067          PROGRAM ('DTSCU803')                                     DTSCS27
04068          COMMAREA (DFHCOMMAREA)                                   DTSCS27
04069      END-EXEC.                                                    DTSCS27
04070  S803-EXIT.                                                       DTSCS27
04071      EXIT.                                                        DTSCS27
04072                                                                   DTSCS27
04073                                                                   DTSCS27
04074                                                                   DTSCS27
04075  S804-INVALID-KEY.                                                DTSCS27
04076      EXEC CICS LINK                                               DTSCS27
04077          PROGRAM ('DTSCU804')                                     DTSCS27
04078          COMMAREA (DFHCOMMAREA)                                   DTSCS27
04079      END-EXEC.                                                    DTSCS27
04080  S804-EXIT.                                                       DTSCS27
04081      EXIT.                                                        DTSCS27
04082                                                                   DTSCS27
04083                                                                   DTSCS27
04084                                                                   DTSCS27
04085  S805-MSG-AREA.                                                   DTSCS27
04086      MOVE LCCM-MSG-AREA TO L805-MSG-AREA                          DTSCS27
04087                                                                   DTSCS27
04088      EXEC CICS LINK                                               DTSCS27
04089          PROGRAM ('DTSCU805')                                     DTSCS27
04090          COMMAREA (L805-COMM-AREA)                                DTSCS27
04091      END-EXEC.                                                    DTSCS27
04092                                                                   DTSCS27
04093      MOVE L805-S-MSG-AREA TO MAP-MSG-AREA.                        DTSCS27
04094  S805-EXIT.                                                       DTSCS27
04095      EXIT.                                                        DTSCS27
04096                                                                   DTSCS27
04097                                                                   DTSCS27
04098                                                                   DTSCS27
04099  S810-READ.                                                       DTSCS27
04100      SET L810-READ-88 TO TRUE.                                    DTSCS27
04101      GO TO S810-IO.                                               DTSCS27
04102                                                                   DTSCS27
04103  S810-START-BROWSE.                                               DTSCS27
04104      SET L810-START-BROWSE-88 TO TRUE.                            DTSCS27
04105      GO TO S810-IO.                                               DTSCS27
04106                                                                   DTSCS27
04107  S810-READ-NEXT.                                                  DTSCS27
04108      SET L810-READ-NEXT-88    TO TRUE.                            DTSCS27
04109      GO TO S810-IO.                                               DTSCS27
04110                                                                   DTSCS27
04111  S810-END-BROWSE.                                                 DTSCS27
04112      SET L810-END-BROWSE-88   TO TRUE.                            DTSCS27
04113      GO TO S810-IO.                                               DTSCS27
04114                                                                   DTSCS27
04115  S810-IO.                                                         DTSCS27
04116      EXEC CICS LINK                                               DTSCS27
04117          PROGRAM ('DTSCU810')                                     DTSCS27
04118          COMMAREA (L810-COMM-AREA)                                DTSCS27
04119      END-EXEC.                                                    DTSCS27
04120                                                                   DTSCS27
04121      IF L810-FILE-CLOSED-88                                       DTSCS27
04122          MOVE L810-MSG-AREA TO LCCM-MSG-AREA                      DTSCS27
04123          SET LCCM-REQ-SCR-SF-88 TO TRUE                           DTSCS27
04124          SET LCCM-LINK-SCREEN-88 TO TRUE                          DTSCS27
04125          GO TO MAINLINE-EXIT.                                     DTSCS27
04126  S810-EXIT.                                                       DTSCS27
04127      EXIT.                                                        DTSCS27
04128                                                                   DTSCS27
04129                                                                   DTSCS27
04130                                                                   DTSCS27
04131  S823-READ.                                                       DTSCS27
04132      SET L823-READ-88 TO TRUE.                                    DTSCS27
04133      GO TO S823-IO.                                               DTSCS27
04134                                                                   DTSCS27
04135  S823-START-BROWSE.                                               DTSCS27
04136      SET L823-START-BROWSE-88 TO TRUE.                            DTSCS27
04137      GO TO S823-IO.                                               DTSCS27
04138                                                                   DTSCS27
04139  S823-READ-NEXT.                                                  DTSCS27
04140      SET L823-READ-NEXT-88 TO TRUE.                               DTSCS27
04141      GO TO S823-IO.                                               DTSCS27
04142                                                                   DTSCS27
04143  S823-READ-PREV.                                                  DTSCS27
04144      SET L823-READ-PREV-88 TO TRUE.                               DTSCS27
04145      GO TO S823-IO.                                               DTSCS27
04146                                                                   DTSCS27
04147  S823-END-BROWSE.                                                 DTSCS27
04148      SET L823-END-BROWSE-88 TO TRUE.                              DTSCS27
04149      GO TO S823-IO.                                               DTSCS27
04150                                                                   DTSCS27
04151  S823-REWRITE.                                                    DTSCS27
04152      SET L823-REWRITE-88 TO TRUE.                                 DTSCS27
04153      GO TO S823-IO.                                               DTSCS27
04154                                                                   DTSCS27
04155  S823-WRITE.                                                      DTSCS27
04156      SET L823-WRITE-88 TO TRUE.                                   DTSCS27
04157      GO TO S823-IO.                                               DTSCS27
04158                                                                   DTSCS27
04159  S823-DELETE.                                                     DTSCS27
04160      SET L823-DELETE-88 TO TRUE.                                  DTSCS27
04161      GO TO S823-IO.                                               DTSCS27
04162                                                                   DTSCS27
04163  S823-IO.                                                         DTSCS27
04164      EXEC CICS LINK                                               DTSCS27
04165          PROGRAM ('DTSCU823')                                     DTSCS27
04166          COMMAREA (L823-COMM-AREA)                                DTSCS27
04167      END-EXEC.                                                    DTSCS27
04168                                                                   DTSCS27
04169      IF L823-FILE-CLOSED-88                                       DTSCS27
04170          MOVE L823-MSG-AREA TO LCCM-MSG-AREA                      DTSCS27
04171          SET LCCM-REQ-SCR-SF-88 TO TRUE                           DTSCS27
04172          SET LCCM-LINK-SCREEN-88 TO TRUE                          DTSCS27
04173          GO TO MAINLINE-EXIT.                                     DTSCS27
04174  S823-EXIT.                                                       DTSCS27
04175      EXIT.                                                        DTSCS27
04176                                                                   DTSCS27
04177  S826-WRITE-ATH.                                                  DTSCS27
04178      MOVE LOW-VALUES            TO AATH-REC.                      DTSCS27
04179                                                                   DTSCS27
04180      MOVE WRK-BATCH-NO          TO AATH-BATCH-NO.                 DTSCS27
04181      MOVE WRK-ITEM-NO           TO AATH-ITEM-NO.                  DTSCS27
04182      IF WRK-AATH-ACTION-DEL-88                                    DTSCS27
04183         SET AATH-RPT-88         TO TRUE                           DTSCS27
04184      ELSE                                                         DTSCS27
04185         MOVE AATX-DATA-AREA        TO AATH-DATA-AREA              DTSCS27
04186      END-IF.                                                      DTSCS27
04187      MOVE LCCM-OP-ID            TO AATH-OP-ID.                    DTSCS27
04188      MOVE ZERO                  TO AATH-DATE                      DTSCS27
04189                                    AATH-TIME.                     DTSCS27
04190      MOVE WRK-AATH-ACTION       TO AATH-ACTION.                   DTSCS27
04191                                                                   DTSCS27
04192      EXEC CICS LINK                                               DTSCS27
04193          PROGRAM ('DTSCU826')                                     DTSCS27
04194          COMMAREA (L826-COMM-AREA)                                DTSCS27
04195      END-EXEC.                                                    DTSCS27
04196                                                                   DTSCS27
04197      IF L826-FILE-CLOSED-88                                       DTSCS27
04198          MOVE L826-MSG-AREA TO LCCM-MSG-AREA                      DTSCS27
04199          SET LCCM-REQ-SCR-SF-88 TO TRUE                           DTSCS27
04200          SET LCCM-LINK-SCREEN-88 TO TRUE                          DTSCS27
04201          GO TO MAINLINE-EXIT.                                     DTSCS27
04202                                                                   DTSCS27
04203  S826-EXIT.                                                       DTSCS27
04204      EXIT.                                                        DTSCS27
04205                                                                   DTSCS27
04206                                                                   DTSCS27
04207  S829A-READ-ITEM.                                                 DTSCS27
04208      SET L829-READ-ITEM-88 TO TRUE.                               DTSCS27
04209      PERFORM S829Z-QUEUE-IO     THRU S829Z-EXIT.                  DTSCS27
04210                                                                   DTSCS27
04211  S829A-EXIT.                                                      DTSCS27
04212      EXIT.                                                        DTSCS27
04213                                                                   DTSCS27
04214  S829B-WRITE.                                                     DTSCS27
04215      SET L829-WRITE-88     TO TRUE.                               DTSCS27
04216      PERFORM S829Z-QUEUE-IO     THRU S829Z-EXIT.                  DTSCS27
04217                                                                   DTSCS27
04218  S829B-EXIT.                                                      DTSCS27
04219      EXIT.                                                        DTSCS27
04220                                                                   DTSCS27
04221  S829C-READ-NEXT.                                                 DTSCS27
04222      SET L829-READ-NEXT-88 TO TRUE.                               DTSCS27
04223      PERFORM S829Z-QUEUE-IO     THRU S829Z-EXIT.                  DTSCS27
04224                                                                   DTSCS27
04225  S829C-EXIT.                                                      DTSCS27
04226      EXIT.                                                        DTSCS27
04227                                                                   DTSCS27
04228  S829D-REWRITE.                                                   DTSCS27
04229      SET L829-REWRITE-88     TO TRUE.                             DTSCS27
04230      PERFORM S829Z-QUEUE-IO     THRU S829Z-EXIT.                  DTSCS27
04231                                                                   DTSCS27
04232  S829D-EXIT.                                                      DTSCS27
04233      EXIT.                                                        DTSCS27
04234                                                                   DTSCS27
04235  S829E-DELETE-QUEUE.                                              DTSCS27
04236      SET L829-DELETE-QUEUE-88 TO TRUE.                            DTSCS27
04237      PERFORM S829Z-QUEUE-IO     THRU S829Z-EXIT.                  DTSCS27
04238                                                                   DTSCS27
04239  S829E-EXIT.                                                      DTSCS27
04240      EXIT.                                                        DTSCS27
04241                                                                   DTSCS27
04242  S829Z-QUEUE-IO.                                                  DTSCS27
04243      MOVE LCCM-TS-NAME-PREFIX TO L829-QUEUE-NAME-PREFIX.          DTSCS27
04244      MOVE 'W' TO L829-QUEUE-NAME-SUFFIX.                          DTSCS27
04245      MOVE ITEM-LENGTH TO L829-REC-LENGTH.                         DTSCS27
04246      SET L829-DEFAULT-STORAGE-88 TO TRUE.                         DTSCS27
04247                                                                   DTSCS27
04248      EXEC CICS LINK                                               DTSCS27
04249          PROGRAM ('DTSCU829')                                     DTSCS27
04250          COMMAREA (L829-COMM-AREA)                                DTSCS27
04251      END-EXEC.                                                    DTSCS27
04252                                                                   DTSCS27
04253  S829Z-EXIT.                                                      DTSCS27
04254      EXIT.                                                        DTSCS27
04255                                                                   DTSCS27
04256                                                                   DTSCS27
04257  S851-SCREEN-PROCESSING.                                          DTSCS27
04258      EXEC CICS LINK                                               DTSCS27
04259          PROGRAM ('DTSCU851')                                     DTSCS27
04260          COMMAREA (L851-COMM-AREA)                                DTSCS27
04261      END-EXEC.                                                    DTSCS27
04262  S851-EXIT.                                                       DTSCS27
04263      EXIT.                                                        DTSCS27
04264                                                                   DTSCS27
04265                                                                   DTSCS27
04266  S880-READ.                                                       DTSCS27
04267      SET L880-READ-88 TO TRUE.                                    DTSCS27
04268      GO TO S880-IO.                                               DTSCS27
04269                                                                   DTSCS27
04270  S880-START-BROWSE.                                               DTSCS27
04271      SET L880-START-BROWSE-88 TO TRUE.                            DTSCS27
04272      GO TO S880-IO.                                               DTSCS27
04273                                                                   DTSCS27
04274  S880-READ-NEXT.                                                  DTSCS27
04275      SET L880-READ-NEXT-88 TO TRUE.                               DTSCS27
04276      GO TO S880-IO.                                               DTSCS27
04277                                                                   DTSCS27
04278  S880-READ-PREV.                                                  DTSCS27
04279      SET L880-READ-PREV-88 TO TRUE.                               DTSCS27
04280      GO TO S880-IO.                                               DTSCS27
04281                                                                   DTSCS27
04282  S880-END-BROWSE.                                                 DTSCS27
04283      SET L880-END-BROWSE-88 TO TRUE.                              DTSCS27
04284      GO TO S880-IO.                                               DTSCS27
04285                                                                   DTSCS27
04286  S880-REWRITE.                                                    DTSCS27
04287      SET L880-REWRITE-88 TO TRUE.                                 DTSCS27
04288      GO TO S880-IO.                                               DTSCS27
04289                                                                   DTSCS27
04290  S880-WRITE.                                                      DTSCS27
04291      SET L880-WRITE-88 TO TRUE.                                   DTSCS27
04292      GO TO S880-IO.                                               DTSCS27
04293                                                                   DTSCS27
04294  S880-DELETE.                                                     DTSCS27
04295      SET L880-DELETE-88 TO TRUE.                                  DTSCS27
04296      GO TO S880-IO.                                               DTSCS27
04297                                                                   DTSCS27
04298  S880-IO.                                                         DTSCS27
04299      EXEC CICS LINK                                               DTSCS27
04300          PROGRAM ('DTSCU880')                                     DTSCS27
04301          COMMAREA (L880-COMM-AREA)                                DTSCS27
04302      END-EXEC.                                                    DTSCS27
04303                                                                   DTSCS27
04304      IF L880-FILE-CLOSED-88                                       DTSCS27
04305          MOVE L880-MSG-AREA TO LCCM-MSG-AREA                      DTSCS27
04306          SET LCCM-REQ-SCR-SF-88 TO TRUE                           DTSCS27
04307          SET LCCM-LINK-SCREEN-88 TO TRUE                          DTSCS27
04308          GO TO MAINLINE-EXIT.                                     DTSCS27
04309  S880-EXIT.                                                       DTSCS27
04310      EXIT.                                                        DTSCS27
04311                                                                   DTSCS27
04312                                                                   DTSCS27
04313  S899-ABEND.                                                      DTSCS27
04314      EXEC CICS ABEND                                              DTSCS27
04315          ABCODE(WRK-ABEND-CD)                                     DTSCS27
04316      END-EXEC.                                                    DTSCS27
04317  S899-EXIT.                                                       DTSCS27
04318      EXIT.                                                        DTSCS27
04319 /*****************************************************************DTSCS27
04320 *    EDIT THE INFORMATION ON THE SCREEN.                         *DTSCS27
04321 ******************************************************************DTSCS27
04322                                                                   DTSCS27
04323  S1000-SCREEN-EDITS.                                              DTSCS27
04324      PERFORM S1001-INITIALIZE-WRK-AREA THRU S1001-EXIT.           DTSCS27
04325                                                                   DTSCS27
04326      PERFORM S3600-EDIT-MODE THRU S3600-EXIT.                     DTSCS27
04327                                                                   DTSCS27
04328      IF LCCM-MSG                                                  DTSCS27
04329          GO TO S1000-EXIT.                                        DTSCS27
04330                                                                   DTSCS27
04331                                                                   DTSCS27
04332      PERFORM S1110-BATCH-NO THRU S1110-EXIT.                      DTSCS27
04333                                                                   DTSCS27
04334                                                                   DTSCS27
04335      PERFORM S1200-EMP-NAME-CHECK THRU S1200-EXIT.                DTSCS27
04336                                                                   DTSCS27
04337      PERFORM S1300-EMP-NO THRU S1300-EXIT.                        DTSCS27
04338                                                                   DTSCS27
04339      PERFORM S1400-YEAR THRU S1400-EXIT.                          DTSCS27
04340                                                                   DTSCS27
04341      PERFORM S2500-RPT-TYPE THRU S2500-EXIT.                      DTSCS27
04342                                                                   DTSCS27
04343      IF LCCM-MSG                                                  DTSCS27
04344 *&   IF WRK-PASSED-FULL-EDITS-NO-88                               DTSCS27
04345          GO TO S1000-EXIT.                                        DTSCS27
04346                                                                   DTSCS27
04347      IF  (MAP-SSN1 (1)  = SPACES OR LOW-VALUES)                   DTSCS27
04348      AND (MAP-SSN1 (2)  = SPACES OR LOW-VALUES)                   DTSCS27
04349      AND (MAP-SSN1 (3)  = SPACES OR LOW-VALUES)                   DTSCS27
04350      AND (MAP-SSN1 (4)  = SPACES OR LOW-VALUES)                   DTSCS27
04351      AND (MAP-SSN1 (5)  = SPACES OR LOW-VALUES)                   DTSCS27
04352      AND (MAP-SSN1 (6)  = SPACES OR LOW-VALUES)                   DTSCS27
04353      AND (MAP-SSN1 (7)  = SPACES OR LOW-VALUES)                   DTSCS27
04354      AND (MAP-SSN1 (8)  = SPACES OR LOW-VALUES)                   DTSCS27
04355      AND (MAP-SSN1 (9)  = SPACES OR LOW-VALUES)                   DTSCS27
04356      AND (MAP-SSN1 (10) = SPACES OR LOW-VALUES)                   DTSCS27
04357         GO TO S1000-EXIT                                          DTSCS27
04358      ELSE                                                         DTSCS27
04359         SET WRK-SSN-ENTERED-YES-88 TO TRUE.                       DTSCS27
04360                                                                   DTSCS27
04361 **      IF WRK-TS-FOUND-NO-88                                     DTSCS27
04362 *          IF MAP-RPT-ORIG-88                                     DTSCS27
04363 *             SET WRK-SSN-ENTERED-YES-88 TO TRUE                  DTSCS27
04364 *          ELSE                                                   DTSCS27
04365 *             SET WRK-SSN-ENTERED-NO-88 TO TRUE                   DTSCS27
04366 *             GO TO S1000-EXIT                                    DTSCS27
04367 *          END-IF                                                 DTSCS27
04368 *       ELSE                                                      DTSCS27
04369 *&         SET WRK-SSN-ENTERED-YES-88 TO TRUE.                    DTSCS27
04370                                                                   DTSCS27
04371      PERFORM S1500-EMPLOYEE-WAGES THRU S1500-EXIT                 DTSCS27
04372         VARYING SUB FROM +1 BY +1                                 DTSCS27
04373         UNTIL SUB > WRK-MAX-WAGE-ITEMS.                           DTSCS27
04374                                                                   DTSCS27
04375      PERFORM S1600-TAX-WAGE     THRU S1600-EXIT.                  DTSCS27
04376                                                                   DTSCS27
04377      PERFORM S1700-VERIFIED-IND THRU S1700-EXIT.                  DTSCS27
04378                                                                   DTSCS27
04379      PERFORM S1800-EMPLOYEE-COUNTS  THRU S1800-EXIT.              DTSCS27
04380                                                                   DTSCS27
04381      PERFORM S2300-REMIT-AMT THRU S2300-EXIT.                     DTSCS27
04382                                                                   DTSCS27
04383      PERFORM S2600-WAIVE-BOTH-IND THRU S2600-EXIT.                DTSCS27
04384                                                                   DTSCS27
04385      PERFORM S2700-WAIVE-LATE-PEN-IND THRU S2700-EXIT.            DTSCS27
04386                                                                   DTSCS27
04387      PERFORM S2800-WAIVE-INT-IND THRU S2800-EXIT.                 DTSCS27
04388                                                                   DTSCS27
04389      PERFORM S2900-TAX-WG-BASE-ADJ      THRU S2900-EXIT.          DTSCS27
04390                                                                   DTSCS27
04391      PERFORM S3100-RESPONSIBLE-ACTIVITY THRU S3100-EXIT.          DTSCS27
04392                                                                   DTSCS27
04393      PERFORM S3200-RESPONSIBLE-OP-ID THRU S3200-EXIT.             DTSCS27
04394                                                                   DTSCS27
04395      PERFORM S3300-RECEIVED-DATE THRU S3300-EXIT.                 DTSCS27
04396                                                                   DTSCS27
04397      PERFORM S3700-ENTRY-MODE THRU S3700-EXIT.                    DTSCS27
04398                                                                   DTSCS27
04399      PERFORM S3800-DISREGARD-EDITS-IND THRU S3800-EXIT.           DTSCS27
04400                                                                   DTSCS27
04401      PERFORM S3900-STATUS-CHANGE-IND   THRU S3900-EXIT.           DTSCS27
04402                                                                   DTSCS27
04403                                                                   DTSCS27
04404      IF LCCM-MSG                                                  DTSCS27
04405         GO TO S1000-EXIT.                                         DTSCS27
04406                                                                   DTSCS27
04407                                                                   DTSCS27
04408      PERFORM S4000-CROSS-EDITS THRU S4000-EXIT.                   DTSCS27
04409  S1000-EXIT.                                                      DTSCS27
04410      EXIT.                                                        DTSCS27
04411      EJECT                                                        DTSCS27
04412  S1001-INITIALIZE-WRK-AREA.                                       DTSCS27
04413      MOVE +0 TO WRK-YRQ                                           DTSCS27
04414                 WRK-TOT-WAGE                                      DTSCS27
04415                 WRK-TOT-WORKERS                                   DTSCS27
04416                 WRK-TAX-WAGE                                      DTSCS27
04417                 WRK-REMIT-AMT.                                    DTSCS27
04418                                                                   DTSCS27
04419      SET WRK-TAX-WAGE-INVALID-88 TO TRUE.                         DTSCS27
04420                                                                   DTSCS27
04421      SET WRK-REMIT-AMT-INVALID-88 TO TRUE.                        DTSCS27
04422                                                                   DTSCS27
04423      MOVE +0 TO WRK-RECEIVED-DATE.                                DTSCS27
04424                                                                   DTSCS27
04425                                                                   DTSCS27
04426      SET WRK-JAN-NO-ENTRY-88 TO TRUE.                             DTSCS27
04427      SET WRK-FEB-NO-ENTRY-88 TO TRUE.                             DTSCS27
04428      SET WRK-MAR-NO-ENTRY-88 TO TRUE.                             DTSCS27
04429      SET WRK-APR-NO-ENTRY-88 TO TRUE.                             DTSCS27
04430      SET WRK-MAY-NO-ENTRY-88 TO TRUE.                             DTSCS27
04431      SET WRK-JUN-NO-ENTRY-88 TO TRUE.                             DTSCS27
04432      SET WRK-JUL-NO-ENTRY-88 TO TRUE.                             DTSCS27
04433      SET WRK-AUG-NO-ENTRY-88 TO TRUE.                             DTSCS27
04434      SET WRK-SEP-NO-ENTRY-88 TO TRUE.                             DTSCS27
04435      SET WRK-OCT-NO-ENTRY-88 TO TRUE.                             DTSCS27
04436      SET WRK-NOV-NO-ENTRY-88 TO TRUE.                             DTSCS27
04437      SET WRK-DEC-NO-ENTRY-88 TO TRUE.                             DTSCS27
04438                                                                   DTSCS27
04439      SET WRK-PASSED-FULL-EDITS-YES-88 TO TRUE.                    DTSCS27
04440                                                                   DTSCS27
04441      SET WRK-MPRF-EXISTS-NO-88 TO TRUE.                           DTSCS27
04442                                                                   DTSCS27
04443                                                                   DTSCS27
04444  S1001-EXIT.                                                      DTSCS27
04445      EXIT.                                                        DTSCS27
04446                                                                   DTSCS27
04447                                                                   DTSCS27
04448  S1003-FINAL-EDITS.                                               DTSCS27
04449      PERFORM S4040-PREPARE-QTR-EDITS THRU S4040-EXIT.             DTSCS27
04450                                                                   DTSCS27
04451      PERFORM S4400-REMIT-AMT-EDITS THRU S4400-EXIT.               DTSCS27
04452                                                                   DTSCS27
04453      PERFORM S4500-RPT-TYPE-EDITS THRU S4500-EXIT.                DTSCS27
04454                                                                   DTSCS27
04455      IF MAP-RPT-ORIG-88 OR MAP-RPT-ESTIM-88                       DTSCS27
04456         PERFORM S4200-WAGE-EDITS THRU S4200-EXIT.                 DTSCS27
04457                                                                   DTSCS27
04458      PERFORM S4600-WAIVE-IND-EDITS THRU S4600-EXIT.               DTSCS27
04459                                                                   DTSCS27
04460      PERFORM S4700-RESPONSIBILITY-EDITS THRU S4700-EXIT.          DTSCS27
04461                                                                   DTSCS27
04462      PERFORM S4800-RECEIVED-DATE-EDITS THRU S4800-EXIT.           DTSCS27
04463                                                                   DTSCS27
04464      MOVE +0                           TO WRK-DUP-SSN.            DTSCS27
04465      PERFORM S4850-CHK-DUP-SSN         THRU S4850-EXIT            DTSCS27
04466         VARYING DUP-SUB FROM +1 BY +1                             DTSCS27
04467         UNTIL DUP-SUB > DUP-LAST                                  DTSCS27
04468         OR WRK-DUP-SSN > ZERO.                                    DTSCS27
04469                                                                   DTSCS27
04470  S1003-EXIT.                                                      DTSCS27
04471      EXIT.                                                        DTSCS27
04472                                                                   DTSCS27
04473  S1004-INQ-SCREEN-EDITS.                                          DTSCS27
04474      PERFORM S1001-INITIALIZE-WRK-AREA THRU S1001-EXIT.           DTSCS27
04475                                                                   DTSCS27
04476      PERFORM S1110-BATCH-NO THRU S1110-EXIT.                      DTSCS27
04477                                                                   DTSCS27
04478      PERFORM S1200-EMP-NAME-CHECK THRU S1200-EXIT.                DTSCS27
04479                                                                   DTSCS27
04480      PERFORM S1300-EMP-NO THRU S1300-EXIT.                        DTSCS27
04481                                                                   DTSCS27
04482      PERFORM S1400-YEAR THRU S1400-EXIT.                          DTSCS27
04483                                                                   DTSCS27
04484  S1004-EXIT.                                                      DTSCS27
04485      EXIT.                                                        DTSCS27
04486                                                                   DTSCS27
04487  S1100-EDIT-KEY.                                                  DTSCS27
04488      PERFORM S1110-BATCH-NO THRU S1110-EXIT.                      DTSCS27
04489  S1100-EXIT.                                                      DTSCS27
04490      EXIT.                                                        DTSCS27
04491                                                                   DTSCS27
04492                                                                   DTSCS27
04493                                                                   DTSCS27
04494  S1110-BATCH-NO.                                                  DTSCS27
04495      MOVE MAP-DOC-NO-AREA TO L019-S-DOC-NO.                       DTSCS27
04496                                                                   DTSCS27
04497      PERFORM S019-BATCH-NO-FROM-SCREEN THRU S019-EXIT.            DTSCS27
04498                                                                   DTSCS27
04499      IF L019-NO-ENTRY                                             DTSCS27
04500 ********IF LCCM-ENTER-88                                          DTSCS27
04501 ***********GO TO S1110-EXIT                                       DTSCS27
04502 ********ELSE                                                      DTSCS27
04503             MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA              DTSCS27
04504             PERFORM S1111-ERROR THRU S1111-EXIT                   DTSCS27
04505             GO TO S1110-EXIT.                                     DTSCS27
04506                                                                   DTSCS27
04507      IF L019-NOT-VALID                                            DTSCS27
04508          MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA                DTSCS27
04509          PERFORM S1111-ERROR THRU S1111-EXIT                      DTSCS27
04510          GO TO S1110-EXIT.                                        DTSCS27
04511                                                                   DTSCS27
04512      MOVE L019-BATCH-NO TO WRK-BATCH-NO.                          DTSCS27
04513                                                                   DTSCS27
04514      MOVE L019-ITEM-NO TO WRK-ITEM-NO.                            DTSCS27
04515  S1110-EXIT.                                                      DTSCS27
04516      EXIT.                                                        DTSCS27
04517                                                                   DTSCS27
04518                                                                   DTSCS27
04519                                                                   DTSCS27
04520  S1111-ERROR.                                                     DTSCS27
04521      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-BATCH-NO-A.           DTSCS27
04522                                                                   DTSCS27
04523      IF LCCM-NO-MSG                                               DTSCS27
04524          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
04525          MOVE CATB-CURSOR TO MAP-BATCH-NO-L                       DTSCS27
04526          SET CURSOR-SET-YES TO TRUE.                              DTSCS27
04527  S1111-EXIT.                                                      DTSCS27
04528      EXIT.                                                        DTSCS27
04529                                                                   DTSCS27
04530                                                                   DTSCS27
04531                                                                   DTSCS27
04532  S1112-ERROR.                                                     DTSCS27
04533      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-ITEM-NO-A.            DTSCS27
04534                                                                   DTSCS27
04535      IF LCCM-NO-MSG                                               DTSCS27
04536          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
04537          MOVE CATB-CURSOR TO MAP-ITEM-NO-L                        DTSCS27
04538          SET CURSOR-SET-YES TO TRUE.                              DTSCS27
04539  S1112-EXIT.                                                      DTSCS27
04540      EXIT.                                                        DTSCS27
04541                                                                   DTSCS27
04542                                                                   DTSCS27
04543 /*****************************************************************DTSCS27
04544 *                                                                 DTSCS27
04545 ******************************************************************DTSCS27
04546  S1200-EMP-NAME-CHECK.                                            DTSCS27
04547      IF MAP-EMP-NAME-CHECK = LOW-VALUES                           DTSCS27
04548          MOVE SPACES TO MAP-EMP-NAME-CHECK.                       DTSCS27
04549                                                                   DTSCS27
04550      IF MAP-EMP-NAME-CHECK = SPACES                               DTSCS27
04551          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
04552          IF MAP-EDIT-FULL-88                                      DTSCS27
04553              MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS27
04554              MOVE 'NAME' TO WRK-MSG-TEXT                          DTSCS27
04555              PERFORM S1201-ERROR THRU S1201-EXIT.                 DTSCS27
04556  S1200-EXIT.                                                      DTSCS27
04557      EXIT.                                                        DTSCS27
04558                                                                   DTSCS27
04559                                                                   DTSCS27
04560                                                                   DTSCS27
04561  S1201-ERROR.                                                     DTSCS27
04562      MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-EMP-NAME-CHECK-A.      DTSCS27
04563                                                                   DTSCS27
04564      IF LCCM-NO-MSG                                               DTSCS27
04565          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
04566          MOVE CATB-CURSOR TO MAP-EMP-NAME-CHECK-L                 DTSCS27
04567          SET CURSOR-SET-YES TO TRUE.                              DTSCS27
04568  S1201-EXIT.                                                      DTSCS27
04569      EXIT.                                                        DTSCS27
04570 /*****************************************************************DTSCS27
04571 *                                                                 DTSCS27
04572 ******************************************************************DTSCS27
04573  S1300-EMP-NO.                                                    DTSCS27
04574      MOVE MAP-EMP-NO-AREA TO L018-S-EMP-NO-AREA.                  DTSCS27
04575                                                                   DTSCS27
04576      PERFORM S018-EMP-NO-FROM-SCREEN THRU S018-EXIT.              DTSCS27
04577                                                                   DTSCS27
04578      IF L018-NO-ENTRY                                             DTSCS27
04579          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
04580          IF MAP-EDIT-FULL-88                                      DTSCS27
04581              MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS27
04582              MOVE 'EMP NO' TO WRK-MSG-TEXT                        DTSCS27
04583              PERFORM S1301-ERROR THRU S1301-EXIT                  DTSCS27
04584              GO TO S1300-EXIT                                     DTSCS27
04585          ELSE                                                     DTSCS27
04586              GO TO S1300-EXIT.                                    DTSCS27
04587                                                                   DTSCS27
04588      IF L018-NOT-VALID                                            DTSCS27
04589          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
04590          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS27
04591          MOVE 'EMP NO' TO WRK-MSG-TEXT                            DTSCS27
04592          PERFORM S1301-ERROR THRU S1301-EXIT                      DTSCS27
04593          GO TO S1300-EXIT.                                        DTSCS27
04594                                                                   DTSCS27
04595      MOVE L018-EMP-NO TO WRK-EMP-NO.                              DTSCS27
04596                                                                   DTSCS27
04597      PERFORM S1310-READ-MPRF THRU S1310-EXIT.                     DTSCS27
04598  S1300-EXIT.                                                      DTSCS27
04599      EXIT.                                                        DTSCS27
04600                                                                   DTSCS27
04601                                                                   DTSCS27
04602                                                                   DTSCS27
04603  S1301-ERROR.                                                     DTSCS27
04604      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-EMP-NO-1-A            DTSCS27
04605                                         MAP-EMP-NO-2-A.           DTSCS27
04606                                                                   DTSCS27
04607      IF LCCM-NO-MSG                                               DTSCS27
04608          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
04609          MOVE CATB-CURSOR TO MAP-EMP-NO-1-L                       DTSCS27
04610          SET CURSOR-SET-YES TO TRUE.                              DTSCS27
04611  S1301-EXIT.                                                      DTSCS27
04612      EXIT.                                                        DTSCS27
04613                                                                   DTSCS27
04614                                                                   DTSCS27
04615                                                                   DTSCS27
04616  S1310-READ-MPRF.                                                 DTSCS27
04617      MOVE LOW-VALUES TO MPRF-KEY-AREA.                            DTSCS27
04618                                                                   DTSCS27
04619      MOVE WRK-EMP-NO TO MPRF-EMP-NO.                              DTSCS27
04620                                                                   DTSCS27
04621      SET MPRF-PRF-88 TO TRUE.                                     DTSCS27
04622                                                                   DTSCS27
04623      MOVE MPRF-KEY-AREA TO MSKL-KEY-AREA.                         DTSCS27
04624                                                                   DTSCS27
04625      PERFORM S810-READ THRU S810-EXIT.                            DTSCS27
04626                                                                   DTSCS27
04627      IF L810-NO-REC-88                                            DTSCS27
04628          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
04629          IF MAP-EDIT-FULL-88                                      DTSCS27
04630              MOVE EMSG-NO-EMPLOYER TO WRK-MSG-AREA                DTSCS27
04631              PERFORM S1301-ERROR THRU S1301-EXIT                  DTSCS27
04632              GO TO S1310-EXIT                                     DTSCS27
04633          ELSE                                                     DTSCS27
04634              GO TO S1310-EXIT.                                    DTSCS27
04635                                                                   DTSCS27
04636      MOVE MSKL-REC TO MPRF-REC.                                   DTSCS27
04637                                                                   DTSCS27
04638                                                                   DTSCS27
04639      SET WRK-MPRF-EXISTS-YES-88 TO TRUE.                          DTSCS27
04640                                                                   DTSCS27
04641      MOVE WRK-EMP-NO TO LCCM-EMP-NO.                              DTSCS27
04642                                                                   DTSCS27
04643                                                                   DTSCS27
04644      IF MPRF-PURGE-ALL-YES-88                                     DTSCS27
04645          SET WRK-MPRF-EXISTS-NO-88 TO TRUE                        DTSCS27
04646          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
04647          IF MAP-EDIT-FULL-88                                      DTSCS27
04648              MOVE EMSG-EMP-MARKED-FOR-PURGE TO WRK-MSG-AREA       DTSCS27
04649              PERFORM S1301-ERROR THRU S1301-EXIT                  DTSCS27
04650              GO TO S1310-EXIT                                     DTSCS27
04651          ELSE                                                     DTSCS27
04652              GO TO S1310-EXIT.                                    DTSCS27
04653                                                                   DTSCS27
04654      IF MAP-EMP-NAME-CHECK = SPACES                               DTSCS27
04655          SET WRK-MPRF-EXISTS-NO-88 TO TRUE                        DTSCS27
04656          GO TO S1310-EXIT.                                        DTSCS27
04657                                                                   DTSCS27
04658      IF (MPRF-PRIMARY-NAME(1:4) = MAP-EMP-NAME-CHECK)             DTSCS27
04659                   OR                                              DTSCS27
04660         (MPRF-ENTITY-NAME(1:4) = MAP-EMP-NAME-CHECK)              DTSCS27
04661          NEXT SENTENCE                                            DTSCS27
04662      ELSE                                                         DTSCS27
04663          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
04664          SET WRK-MPRF-EXISTS-NO-88 TO TRUE                        DTSCS27
04665          IF MAP-EDIT-FULL-88                                      DTSCS27
04666              MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS27
04667              MOVE 'EMP NAME' TO WRK-MSG-TEXT                      DTSCS27
04668              PERFORM S1201-ERROR THRU S1201-EXIT                  DTSCS27
04669              PERFORM S1301-ERROR THRU S1301-EXIT.                 DTSCS27
04670  S1310-EXIT.                                                      DTSCS27
04671      EXIT.                                                        DTSCS27
04672 /*****************************************************************DTSCS27
04673 *                                                                 DTSCS27
04674 ******************************************************************DTSCS27
04675  S1400-YEAR.                                                      DTSCS27
04676      MOVE 1            TO MAP-YRQ-Q.                              DTSCS27
04677      MOVE MAP-YRQ-AREA TO L016-S-YRQ-AREA.                        DTSCS27
04678                                                                   DTSCS27
04679      PERFORM S016-YRQ-FROM-SCREEN THRU S016-EXIT.                 DTSCS27
04680                                                                   DTSCS27
04681      IF L016-NO-ENTRY                                             DTSCS27
04682          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
04683             MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                DTSCS27
04684             MOVE 'YEAR        ' TO WRK-MSG-TEXT                   DTSCS27
04685             PERFORM S1401-ERROR THRU S1401-EXIT                   DTSCS27
04686             GO TO S1400-EXIT.                                     DTSCS27
04687                                                                   DTSCS27
04688      IF L016-NOT-VALID                                            DTSCS27
04689          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
04690          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS27
04691          MOVE 'YEAR        ' TO WRK-MSG-TEXT                      DTSCS27
04692          PERFORM S1401-ERROR THRU S1401-EXIT                      DTSCS27
04693          GO TO S1400-EXIT.                                        DTSCS27
04694                                                                   DTSCS27
04695                                                                   DTSCS27
04696      MOVE L016-YRQ      TO L004-QTR-5-9.                          DTSCS27
04697      IF L004-QTR-5-YR < WRK-FIRST-ANN-RPT-YR                      DTSCS27
04698          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
04699          IF MAP-EDIT-FULL-88                                      DTSCS27
04700             MOVE MSG-E277-AREA TO WRK-MSG-AREA                    DTSCS27
04701             PERFORM S1401-ERROR THRU S1401-EXIT                   DTSCS27
04702             GO TO S1400-EXIT                                      DTSCS27
04703          ELSE                                                     DTSCS27
04704             GO TO S1400-EXIT.                                     DTSCS27
04705                                                                   DTSCS27
04706      MOVE L016-YRQ      TO WRK-YRQ                                DTSCS27
04707                            LCCM-YRQ.                              DTSCS27
04708                                                                   DTSCS27
04709      PERFORM S1410-LIAB-TABLE THRU S1410-EXIT.                    DTSCS27
04710                                                                   DTSCS27
04711  S1400-EXIT.                                                      DTSCS27
04712      EXIT.                                                        DTSCS27
04713                                                                   DTSCS27
04714                                                                   DTSCS27
04715                                                                   DTSCS27
04716  S1401-ERROR.                                                     DTSCS27
04717      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-YRQ-YR-A.             DTSCS27
04718                                                                   DTSCS27
04719      IF LCCM-NO-MSG                                               DTSCS27
04720          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
04721          MOVE CATB-CURSOR TO MAP-YRQ-YR-L                         DTSCS27
04722          SET CURSOR-SET-YES TO TRUE.                              DTSCS27
04723  S1401-EXIT.                                                      DTSCS27
04724      EXIT.                                                        DTSCS27
04725                                                                   DTSCS27
04726  S1410-LIAB-TABLE.                                                DTSCS27
04727      SET WRK-RATE-FOUND-NO-88      TO TRUE.                       DTSCS27
04728      MOVE WRK-YRQ                  TO L004-QTR-5-9.               DTSCS27
04729                                                                   DTSCS27
04730      MOVE 1                        TO L004-QTR-5-Q.               DTSCS27
04731      MOVE WRK-EMP-NO               TO L381-EMP-NO.                DTSCS27
04732      MOVE L004-QTR-5-9             TO L381-YRQ                    DTSCS27
04733                                       WRK-YRQ1.                   DTSCS27
04734      MOVE MPRF-EMP-CLASS           TO L381-EMP-CLASS.             DTSCS27
04735      PERFORM S381-LOOKUP-LIABILITY THRU S381-EXIT.                DTSCS27
04736      IF L381-LIABLE-88                                            DTSCS27
04737         SET WRK-QTR1-LIABLE-YES-88 TO TRUE                        DTSCS27
04738      ELSE                                                         DTSCS27
04739         SET WRK-QTR1-LIABLE-NO-88 TO TRUE.                        DTSCS27
04740      IF L381-UI-RATE-OK-88                                        DTSCS27
04741         SET WRK-RATE-FOUND-YES-88  TO TRUE.                       DTSCS27
04742                                                                   DTSCS27
04743      MOVE 2                        TO L004-QTR-5-Q.               DTSCS27
04744      MOVE WRK-EMP-NO               TO L381-EMP-NO.                DTSCS27
04745      MOVE L004-QTR-5-9             TO L381-YRQ                    DTSCS27
04746                                       WRK-YRQ2.                   DTSCS27
04747      MOVE MPRF-EMP-CLASS           TO L381-EMP-CLASS.             DTSCS27
04748      PERFORM S381-LOOKUP-LIABILITY THRU S381-EXIT.                DTSCS27
04749      IF L381-LIABLE-88                                            DTSCS27
04750         SET WRK-QTR2-LIABLE-YES-88 TO TRUE                        DTSCS27
04751      ELSE                                                         DTSCS27
04752         SET WRK-QTR2-LIABLE-NO-88 TO TRUE.                        DTSCS27
04753      IF L381-UI-RATE-OK-88                                        DTSCS27
04754         SET WRK-RATE-FOUND-YES-88  TO TRUE.                       DTSCS27
04755                                                                   DTSCS27
04756      MOVE 3                        TO L004-QTR-5-Q.               DTSCS27
04757      MOVE WRK-EMP-NO               TO L381-EMP-NO.                DTSCS27
04758      MOVE L004-QTR-5-9             TO L381-YRQ                    DTSCS27
04759                                       WRK-YRQ3.                   DTSCS27
04760      MOVE MPRF-EMP-CLASS           TO L381-EMP-CLASS.             DTSCS27
04761      PERFORM S381-LOOKUP-LIABILITY THRU S381-EXIT.                DTSCS27
04762      IF L381-LIABLE-88                                            DTSCS27
04763         SET WRK-QTR3-LIABLE-YES-88 TO TRUE                        DTSCS27
04764      ELSE                                                         DTSCS27
04765         SET WRK-QTR3-LIABLE-NO-88 TO TRUE.                        DTSCS27
04766      IF L381-UI-RATE-OK-88                                        DTSCS27
04767         SET WRK-RATE-FOUND-YES-88  TO TRUE.                       DTSCS27
04768                                                                   DTSCS27
04769      MOVE 4                        TO L004-QTR-5-Q.               DTSCS27
04770      MOVE WRK-EMP-NO               TO L381-EMP-NO.                DTSCS27
04771      MOVE L004-QTR-5-9             TO L381-YRQ                    DTSCS27
04772                                       WRK-YRQ4.                   DTSCS27
04773      MOVE MPRF-EMP-CLASS           TO L381-EMP-CLASS.             DTSCS27
04774      PERFORM S381-LOOKUP-LIABILITY THRU S381-EXIT.                DTSCS27
04775      IF L381-LIABLE-88                                            DTSCS27
04776         SET WRK-QTR4-LIABLE-YES-88 TO TRUE                        DTSCS27
04777      ELSE                                                         DTSCS27
04778         SET WRK-QTR4-LIABLE-NO-88 TO TRUE.                        DTSCS27
04779      IF L381-UI-RATE-OK-88                                        DTSCS27
04780         SET WRK-RATE-FOUND-YES-88  TO TRUE.                       DTSCS27
04781                                                                   DTSCS27
04782  S1410-EXIT.                                                      DTSCS27
04783      EXIT.                                                        DTSCS27
04784                                                                   DTSCS27
04785 /*****************************************************************DTSCS27
04786 *                                                                 DTSCS27
04787 ******************************************************************DTSCS27
04788  S1500-EMPLOYEE-WAGES.                                            DTSCS27
04789      PERFORM S1510-CHK-BLANK-LINE  THRU S1510-EXIT.               DTSCS27
04790      IF WRK-BLANK-LINE-YES-88                                     DTSCS27
04791         GO TO S1500-EXIT.                                         DTSCS27
04792                                                                   DTSCS27
04793      PERFORM S1520-EDIT-SSN        THRU S1520-EXIT.               DTSCS27
04794      PERFORM S1530-EDIT-NAME-CHECK THRU S1530-EXIT.               DTSCS27
04795      PERFORM S1540-YRQ1-WAGES      THRU S1540-EXIT.               DTSCS27
04796      PERFORM S1550-YRQ2-WAGES      THRU S1550-EXIT.               DTSCS27
04797      PERFORM S1560-YRQ3-WAGES      THRU S1560-EXIT.               DTSCS27
04798      PERFORM S1570-YRQ4-WAGES      THRU S1570-EXIT.               DTSCS27
04799                                                                   DTSCS27
04800      PERFORM S1580-SSN-TOT-TAX-WAGES   THRU S1580-EXIT.           DTSCS27
04801                                                                   DTSCS27
04802  S1500-EXIT.                                                      DTSCS27
04803      EXIT.                                                        DTSCS27
04804                                                                   DTSCS27
04805  S1510-CHK-BLANK-LINE.                                            DTSCS27
04806      IF  (MAP-YRQ1-WAGES (SUB)     = LOW-VALUES OR SPACES)        DTSCS27
04807      AND (MAP-YRQ2-WAGES (SUB)     = LOW-VALUES OR SPACES)        DTSCS27
04808      AND (MAP-YRQ3-WAGES (SUB)     = LOW-VALUES OR SPACES)        DTSCS27
04809      AND (MAP-YRQ4-WAGES (SUB)     = LOW-VALUES OR SPACES)        DTSCS27
04810         SET WRK-BLANK-LINE-YES-88 TO TRUE                         DTSCS27
04811         IF NOT L427-SSN-PRE-FILL-88 (SUB)                         DTSCS27
04812            PERFORM S1511-CLEAR-ENTRY THRU S1511-EXIT              DTSCS27
04813         END-IF                                                    DTSCS27
04814      ELSE                                                         DTSCS27
04815         SET WRK-BLANK-LINE-NO-88  TO TRUE                         DTSCS27
04816      END-IF.                                                      DTSCS27
04817                                                                   DTSCS27
04818  S1510-EXIT.                                                      DTSCS27
04819      EXIT.                                                        DTSCS27
04820                                                                   DTSCS27
04821  S1511-CLEAR-ENTRY.                                               DTSCS27
04822      IF L427-SSN (SUB) NOT = ZERO                                 DTSCS27
04823         MOVE SPACE     TO L427-SSN-NAME (SUB)                     DTSCS27
04824         MOVE ZERO      TO L427-SSN (SUB)                          DTSCS27
04825                           L427-QTR1-WAGE-CHNG (SUB)               DTSCS27
04826                           L427-QTR1-CURR-WAGE (SUB)               DTSCS27
04827                           L427-QTR1-TAX-WAGE (SUB)                DTSCS27
04828                           L427-QTR1-PRIOR-WAGE (SUB)              DTSCS27
04829                           L427-QTR2-WAGE-CHNG (SUB)               DTSCS27
04830                           L427-QTR2-CURR-WAGE (SUB)               DTSCS27
04831                           L427-QTR2-TAX-WAGE (SUB)                DTSCS27
04832                           L427-QTR2-PRIOR-WAGE (SUB)              DTSCS27
04833                           L427-QTR3-WAGE-CHNG (SUB)               DTSCS27
04834                           L427-QTR3-CURR-WAGE (SUB)               DTSCS27
04835                           L427-QTR3-TAX-WAGE (SUB)                DTSCS27
04836                           L427-QTR3-PRIOR-WAGE (SUB)              DTSCS27
04837                           L427-QTR4-WAGE-CHNG (SUB)               DTSCS27
04838                           L427-QTR4-CURR-WAGE (SUB)               DTSCS27
04839                           L427-QTR4-TAX-WAGE (SUB)                DTSCS27
04840                           L427-QTR4-PRIOR-WAGE (SUB).             DTSCS27
04841                                                                   DTSCS27
04842  S1511-EXIT.                                                      DTSCS27
04843      EXIT.                                                        DTSCS27
04844                                                                   DTSCS27
04845                                                                   DTSCS27
04846  S1520-EDIT-SSN.                                                  DTSCS27
04847      IF L427-SSN-PRE-FILL-88 (SUB)                                DTSCS27
04848      OR L427-SSN-CURR-WAGE-88 (SUB)                               DTSCS27
04849      OR L427-SSN-DUMMY-88 (SUB)                                   DTSCS27
04850         GO TO S1520-EXIT.                                         DTSCS27
04851                                                                   DTSCS27
04852       IF L427-SSN-INVALID-88 (SUB)                                DTSCS27
04853          SET L427-SSN-NO-ENTRY-88 (SUB)  TO TRUE.                 DTSCS27
04854                                                                   DTSCS27
04855       MOVE ZERO           TO L427-SSN (SUB).                      DTSCS27
04856                                                                   DTSCS27
04857       MOVE MAP-SSN-AREA (SUB) TO L020-S-SSN-AREA.                 DTSCS27
04858       PERFORM S020-SSN-FROM-SCREEN THRU S020-EXIT.                DTSCS27
04859                                                                   DTSCS27
04860 **    IF WRK-SCR-HOLD-DIS-EDIT4-YES-88                            DTSCS27
04861 **       NEXT SENTENCE                                            DTSCS27
04862 **    ELSE                                                        DTSCS27
04863       IF L020-NO-ENTRY                                            DTSCS27
04864 **       IF MAP-DISREGARD-EDITS-YES-88                            DTSCS27
04865 **          SET MAP-DISREGARD-EDITS-NO-88 TO TRUE                 DTSCS27
04866 **          SET WRK-SCR-HOLD-DIS-EDIT4-YES-88 TO TRUE             DTSCS27
04867 **          PERFORM S1527-DUMMY-SSN    THRU S1527-EXIT            DTSCS27
04868 **          GO TO S1520-EXIT                                      DTSCS27
04869 **       ELSE                                                     DTSCS27
04870             SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE               DTSCS27
04871             SET L427-SSN-NO-ENTRY-88 (SUB) TO TRUE                DTSCS27
04872             IF MAP-EDIT-FULL-88                                   DTSCS27
04873                MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA           DTSCS27
04874                PERFORM S1521-ERROR THRU S1521-EXIT                DTSCS27
04875             END-IF                                                DTSCS27
04876 **       END-IF                                                   DTSCS27
04877       END-IF.                                                     DTSCS27
04878                                                                   DTSCS27
04879       IF L020-NOT-VALID                                           DTSCS27
04880          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
04881          SET L427-SSN-INVALID-88 (SUB) TO TRUE                    DTSCS27
04882          MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA                DTSCS27
04883          PERFORM S1521-ERROR THRU S1521-EXIT                      DTSCS27
04884          GO TO S1520-EXIT.                                        DTSCS27
04885                                                                   DTSCS27
04886 *&    IF WRK-SCR-HOLD-DIS-EDIT4-YES-88                            DTSCS27
04887 *        NEXT SENTENCE                                            DTSCS27
04888 *&    ELSE                                                        DTSCS27
04889          PERFORM S1525-SSN-EDITS    THRU S1525-EXIT               DTSCS27
04890          IF L427-SSN-INVALID-88 (SUB)                             DTSCS27
04891 *&          IF MAP-DISREGARD-EDITS-YES-88                         DTSCS27
04892 *              SET MAP-DISREGARD-EDITS-NO-88 TO TRUE              DTSCS27
04893 *              SET WRK-SCR-HOLD-DIS-EDIT4-YES-88 TO TRUE          DTSCS27
04894 *              PERFORM S1527-DUMMY-SSN    THRU S1527-EXIT         DTSCS27
04895 *              GO TO S1520-EXIT                                   DTSCS27
04896 *&          ELSE                                                  DTSCS27
04897                SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE            DTSCS27
04898                IF MAP-EDIT-FULL-88                                DTSCS27
04899                   SET L427-SSN-INVALID-88 (SUB) TO TRUE           DTSCS27
04900                   MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA       DTSCS27
04901                   PERFORM S1521-ERROR THRU S1521-EXIT             DTSCS27
04902                   GO TO S1520-EXIT                                DTSCS27
04903                ELSE                                               DTSCS27
04904                   GO TO S1520-EXIT.                               DTSCS27
04905                                                                   DTSCS27
04906 *&    PERFORM S1522-CHK-DUP-SSN     THRU S1522-EXIT.              DTSCS27
04907 *     IF L427-SSN-INVALID-88 (SUB)                                DTSCS27
04908 *        GO TO S1520-EXIT.                                        DTSCS27
04909                                                                   DTSCS27
04910       IF L427-SSN-NO-ENTRY-88 (SUB)                               DTSCS27
04911          ADD +1 TO L427-WAGE-TBL-CNT.                             DTSCS27
04912                                                                   DTSCS27
04913       SET L427-SSN-VALID-88 (SUB) TO TRUE.                        DTSCS27
04914                                                                   DTSCS27
04915       MOVE L020-SSN       TO L427-SSN (SUB).                      DTSCS27
04916                                                                   DTSCS27
04917  S1520-EXIT.                                                      DTSCS27
04918      EXIT.                                                        DTSCS27
04919                                                                   DTSCS27
04920                                                                   DTSCS27
04921  S1521-ERROR.                                                     DTSCS27
04922      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-SSN1-A (SUB)          DTSCS27
04923                                         MAP-SSN2-A (SUB)          DTSCS27
04924                                         MAP-SSN3-A (SUB).         DTSCS27
04925                                                                   DTSCS27
04926      IF LCCM-NO-MSG                                               DTSCS27
04927          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
04928          MOVE CATB-CURSOR TO MAP-SSN1-L (SUB)                     DTSCS27
04929          SET CURSOR-SET-YES TO TRUE.                              DTSCS27
04930  S1521-EXIT.                                                      DTSCS27
04931      EXIT.                                                        DTSCS27
04932                                                                   DTSCS27
04933  S1525-SSN-EDITS.                                                 DTSCS27
04934      IF L020-S-SSN1 = '000'                                       DTSCS27
04935      OR L020-S-SSN2 = '00'                                        DTSCS27
04936      OR L020-S-SSN3 = '0000'                                      DTSCS27
04937         SET L427-SSN-INVALID-88 (SUB) TO TRUE                     DTSCS27
04938         GO TO S1525-EXIT.                                         DTSCS27
04939                                                                   DTSCS27
04940      IF L020-SSN = 111111111                                      DTSCS27
04941      OR L020-SSN = 222222222                                      DTSCS27
04942      OR L020-SSN = 333333333                                      DTSCS27
04943      OR L020-SSN = 444444444                                      DTSCS27
04944      OR L020-SSN = 555555555                                      DTSCS27
04945      OR L020-SSN = 666666666                                      DTSCS27
04946      OR L020-SSN = 777777777                                      DTSCS27
04947      OR L020-SSN = 888888888                                      DTSCS27
04948      OR L020-SSN = 999999999                                      DTSCS27
04949         SET L427-SSN-INVALID-88 (SUB) TO TRUE                     DTSCS27
04950         GO TO S1525-EXIT.                                         DTSCS27
04951                                                                   DTSCS27
04952  S1525-EXIT.                                                      DTSCS27
04953      EXIT.                                                        DTSCS27
04954                                                                   DTSCS27
04955  S1527-DUMMY-SSN.                                                 DTSCS27
04956      IF WRK-SCR-HOLD-DUMMY-SSN < +999999                          DTSCS27
04957         ADD +1                       TO WRK-SCR-HOLD-DUMMY-SSN    DTSCS27
04958         MOVE WRK-SCR-HOLD-DUMMY-SSN  TO L427-SSN (SUB)            DTSCS27
04959         SET L427-SSN-DUMMY-88 (SUB)  TO TRUE                      DTSCS27
04960         ADD +1 TO L427-WAGE-TBL-CNT                               DTSCS27
04961      ELSE                                                         DTSCS27
04962         GO TO S899-ABEND.                                         DTSCS27
04963                                                                   DTSCS27
04964  S1527-EXIT.                                                      DTSCS27
04965      EXIT.                                                        DTSCS27
04966                                                                   DTSCS27
04967  S1530-EDIT-NAME-CHECK.                                           DTSCS27
04968      IF L427-SSN-PRE-FILL-88 (SUB)                                DTSCS27
04969      OR L427-SSN-CURR-WAGE-88 (SUB)                               DTSCS27
04970      OR L427-SSN-DUMMY-88 (SUB)                                   DTSCS27
04971         GO TO S1530-EXIT.                                         DTSCS27
04972                                                                   DTSCS27
04973      MOVE SPACES               TO L427-SSN-NAME (SUB).            DTSCS27
04974                                                                   DTSCS27
04975      IF MAP-SSN-NAME-CHK (SUB) = LOW-VALUES OR SPACES             DTSCS27
04976         SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                   DTSCS27
04977         SET L427-SSN-NAME-INVALID-88 (SUB) TO TRUE                DTSCS27
04978         IF MAP-EDIT-FULL-88                                       DTSCS27
04979            MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA               DTSCS27
04980            PERFORM S1531-ERROR THRU S1531-EXIT                    DTSCS27
04981         END-IF                                                    DTSCS27
04982      ELSE                                                         DTSCS27
04983         MOVE MAP-SSN-NAME-CHK (SUB)                               DTSCS27
04984                                TO L427-SSN-NAME (SUB)             DTSCS27
04985         SET L427-SSN-NAME-VALID-88 (SUB) TO TRUE.                 DTSCS27
04986                                                                   DTSCS27
04987  S1530-EXIT.                                                      DTSCS27
04988      EXIT.                                                        DTSCS27
04989                                                                   DTSCS27
04990  S1531-ERROR.                                                     DTSCS27
04991      MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-SSN-NAME-CHK-A (SUB)   DTSCS27
04992                                                                   DTSCS27
04993      IF LCCM-NO-MSG                                               DTSCS27
04994          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
04995          MOVE CATB-CURSOR TO MAP-SSN-NAME-CHK-L (SUB)             DTSCS27
04996          SET CURSOR-SET-YES TO TRUE.                              DTSCS27
04997  S1531-EXIT.                                                      DTSCS27
04998      EXIT.                                                        DTSCS27
04999                                                                   DTSCS27
05000 /*****************************************************************DTSCS27
05001 * EDIT FIRST QUARTER WAGES                                        DTSCS27
05002 ******************************************************************DTSCS27
05003  S1540-YRQ1-WAGES.                                                DTSCS27
05004      IF L427-SSN-CURR-WAGE-88 (SUB)                               DTSCS27
05005         GO TO S1540-EXIT.                                         DTSCS27
05006                                                                   DTSCS27
05007      MOVE MAP-YRQ1-WAGES-AREA (SUB)   TO L011-S-AMT-AREA.         DTSCS27
05008      PERFORM S2000-EDIT-WAGE          THRU S2000-EXIT.            DTSCS27
05009                                                                   DTSCS27
05010      IF MAP-EDIT-FULL-88                                          DTSCS27
05011         PERFORM S1541-FULL-EDITS      THRU S1541-EXIT             DTSCS27
05012      ELSE                                                         DTSCS27
05013         PERFORM S1542-MINIMAL-EDITS   THRU S1542-EXIT.            DTSCS27
05014                                                                   DTSCS27
05015      IF WRK-PASSED-FULL-EDITS-NO-88                               DTSCS27
05016         GO TO S1540-EXIT.                                         DTSCS27
05017                                                                   DTSCS27
05018      IF L427-QTR1-ERROR-OK-88 (SUB)                               DTSCS27
05019         GO TO S1540-EXIT.                                         DTSCS27
05020                                                                   DTSCS27
05021 *&   IF MAP-RPT-ORIG-88                                           DTSCS27
05022 *    OR MAP-RPT-ESTIM-88                                          DTSCS27
05023 *       IF L011-AMT NOT = ZERO                                    DTSCS27
05024 *       AND L427-QTR1-PRIOR-WAGE (SUB) NOT = ZERO                 DTSCS27
05025 *          IF L011-AMT > (L427-QTR1-PRIOR-WAGE (SUB) * 2)         DTSCS27
05026 *          OR L011-AMT < (L427-QTR1-PRIOR-WAGE (SUB) * 0.5)       DTSCS27
05027 *             IF MAP-DISREGARD-EDITS-YES-88                       DTSCS27
05028 *                SET MAP-DISREGARD-EDITS-NO-88    TO TRUE         DTSCS27
05029 *                SET L427-QTR1-ERROR-OK-88 (SUB)  TO TRUE         DTSCS27
05030 *             ELSE                                                DTSCS27
05031 *                SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE          DTSCS27
05032 *                MOVE MSG-E27P-AREA TO WRK-MSG-AREA               DTSCS27
05033 *&               PERFORM S1549-ERROR THRU S1549-EXIT.             DTSCS27
05034                                                                   DTSCS27
05035  S1540-EXIT.                                                      DTSCS27
05036      EXIT.                                                        DTSCS27
05037                                                                   DTSCS27
05038  S1541-FULL-EDITS.                                                DTSCS27
05039      IF MAP-RPT-ORIG-88                                           DTSCS27
05040      OR MAP-RPT-ESTIM-88                                          DTSCS27
05041      OR MAP-RPT-WITHDRW-88                                        DTSCS27
05042         NEXT SENTENCE                                             DTSCS27
05043      ELSE                                                         DTSCS27
05044         IF L011-NO-ENTRY                                          DTSCS27
05045            SET L427-QTR1-VALID-88 (SUB) TO TRUE                   DTSCS27
05046            MOVE +0     TO L427-QTR1-WAGE-CHNG (SUB)               DTSCS27
05047            GO TO S1541-EXIT.                                      DTSCS27
05048                                                                   DTSCS27
05049      IF L011-VALID                                                DTSCS27
05050          IF NOT L427-QTR1-ERROR-OK-88 (SUB)                       DTSCS27
05051             SET L427-QTR1-VALID-88 (SUB) TO TRUE                  DTSCS27
05052          END-IF                                                   DTSCS27
05053          MOVE L011-AMT TO MAP-YRQ1-WAGES-N (SUB)                  DTSCS27
05054                           L427-QTR1-WAGE-CHNG (SUB)               DTSCS27
05055      ELSE                                                         DTSCS27
05056          SET L427-QTR1-INVALID-88 (SUB) TO TRUE                   DTSCS27
05057          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
05058          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS27
05059          MOVE 'WAGES' TO WRK-MSG-TEXT                             DTSCS27
05060          PERFORM S1549-ERROR THRU S1549-EXIT.                     DTSCS27
05061                                                                   DTSCS27
05062      IF MAP-RPT-WITHDRW-88                                        DTSCS27
05063         NEXT SENTENCE                                             DTSCS27
05064      ELSE                                                         DTSCS27
05065         IF WRK-QTR1-LIABLE-NO-88                                  DTSCS27
05066            IF L011-AMT NOT = ZERO                                 DTSCS27
05067               SET L427-QTR1-INVALID-88 (SUB) TO TRUE              DTSCS27
05068               SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE             DTSCS27
05069               MOVE MSG-E27I-AREA   TO WRK-MSG-AREA                DTSCS27
05070               PERFORM S1549-ERROR THRU S1549-EXIT.                DTSCS27
05071                                                                   DTSCS27
05072      IF (L011-AMT + L427-QTR1-CURR-WAGE (SUB)) < ZERO             DTSCS27
05073         SET L427-QTR1-INVALID-88 (SUB) TO TRUE                    DTSCS27
05074         SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                   DTSCS27
05075         MOVE MSG-E27K-AREA   TO WRK-MSG-AREA                      DTSCS27
05076         PERFORM S1549-ERROR THRU S1549-EXIT.                      DTSCS27
05077                                                                   DTSCS27
05078  S1541-EXIT.                                                      DTSCS27
05079      EXIT.                                                        DTSCS27
05080                                                                   DTSCS27
05081  S1542-MINIMAL-EDITS.                                             DTSCS27
05082      IF L011-NO-ENTRY                                             DTSCS27
05083          IF MAP-RPT-ORIG-88                                       DTSCS27
05084          OR MAP-RPT-ESTIM-88                                      DTSCS27
05085          OR MAP-RPT-WITHDRW-88                                    DTSCS27
05086              SET L427-QTR1-NO-ENTRY-88 (SUB) TO TRUE              DTSCS27
05087              SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE              DTSCS27
05088          ELSE                                                     DTSCS27
05089             SET L427-QTR1-VALID-88 (SUB)  TO TRUE                 DTSCS27
05090             MOVE +0    TO L427-QTR1-WAGE-CHNG (SUB)               DTSCS27
05091          END-IF                                                   DTSCS27
05092      ELSE                                                         DTSCS27
05093      IF L011-VALID                                                DTSCS27
05094          IF NOT L427-QTR1-ERROR-OK-88 (SUB)                       DTSCS27
05095             SET L427-QTR1-VALID-88 (SUB)  TO TRUE                 DTSCS27
05096          END-IF                                                   DTSCS27
05097          MOVE L011-AMT TO MAP-YRQ1-WAGES-N (SUB)                  DTSCS27
05098                           L427-QTR1-WAGE-CHNG (SUB)               DTSCS27
05099      ELSE                                                         DTSCS27
05100          SET L427-QTR1-INVALID-88 (SUB) TO TRUE                   DTSCS27
05101          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
05102          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS27
05103          MOVE 'WAGES' TO WRK-MSG-TEXT                             DTSCS27
05104          PERFORM S1549-ERROR THRU S1549-EXIT.                     DTSCS27
05105                                                                   DTSCS27
05106      IF MAP-RPT-WITHDRW-88                                        DTSCS27
05107         NEXT SENTENCE                                             DTSCS27
05108      ELSE                                                         DTSCS27
05109         IF WRK-QTR1-LIABLE-NO-88                                  DTSCS27
05110            IF L011-AMT NOT = ZERO                                 DTSCS27
05111               SET L427-QTR1-INVALID-88 (SUB) TO TRUE              DTSCS27
05112               SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE.            DTSCS27
05113                                                                   DTSCS27
05114      IF (L011-AMT + L427-QTR1-CURR-WAGE (SUB)) < ZERO             DTSCS27
05115         SET L427-QTR1-INVALID-88 (SUB) TO TRUE                    DTSCS27
05116         SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE.                  DTSCS27
05117                                                                   DTSCS27
05118  S1542-EXIT.                                                      DTSCS27
05119      EXIT.                                                        DTSCS27
05120                                                                   DTSCS27
05121  S1549-ERROR.                                                     DTSCS27
05122      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-YRQ1-WAGES-A (SUB)    DTSCS27
05123                                                                   DTSCS27
05124      IF LCCM-NO-MSG                                               DTSCS27
05125          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
05126          MOVE CATB-CURSOR TO MAP-YRQ1-WAGES-L (SUB)               DTSCS27
05127          SET CURSOR-SET-YES TO TRUE.                              DTSCS27
05128  S1549-EXIT.                                                      DTSCS27
05129      EXIT.                                                        DTSCS27
05130                                                                   DTSCS27
05131 /*****************************************************************DTSCS27
05132 *   EDIT SECOND QUARTER WAGES                                     DTSCS27
05133 ******************************************************************DTSCS27
05134  S1550-YRQ2-WAGES.                                                DTSCS27
05135      IF L427-SSN-CURR-WAGE-88 (SUB)                               DTSCS27
05136         GO TO S1550-EXIT.                                         DTSCS27
05137                                                                   DTSCS27
05138      MOVE MAP-YRQ2-WAGES-AREA (SUB)   TO L011-S-AMT-AREA.         DTSCS27
05139      PERFORM S2000-EDIT-WAGE          THRU S2000-EXIT.            DTSCS27
05140                                                                   DTSCS27
05141      IF MAP-EDIT-FULL-88                                          DTSCS27
05142         PERFORM S1551-FULL-EDITS      THRU S1551-EXIT             DTSCS27
05143      ELSE                                                         DTSCS27
05144         PERFORM S1552-MINIMAL-EDITS   THRU S1552-EXIT.            DTSCS27
05145                                                                   DTSCS27
05146      IF WRK-PASSED-FULL-EDITS-NO-88                               DTSCS27
05147         GO TO S1550-EXIT.                                         DTSCS27
05148                                                                   DTSCS27
05149      IF L427-QTR2-ERROR-OK-88 (SUB)                               DTSCS27
05150         GO TO S1550-EXIT.                                         DTSCS27
05151                                                                   DTSCS27
05152 *&   IF MAP-RPT-ORIG-88                                           DTSCS27
05153 *    OR MAP-RPT-ESTIM-88                                          DTSCS27
05154 *       IF L011-AMT NOT = ZERO                                    DTSCS27
05155 *       AND L427-QTR2-PRIOR-WAGE (SUB) NOT = ZERO                 DTSCS27
05156 *          IF L011-AMT > (L427-QTR2-PRIOR-WAGE (SUB) * 2)         DTSCS27
05157 *          OR L011-AMT < (L427-QTR2-PRIOR-WAGE (SUB) * 0.5)       DTSCS27
05158 **            IF MAP-DISREGARD-EDITS-YES-88                       DTSCS27
05159 *                SET MAP-DISREGARD-EDITS-NO-88    TO TRUE         DTSCS27
05160 *                SET L427-QTR2-ERROR-OK-88 (SUB)  TO TRUE         DTSCS27
05161 *             ELSE                                                DTSCS27
05162 *                SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE          DTSCS27
05163 *                MOVE MSG-E27P-AREA TO WRK-MSG-AREA               DTSCS27
05164 *&               PERFORM S1559-ERROR THRU S1559-EXIT.             DTSCS27
05165                                                                   DTSCS27
05166  S1550-EXIT.                                                      DTSCS27
05167      EXIT.                                                        DTSCS27
05168                                                                   DTSCS27
05169  S1551-FULL-EDITS.                                                DTSCS27
05170      IF MAP-RPT-ORIG-88                                           DTSCS27
05171      OR MAP-RPT-ESTIM-88                                          DTSCS27
05172      OR MAP-RPT-WITHDRW-88                                        DTSCS27
05173         NEXT SENTENCE                                             DTSCS27
05174      ELSE                                                         DTSCS27
05175         IF L011-NO-ENTRY                                          DTSCS27
05176            SET L427-QTR2-VALID-88 (SUB) TO TRUE                   DTSCS27
05177            MOVE +0     TO L427-QTR2-WAGE-CHNG (SUB)               DTSCS27
05178            GO TO S1551-EXIT.                                      DTSCS27
05179                                                                   DTSCS27
05180      IF L011-VALID                                                DTSCS27
05181          IF NOT L427-QTR2-ERROR-OK-88 (SUB)                       DTSCS27
05182             SET L427-QTR2-VALID-88 (SUB) TO TRUE                  DTSCS27
05183          END-IF                                                   DTSCS27
05184          MOVE L011-AMT TO MAP-YRQ2-WAGES-N (SUB)                  DTSCS27
05185                           L427-QTR2-WAGE-CHNG (SUB)               DTSCS27
05186      ELSE                                                         DTSCS27
05187          SET L427-QTR2-INVALID-88 (SUB) TO TRUE                   DTSCS27
05188          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
05189          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS27
05190          MOVE 'WAGES' TO WRK-MSG-TEXT                             DTSCS27
05191          PERFORM S1559-ERROR THRU S1559-EXIT.                     DTSCS27
05192                                                                   DTSCS27
05193      IF MAP-RPT-WITHDRW-88                                        DTSCS27
05194         NEXT SENTENCE                                             DTSCS27
05195      ELSE                                                         DTSCS27
05196         IF WRK-QTR2-LIABLE-NO-88                                  DTSCS27
05197            IF L011-AMT NOT = ZERO                                 DTSCS27
05198               SET L427-QTR2-INVALID-88 (SUB) TO TRUE              DTSCS27
05199               SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE             DTSCS27
05200               MOVE MSG-E27I-AREA   TO WRK-MSG-AREA                DTSCS27
05201               PERFORM S1559-ERROR THRU S1559-EXIT.                DTSCS27
05202                                                                   DTSCS27
05203      IF (L011-AMT + L427-QTR2-CURR-WAGE (SUB)) < ZERO             DTSCS27
05204         SET L427-QTR2-INVALID-88 (SUB) TO TRUE                    DTSCS27
05205         SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                   DTSCS27
05206         MOVE MSG-E27K-AREA   TO WRK-MSG-AREA                      DTSCS27
05207         PERFORM S1559-ERROR THRU S1559-EXIT.                      DTSCS27
05208                                                                   DTSCS27
05209  S1551-EXIT.                                                      DTSCS27
05210      EXIT.                                                        DTSCS27
05211                                                                   DTSCS27
05212  S1552-MINIMAL-EDITS.                                             DTSCS27
05213      IF L011-NO-ENTRY                                             DTSCS27
05214          IF MAP-RPT-ORIG-88                                       DTSCS27
05215          OR MAP-RPT-ESTIM-88                                      DTSCS27
05216          OR MAP-RPT-WITHDRW-88                                    DTSCS27
05217              SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE              DTSCS27
05218              SET L427-QTR2-NO-ENTRY-88 (SUB) TO TRUE              DTSCS27
05219          ELSE                                                     DTSCS27
05220             SET L427-QTR2-VALID-88 (SUB)  TO TRUE                 DTSCS27
05221             MOVE +0    TO L427-QTR2-WAGE-CHNG (SUB)               DTSCS27
05222          END-IF                                                   DTSCS27
05223      ELSE                                                         DTSCS27
05224      IF L011-VALID                                                DTSCS27
05225          IF NOT L427-QTR2-ERROR-OK-88 (SUB)                       DTSCS27
05226             SET L427-QTR2-VALID-88 (SUB)   TO TRUE                DTSCS27
05227          END-IF                                                   DTSCS27
05228          MOVE L011-AMT TO MAP-YRQ2-WAGES-N (SUB)                  DTSCS27
05229                           L427-QTR2-WAGE-CHNG (SUB)               DTSCS27
05230      ELSE                                                         DTSCS27
05231          SET L427-QTR2-INVALID-88 (SUB) TO TRUE                   DTSCS27
05232          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
05233          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS27
05234          MOVE 'WAGES' TO WRK-MSG-TEXT                             DTSCS27
05235          PERFORM S1559-ERROR THRU S1559-EXIT.                     DTSCS27
05236                                                                   DTSCS27
05237      IF MAP-RPT-WITHDRW-88                                        DTSCS27
05238         NEXT SENTENCE                                             DTSCS27
05239      ELSE                                                         DTSCS27
05240         IF WRK-QTR2-LIABLE-NO-88                                  DTSCS27
05241            IF L011-AMT NOT = ZERO                                 DTSCS27
05242               SET L427-QTR2-INVALID-88 (SUB) TO TRUE              DTSCS27
05243               SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE.            DTSCS27
05244                                                                   DTSCS27
05245      IF (L011-AMT + L427-QTR2-CURR-WAGE (SUB)) < ZERO             DTSCS27
05246         SET L427-QTR2-INVALID-88 (SUB) TO TRUE                    DTSCS27
05247         SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE.                  DTSCS27
05248                                                                   DTSCS27
05249  S1552-EXIT.                                                      DTSCS27
05250      EXIT.                                                        DTSCS27
05251                                                                   DTSCS27
05252  S1559-ERROR.                                                     DTSCS27
05253      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-YRQ2-WAGES-A (SUB)    DTSCS27
05254                                                                   DTSCS27
05255      IF LCCM-NO-MSG                                               DTSCS27
05256          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
05257          MOVE CATB-CURSOR TO MAP-YRQ2-WAGES-L (SUB)               DTSCS27
05258          SET CURSOR-SET-YES TO TRUE.                              DTSCS27
05259  S1559-EXIT.                                                      DTSCS27
05260      EXIT.                                                        DTSCS27
05261                                                                   DTSCS27
05262 /*****************************************************************DTSCS27
05263 *   EDIT THIRD QUARTER WAGES                                      DTSCS27
05264 ******************************************************************DTSCS27
05265  S1560-YRQ3-WAGES.                                                DTSCS27
05266      IF L427-SSN-CURR-WAGE-88 (SUB)                               DTSCS27
05267         GO TO S1560-EXIT.                                         DTSCS27
05268                                                                   DTSCS27
05269      MOVE MAP-YRQ3-WAGES-AREA (SUB)   TO L011-S-AMT-AREA.         DTSCS27
05270      PERFORM S2000-EDIT-WAGE          THRU S2000-EXIT.            DTSCS27
05271                                                                   DTSCS27
05272      IF MAP-EDIT-FULL-88                                          DTSCS27
05273         PERFORM S1561-FULL-EDITS      THRU S1561-EXIT             DTSCS27
05274      ELSE                                                         DTSCS27
05275         PERFORM S1562-MINIMAL-EDITS   THRU S1562-EXIT.            DTSCS27
05276                                                                   DTSCS27
05277      IF WRK-PASSED-FULL-EDITS-NO-88                               DTSCS27
05278         GO TO S1560-EXIT.                                         DTSCS27
05279                                                                   DTSCS27
05280      IF L427-QTR3-ERROR-OK-88 (SUB)                               DTSCS27
05281         GO TO S1560-EXIT.                                         DTSCS27
05282                                                                   DTSCS27
05283 *&   IF MAP-RPT-ORIG-88                                           DTSCS27
05284 *    OR MAP-RPT-ESTIM-88                                          DTSCS27
05285 *       IF L011-AMT NOT = ZERO                                    DTSCS27
05286 *       AND L427-QTR3-PRIOR-WAGE (SUB) NOT = ZERO                 DTSCS27
05287 *          IF L011-AMT > (L427-QTR3-PRIOR-WAGE (SUB) * 2)         DTSCS27
05288 *          OR L011-AMT < (L427-QTR3-PRIOR-WAGE (SUB) * 0.5)       DTSCS27
05289 *             IF MAP-DISREGARD-EDITS-YES-88                       DTSCS27
05290 *                SET MAP-DISREGARD-EDITS-NO-88    TO TRUE         DTSCS27
05291 *                SET L427-QTR3-ERROR-OK-88 (SUB)  TO TRUE         DTSCS27
05292 *             ELSE                                                DTSCS27
05293 *                SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE          DTSCS27
05294 *                MOVE MSG-E27P-AREA TO WRK-MSG-AREA               DTSCS27
05295 *&               PERFORM S1569-ERROR THRU S1569-EXIT.             DTSCS27
05296                                                                   DTSCS27
05297  S1560-EXIT.                                                      DTSCS27
05298      EXIT.                                                        DTSCS27
05299                                                                   DTSCS27
05300  S1561-FULL-EDITS.                                                DTSCS27
05301      IF MAP-RPT-ORIG-88                                           DTSCS27
05302      OR MAP-RPT-ESTIM-88                                          DTSCS27
05303      OR MAP-RPT-WITHDRW-88                                        DTSCS27
05304         NEXT SENTENCE                                             DTSCS27
05305      ELSE                                                         DTSCS27
05306         IF L011-NO-ENTRY                                          DTSCS27
05307            SET L427-QTR3-VALID-88 (SUB) TO TRUE                   DTSCS27
05308            MOVE +0     TO L427-QTR3-WAGE-CHNG (SUB)               DTSCS27
05309            GO TO S1561-EXIT.                                      DTSCS27
05310                                                                   DTSCS27
05311      IF L011-VALID                                                DTSCS27
05312          IF NOT L427-QTR3-ERROR-OK-88 (SUB)                       DTSCS27
05313             SET L427-QTR3-VALID-88 (SUB) TO TRUE                  DTSCS27
05314          END-IF                                                   DTSCS27
05315          MOVE L011-AMT TO MAP-YRQ3-WAGES-N (SUB)                  DTSCS27
05316                           L427-QTR3-WAGE-CHNG (SUB)               DTSCS27
05317      ELSE                                                         DTSCS27
05318          SET L427-QTR3-INVALID-88 (SUB) TO TRUE                   DTSCS27
05319          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
05320          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS27
05321          MOVE 'WAGES' TO WRK-MSG-TEXT                             DTSCS27
05322          PERFORM S1569-ERROR THRU S1569-EXIT.                     DTSCS27
05323                                                                   DTSCS27
05324      IF MAP-RPT-WITHDRW-88                                        DTSCS27
05325         NEXT SENTENCE                                             DTSCS27
05326      ELSE                                                         DTSCS27
05327         IF WRK-QTR3-LIABLE-NO-88                                  DTSCS27
05328            IF L011-AMT NOT = ZERO                                 DTSCS27
05329               SET L427-QTR3-INVALID-88 (SUB) TO TRUE              DTSCS27
05330               SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE             DTSCS27
05331               MOVE MSG-E27I-AREA   TO WRK-MSG-AREA                DTSCS27
05332               PERFORM S1569-ERROR THRU S1569-EXIT.                DTSCS27
05333                                                                   DTSCS27
05334      IF (L011-AMT + L427-QTR3-CURR-WAGE (SUB)) < ZERO             DTSCS27
05335         SET L427-QTR3-INVALID-88 (SUB) TO TRUE                    DTSCS27
05336         SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                   DTSCS27
05337         MOVE MSG-E27K-AREA   TO WRK-MSG-AREA                      DTSCS27
05338         PERFORM S1569-ERROR THRU S1569-EXIT.                      DTSCS27
05339                                                                   DTSCS27
05340  S1561-EXIT.                                                      DTSCS27
05341      EXIT.                                                        DTSCS27
05342                                                                   DTSCS27
05343  S1562-MINIMAL-EDITS.                                             DTSCS27
05344      IF L011-NO-ENTRY                                             DTSCS27
05345          IF MAP-RPT-ORIG-88                                       DTSCS27
05346          OR MAP-RPT-ESTIM-88                                      DTSCS27
05347          OR MAP-RPT-WITHDRW-88                                    DTSCS27
05348              SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE              DTSCS27
05349              SET L427-QTR3-NO-ENTRY-88 (SUB) TO TRUE              DTSCS27
05350          ELSE                                                     DTSCS27
05351             SET L427-QTR3-VALID-88 (SUB)  TO TRUE                 DTSCS27
05352             MOVE +0    TO L427-QTR3-WAGE-CHNG (SUB)               DTSCS27
05353          END-IF                                                   DTSCS27
05354      ELSE                                                         DTSCS27
05355      IF L011-VALID                                                DTSCS27
05356          IF NOT L427-QTR3-ERROR-OK-88 (SUB)                       DTSCS27
05357             SET L427-QTR3-VALID-88 (SUB) TO TRUE                  DTSCS27
05358          END-IF                                                   DTSCS27
05359          MOVE L011-AMT TO MAP-YRQ3-WAGES-N (SUB)                  DTSCS27
05360                           L427-QTR3-WAGE-CHNG (SUB)               DTSCS27
05361      ELSE                                                         DTSCS27
05362          SET L427-QTR3-INVALID-88 (SUB) TO TRUE                   DTSCS27
05363          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
05364          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS27
05365          MOVE 'WAGES' TO WRK-MSG-TEXT                             DTSCS27
05366          PERFORM S1569-ERROR THRU S1569-EXIT.                     DTSCS27
05367                                                                   DTSCS27
05368      IF MAP-RPT-WITHDRW-88                                        DTSCS27
05369         NEXT SENTENCE                                             DTSCS27
05370      ELSE                                                         DTSCS27
05371         IF WRK-QTR3-LIABLE-NO-88                                  DTSCS27
05372            IF L011-AMT NOT = ZERO                                 DTSCS27
05373               SET L427-QTR3-INVALID-88 (SUB) TO TRUE              DTSCS27
05374               SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE.            DTSCS27
05375                                                                   DTSCS27
05376      IF (L011-AMT + L427-QTR3-CURR-WAGE (SUB)) < ZERO             DTSCS27
05377         SET L427-QTR3-INVALID-88 (SUB) TO TRUE                    DTSCS27
05378         SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE.                  DTSCS27
05379                                                                   DTSCS27
05380  S1562-EXIT.                                                      DTSCS27
05381      EXIT.                                                        DTSCS27
05382                                                                   DTSCS27
05383  S1569-ERROR.                                                     DTSCS27
05384      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-YRQ3-WAGES-A (SUB)    DTSCS27
05385                                                                   DTSCS27
05386      IF LCCM-NO-MSG                                               DTSCS27
05387          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
05388          MOVE CATB-CURSOR TO MAP-YRQ3-WAGES-L (SUB)               DTSCS27
05389          SET CURSOR-SET-YES TO TRUE.                              DTSCS27
05390  S1569-EXIT.                                                      DTSCS27
05391      EXIT.                                                        DTSCS27
05392                                                                   DTSCS27
05393 /*****************************************************************DTSCS27
05394 *   EDIT FOURTH QUARTER WAGES                                     DTSCS27
05395 ******************************************************************DTSCS27
05396  S1570-YRQ4-WAGES.                                                DTSCS27
05397      IF L427-SSN-CURR-WAGE-88 (SUB)                               DTSCS27
05398         GO TO S1570-EXIT.                                         DTSCS27
05399                                                                   DTSCS27
05400      MOVE MAP-YRQ4-WAGES-AREA (SUB)   TO L011-S-AMT-AREA.         DTSCS27
05401      PERFORM S2000-EDIT-WAGE          THRU S2000-EXIT.            DTSCS27
05402                                                                   DTSCS27
05403      IF MAP-EDIT-FULL-88                                          DTSCS27
05404         PERFORM S1571-FULL-EDITS      THRU S1571-EXIT             DTSCS27
05405      ELSE                                                         DTSCS27
05406         PERFORM S1572-MINIMAL-EDITS   THRU S1572-EXIT.            DTSCS27
05407                                                                   DTSCS27
05408      IF WRK-PASSED-FULL-EDITS-NO-88                               DTSCS27
05409         GO TO S1570-EXIT.                                         DTSCS27
05410                                                                   DTSCS27
05411      IF L427-QTR4-ERROR-OK-88 (SUB)                               DTSCS27
05412         GO TO S1570-EXIT.                                         DTSCS27
05413                                                                   DTSCS27
05414 *&   IF MAP-RPT-ORIG-88                                           DTSCS27
05415 *    OR MAP-RPT-ESTIM-88                                          DTSCS27
05416 *       IF L011-AMT NOT = ZERO                                    DTSCS27
05417 *       AND L427-QTR4-PRIOR-WAGE (SUB) NOT = ZERO                 DTSCS27
05418 *          IF L011-AMT > (L427-QTR4-PRIOR-WAGE (SUB) * 2)         DTSCS27
05419 *          OR L011-AMT < (L427-QTR4-PRIOR-WAGE (SUB) * 0.5)       DTSCS27
05420 *             IF MAP-DISREGARD-EDITS-YES-88                       DTSCS27
05421 *                SET MAP-DISREGARD-EDITS-NO-88    TO TRUE         DTSCS27
05422 *                SET L427-QTR4-ERROR-OK-88 (SUB)  TO TRUE         DTSCS27
05423 *             ELSE                                                DTSCS27
05424 *                SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE          DTSCS27
05425 *                MOVE MSG-E27P-AREA TO WRK-MSG-AREA               DTSCS27
05426 *&               PERFORM S1579-ERROR THRU S1579-EXIT.             DTSCS27
05427                                                                   DTSCS27
05428  S1570-EXIT.                                                      DTSCS27
05429      EXIT.                                                        DTSCS27
05430                                                                   DTSCS27
05431  S1571-FULL-EDITS.                                                DTSCS27
05432      IF MAP-RPT-ORIG-88                                           DTSCS27
05433      OR MAP-RPT-ESTIM-88                                          DTSCS27
05434      OR MAP-RPT-WITHDRW-88                                        DTSCS27
05435         NEXT SENTENCE                                             DTSCS27
05436      ELSE                                                         DTSCS27
05437         IF L011-NO-ENTRY                                          DTSCS27
05438            SET L427-QTR4-VALID-88 (SUB) TO TRUE                   DTSCS27
05439            MOVE +0     TO L427-QTR4-WAGE-CHNG (SUB)               DTSCS27
05440            GO TO S1571-EXIT.                                      DTSCS27
05441                                                                   DTSCS27
05442      IF L011-VALID                                                DTSCS27
05443          IF NOT L427-QTR4-ERROR-OK-88 (SUB)                       DTSCS27
05444             SET L427-QTR4-VALID-88 (SUB) TO TRUE                  DTSCS27
05445          END-IF                                                   DTSCS27
05446          MOVE L011-AMT TO MAP-YRQ4-WAGES-N (SUB)                  DTSCS27
05447                           L427-QTR4-WAGE-CHNG (SUB)               DTSCS27
05448      ELSE                                                         DTSCS27
05449          SET L427-QTR4-INVALID-88 (SUB) TO TRUE                   DTSCS27
05450          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
05451          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS27
05452          MOVE 'WAGES' TO WRK-MSG-TEXT                             DTSCS27
05453          PERFORM S1579-ERROR THRU S1579-EXIT.                     DTSCS27
05454                                                                   DTSCS27
05455      IF MAP-RPT-WITHDRW-88                                        DTSCS27
05456         NEXT SENTENCE                                             DTSCS27
05457      ELSE                                                         DTSCS27
05458         IF WRK-QTR4-LIABLE-NO-88                                  DTSCS27
05459            IF L011-AMT NOT = ZERO                                 DTSCS27
05460               SET L427-QTR4-INVALID-88 (SUB) TO TRUE              DTSCS27
05461               SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE             DTSCS27
05462               MOVE MSG-E27I-AREA   TO WRK-MSG-AREA                DTSCS27
05463               PERFORM S1579-ERROR THRU S1579-EXIT.                DTSCS27
05464                                                                   DTSCS27
05465      IF (L011-AMT + L427-QTR4-CURR-WAGE (SUB)) < ZERO             DTSCS27
05466         SET L427-QTR4-INVALID-88 (SUB) TO TRUE                    DTSCS27
05467         SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                   DTSCS27
05468         MOVE MSG-E27K-AREA   TO WRK-MSG-AREA                      DTSCS27
05469         PERFORM S1579-ERROR THRU S1579-EXIT.                      DTSCS27
05470                                                                   DTSCS27
05471  S1571-EXIT.                                                      DTSCS27
05472      EXIT.                                                        DTSCS27
05473                                                                   DTSCS27
05474  S1572-MINIMAL-EDITS.                                             DTSCS27
05475      IF L011-NO-ENTRY                                             DTSCS27
05476          IF MAP-RPT-ORIG-88                                       DTSCS27
05477          OR MAP-RPT-ESTIM-88                                      DTSCS27
05478          OR MAP-RPT-WITHDRW-88                                    DTSCS27
05479              SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE              DTSCS27
05480              SET L427-QTR4-NO-ENTRY-88 (SUB) TO TRUE              DTSCS27
05481          ELSE                                                     DTSCS27
05482             SET L427-QTR4-VALID-88 (SUB) TO TRUE                  DTSCS27
05483             MOVE +0    TO L427-QTR4-WAGE-CHNG (SUB)               DTSCS27
05484          END-IF                                                   DTSCS27
05485      ELSE                                                         DTSCS27
05486      IF L011-VALID                                                DTSCS27
05487          IF NOT L427-QTR4-ERROR-OK-88 (SUB)                       DTSCS27
05488             SET L427-QTR4-VALID-88 (SUB) TO TRUE                  DTSCS27
05489          END-IF                                                   DTSCS27
05490          MOVE L011-AMT TO MAP-YRQ4-WAGES-N (SUB)                  DTSCS27
05491                           L427-QTR4-WAGE-CHNG (SUB)               DTSCS27
05492      ELSE                                                         DTSCS27
05493          SET L427-QTR4-INVALID-88 (SUB) TO TRUE                   DTSCS27
05494          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
05495          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS27
05496          MOVE 'WAGES' TO WRK-MSG-TEXT                             DTSCS27
05497          PERFORM S1579-ERROR THRU S1579-EXIT.                     DTSCS27
05498                                                                   DTSCS27
05499      IF MAP-RPT-WITHDRW-88                                        DTSCS27
05500         NEXT SENTENCE                                             DTSCS27
05501      ELSE                                                         DTSCS27
05502         IF WRK-QTR4-LIABLE-NO-88                                  DTSCS27
05503            IF L011-AMT NOT = ZERO                                 DTSCS27
05504               SET L427-QTR4-INVALID-88 (SUB) TO TRUE              DTSCS27
05505               SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE.            DTSCS27
05506                                                                   DTSCS27
05507      IF (L011-AMT + L427-QTR4-CURR-WAGE (SUB)) < ZERO             DTSCS27
05508         SET L427-QTR4-INVALID-88 (SUB) TO TRUE                    DTSCS27
05509         SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE.                  DTSCS27
05510                                                                   DTSCS27
05511  S1572-EXIT.                                                      DTSCS27
05512      EXIT.                                                        DTSCS27
05513                                                                   DTSCS27
05514  S1579-ERROR.                                                     DTSCS27
05515      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-YRQ4-WAGES-A (SUB)    DTSCS27
05516                                                                   DTSCS27
05517      IF LCCM-NO-MSG                                               DTSCS27
05518          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
05519          MOVE CATB-CURSOR TO MAP-YRQ4-WAGES-L (SUB)               DTSCS27
05520          SET CURSOR-SET-YES TO TRUE.                              DTSCS27
05521  S1579-EXIT.                                                      DTSCS27
05522      EXIT.                                                        DTSCS27
05523                                                                   DTSCS27
05524 /*****************************************************************DTSCS27
05525 *   CALCULATE TOTAL AND TAXABLE WAGES FOR EACH EMPLOYEE           DTSCS27
05526 ******************************************************************DTSCS27
05527  S1580-SSN-TOT-TAX-WAGES.                                         DTSCS27
05528                                                                   DTSCS27
05529      MOVE L427-EMP-NO             TO L423-EMP-NO.                 DTSCS27
05530                                                                   DTSCS27
05531      IF L427-SSN-VALID-88 (SUB)                                   DTSCS27
05532      OR L427-SSN-PRE-FILL-88 (SUB)                                DTSCS27
05533      OR L427-SSN-DUMMY-88 (SUB)                                   DTSCS27
05534         MOVE L427-SSN (SUB)       TO L423-SSN                     DTSCS27
05535      ELSE                                                         DTSCS27
05536         GO TO S1580-EXIT.                                         DTSCS27
05537                                                                   DTSCS27
05538      IF WRK-PASSED-FULL-EDITS-NO-88                               DTSCS27
05539          GO TO S1580-EXIT.                                        DTSCS27
05540                                                                   DTSCS27
05541      MOVE WRK-YRQ1                TO L423-QTR1.                   DTSCS27
05542      MOVE L427-QTR1-WAGE-CHNG (SUB) TO L423-QTR1-WAGE-CHNG.       DTSCS27
05543      MOVE L427-QTR1-CURR-WAGE (SUB) TO L423-QTR1-CURR-WAGE.       DTSCS27
05544      MOVE WRK-YRQ2                TO L423-QTR2.                   DTSCS27
05545      MOVE L427-QTR2-WAGE-CHNG (SUB) TO L423-QTR2-WAGE-CHNG.       DTSCS27
05546      MOVE L427-QTR2-CURR-WAGE (SUB) TO L423-QTR2-CURR-WAGE.       DTSCS27
05547      MOVE WRK-YRQ3                TO L423-QTR3.                   DTSCS27
05548      MOVE L427-QTR3-WAGE-CHNG (SUB) TO L423-QTR3-WAGE-CHNG.       DTSCS27
05549      MOVE L427-QTR3-CURR-WAGE (SUB) TO L423-QTR3-CURR-WAGE.       DTSCS27
05550      MOVE WRK-YRQ4                TO L423-QTR4.                   DTSCS27
05551      MOVE L427-QTR4-WAGE-CHNG (SUB) TO L423-QTR4-WAGE-CHNG.       DTSCS27
05552      MOVE L427-QTR4-CURR-WAGE (SUB) TO L423-QTR4-CURR-WAGE.       DTSCS27
05553                                                                   DTSCS27
05554      MOVE MAP-TAX-WG-BASE-AREA   TO L011-S-AMT-AREA               DTSCS27
05555      PERFORM S011-OR-ES-WAGE-FROM-SCREEN THRU S011-EXIT           DTSCS27
05556      IF L011-VALID                                                DTSCS27
05557         MOVE L011-AMT            TO L423-TAX-WG-BASE-ADJ          DTSCS27
05558      ELSE                                                         DTSCS27
05559         SET L423-TAX-WG-BASE-NULL-88  TO TRUE                     DTSCS27
05560      END-IF.                                                      DTSCS27
05561                                                                   DTSCS27
05562 **   IF NOT MAP-TAX-WG-BASE-NULL-88                               DTSCS27
05563 *       MOVE MAP-TAX-WG-BASE-AREA   TO L011-S-AMT-AREA            DTSCS27
05564 *       PERFORM S011-OR-ES-WAGE-FROM-SCREEN THRU S011-EXIT        DTSCS27
05565 *       MOVE L011-AMT               TO L423-TAX-WG-BASE-ADJ       DTSCS27
05566 *    ELSE                                                         DTSCS27
05567 *       SET L423-TAX-WG-BASE-NULL-88 TO TRUE                      DTSCS27
05568 **   END-IF.                                                      DTSCS27
05569                                                                   DTSCS27
05570      PERFORM S423-CALC-TAX-WAGES  THRU S423-EXIT.                 DTSCS27
05571      IF L423-QTR1-VALID-88                                        DTSCS27
05572         NEXT SENTENCE                                             DTSCS27
05573      ELSE                                                         DTSCS27
05574          PERFORM S1585-ERROR THRU S1585-EXIT.                     DTSCS27
05575                                                                   DTSCS27
05576      IF L423-QTR2-VALID-88                                        DTSCS27
05577         NEXT SENTENCE                                             DTSCS27
05578      ELSE                                                         DTSCS27
05579          PERFORM S1586-ERROR THRU S1586-EXIT.                     DTSCS27
05580                                                                   DTSCS27
05581      IF L423-QTR3-VALID-88                                        DTSCS27
05582         NEXT SENTENCE                                             DTSCS27
05583      ELSE                                                         DTSCS27
05584          PERFORM S1587-ERROR THRU S1587-EXIT.                     DTSCS27
05585                                                                   DTSCS27
05586      IF L423-QTR4-VALID-88                                        DTSCS27
05587         NEXT SENTENCE                                             DTSCS27
05588      ELSE                                                         DTSCS27
05589          PERFORM S1588-ERROR THRU S1588-EXIT.                     DTSCS27
05590                                                                   DTSCS27
05591      IF LCCM-MSG                                                  DTSCS27
05592          GO TO S1580-EXIT.                                        DTSCS27
05593                                                                   DTSCS27
05594      IF MAP-RPT-ORIG-88 OR MAP-RPT-ESTIM-88                       DTSCS27
05595          NEXT SENTENCE                                            DTSCS27
05596      ELSE                                                         DTSCS27
05597          PERFORM S1582-SUPPLEMENTAL THRU S1582-EXIT.              DTSCS27
05598                                                                   DTSCS27
05599      IF LCCM-MSG                                                  DTSCS27
05600          GO TO S1580-EXIT.                                        DTSCS27
05601                                                                   DTSCS27
05602      MOVE L423-QTR1-TAX-WAGES    TO L427-QTR1-TAX-WAGE (SUB).     DTSCS27
05603                                                                   DTSCS27
05604      MOVE L423-QTR2-TAX-WAGES    TO L427-QTR2-TAX-WAGE (SUB).     DTSCS27
05605                                                                   DTSCS27
05606      MOVE L423-QTR3-TAX-WAGES    TO L427-QTR3-TAX-WAGE (SUB).     DTSCS27
05607                                                                   DTSCS27
05608      MOVE L423-QTR4-TAX-WAGES    TO L427-QTR4-TAX-WAGE (SUB).     DTSCS27
05609                                                                   DTSCS27
05610                                                                   DTSCS27
05611  S1580-EXIT.                                                      DTSCS27
05612      EXIT.                                                        DTSCS27
05613                                                                   DTSCS27
05614                                                                   DTSCS27
05615  S1582-SUPPLEMENTAL.                                              DTSCS27
05616      IF (L423-QTR1-TAX-WAGES < -999999999.99)                     DTSCS27
05617                OR                                                 DTSCS27
05618         (L423-QTR1-TAX-WAGES > 999999999.99)                      DTSCS27
05619          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
05620          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS27
05621          MOVE 'WAGES' TO WRK-MSG-TEXT                             DTSCS27
05622          PERFORM S1549-ERROR THRU S1549-EXIT                      DTSCS27
05623          GO TO S1582-EXIT.                                        DTSCS27
05624                                                                   DTSCS27
05625      IF (L423-QTR2-TAX-WAGES < -999999999.99)                     DTSCS27
05626                OR                                                 DTSCS27
05627         (L423-QTR2-TAX-WAGES > 999999999.99)                      DTSCS27
05628          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
05629          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS27
05630          MOVE 'WAGES' TO WRK-MSG-TEXT                             DTSCS27
05631          PERFORM S1559-ERROR THRU S1559-EXIT                      DTSCS27
05632          GO TO S1582-EXIT.                                        DTSCS27
05633                                                                   DTSCS27
05634      IF (L423-QTR3-TAX-WAGES < -999999999.99)                     DTSCS27
05635                OR                                                 DTSCS27
05636         (L423-QTR3-TAX-WAGES > 999999999.99)                      DTSCS27
05637          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
05638          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS27
05639          MOVE 'WAGES' TO WRK-MSG-TEXT                             DTSCS27
05640          PERFORM S1569-ERROR THRU S1569-EXIT                      DTSCS27
05641          GO TO S1582-EXIT.                                        DTSCS27
05642                                                                   DTSCS27
05643      IF (L423-QTR4-TAX-WAGES < -999999999.99)                     DTSCS27
05644                OR                                                 DTSCS27
05645         (L423-QTR4-TAX-WAGES > 999999999.99)                      DTSCS27
05646          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
05647          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS27
05648          MOVE 'WAGES' TO WRK-MSG-TEXT                             DTSCS27
05649          PERFORM S1579-ERROR THRU S1579-EXIT                      DTSCS27
05650          GO TO S1582-EXIT.                                        DTSCS27
05651                                                                   DTSCS27
05652  S1582-EXIT.                                                      DTSCS27
05653      EXIT.                                                        DTSCS27
05654                                                                   DTSCS27
05655  S1585-ERROR.                                                     DTSCS27
05656      SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE.                     DTSCS27
05657      IF MAP-EDIT-FULL-88                                          DTSCS27
05658          NEXT SENTENCE                                            DTSCS27
05659      ELSE                                                         DTSCS27
05660          GO TO S1585-EXIT.                                        DTSCS27
05661                                                                   DTSCS27
05662      MOVE MSG-E27K-AREA   TO WRK-MSG-AREA.                        DTSCS27
05663      PERFORM S1549-ERROR THRU S1549-EXIT.                         DTSCS27
05664                                                                   DTSCS27
05665  S1585-EXIT.                                                      DTSCS27
05666      EXIT.                                                        DTSCS27
05667                                                                   DTSCS27
05668  S1586-ERROR.                                                     DTSCS27
05669      SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE.                     DTSCS27
05670      IF MAP-EDIT-FULL-88                                          DTSCS27
05671          NEXT SENTENCE                                            DTSCS27
05672      ELSE                                                         DTSCS27
05673          GO TO S1586-EXIT.                                        DTSCS27
05674                                                                   DTSCS27
05675      MOVE MSG-E27K-AREA   TO WRK-MSG-AREA.                        DTSCS27
05676      PERFORM S1559-ERROR THRU S1559-EXIT.                         DTSCS27
05677                                                                   DTSCS27
05678  S1586-EXIT.                                                      DTSCS27
05679      EXIT.                                                        DTSCS27
05680                                                                   DTSCS27
05681  S1587-ERROR.                                                     DTSCS27
05682      SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE.                     DTSCS27
05683      IF MAP-EDIT-FULL-88                                          DTSCS27
05684          NEXT SENTENCE                                            DTSCS27
05685      ELSE                                                         DTSCS27
05686          GO TO S1587-EXIT.                                        DTSCS27
05687                                                                   DTSCS27
05688      MOVE MSG-E27K-AREA   TO WRK-MSG-AREA.                        DTSCS27
05689      PERFORM S1569-ERROR THRU S1569-EXIT.                         DTSCS27
05690                                                                   DTSCS27
05691  S1587-EXIT.                                                      DTSCS27
05692      EXIT.                                                        DTSCS27
05693                                                                   DTSCS27
05694  S1588-ERROR.                                                     DTSCS27
05695      SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE.                     DTSCS27
05696      IF MAP-EDIT-FULL-88                                          DTSCS27
05697          NEXT SENTENCE                                            DTSCS27
05698      ELSE                                                         DTSCS27
05699          GO TO S1588-EXIT.                                        DTSCS27
05700                                                                   DTSCS27
05701      MOVE MSG-E27K-AREA   TO WRK-MSG-AREA.                        DTSCS27
05702      PERFORM S1579-ERROR THRU S1579-EXIT.                         DTSCS27
05703                                                                   DTSCS27
05704  S1588-EXIT.                                                      DTSCS27
05705      EXIT.                                                        DTSCS27
05706                                                                   DTSCS27
05707 /*****************************************************************DTSCS27
05708 *                                                                 DTSCS27
05709 ******************************************************************DTSCS27
05710  S1600-TAX-WAGE.                                                  DTSCS27
05711      SET WRK-TAX-WAGE-OK-88  TO TRUE.                             DTSCS27
05712                                                                   DTSCS27
05713      IF MAP-EDIT-FULL-88                                          DTSCS27
05714          NEXT SENTENCE                                            DTSCS27
05715      ELSE                                                         DTSCS27
05716          PERFORM S1610-MINIMAL-EDIT THRU S1610-EXIT               DTSCS27
05717          GO TO S1600-EXIT.                                        DTSCS27
05718                                                                   DTSCS27
05719                                                                   DTSCS27
05720      IF MAP-RPT-WITHDRW-88                                        DTSCS27
05721          MOVE ZERO           TO MAP-TAX-WAGE-N                    DTSCS27
05722          GO TO S1600-EXIT.                                        DTSCS27
05723                                                                   DTSCS27
05724      MOVE MAP-TAX-WAGE-AREA TO L011-S-AMT-AREA.                   DTSCS27
05725                                                                   DTSCS27
05726      IF MAP-RPT-ORIG-88 OR MAP-RPT-ESTIM-88 OR MAP-RPT-NO-ENTRY-88DTSCS27
05727          PERFORM S011-OR-ES-WAGE-FROM-SCREEN THRU S011-EXIT       DTSCS27
05728      ELSE                                                         DTSCS27
05729          MOVE ZERO           TO MAP-TAX-WAGE-N                    DTSCS27
05730          GO TO S1600-EXIT.                                        DTSCS27
05731                                                                   DTSCS27
05732      IF L011-VALID                                                DTSCS27
05733          NEXT SENTENCE                                            DTSCS27
05734      ELSE                                                         DTSCS27
05735          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
05736          SET WRK-TAX-WAGE-INVALID-88     TO TRUE                  DTSCS27
05737          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS27
05738          MOVE 'WAGES' TO WRK-MSG-TEXT                             DTSCS27
05739          PERFORM S1601-ERROR THRU S1601-EXIT                      DTSCS27
05740          GO TO S1600-EXIT.                                        DTSCS27
05741                                                                   DTSCS27
05742       MOVE L011-AMT TO MAP-TAX-WAGE-N                             DTSCS27
05743                        WRK-TAX-WAGE.                              DTSCS27
05744                                                                   DTSCS27
05745                                                                   DTSCS27
05746  S1600-EXIT.                                                      DTSCS27
05747      EXIT.                                                        DTSCS27
05748                                                                   DTSCS27
05749                                                                   DTSCS27
05750                                                                   DTSCS27
05751  S1601-ERROR.                                                     DTSCS27
05752      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-TAX-WAGE-A.           DTSCS27
05753                                                                   DTSCS27
05754      IF LCCM-NO-MSG                                               DTSCS27
05755          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
05756          MOVE CATB-CURSOR TO MAP-TAX-WAGE-L                       DTSCS27
05757          SET CURSOR-SET-YES TO TRUE.                              DTSCS27
05758  S1601-EXIT.                                                      DTSCS27
05759      EXIT.                                                        DTSCS27
05760                                                                   DTSCS27
05761                                                                   DTSCS27
05762                                                                   DTSCS27
05763 /*****************************************************************DTSCS27
05764 *                                                                 DTSCS27
05765 *                                                                 DTSCS27
05766 ******************************************************************DTSCS27
05767  S1610-MINIMAL-EDIT.                                              DTSCS27
05768      MOVE MAP-TAX-WAGE-AREA TO L011-S-AMT-AREA.                   DTSCS27
05769                                                                   DTSCS27
05770      PERFORM S011-OR-ES-WAGE-FROM-SCREEN THRU S011-EXIT.          DTSCS27
05771                                                                   DTSCS27
05772      IF L011-NO-ENTRY                                             DTSCS27
05773          SET WRK-TAX-WAGE-NO-ENTRY-88 TO TRUE                     DTSCS27
05774          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
05775      ELSE                                                         DTSCS27
05776      IF L011-VALID                                                DTSCS27
05777          MOVE L011-AMT TO MAP-TAX-WAGE-N                          DTSCS27
05778                           WRK-TAX-WAGE                            DTSCS27
05779      ELSE                                                         DTSCS27
05780          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
05781          SET WRK-TAX-WAGE-INVALID-88     TO TRUE                  DTSCS27
05782          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS27
05783          MOVE 'WAGES' TO WRK-MSG-TEXT                             DTSCS27
05784          PERFORM S1601-ERROR THRU S1601-EXIT.                     DTSCS27
05785  S1610-EXIT.                                                      DTSCS27
05786      EXIT.                                                        DTSCS27
05787                                                                   DTSCS27
05788 /*****************************************************************DTSCS27
05789 *                                                                 DTSCS27
05790 ******************************************************************DTSCS27
05791  S1700-VERIFIED-IND.                                              DTSCS27
05792      IF MAP-VERIFIED-IND = LOW-VALUES                             DTSCS27
05793          MOVE SPACE TO MAP-VERIFIED-IND.                          DTSCS27
05794                                                                   DTSCS27
05795      IF MAP-VERIFIED-VALID-88                                     DTSCS27
05796          NEXT SENTENCE                                            DTSCS27
05797      ELSE                                                         DTSCS27
05798          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
05799          MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA                DTSCS27
05800          PERFORM S1701-ERROR THRU S1701-EXIT.                     DTSCS27
05801  S1700-EXIT.                                                      DTSCS27
05802      EXIT.                                                        DTSCS27
05803                                                                   DTSCS27
05804                                                                   DTSCS27
05805                                                                   DTSCS27
05806  S1701-ERROR.                                                     DTSCS27
05807      MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-VERIFIED-IND-A.        DTSCS27
05808                                                                   DTSCS27
05809      IF LCCM-NO-MSG                                               DTSCS27
05810          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
05811          MOVE CATB-CURSOR TO MAP-VERIFIED-IND-L                   DTSCS27
05812          SET CURSOR-SET-YES TO TRUE.                              DTSCS27
05813  S1701-EXIT.                                                      DTSCS27
05814      EXIT.                                                        DTSCS27
05815 /*****************************************************************DTSCS27
05816 *                                                                 DTSCS27
05817 ******************************************************************DTSCS27
05818  S1800-EMPLOYEE-COUNTS.                                           DTSCS27
05819      SET WRK-EMPL-CNT-ERROR-NO      TO TRUE.                      DTSCS27
05820                                                                   DTSCS27
05821      MOVE MAP-JAN-EMPL-CNT-AREA     TO L013-S-CNT-AREA.           DTSCS27
05822      PERFORM S1900-EDIT-CNT         THRU S1900-EXIT.              DTSCS27
05823      IF L013-NO-ENTRY                                             DTSCS27
05824         NEXT SENTENCE                                             DTSCS27
05825      ELSE                                                         DTSCS27
05826         IF WRK-EMPL-CNT-ERROR-YES                                 DTSCS27
05827            PERFORM S1801-ERROR      THRU S1801-EXIT               DTSCS27
05828            GO TO S1800-EXIT                                       DTSCS27
05829         ELSE                                                      DTSCS27
05830            MOVE L013-CNT            TO MAP-JAN-EMPL-CNT-N         DTSCS27
05831                                        WRK-JAN-EMPL-CNT           DTSCS27
05832            IF L013-CNT > WRK-MAX-WORKERS                          DTSCS27
05833               MOVE L013-CNT         TO WRK-MAX-WORKERS.           DTSCS27
05834                                                                   DTSCS27
05835      MOVE MAP-FEB-EMPL-CNT-AREA     TO L013-S-CNT-AREA.           DTSCS27
05836      PERFORM S1900-EDIT-CNT         THRU S1900-EXIT.              DTSCS27
05837      IF L013-NO-ENTRY                                             DTSCS27
05838         NEXT SENTENCE                                             DTSCS27
05839      ELSE                                                         DTSCS27
05840         IF WRK-EMPL-CNT-ERROR-YES                                 DTSCS27
05841            PERFORM S1802-ERROR      THRU S1802-EXIT               DTSCS27
05842            GO TO S1800-EXIT                                       DTSCS27
05843         ELSE                                                      DTSCS27
05844            MOVE L013-CNT            TO MAP-FEB-EMPL-CNT-N         DTSCS27
05845                                        WRK-FEB-EMPL-CNT           DTSCS27
05846            IF L013-CNT > WRK-MAX-WORKERS                          DTSCS27
05847               MOVE L013-CNT         TO WRK-MAX-WORKERS.           DTSCS27
05848                                                                   DTSCS27
05849      MOVE MAP-MAR-EMPL-CNT-AREA     TO L013-S-CNT-AREA.           DTSCS27
05850      PERFORM S1900-EDIT-CNT         THRU S1900-EXIT.              DTSCS27
05851      IF L013-NO-ENTRY                                             DTSCS27
05852         NEXT SENTENCE                                             DTSCS27
05853      ELSE                                                         DTSCS27
05854         IF WRK-EMPL-CNT-ERROR-YES                                 DTSCS27
05855            PERFORM S1803-ERROR      THRU S1803-EXIT               DTSCS27
05856            GO TO S1800-EXIT                                       DTSCS27
05857         ELSE                                                      DTSCS27
05858            MOVE L013-CNT            TO MAP-MAR-EMPL-CNT-N         DTSCS27
05859                                        WRK-MAR-EMPL-CNT           DTSCS27
05860            IF L013-CNT > WRK-MAX-WORKERS                          DTSCS27
05861               MOVE L013-CNT         TO WRK-MAX-WORKERS.           DTSCS27
05862                                                                   DTSCS27
05863      MOVE MAP-APR-EMPL-CNT-AREA     TO L013-S-CNT-AREA.           DTSCS27
05864      PERFORM S1900-EDIT-CNT         THRU S1900-EXIT.              DTSCS27
05865      IF L013-NO-ENTRY                                             DTSCS27
05866         NEXT SENTENCE                                             DTSCS27
05867      ELSE                                                         DTSCS27
05868         IF WRK-EMPL-CNT-ERROR-YES                                 DTSCS27
05869            PERFORM S1804-ERROR      THRU S1804-EXIT               DTSCS27
05870            GO TO S1800-EXIT                                       DTSCS27
05871         ELSE                                                      DTSCS27
05872            MOVE L013-CNT            TO MAP-APR-EMPL-CNT-N         DTSCS27
05873                                        WRK-APR-EMPL-CNT           DTSCS27
05874            IF L013-CNT > WRK-MAX-WORKERS                          DTSCS27
05875               MOVE L013-CNT         TO WRK-MAX-WORKERS.           DTSCS27
05876                                                                   DTSCS27
05877      MOVE MAP-MAY-EMPL-CNT-AREA     TO L013-S-CNT-AREA.           DTSCS27
05878      PERFORM S1900-EDIT-CNT         THRU S1900-EXIT.              DTSCS27
05879      IF L013-NO-ENTRY                                             DTSCS27
05880         NEXT SENTENCE                                             DTSCS27
05881      ELSE                                                         DTSCS27
05882         IF WRK-EMPL-CNT-ERROR-YES                                 DTSCS27
05883            PERFORM S1805-ERROR     THRU S1805-EXIT                DTSCS27
05884            GO TO S1800-EXIT                                       DTSCS27
05885         ELSE                                                      DTSCS27
05886            MOVE L013-CNT            TO MAP-MAY-EMPL-CNT-N         DTSCS27
05887                                        WRK-MAY-EMPL-CNT           DTSCS27
05888            IF L013-CNT > WRK-MAX-WORKERS                          DTSCS27
05889               MOVE L013-CNT         TO WRK-MAX-WORKERS.           DTSCS27
05890                                                                   DTSCS27
05891      MOVE MAP-JUN-EMPL-CNT-AREA     TO L013-S-CNT-AREA.           DTSCS27
05892      PERFORM S1900-EDIT-CNT         THRU S1900-EXIT.              DTSCS27
05893      IF L013-NO-ENTRY                                             DTSCS27
05894         NEXT SENTENCE                                             DTSCS27
05895      ELSE                                                         DTSCS27
05896         IF WRK-EMPL-CNT-ERROR-YES                                 DTSCS27
05897            PERFORM S1806-ERROR      THRU S1806-EXIT               DTSCS27
05898            GO TO S1800-EXIT                                       DTSCS27
05899         ELSE                                                      DTSCS27
05900            MOVE L013-CNT            TO MAP-JUN-EMPL-CNT-N         DTSCS27
05901                                        WRK-JUN-EMPL-CNT           DTSCS27
05902            IF L013-CNT > WRK-MAX-WORKERS                          DTSCS27
05903               MOVE L013-CNT         TO WRK-MAX-WORKERS.           DTSCS27
05904                                                                   DTSCS27
05905      MOVE MAP-JUL-EMPL-CNT-AREA     TO L013-S-CNT-AREA.           DTSCS27
05906      PERFORM S1900-EDIT-CNT         THRU S1900-EXIT.              DTSCS27
05907      IF L013-NO-ENTRY                                             DTSCS27
05908         NEXT SENTENCE                                             DTSCS27
05909      ELSE                                                         DTSCS27
05910         IF WRK-EMPL-CNT-ERROR-YES                                 DTSCS27
05911            PERFORM S1807-ERROR      THRU S1807-EXIT               DTSCS27
05912            GO TO S1800-EXIT                                       DTSCS27
05913         ELSE                                                      DTSCS27
05914            MOVE L013-CNT            TO MAP-JUL-EMPL-CNT-N         DTSCS27
05915                                        WRK-JUL-EMPL-CNT           DTSCS27
05916            IF L013-CNT > WRK-MAX-WORKERS                          DTSCS27
05917               MOVE L013-CNT         TO WRK-MAX-WORKERS.           DTSCS27
05918                                                                   DTSCS27
05919      MOVE MAP-AUG-EMPL-CNT-AREA     TO L013-S-CNT-AREA.           DTSCS27
05920      PERFORM S1900-EDIT-CNT         THRU S1900-EXIT.              DTSCS27
05921      IF L013-NO-ENTRY                                             DTSCS27
05922         NEXT SENTENCE                                             DTSCS27
05923      ELSE                                                         DTSCS27
05924         IF WRK-EMPL-CNT-ERROR-YES                                 DTSCS27
05925            PERFORM S1808-ERROR      THRU S1808-EXIT               DTSCS27
05926            GO TO S1800-EXIT                                       DTSCS27
05927         ELSE                                                      DTSCS27
05928            MOVE L013-CNT            TO MAP-AUG-EMPL-CNT-N         DTSCS27
05929                                        WRK-AUG-EMPL-CNT           DTSCS27
05930            IF L013-CNT > WRK-MAX-WORKERS                          DTSCS27
05931               MOVE L013-CNT         TO WRK-MAX-WORKERS.           DTSCS27
05932                                                                   DTSCS27
05933      MOVE MAP-SEP-EMPL-CNT-AREA     TO L013-S-CNT-AREA.           DTSCS27
05934      PERFORM S1900-EDIT-CNT         THRU S1900-EXIT.              DTSCS27
05935      IF L013-NO-ENTRY                                             DTSCS27
05936         NEXT SENTENCE                                             DTSCS27
05937      ELSE                                                         DTSCS27
05938         IF WRK-EMPL-CNT-ERROR-YES                                 DTSCS27
05939            PERFORM S1809-ERROR      THRU S1809-EXIT               DTSCS27
05940            GO TO S1800-EXIT                                       DTSCS27
05941         ELSE                                                      DTSCS27
05942            MOVE L013-CNT            TO MAP-SEP-EMPL-CNT-N         DTSCS27
05943                                        WRK-SEP-EMPL-CNT           DTSCS27
05944            IF L013-CNT > WRK-MAX-WORKERS                          DTSCS27
05945               MOVE L013-CNT         TO WRK-MAX-WORKERS.           DTSCS27
05946                                                                   DTSCS27
05947      MOVE MAP-OCT-EMPL-CNT-AREA     TO L013-S-CNT-AREA.           DTSCS27
05948      PERFORM S1900-EDIT-CNT         THRU S1900-EXIT.              DTSCS27
05949      IF L013-NO-ENTRY                                             DTSCS27
05950         NEXT SENTENCE                                             DTSCS27
05951      ELSE                                                         DTSCS27
05952         IF WRK-EMPL-CNT-ERROR-YES                                 DTSCS27
05953            PERFORM S1810-ERROR      THRU S1810-EXIT               DTSCS27
05954            GO TO S1800-EXIT                                       DTSCS27
05955         ELSE                                                      DTSCS27
05956            MOVE L013-CNT            TO MAP-OCT-EMPL-CNT-N         DTSCS27
05957                                        WRK-OCT-EMPL-CNT           DTSCS27
05958            IF L013-CNT > WRK-MAX-WORKERS                          DTSCS27
05959               MOVE L013-CNT         TO WRK-MAX-WORKERS.           DTSCS27
05960                                                                   DTSCS27
05961      MOVE MAP-NOV-EMPL-CNT-AREA     TO L013-S-CNT-AREA.           DTSCS27
05962      PERFORM S1900-EDIT-CNT         THRU S1900-EXIT.              DTSCS27
05963      IF L013-NO-ENTRY                                             DTSCS27
05964         NEXT SENTENCE                                             DTSCS27
05965      ELSE                                                         DTSCS27
05966         IF WRK-EMPL-CNT-ERROR-YES                                 DTSCS27
05967            PERFORM S1811-ERROR      THRU S1811-EXIT               DTSCS27
05968            GO TO S1800-EXIT                                       DTSCS27
05969         ELSE                                                      DTSCS27
05970            MOVE L013-CNT            TO MAP-NOV-EMPL-CNT-N         DTSCS27
05971                                        WRK-NOV-EMPL-CNT           DTSCS27
05972            IF L013-CNT > WRK-MAX-WORKERS                          DTSCS27
05973               MOVE L013-CNT         TO WRK-MAX-WORKERS.           DTSCS27
05974                                                                   DTSCS27
05975      MOVE MAP-DEC-EMPL-CNT-AREA     TO L013-S-CNT-AREA.           DTSCS27
05976      PERFORM S1900-EDIT-CNT         THRU S1900-EXIT.              DTSCS27
05977      IF L013-NO-ENTRY                                             DTSCS27
05978         NEXT SENTENCE                                             DTSCS27
05979      ELSE                                                         DTSCS27
05980         IF WRK-EMPL-CNT-ERROR-YES                                 DTSCS27
05981            PERFORM S1812-ERROR      THRU S1812-EXIT               DTSCS27
05982            GO TO S1800-EXIT                                       DTSCS27
05983         ELSE                                                      DTSCS27
05984            MOVE L013-CNT            TO MAP-DEC-EMPL-CNT-N         DTSCS27
05985                                        WRK-DEC-EMPL-CNT           DTSCS27
05986            IF L013-CNT > WRK-MAX-WORKERS                          DTSCS27
05987               MOVE L013-CNT         TO WRK-MAX-WORKERS.           DTSCS27
05988                                                                   DTSCS27
05989  S1800-EXIT.                                                      DTSCS27
05990      EXIT.                                                        DTSCS27
05991                                                                   DTSCS27
05992  S1801-ERROR.                                                     DTSCS27
05993      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-JAN-EMPL-CNT-A.       DTSCS27
05994                                                                   DTSCS27
05995      IF LCCM-NO-MSG                                               DTSCS27
05996          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
05997          MOVE CATB-CURSOR TO MAP-JAN-EMPL-CNT-L                   DTSCS27
05998          SET CURSOR-SET-YES TO TRUE.                              DTSCS27
05999  S1801-EXIT.                                                      DTSCS27
06000      EXIT.                                                        DTSCS27
06001                                                                   DTSCS27
06002  S1802-ERROR.                                                     DTSCS27
06003      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-FEB-EMPL-CNT-A.       DTSCS27
06004                                                                   DTSCS27
06005      IF LCCM-NO-MSG                                               DTSCS27
06006          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
06007          MOVE CATB-CURSOR TO MAP-FEB-EMPL-CNT-L                   DTSCS27
06008          SET CURSOR-SET-YES TO TRUE.                              DTSCS27
06009  S1802-EXIT.                                                      DTSCS27
06010      EXIT.                                                        DTSCS27
06011                                                                   DTSCS27
06012  S1803-ERROR.                                                     DTSCS27
06013      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-MAR-EMPL-CNT-A.       DTSCS27
06014                                                                   DTSCS27
06015      IF LCCM-NO-MSG                                               DTSCS27
06016          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
06017          MOVE CATB-CURSOR TO MAP-MAR-EMPL-CNT-L                   DTSCS27
06018          SET CURSOR-SET-YES TO TRUE.                              DTSCS27
06019  S1803-EXIT.                                                      DTSCS27
06020      EXIT.                                                        DTSCS27
06021                                                                   DTSCS27
06022  S1804-ERROR.                                                     DTSCS27
06023      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-APR-EMPL-CNT-A.       DTSCS27
06024                                                                   DTSCS27
06025      IF LCCM-NO-MSG                                               DTSCS27
06026          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
06027          MOVE CATB-CURSOR TO MAP-APR-EMPL-CNT-L                   DTSCS27
06028          SET CURSOR-SET-YES TO TRUE.                              DTSCS27
06029  S1804-EXIT.                                                      DTSCS27
06030      EXIT.                                                        DTSCS27
06031                                                                   DTSCS27
06032  S1805-ERROR.                                                     DTSCS27
06033      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-MAY-EMPL-CNT-A.       DTSCS27
06034                                                                   DTSCS27
06035      IF LCCM-NO-MSG                                               DTSCS27
06036          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
06037          MOVE CATB-CURSOR TO MAP-MAY-EMPL-CNT-L                   DTSCS27
06038          SET CURSOR-SET-YES TO TRUE.                              DTSCS27
06039  S1805-EXIT.                                                      DTSCS27
06040      EXIT.                                                        DTSCS27
06041                                                                   DTSCS27
06042  S1806-ERROR.                                                     DTSCS27
06043      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-JUN-EMPL-CNT-A.       DTSCS27
06044                                                                   DTSCS27
06045      IF LCCM-NO-MSG                                               DTSCS27
06046          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
06047          MOVE CATB-CURSOR TO MAP-JUN-EMPL-CNT-L                   DTSCS27
06048          SET CURSOR-SET-YES TO TRUE.                              DTSCS27
06049  S1806-EXIT.                                                      DTSCS27
06050      EXIT.                                                        DTSCS27
06051                                                                   DTSCS27
06052  S1807-ERROR.                                                     DTSCS27
06053      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-JUL-EMPL-CNT-A.       DTSCS27
06054                                                                   DTSCS27
06055      IF LCCM-NO-MSG                                               DTSCS27
06056          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
06057          MOVE CATB-CURSOR TO MAP-JUL-EMPL-CNT-L                   DTSCS27
06058          SET CURSOR-SET-YES TO TRUE.                              DTSCS27
06059  S1807-EXIT.                                                      DTSCS27
06060      EXIT.                                                        DTSCS27
06061                                                                   DTSCS27
06062  S1808-ERROR.                                                     DTSCS27
06063      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-AUG-EMPL-CNT-A.       DTSCS27
06064                                                                   DTSCS27
06065      IF LCCM-NO-MSG                                               DTSCS27
06066          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
06067          MOVE CATB-CURSOR TO MAP-AUG-EMPL-CNT-L                   DTSCS27
06068          SET CURSOR-SET-YES TO TRUE.                              DTSCS27
06069  S1808-EXIT.                                                      DTSCS27
06070      EXIT.                                                        DTSCS27
06071                                                                   DTSCS27
06072  S1809-ERROR.                                                     DTSCS27
06073      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-SEP-EMPL-CNT-A.       DTSCS27
06074                                                                   DTSCS27
06075      IF LCCM-NO-MSG                                               DTSCS27
06076          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
06077          MOVE CATB-CURSOR TO MAP-SEP-EMPL-CNT-L                   DTSCS27
06078          SET CURSOR-SET-YES TO TRUE.                              DTSCS27
06079  S1809-EXIT.                                                      DTSCS27
06080      EXIT.                                                        DTSCS27
06081                                                                   DTSCS27
06082  S1810-ERROR.                                                     DTSCS27
06083      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-OCT-EMPL-CNT-A.       DTSCS27
06084                                                                   DTSCS27
06085      IF LCCM-NO-MSG                                               DTSCS27
06086          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
06087          MOVE CATB-CURSOR TO MAP-OCT-EMPL-CNT-L                   DTSCS27
06088          SET CURSOR-SET-YES TO TRUE.                              DTSCS27
06089  S1810-EXIT.                                                      DTSCS27
06090      EXIT.                                                        DTSCS27
06091                                                                   DTSCS27
06092  S1811-ERROR.                                                     DTSCS27
06093      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-NOV-EMPL-CNT-A.       DTSCS27
06094                                                                   DTSCS27
06095      IF LCCM-NO-MSG                                               DTSCS27
06096          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
06097          MOVE CATB-CURSOR TO MAP-NOV-EMPL-CNT-L                   DTSCS27
06098          SET CURSOR-SET-YES TO TRUE.                              DTSCS27
06099  S1811-EXIT.                                                      DTSCS27
06100      EXIT.                                                        DTSCS27
06101                                                                   DTSCS27
06102  S1812-ERROR.                                                     DTSCS27
06103      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-DEC-EMPL-CNT-A.       DTSCS27
06104                                                                   DTSCS27
06105      IF LCCM-NO-MSG                                               DTSCS27
06106          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
06107          MOVE CATB-CURSOR TO MAP-DEC-EMPL-CNT-L                   DTSCS27
06108          SET CURSOR-SET-YES TO TRUE.                              DTSCS27
06109  S1812-EXIT.                                                      DTSCS27
06110      EXIT.                                                        DTSCS27
06111                                                                   DTSCS27
06112  S1900-EDIT-CNT.                                                  DTSCS27
06113      PERFORM S013-EMPL-CNT-FROM-SCREEN THRU S013-EXIT.            DTSCS27
06114                                                                   DTSCS27
06115      IF L013-NO-ENTRY                                             DTSCS27
06116         GO TO S1900-EXIT.                                         DTSCS27
06117                                                                   DTSCS27
06118      IF L013-INVALID-NEGATIVE                                     DTSCS27
06119          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
06120          MOVE EMSG-INVALID-NEGATIVE TO WRK-MSG-AREA               DTSCS27
06121          SET WRK-EMPL-CNT-ERROR-YES TO TRUE                       DTSCS27
06122          GO TO S1900-EXIT.                                        DTSCS27
06123                                                                   DTSCS27
06124      IF L013-EXCEEDS-MIN-MAX                                      DTSCS27
06125          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
06126          MOVE EMSG-EXCEEDS-MIN-MAX TO WRK-MSG-AREA                DTSCS27
06127          SET WRK-EMPL-CNT-ERROR-YES TO TRUE                       DTSCS27
06128          GO TO S1900-EXIT.                                        DTSCS27
06129                                                                   DTSCS27
06130      IF L013-NOT-VALID                                            DTSCS27
06131          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
06132          MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA                DTSCS27
06133          SET WRK-EMPL-CNT-ERROR-YES TO TRUE                       DTSCS27
06134          GO TO S1900-EXIT.                                        DTSCS27
06135                                                                   DTSCS27
06136  S1900-EXIT.                                                      DTSCS27
06137      EXIT.                                                        DTSCS27
06138 /*****************************************************************DTSCS27
06139 *                                                                 DTSCS27
06140 ******************************************************************DTSCS27
06141  S2000-EDIT-WAGE.                                                 DTSCS27
06142      IF MAP-EDIT-FULL-88                                          DTSCS27
06143          NEXT SENTENCE                                            DTSCS27
06144      ELSE                                                         DTSCS27
06145          PERFORM S2010-MINIMAL-EDIT THRU S2010-EXIT               DTSCS27
06146          GO TO S2000-EXIT.                                        DTSCS27
06147                                                                   DTSCS27
06148      IF MAP-RPT-ORIG-88 OR MAP-RPT-ESTIM-88 OR MAP-RPT-NO-ENTRY-88DTSCS27
06149          PERFORM S011-OR-ES-WAGE-FROM-SCREEN THRU S011-EXIT       DTSCS27
06150      ELSE                                                         DTSCS27
06151          PERFORM S011-SUPP-WAGE-FROM-SCREEN THRU S011-EXIT.       DTSCS27
06152                                                                   DTSCS27
06153  S2000-EXIT.                                                      DTSCS27
06154      EXIT.                                                        DTSCS27
06155                                                                   DTSCS27
06156  S2010-MINIMAL-EDIT.                                              DTSCS27
06157      PERFORM S011-OR-ES-WAGE-FROM-SCREEN THRU S011-EXIT.          DTSCS27
06158                                                                   DTSCS27
06159  S2010-EXIT.                                                      DTSCS27
06160      EXIT.                                                        DTSCS27
06161 /*****************************************************************DTSCS27
06162 *                                                                 DTSCS27
06163 ******************************************************************DTSCS27
06164  S2300-REMIT-AMT.                                                 DTSCS27
06165      SET WRK-REMIT-AMT-OK-88            TO TRUE.                  DTSCS27
06166                                                                   DTSCS27
06167      MOVE MAP-REMIT-AMT-AREA TO L011-S-AMT-AREA                   DTSCS27
06168                                                                   DTSCS27
06169      PERFORM S011-REMIT-AMT-FROM-SCREEN THRU S011-EXIT.           DTSCS27
06170                                                                   DTSCS27
06171      IF L011-NO-ENTRY                                             DTSCS27
06172         IF MAP-RPT-ORIG-88                                        DTSCS27
06173         OR MAP-RPT-ESTIM-88                                       DTSCS27
06174            SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                DTSCS27
06175            SET WRK-REMIT-AMT-INVALID-88       TO TRUE             DTSCS27
06176            MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                 DTSCS27
06177            MOVE 'REMIT AMT' TO WRK-MSG-TEXT                       DTSCS27
06178            PERFORM S2301-ERROR THRU S2301-EXIT                    DTSCS27
06179            GO TO S2300-EXIT                                       DTSCS27
06180         ELSE                                                      DTSCS27
06181            MOVE ZERO     TO MAP-REMIT-AMT-N                       DTSCS27
06182                             WRK-REMIT-AMT                         DTSCS27
06183            GO TO S2300-EXIT                                       DTSCS27
06184      ELSE                                                         DTSCS27
06185      IF L011-VALID                                                DTSCS27
06186          NEXT SENTENCE                                            DTSCS27
06187      ELSE                                                         DTSCS27
06188          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
06189          SET WRK-REMIT-AMT-INVALID-88       TO TRUE               DTSCS27
06190          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS27
06191          MOVE 'REMIT AMT' TO WRK-MSG-TEXT                         DTSCS27
06192          PERFORM S2301-ERROR THRU S2301-EXIT                      DTSCS27
06193          GO TO S2300-EXIT.                                        DTSCS27
06194                                                                   DTSCS27
06195      MOVE L011-AMT TO MAP-REMIT-AMT-N                             DTSCS27
06196                       WRK-REMIT-AMT.                              DTSCS27
06197  S2300-EXIT.                                                      DTSCS27
06198      EXIT.                                                        DTSCS27
06199                                                                   DTSCS27
06200                                                                   DTSCS27
06201                                                                   DTSCS27
06202  S2301-ERROR.                                                     DTSCS27
06203      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-REMIT-AMT-A.          DTSCS27
06204                                                                   DTSCS27
06205      IF LCCM-NO-MSG                                               DTSCS27
06206         MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                        DTSCS27
06207         MOVE CATB-CURSOR TO MAP-REMIT-AMT-L                       DTSCS27
06208         SET CURSOR-SET-YES TO TRUE.                               DTSCS27
06209  S2301-EXIT.                                                      DTSCS27
06210      EXIT.                                                        DTSCS27
06211 /*****************************************************************DTSCS27
06212 *                                                                 DTSCS27
06213 ******************************************************************DTSCS27
06214  S2500-RPT-TYPE.                                                  DTSCS27
06215      IF MAP-RPT-NO-ENTRY-88                                       DTSCS27
06216         SET MAP-RPT-ORIG-88 TO TRUE                               DTSCS27
06217         GO TO S2500-EXIT.                                         DTSCS27
06218                                                                   DTSCS27
06219      MOVE MAP-RPT-TYPE TO L032-CD-2.                              DTSCS27
06220                                                                   DTSCS27
06221      PERFORM S032-AATX-RPT-TYPE THRU S032-EXIT.                   DTSCS27
06222                                                                   DTSCS27
06223      IF L032-VALID                                                DTSCS27
06224          IF MAP-EDIT-FULL-88                                      DTSCS27
06225              GO TO S2500-EXIT                                     DTSCS27
06226          ELSE                                                     DTSCS27
06227              IF MAP-RPT-ORIG-88                                   DTSCS27
06228                  GO TO S2500-EXIT                                 DTSCS27
06229              ELSE                                                 DTSCS27
06230                  SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE          DTSCS27
06231                  MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER           DTSCS27
06232                  MOVE 'REPORT TYPE' TO WRK-MSG-TEXT               DTSCS27
06233                  PERFORM S2501-ERROR THRU S2501-EXIT              DTSCS27
06234                  GO TO S2500-EXIT.                                DTSCS27
06235                                                                   DTSCS27
06236      SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE.                     DTSCS27
06237                                                                   DTSCS27
06238      MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER.                      DTSCS27
06239                                                                   DTSCS27
06240      MOVE 'REPORT TYPE' TO WRK-MSG-TEXT.                          DTSCS27
06241                                                                   DTSCS27
06242      PERFORM S2501-ERROR THRU S2501-EXIT.                         DTSCS27
06243  S2500-EXIT.                                                      DTSCS27
06244      EXIT.                                                        DTSCS27
06245                                                                   DTSCS27
06246                                                                   DTSCS27
06247                                                                   DTSCS27
06248  S2501-ERROR.                                                     DTSCS27
06249      MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-RPT-TYPE-A.            DTSCS27
06250                                                                   DTSCS27
06251      IF LCCM-NO-MSG                                               DTSCS27
06252          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
06253          MOVE CATB-CURSOR TO MAP-RPT-TYPE-L                       DTSCS27
06254          SET CURSOR-SET-YES TO TRUE.                              DTSCS27
06255  S2501-EXIT.                                                      DTSCS27
06256      EXIT.                                                        DTSCS27
06257 /*****************************************************************DTSCS27
06258 *                                                                 DTSCS27
06259 ******************************************************************DTSCS27
06260  S2600-WAIVE-BOTH-IND.                                            DTSCS27
06261      IF MAP-WAIVE-BOTH-IND = LOW-VALUES OR SPACES                 DTSCS27
06262          IF WRK-REMIT-AMT-INVALID-88                              DTSCS27
06263              GO TO S2600-EXIT                                     DTSCS27
06264          ELSE                                                     DTSCS27
06265              SET MAP-WAIVE-BOTH-NO-88 TO TRUE                     DTSCS27
06266              GO TO S2600-EXIT.                                    DTSCS27
06267                                                                   DTSCS27
06268      IF MAP-EDIT-FULL-88                                          DTSCS27
06269          NEXT SENTENCE                                            DTSCS27
06270      ELSE                                                         DTSCS27
06271          IF MAP-WAIVE-BOTH-NO-88                                  DTSCS27
06272              GO TO S2600-EXIT                                     DTSCS27
06273          ELSE                                                     DTSCS27
06274              SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE              DTSCS27
06275              MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS27
06276              MOVE 'WAIVE' TO WRK-MSG-TEXT                         DTSCS27
06277              PERFORM S2601-ERROR THRU S2601-EXIT                  DTSCS27
06278              GO TO S2600-EXIT.                                    DTSCS27
06279                                                                   DTSCS27
06280      IF MAP-WAIVE-BOTH-YES-88                                     DTSCS27
06281 *********IF WRK-REMIT-AMT = +0                                    DTSCS27
06282 *************SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE              DTSCS27
06283 *************MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS27
06284 *************MOVE 'REMIT/CHECK/ADJ AMT}{WAIVE' TO WRK-MSG-TEXT    DTSCS27
06285 *************PERFORM S2301-ERROR THRU S2301-EXIT                  DTSCS27
06286 *************PERFORM S2601-ERROR THRU S2601-EXIT                  DTSCS27
06287 *********ELSE                                                     DTSCS27
06288              NEXT SENTENCE                                        DTSCS27
06289      ELSE                                                         DTSCS27
06290      IF MAP-WAIVE-BOTH-NO-88                                      DTSCS27
06291          NEXT SENTENCE                                            DTSCS27
06292      ELSE                                                         DTSCS27
06293          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
06294          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS27
06295          MOVE 'WAIVE' TO WRK-MSG-TEXT                             DTSCS27
06296          PERFORM S2601-ERROR THRU S2601-EXIT.                     DTSCS27
06297  S2600-EXIT.                                                      DTSCS27
06298      EXIT.                                                        DTSCS27
06299                                                                   DTSCS27
06300                                                                   DTSCS27
06301                                                                   DTSCS27
06302  S2601-ERROR.                                                     DTSCS27
06303      MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-WAIVE-BOTH-IND-A.      DTSCS27
06304                                                                   DTSCS27
06305      IF LCCM-NO-MSG                                               DTSCS27
06306         MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                        DTSCS27
06307         MOVE CATB-CURSOR TO MAP-WAIVE-BOTH-IND-L                  DTSCS27
06308         SET CURSOR-SET-YES TO TRUE.                               DTSCS27
06309  S2601-EXIT.                                                      DTSCS27
06310      EXIT.                                                        DTSCS27
06311 /*****************************************************************DTSCS27
06312 *                                                                 DTSCS27
06313 ******************************************************************DTSCS27
06314  S2700-WAIVE-LATE-PEN-IND.                                        DTSCS27
06315      IF MAP-WAIVE-LATE-PEN-IND = LOW-VALUES OR SPACES             DTSCS27
06316          IF WRK-REMIT-AMT-INVALID-88                              DTSCS27
06317              GO TO S2700-EXIT                                     DTSCS27
06318          ELSE                                                     DTSCS27
06319              SET MAP-WAIVE-LATE-PEN-NO-88 TO TRUE                 DTSCS27
06320              GO TO S2700-EXIT.                                    DTSCS27
06321                                                                   DTSCS27
06322      IF MAP-EDIT-FULL-88                                          DTSCS27
06323          NEXT SENTENCE                                            DTSCS27
06324      ELSE                                                         DTSCS27
06325          IF MAP-WAIVE-LATE-PEN-NO-88                              DTSCS27
06326              GO TO S2700-EXIT                                     DTSCS27
06327          ELSE                                                     DTSCS27
06328              SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE              DTSCS27
06329              MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS27
06330              MOVE 'WAIVE' TO WRK-MSG-TEXT                         DTSCS27
06331              PERFORM S2701-ERROR THRU S2701-EXIT                  DTSCS27
06332              GO TO S2700-EXIT.                                    DTSCS27
06333                                                                   DTSCS27
06334      IF MAP-WAIVE-LATE-PEN-YES-88                                 DTSCS27
06335 *********IF WRK-REMIT-AMT = +0                                    DTSCS27
06336 *************SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE              DTSCS27
06337 *************MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS27
06338 *************MOVE 'REMIT WAIVE' TO WRK-MSG-TEXT                   DTSCS27
06339 *************PERFORM S2301-ERROR THRU S2301-EXIT                  DTSCS27
06340 *************PERFORM S2701-ERROR THRU S2701-EXIT                  DTSCS27
06341 *********ELSE                                                     DTSCS27
06342              IF MAP-WAIVE-BOTH-YES-88                             DTSCS27
06343                  SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE          DTSCS27
06344                  MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER           DTSCS27
06345                  MOVE 'WAIVE' TO WRK-MSG-TEXT                     DTSCS27
06346                  PERFORM S2601-ERROR THRU S2601-EXIT              DTSCS27
06347                  PERFORM S2701-ERROR THRU S2701-EXIT              DTSCS27
06348              ELSE                                                 DTSCS27
06349                  NEXT SENTENCE                                    DTSCS27
06350      ELSE                                                         DTSCS27
06351      IF MAP-WAIVE-LATE-PEN-NO-88                                  DTSCS27
06352          NEXT SENTENCE                                            DTSCS27
06353      ELSE                                                         DTSCS27
06354          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
06355          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS27
06356          MOVE 'WAIVE' TO WRK-MSG-TEXT                             DTSCS27
06357          PERFORM S2701-ERROR THRU S2701-EXIT.                     DTSCS27
06358  S2700-EXIT.                                                      DTSCS27
06359      EXIT.                                                        DTSCS27
06360                                                                   DTSCS27
06361                                                                   DTSCS27
06362                                                                   DTSCS27
06363  S2701-ERROR.                                                     DTSCS27
06364      MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-WAIVE-LATE-PEN-IND-A.  DTSCS27
06365                                                                   DTSCS27
06366      IF LCCM-NO-MSG                                               DTSCS27
06367         MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                        DTSCS27
06368         MOVE CATB-CURSOR TO MAP-WAIVE-LATE-PEN-IND-L              DTSCS27
06369         SET CURSOR-SET-YES TO TRUE.                               DTSCS27
06370  S2701-EXIT.                                                      DTSCS27
06371      EXIT.                                                        DTSCS27
06372 /*****************************************************************DTSCS27
06373 *                                                                 DTSCS27
06374 ******************************************************************DTSCS27
06375  S2800-WAIVE-INT-IND.                                             DTSCS27
06376      IF MAP-WAIVE-INT-IND = LOW-VALUES OR SPACES                  DTSCS27
06377          IF WRK-REMIT-AMT-INVALID-88                              DTSCS27
06378              GO TO S2800-EXIT                                     DTSCS27
06379          ELSE                                                     DTSCS27
06380              SET MAP-WAIVE-INT-NO-88 TO TRUE                      DTSCS27
06381              GO TO S2800-EXIT.                                    DTSCS27
06382                                                                   DTSCS27
06383      IF MAP-EDIT-FULL-88                                          DTSCS27
06384          NEXT SENTENCE                                            DTSCS27
06385      ELSE                                                         DTSCS27
06386          IF MAP-WAIVE-INT-NO-88                                   DTSCS27
06387              GO TO S2800-EXIT                                     DTSCS27
06388          ELSE                                                     DTSCS27
06389              SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE              DTSCS27
06390              MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS27
06391              MOVE 'WAIVE' TO WRK-MSG-TEXT                         DTSCS27
06392              PERFORM S2801-ERROR THRU S2801-EXIT                  DTSCS27
06393              GO TO S2800-EXIT.                                    DTSCS27
06394                                                                   DTSCS27
06395      IF MAP-WAIVE-INT-YES-88                                      DTSCS27
06396          IF WRK-REMIT-AMT = +0                                    DTSCS27
06397              SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE              DTSCS27
06398              MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS27
06399              MOVE 'REMIT AMT}{WAIVE' TO WRK-MSG-TEXT              DTSCS27
06400              PERFORM S2301-ERROR THRU S2301-EXIT                  DTSCS27
06401              PERFORM S2801-ERROR THRU S2801-EXIT                  DTSCS27
06402          ELSE                                                     DTSCS27
06403              IF MAP-WAIVE-BOTH-YES-88                             DTSCS27
06404                  SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE          DTSCS27
06405                  MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER           DTSCS27
06406                  MOVE 'WAIVE' TO WRK-MSG-TEXT                     DTSCS27
06407                  PERFORM S2601-ERROR THRU S2601-EXIT              DTSCS27
06408                  PERFORM S2801-ERROR THRU S2801-EXIT              DTSCS27
06409              ELSE                                                 DTSCS27
06410                  NEXT SENTENCE                                    DTSCS27
06411      ELSE                                                         DTSCS27
06412      IF MAP-WAIVE-INT-NO-88                                       DTSCS27
06413          NEXT SENTENCE                                            DTSCS27
06414      ELSE                                                         DTSCS27
06415          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
06416          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS27
06417          MOVE 'WAIVE' TO WRK-MSG-TEXT                             DTSCS27
06418          PERFORM S2801-ERROR THRU S2801-EXIT.                     DTSCS27
06419  S2800-EXIT.                                                      DTSCS27
06420      EXIT.                                                        DTSCS27
06421                                                                   DTSCS27
06422                                                                   DTSCS27
06423                                                                   DTSCS27
06424  S2801-ERROR.                                                     DTSCS27
06425      MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-WAIVE-INT-IND-A.       DTSCS27
06426                                                                   DTSCS27
06427      IF LCCM-NO-MSG                                               DTSCS27
06428         MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                        DTSCS27
06429         MOVE CATB-CURSOR TO MAP-WAIVE-INT-IND-L                   DTSCS27
06430         SET CURSOR-SET-YES TO TRUE.                               DTSCS27
06431  S2801-EXIT. EXIT.                                                DTSCS27
06432      EXIT.                                                        DTSCS27
06433                                                                   DTSCS27
06434  S2900-TAX-WG-BASE-ADJ.                                           DTSCS27
06435      IF MAP-TAX-WG-BASE = LOW-VALUES OR SPACES                    DTSCS27
06436 **      SET MAP-TAX-WG-BASE-NULL-88  TO TRUE                      DTSCS27
06437         GO TO S2900-EXIT                                          DTSCS27
06438      END-IF.                                                      DTSCS27
06439                                                                   DTSCS27
06440      IF LCCM-OP-ARPT-EDIT-FULL-88                                 DTSCS27
06441         NEXT SENTENCE                                             DTSCS27
06442      ELSE                                                         DTSCS27
06443         MOVE LOW-VALUES              TO MAP-TAX-WG-BASE           DTSCS27
06444 **      SET MAP-TAX-WG-BASE-NULL-88  TO TRUE                      DTSCS27
06445         GO TO S2900-EXIT                                          DTSCS27
06446      END-IF.                                                      DTSCS27
06447                                                                   DTSCS27
06448      MOVE MAP-TAX-WG-BASE-AREA           TO L011-S-AMT-AREA.      DTSCS27
06449                                                                   DTSCS27
06450      PERFORM S011-OR-ES-WAGE-FROM-SCREEN THRU S011-EXIT           DTSCS27
06451                                                                   DTSCS27
06452      IF L011-VALID                                                DTSCS27
06453          NEXT SENTENCE                                            DTSCS27
06454      ELSE                                                         DTSCS27
06455          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
06456          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS27
06457          MOVE 'TAX WAGE ADJ' TO WRK-MSG-TEXT                      DTSCS27
06458          PERFORM S2901-ERROR THRU S2901-EXIT                      DTSCS27
06459          GO TO S2900-EXIT.                                        DTSCS27
06460                                                                   DTSCS27
06461       MOVE L011-AMT TO MAP-TAX-WG-BASE-N.                         DTSCS27
06462                                                                   DTSCS27
06463  S2900-EXIT. EXIT.                                                DTSCS27
06464      EXIT.                                                        DTSCS27
06465                                                                   DTSCS27
06466  S2901-ERROR.                                                     DTSCS27
06467      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-TAX-WG-BASE-A.        DTSCS27
06468                                                                   DTSCS27
06469      IF LCCM-NO-MSG                                               DTSCS27
06470         MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                        DTSCS27
06471         MOVE CATB-CURSOR TO MAP-TAX-WG-BASE-L                     DTSCS27
06472         SET CURSOR-SET-YES TO TRUE.                               DTSCS27
06473  S2901-EXIT. EXIT.                                                DTSCS27
06474      EXIT.                                                        DTSCS27
06475                                                                   DTSCS27
06476 /*****************************************************************DTSCS27
06477 *                                                                 DTSCS27
06478 ******************************************************************DTSCS27
06479  S3100-RESPONSIBLE-ACTIVITY.                                      DTSCS27
06480      IF MAP-RESPONSIBLE-ACTIVITY = SPACES OR LOW-VALUES           DTSCS27
06481          SET MAP-RESP-ACTIVITY-VOL-88 TO TRUE.                    DTSCS27
06482                                                                   DTSCS27
06483      IF MAP-RESP-ACTIVITY-VOL-88                                  DTSCS27
06484          GO TO S3100-EXIT.                                        DTSCS27
06485                                                                   DTSCS27
06486      IF MAP-EDIT-FULL-88                                          DTSCS27
06487          MOVE MAP-RESPONSIBLE-ACTIVITY TO L032-CD-3               DTSCS27
06488          PERFORM S032-AATX-RESPONSIBLE-ACTIVITY THRU S032-EXIT    DTSCS27
06489          IF L032-VALID                                            DTSCS27
06490              GO TO S3100-EXIT                                     DTSCS27
06491          ELSE                                                     DTSCS27
06492              SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE              DTSCS27
06493              MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS27
06494              MOVE 'RESPONSIBLE ACTIVITY' TO WRK-MSG-TEXT          DTSCS27
06495              PERFORM S3101-ERROR THRU S3101-EXIT                  DTSCS27
06496              GO TO S3100-EXIT                                     DTSCS27
06497      ELSE                                                         DTSCS27
06498          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
06499          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS27
06500          MOVE 'RESPONSIBLE ACTIVITY' TO WRK-MSG-TEXT              DTSCS27
06501          PERFORM S3101-ERROR THRU S3101-EXIT                      DTSCS27
06502          GO TO S3100-EXIT.                                        DTSCS27
06503  S3100-EXIT.                                                      DTSCS27
06504      EXIT.                                                        DTSCS27
06505                                                                   DTSCS27
06506                                                                   DTSCS27
06507                                                                   DTSCS27
06508  S3101-ERROR.                                                     DTSCS27
06509      MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-RESPONSIBLE-ACTIVITY-A.DTSCS27
06510                                                                   DTSCS27
06511      IF LCCM-NO-MSG                                               DTSCS27
06512          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
06513          MOVE CATB-CURSOR TO MAP-RESPONSIBLE-ACTIVITY-L           DTSCS27
06514          SET CURSOR-SET-YES TO TRUE.                              DTSCS27
06515  S3101-EXIT.                                                      DTSCS27
06516      EXIT.                                                        DTSCS27
06517 /*****************************************************************DTSCS27
06518 *                                                                 DTSCS27
06519 ******************************************************************DTSCS27
06520  S3200-RESPONSIBLE-OP-ID.                                         DTSCS27
06521      IF MAP-RESPONSIBLE-OP-ID = SPACES OR LOW-VALUES              DTSCS27
06522          MOVE SPACES TO MAP-RESPONSIBLE-OP-ID                     DTSCS27
06523          GO TO S3200-EXIT.                                        DTSCS27
06524                                                                   DTSCS27
06525      IF MAP-RESP-ACTIVITY-VOL-88                                  DTSCS27
06526          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
06527          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS27
06528          MOVE 'RESPONSIBLE ACT/OPID' TO WRK-MSG-TEXT              DTSCS27
06529          PERFORM S3101-ERROR THRU S3101-EXIT                      DTSCS27
06530          PERFORM S3201-ERROR THRU S3201-EXIT                      DTSCS27
06531          GO TO S3200-EXIT.                                        DTSCS27
06532                                                                   DTSCS27
06533      IF MAP-EDIT-FULL-88                                          DTSCS27
06534          NEXT SENTENCE                                            DTSCS27
06535      ELSE                                                         DTSCS27
06536          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
06537          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS27
06538          MOVE 'RESPONSIBLE OPID' TO WRK-MSG-TEXT                  DTSCS27
06539          PERFORM S3201-ERROR THRU S3201-EXIT                      DTSCS27
06540          GO TO S3200-EXIT.                                        DTSCS27
06541                                                                   DTSCS27
06542      MOVE MAP-RESPONSIBLE-OP-ID TO L082-OP-ID.                    DTSCS27
06543                                                                   DTSCS27
06544      PERFORM S082-OP-ID-LOOKUP THRU S082-EXIT.                    DTSCS27
06545                                                                   DTSCS27
06546      IF L082-NOT-VALID-OP                                         DTSCS27
06547           OR L082-INTERNAL-88                                     DTSCS27
06548          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
06549          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS27
06550          MOVE 'RESPONSIBLE OPID' TO WRK-MSG-TEXT                  DTSCS27
06551          PERFORM S3201-ERROR THRU S3201-EXIT.                     DTSCS27
06552  S3200-EXIT.                                                      DTSCS27
06553      EXIT.                                                        DTSCS27
06554                                                                   DTSCS27
06555                                                                   DTSCS27
06556                                                                   DTSCS27
06557  S3201-ERROR.                                                     DTSCS27
06558      MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-RESPONSIBLE-OP-ID-A.   DTSCS27
06559                                                                   DTSCS27
06560      IF LCCM-NO-MSG                                               DTSCS27
06561          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
06562          MOVE CATB-CURSOR TO MAP-RESPONSIBLE-OP-ID-L              DTSCS27
06563          SET CURSOR-SET-YES TO TRUE.                              DTSCS27
06564  S3201-EXIT.                                                      DTSCS27
06565      EXIT.                                                        DTSCS27
06566 /*****************************************************************DTSCS27
06567 *                                                                 DTSCS27
06568 ******************************************************************DTSCS27
06569  S3300-RECEIVED-DATE.                                             DTSCS27
06570      MOVE MAP-RECEIVED-DATE-AREA TO L015-S-DATE-AREA.             DTSCS27
06571                                                                   DTSCS27
06572      PERFORM S015-DATE-FROM-SCREEN THRU S015-EXIT.                DTSCS27
06573                                                                   DTSCS27
06574 ***  ENTRY OF RECEIVED DATE ALLOWED UNDER MINIMAL EDITS.          DTSCS27
06575 ***  5/2/2000 - GD                                                DTSCS27
06576 ***                                                               DTSCS27
06577 *    IF MAP-EDIT-FULL-88                                          DTSCS27
06578 *        NEXT SENTENCE                                            DTSCS27
06579 *    ELSE                                                         DTSCS27
06580 *        IF L015-NO-ENTRY                                         DTSCS27
06581 *            GO TO S3300-EXIT                                     DTSCS27
06582 *        ELSE                                                     DTSCS27
06583 *            SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE              DTSCS27
06584 *            MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS27
06585 *            MOVE 'RECEIVED DATE' TO WRK-MSG-TEXT                 DTSCS27
06586 *            PERFORM S3301-ERROR THRU S3301-EXIT                  DTSCS27
06587 *            GO TO S3300-EXIT.                                    DTSCS27
06588                                                                   DTSCS27
06589      IF L015-NO-ENTRY                                             DTSCS27
06590         GO TO S3300-EXIT                                          DTSCS27
06591      ELSE                                                         DTSCS27
06592      IF L015-NOT-VALID                                            DTSCS27
06593          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
06594          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS27
06595          MOVE 'RECEIVED DATE' TO WRK-MSG-TEXT                     DTSCS27
06596          PERFORM S3301-ERROR THRU S3301-EXIT                      DTSCS27
06597          GO TO S3300-EXIT                                         DTSCS27
06598      ELSE                                                         DTSCS27
06599          MOVE L015-DATE TO WRK-RECEIVED-DATE.                     DTSCS27
06600  S3300-EXIT.                                                      DTSCS27
06601      EXIT.                                                        DTSCS27
06602                                                                   DTSCS27
06603                                                                   DTSCS27
06604                                                                   DTSCS27
06605  S3301-ERROR.                                                     DTSCS27
06606      MOVE CATB-UNPROT-NORM-NUM-MDTON                              DTSCS27
06607        TO MAP-RECEIVED-DATE-MO-A                                  DTSCS27
06608           MAP-RECEIVED-DATE-DA-A                                  DTSCS27
06609           MAP-RECEIVED-DATE-YR-A.                                 DTSCS27
06610                                                                   DTSCS27
06611      IF LCCM-NO-MSG                                               DTSCS27
06612          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
06613          MOVE CATB-CURSOR TO MAP-RECEIVED-DATE-MO-L               DTSCS27
06614          SET CURSOR-SET-YES TO TRUE.                              DTSCS27
06615  S3301-EXIT.                                                      DTSCS27
06616      EXIT.                                                        DTSCS27
06617 /*****************************************************************DTSCS27
06618 *                                                                 DTSCS27
06619 ******************************************************************DTSCS27
06620  S3600-EDIT-MODE.                                                 DTSCS27
06621      IF MAP-EDIT-MODE = LOW-VALUES OR SPACES                      DTSCS27
06622          SET MAP-EDIT-DEFAULT-88 TO TRUE.                         DTSCS27
06623                                                                   DTSCS27
06624      IF MAP-EDIT-VALID-88                                         DTSCS27
06625          MOVE MAP-EDIT-MODE TO LCCM-OP-ARPT-EDIT-MODE             DTSCS27
06626      ELSE                                                         DTSCS27
06627          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
06628          MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA                DTSCS27
06629          PERFORM S3601-ERROR THRU S3601-EXIT.                     DTSCS27
06630  S3600-EXIT.                                                      DTSCS27
06631      EXIT.                                                        DTSCS27
06632                                                                   DTSCS27
06633                                                                   DTSCS27
06634                                                                   DTSCS27
06635  S3601-ERROR.                                                     DTSCS27
06636      MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-EDIT-MODE-A.           DTSCS27
06637                                                                   DTSCS27
06638      IF LCCM-NO-MSG                                               DTSCS27
06639          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
06640          MOVE CATB-CURSOR TO MAP-EDIT-MODE-L                      DTSCS27
06641          SET CURSOR-SET-YES TO TRUE.                              DTSCS27
06642  S3601-EXIT.                                                      DTSCS27
06643      EXIT.                                                        DTSCS27
06644 /*****************************************************************DTSCS27
06645 *                                                                 DTSCS27
06646 ******************************************************************DTSCS27
06647  S3700-ENTRY-MODE.                                                DTSCS27
06648      IF MAP-ENTRY-MODE = LOW-VALUES OR SPACES                     DTSCS27
06649          SET MAP-ENTRY-MODE-DEFAULT-88 TO TRUE                    DTSCS27
06650          MOVE MAP-ENTRY-MODE TO LCCM-ENTRY-MODE                   DTSCS27
06651      ELSE                                                         DTSCS27
06652      IF MAP-ENTRY-MODE-VALID                                      DTSCS27
06653          MOVE MAP-ENTRY-MODE TO LCCM-ENTRY-MODE                   DTSCS27
06654      ELSE                                                         DTSCS27
06655          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
06656          MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA                DTSCS27
06657          PERFORM S3701-ERROR THRU S3701-EXIT.                     DTSCS27
06658  S3700-EXIT.                                                      DTSCS27
06659      EXIT.                                                        DTSCS27
06660                                                                   DTSCS27
06661                                                                   DTSCS27
06662                                                                   DTSCS27
06663  S3701-ERROR.                                                     DTSCS27
06664      MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-ENTRY-MODE-A.         DTSCS27
06665                                                                   DTSCS27
06666      IF LCCM-NO-MSG                                               DTSCS27
06667          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
06668          MOVE CATB-CURSOR TO MAP-ENTRY-MODE-L                     DTSCS27
06669          SET CURSOR-SET-YES TO TRUE.                              DTSCS27
06670  S3701-EXIT.                                                      DTSCS27
06671      EXIT.                                                        DTSCS27
06672 /*****************************************************************DTSCS27
06673 *                                                                 DTSCS27
06674 ******************************************************************DTSCS27
06675  S3800-DISREGARD-EDITS-IND.                                       DTSCS27
06676      IF MAP-DISREGARD-EDITS-IND = LOW-VALUES OR SPACES            DTSCS27
06677          SET MAP-DISREGARD-EDITS-NO-88 TO TRUE                    DTSCS27
06678      ELSE                                                         DTSCS27
06679      IF MAP-DISREGARD-EDITS-VALID-88                              DTSCS27
06680          NEXT SENTENCE                                            DTSCS27
06681      ELSE                                                         DTSCS27
06682          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
06683          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS27
06684          MOVE 'DISREGARD EDITS' TO WRK-MSG-TEXT                   DTSCS27
06685          PERFORM S3801-ERROR THRU S3801-EXIT.                     DTSCS27
06686                                                                   DTSCS27
06687 *&   IF MAP-EDIT-FULL-88                                          DTSCS27
06688 *        NEXT SENTENCE                                            DTSCS27
06689 *    ELSE                                                         DTSCS27
06690 *        IF MAP-DISREGARD-EDITS-NO-88                             DTSCS27
06691 *            NEXT SENTENCE                                        DTSCS27
06692 *        ELSE                                                     DTSCS27
06693 *            IF MAP-TAX-WAGE-A = CATB-UNPROT-NORM-NUM-MDTON       DTSCS27
06694 *                NEXT SENTENCE                                    DTSCS27
06695 *            ELSE                                                 DTSCS27
06696 *                SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE          DTSCS27
06697 *                MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER           DTSCS27
06698 *                MOVE 'DISREGARD EDITS' TO WRK-MSG-TEXT           DTSCS27
06699 *&               PERFORM S3801-ERROR THRU S3801-EXIT.             DTSCS27
06700  S3800-EXIT.                                                      DTSCS27
06701      EXIT.                                                        DTSCS27
06702                                                                   DTSCS27
06703                                                                   DTSCS27
06704                                                                   DTSCS27
06705  S3801-ERROR.                                                     DTSCS27
06706      MOVE CATB-UNPROT-NORM-AN-MDTON                               DTSCS27
06707        TO MAP-DISREGARD-EDITS-IND-A.                              DTSCS27
06708                                                                   DTSCS27
06709      IF LCCM-NO-MSG                                               DTSCS27
06710          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
06711          MOVE CATB-CURSOR TO MAP-DISREGARD-EDITS-IND-L            DTSCS27
06712          SET CURSOR-SET-YES TO TRUE.                              DTSCS27
06713  S3801-EXIT.                                                      DTSCS27
06714      EXIT.                                                        DTSCS27
06715                                                                   DTSCS27
06716  S3900-STATUS-CHANGE-IND.                                         DTSCS27
06717      IF MAP-STATUS-CHANGE-IND = SPACES OR LOW-VALUES              DTSCS27
06718         MOVE 'N' TO MAP-STATUS-CHANGE-IND                         DTSCS27
06719          GO TO S3900-EXIT                                         DTSCS27
06720      END-IF.                                                      DTSCS27
06721                                                                   DTSCS27
06722      IF MAP-STATUS-CHANGE-VALID-88                                DTSCS27
06723          NEXT SENTENCE                                            DTSCS27
06724      ELSE                                                         DTSCS27
06725          MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER                   DTSCS27
06726          MOVE 'STATUS CHANGE' TO WRK-MSG-TEXT                     DTSCS27
06727          PERFORM S3901-ERROR THRU S3901-EXIT                      DTSCS27
06728          GO TO S3900-EXIT                                         DTSCS27
06729      END-IF.                                                      DTSCS27
06730                                                                   DTSCS27
06731  S3900-EXIT.                                                      DTSCS27
06732      EXIT.                                                        DTSCS27
06733                                                                   DTSCS27
06734  S3901-ERROR.                                                     DTSCS27
06735      MOVE CATB-UNPROT-NORM-AN-MDTON                               DTSCS27
06736         TO MAP-STATUS-CHANGE-IND-A.                               DTSCS27
06737                                                                   DTSCS27
06738      IF LCCM-NO-MSG                                               DTSCS27
06739          MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                       DTSCS27
06740          MOVE CATB-CURSOR TO MAP-STATUS-CHANGE-IND-L              DTSCS27
06741          SET CURSOR-SET-YES TO TRUE                               DTSCS27
06742      END-IF.                                                      DTSCS27
06743                                                                   DTSCS27
06744  S3901-EXIT.                                                      DTSCS27
06745      EXIT.                                                        DTSCS27
06746                                                                   DTSCS27
06747 /*****************************************************************DTSCS27
06748 *                                                                *DTSCS27
06749 ******************************************************************DTSCS27
06750  S4000-CROSS-EDITS.                                               DTSCS27
06751      PERFORM S4010-MPRF-EDITS THRU S4010-EXIT.                    DTSCS27
06752                                                                   DTSCS27
06753                                                                   DTSCS27
06754      PERFORM S4020-LIABILITY-EDITS THRU S4020-EXIT.               DTSCS27
06755                                                                   DTSCS27
06756                                                                   DTSCS27
06757      PERFORM S4030-FILING-SCHED-EDITS  THRU S4030-EXIT.           DTSCS27
06758                                                                   DTSCS27
06759      PERFORM S4100-EMPL-CNT-EDITS THRU S4100-EXIT.                DTSCS27
06760                                                                   DTSCS27
06761      IF LCCM-MSG                                                  DTSCS27
06762          GO TO S4000-EXIT.                                        DTSCS27
06763                                                                   DTSCS27
06764                                                                   DTSCS27
06765      PERFORM S4900-OVERRIDE THRU S4900-EXIT.                      DTSCS27
06766  S4000-EXIT.                                                      DTSCS27
06767      EXIT.                                                        DTSCS27
06768      EJECT                                                        DTSCS27
06769  S4010-MPRF-EDITS.                                                DTSCS27
06770      IF WRK-MPRF-EXISTS-NO-88                                     DTSCS27
06771          GO TO S4010-EXIT.                                        DTSCS27
06772                                                                   DTSCS27
06773      IF MPRF-CLASS-SUB-88                                         DTSCS27
06774          NEXT SENTENCE                                            DTSCS27
06775      ELSE                                                         DTSCS27
06776          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
06777          IF MAP-EDIT-FULL-88                                      DTSCS27
06778              MOVE MSG-E272-AREA TO WRK-MSG-AREA                   DTSCS27
06779              PERFORM S1301-ERROR THRU S1301-EXIT                  DTSCS27
06780              GO TO S4010-EXIT                                     DTSCS27
06781          ELSE                                                     DTSCS27
06782              GO TO S4010-EXIT.                                    DTSCS27
06783                                                                   DTSCS27
06784      IF MPRF-NOT-WRITTEN-OFF-88                                   DTSCS27
06785          NEXT SENTENCE                                            DTSCS27
06786      ELSE                                                         DTSCS27
06787          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
06788          IF MAP-EDIT-FULL-88                                      DTSCS27
06789              MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS27
06790              MOVE 'WRITTEN OFF' TO WRK-MSG-TEXT                   DTSCS27
06791              PERFORM S1301-ERROR THRU S1301-EXIT                  DTSCS27
06792              GO TO S4010-EXIT                                     DTSCS27
06793          ELSE                                                     DTSCS27
06794              GO TO S4010-EXIT.                                    DTSCS27
06795  S4010-EXIT.                                                      DTSCS27
06796      EXIT.                                                        DTSCS27
06797      EJECT                                                        DTSCS27
06798  S4020-LIABILITY-EDITS.                                           DTSCS27
06799                                                                   DTSCS27
06800      IF WRK-MPRF-EXISTS-NO-88                                     DTSCS27
06801          GO TO S4020-EXIT.                                        DTSCS27
06802                                                                   DTSCS27
06803      IF WRK-PASSED-FULL-EDITS-NO-88                               DTSCS27
06804          GO TO S4020-EXIT.                                        DTSCS27
06805                                                                   DTSCS27
06806      IF WRK-QTR1-LIABLE-NO-88                                     DTSCS27
06807      AND WRK-QTR2-LIABLE-NO-88                                    DTSCS27
06808      AND WRK-QTR3-LIABLE-NO-88                                    DTSCS27
06809      AND WRK-QTR4-LIABLE-NO-88                                    DTSCS27
06810          IF MAP-RPT-WITHDRW-88                                    DTSCS27
06811              NEXT SENTENCE                                        DTSCS27
06812          ELSE                                                     DTSCS27
06813              SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE              DTSCS27
06814              IF MAP-EDIT-FULL-88                                  DTSCS27
06815                  MOVE MSG-E274-AREA TO WRK-MSG-AREA               DTSCS27
06816                  PERFORM S1401-ERROR THRU S1401-EXIT              DTSCS27
06817                  GO TO S4020-EXIT                                 DTSCS27
06818              ELSE                                                 DTSCS27
06819                  GO TO S4020-EXIT.                                DTSCS27
06820                                                                   DTSCS27
06821      IF MAP-RPT-WITHDRW-88                                        DTSCS27
06822          NEXT SENTENCE                                            DTSCS27
06823      ELSE                                                         DTSCS27
06824          IF WRK-RATE-FOUND-NO-88                                  DTSCS27
06825              SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE              DTSCS27
06826              IF MAP-EDIT-FULL-88                                  DTSCS27
06827                  MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER           DTSCS27
06828                  MOVE 'UI RATE' TO WRK-MSG-TEXT                   DTSCS27
06829                  PERFORM S1401-ERROR THRU S1401-EXIT              DTSCS27
06830                  GO TO S4020-EXIT                                 DTSCS27
06831              ELSE                                                 DTSCS27
06832                  GO TO S4020-EXIT.                                DTSCS27
06833  S4020-EXIT.                                                      DTSCS27
06834      EXIT.                                                        DTSCS27
06835                                                                   DTSCS27
06836  S4030-FILING-SCHED-EDITS.                                        DTSCS27
06837      IF WRK-PASSED-FULL-EDITS-NO-88                               DTSCS27
06838          GO TO S4030-EXIT.                                        DTSCS27
06839                                                                   DTSCS27
06840      SET L410-MODE-INPUT-YRQ-88   TO TRUE.                        DTSCS27
06841      MOVE MPRF-EMP-NO             TO L410-EMP-NO.                 DTSCS27
06842      MOVE WRK-YRQ                 TO L410-YRQ.                    DTSCS27
06843      PERFORM S410-FILING-SCHEDULE THRU S410-EXIT.                 DTSCS27
06844      IF NOT L410-ANN-SCHED-88                                     DTSCS27
06845         SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                   DTSCS27
06846         IF MAP-EDIT-FULL-88                                       DTSCS27
06847            MOVE MSG-E27H-AREA TO WRK-MSG-AREA                     DTSCS27
06848            PERFORM S1301-ERROR THRU S1301-EXIT.                   DTSCS27
06849                                                                   DTSCS27
06850  S4030-EXIT.                                                      DTSCS27
06851      EXIT.                                                        DTSCS27
06852      EJECT                                                        DTSCS27
06853  S4040-PREPARE-QTR-EDITS.                                         DTSCS27
06854      MOVE ZERO       TO WRK-MQTR-TOT-WAGES                        DTSCS27
06855                         WRK-MQTR-TAX-WAGES                        DTSCS27
06856                         WRK-MQTR-EXCESS-WAGES.                    DTSCS27
06857                                                                   DTSCS27
06858      SET WRK-MQTR-EXISTS-NO-88 TO TRUE.                           DTSCS27
06859                                                                   DTSCS27
06860      MOVE WRK-YRQ  TO L004-QTR-5-9.                               DTSCS27
06861      MOVE 4        TO L004-QTR-5-Q.                               DTSCS27
06862      PERFORM S004-FROM-5  THRU S004-EXIT.                         DTSCS27
06863      MOVE L004-QTR-5-9  TO WRK-END-YRQ.                           DTSCS27
06864                                                                   DTSCS27
06865      MOVE LOW-VALUES TO MQTR-KEY-AREA.                            DTSCS27
06866                                                                   DTSCS27
06867      MOVE WRK-EMP-NO TO MQTR-EMP-NO.                              DTSCS27
06868                                                                   DTSCS27
06869      SET MQTR-QTR-88 TO TRUE.                                     DTSCS27
06870                                                                   DTSCS27
06871      MOVE WRK-YRQ  TO MQTR-YRQ.                                   DTSCS27
06872                                                                   DTSCS27
06873      MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA.                         DTSCS27
06874                                                                   DTSCS27
06875      PERFORM S810-START-BROWSE THRU S810-EXIT.                    DTSCS27
06876      IF L810-NO-REC-88                                            DTSCS27
06877         PERFORM S810-END-BROWSE THRU S810-EXIT                    DTSCS27
06878         GO TO S4040-EXIT.                                         DTSCS27
06879                                                                   DTSCS27
06880      SET WRK-ALL-QTRS-FOUND-NO-88 TO TRUE.                        DTSCS27
06881      PERFORM S4041-SCAN-MQTR   THRU S4041-EXIT                    DTSCS27
06882         UNTIL L810-NO-REC-88                                      DTSCS27
06883         OR WRK-ALL-QTRS-FOUND-YES-88.                             DTSCS27
06884                                                                   DTSCS27
06885      PERFORM S810-END-BROWSE THRU S810-EXIT.                      DTSCS27
06886                                                                   DTSCS27
06887  S4040-EXIT.                                                      DTSCS27
06888      EXIT.                                                        DTSCS27
06889                                                                   DTSCS27
06890  S4041-SCAN-MQTR.                                                 DTSCS27
06891      MOVE MSKL-REC         TO MQTR-REC.                           DTSCS27
06892                                                                   DTSCS27
06893      IF MQTR-YRQ > WRK-END-YRQ                                    DTSCS27
06894         SET WRK-ALL-QTRS-FOUND-YES-88  TO TRUE                    DTSCS27
06895         GO TO S4041-EXIT.                                         DTSCS27
06896                                                                   DTSCS27
06897      COMPUTE WRK-MQTR-TOT-WAGES =                                 DTSCS27
06898         WRK-MQTR-TOT-WAGES + MQTR-TOT-WAGE.                       DTSCS27
06899                                                                   DTSCS27
06900      COMPUTE WRK-MQTR-TAX-WAGES =                                 DTSCS27
06901         WRK-MQTR-TAX-WAGES + MQTR-TAX-WAGE.                       DTSCS27
06902                                                                   DTSCS27
06903      COMPUTE WRK-MQTR-EXCESS-WAGES =                              DTSCS27
06904         WRK-MQTR-EXCESS-WAGES + MQTR-EXCESS-WAGE.                 DTSCS27
06905                                                                   DTSCS27
06906       IF MQTR-CURR-RCVD-88                                        DTSCS27
06907       OR MQTR-CURR-ESTIM-88                                       DTSCS27
06908          MOVE MQTR-CURR-RPT-TYPE  TO WRK-MQTR-CURR-RPT-TYPE       DTSCS27
06909       END-IF.                                                     DTSCS27
06910                                                                   DTSCS27
06911       MOVE MQTR-ANNUAL-IND     TO WRK-MQTR-ANNUAL-IND.            DTSCS27
06912                                                                   DTSCS27
06913       PERFORM S810-READ-NEXT    THRU S810-EXIT.                   DTSCS27
06914                                                                   DTSCS27
06915  S4041-EXIT.                                                      DTSCS27
06916      EXIT.                                                        DTSCS27
06917                                                                   DTSCS27
06918  S4100-EMPL-CNT-EDITS.                                            DTSCS27
06919      IF MAP-RPT-ORIG-88                                           DTSCS27
06920          NEXT SENTENCE                                            DTSCS27
06921      ELSE                                                         DTSCS27
06922          PERFORM S4130-NOT-ORIG THRU S4130-EXIT                   DTSCS27
06923          GO TO S4100-EXIT.                                        DTSCS27
06924                                                                   DTSCS27
06925 *&   IF WRK-TOT-WAGE = +0                                         DTSCS27
06926      IF WRK-TAX-WAGE = +0                                         DTSCS27
06927          PERFORM S4110-TAX-WAGE-ZERO THRU S4110-EXIT              DTSCS27
06928      ELSE                                                         DTSCS27
06929          PERFORM S4120-TAX-WAGE-NOT-ZERO THRU S4120-EXIT.         DTSCS27
06930  S4100-EXIT.                                                      DTSCS27
06931      EXIT.                                                        DTSCS27
06932      SKIP3                                                        DTSCS27
06933  S4110-TAX-WAGE-ZERO.                                             DTSCS27
06934                                                                   DTSCS27
06935      IF WRK-JAN-NO-ENTRY-88                                       DTSCS27
06936          IF MAP-VERIFIED-YES-88                                   DTSCS27
06937              NEXT SENTENCE                                        DTSCS27
06938          ELSE                                                     DTSCS27
06939              MOVE +0 TO WRK-JAN-EMPL-CNT                          DTSCS27
06940                         MAP-JAN-EMPL-CNT-N.                       DTSCS27
06941                                                                   DTSCS27
06942      IF WRK-FEB-NO-ENTRY-88                                       DTSCS27
06943          IF MAP-VERIFIED-YES-88                                   DTSCS27
06944              NEXT SENTENCE                                        DTSCS27
06945          ELSE                                                     DTSCS27
06946              MOVE +0 TO WRK-FEB-EMPL-CNT                          DTSCS27
06947                         MAP-FEB-EMPL-CNT-N.                       DTSCS27
06948                                                                   DTSCS27
06949      IF WRK-MAR-NO-ENTRY-88                                       DTSCS27
06950          IF MAP-VERIFIED-YES-88                                   DTSCS27
06951              NEXT SENTENCE                                        DTSCS27
06952          ELSE                                                     DTSCS27
06953              MOVE +0 TO WRK-MAR-EMPL-CNT                          DTSCS27
06954                         MAP-MAR-EMPL-CNT-N.                       DTSCS27
06955                                                                   DTSCS27
06956      IF WRK-APR-NO-ENTRY-88                                       DTSCS27
06957          IF MAP-VERIFIED-YES-88                                   DTSCS27
06958              NEXT SENTENCE                                        DTSCS27
06959          ELSE                                                     DTSCS27
06960              MOVE +0 TO WRK-APR-EMPL-CNT                          DTSCS27
06961                         MAP-APR-EMPL-CNT-N.                       DTSCS27
06962                                                                   DTSCS27
06963      IF WRK-MAY-NO-ENTRY-88                                       DTSCS27
06964          IF MAP-VERIFIED-YES-88                                   DTSCS27
06965              NEXT SENTENCE                                        DTSCS27
06966          ELSE                                                     DTSCS27
06967              MOVE +0 TO WRK-MAY-EMPL-CNT                          DTSCS27
06968                         MAP-MAY-EMPL-CNT-N.                       DTSCS27
06969                                                                   DTSCS27
06970      IF WRK-JUN-NO-ENTRY-88                                       DTSCS27
06971          IF MAP-VERIFIED-YES-88                                   DTSCS27
06972              NEXT SENTENCE                                        DTSCS27
06973          ELSE                                                     DTSCS27
06974              MOVE +0 TO WRK-JUN-EMPL-CNT                          DTSCS27
06975                         MAP-JUN-EMPL-CNT-N.                       DTSCS27
06976                                                                   DTSCS27
06977      IF WRK-JUL-NO-ENTRY-88                                       DTSCS27
06978          IF MAP-VERIFIED-YES-88                                   DTSCS27
06979              NEXT SENTENCE                                        DTSCS27
06980          ELSE                                                     DTSCS27
06981              MOVE +0 TO WRK-JUL-EMPL-CNT                          DTSCS27
06982                         MAP-JUL-EMPL-CNT-N.                       DTSCS27
06983                                                                   DTSCS27
06984      IF WRK-AUG-NO-ENTRY-88                                       DTSCS27
06985          IF MAP-VERIFIED-YES-88                                   DTSCS27
06986              NEXT SENTENCE                                        DTSCS27
06987          ELSE                                                     DTSCS27
06988              MOVE +0 TO WRK-AUG-EMPL-CNT                          DTSCS27
06989                         MAP-AUG-EMPL-CNT-N.                       DTSCS27
06990                                                                   DTSCS27
06991      IF WRK-SEP-NO-ENTRY-88                                       DTSCS27
06992          IF MAP-VERIFIED-YES-88                                   DTSCS27
06993              NEXT SENTENCE                                        DTSCS27
06994          ELSE                                                     DTSCS27
06995              MOVE +0 TO WRK-SEP-EMPL-CNT                          DTSCS27
06996                         MAP-SEP-EMPL-CNT-N.                       DTSCS27
06997                                                                   DTSCS27
06998      IF WRK-OCT-NO-ENTRY-88                                       DTSCS27
06999          IF MAP-VERIFIED-YES-88                                   DTSCS27
07000              NEXT SENTENCE                                        DTSCS27
07001          ELSE                                                     DTSCS27
07002              MOVE +0 TO WRK-OCT-EMPL-CNT                          DTSCS27
07003                         MAP-OCT-EMPL-CNT-N.                       DTSCS27
07004                                                                   DTSCS27
07005      IF WRK-NOV-NO-ENTRY-88                                       DTSCS27
07006          IF MAP-VERIFIED-YES-88                                   DTSCS27
07007              NEXT SENTENCE                                        DTSCS27
07008          ELSE                                                     DTSCS27
07009              MOVE +0 TO WRK-NOV-EMPL-CNT                          DTSCS27
07010                         MAP-NOV-EMPL-CNT-N.                       DTSCS27
07011                                                                   DTSCS27
07012      IF WRK-DEC-NO-ENTRY-88                                       DTSCS27
07013          IF MAP-VERIFIED-YES-88                                   DTSCS27
07014              NEXT SENTENCE                                        DTSCS27
07015          ELSE                                                     DTSCS27
07016              MOVE +0 TO WRK-DEC-EMPL-CNT                          DTSCS27
07017                         MAP-DEC-EMPL-CNT-N.                       DTSCS27
07018                                                                   DTSCS27
07019                                                                   DTSCS27
07020  S4110-EXIT.                                                      DTSCS27
07021      EXIT.                                                        DTSCS27
07022      SKIP3                                                        DTSCS27
07023  S4120-TAX-WAGE-NOT-ZERO.                                         DTSCS27
07024      IF MAP-VERIFIED-YES-88                                       DTSCS27
07025          GO TO S4120-EXIT.                                        DTSCS27
07026                                                                   DTSCS27
07027      IF WRK-JAN-NO-ENTRY-88                                       DTSCS27
07028          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
07029          MOVE MSG-E276-AREA TO WRK-MSG-AREA                       DTSCS27
07030          PERFORM S1801-ERROR THRU S1801-EXIT.                     DTSCS27
07031                                                                   DTSCS27
07032      IF WRK-FEB-NO-ENTRY-88                                       DTSCS27
07033          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
07034          MOVE MSG-E276-AREA TO WRK-MSG-AREA                       DTSCS27
07035          PERFORM S1802-ERROR THRU S1802-EXIT.                     DTSCS27
07036                                                                   DTSCS27
07037      IF WRK-MAR-NO-ENTRY-88                                       DTSCS27
07038          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
07039          MOVE MSG-E276-AREA TO WRK-MSG-AREA                       DTSCS27
07040          PERFORM S1803-ERROR THRU S1803-EXIT.                     DTSCS27
07041                                                                   DTSCS27
07042      IF WRK-APR-NO-ENTRY-88                                       DTSCS27
07043          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
07044          MOVE MSG-E276-AREA TO WRK-MSG-AREA                       DTSCS27
07045          PERFORM S1804-ERROR THRU S1804-EXIT.                     DTSCS27
07046                                                                   DTSCS27
07047      IF WRK-MAY-NO-ENTRY-88                                       DTSCS27
07048          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
07049          MOVE MSG-E276-AREA TO WRK-MSG-AREA                       DTSCS27
07050          PERFORM S1805-ERROR THRU S1805-EXIT.                     DTSCS27
07051                                                                   DTSCS27
07052      IF WRK-JUN-NO-ENTRY-88                                       DTSCS27
07053          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
07054          MOVE MSG-E276-AREA TO WRK-MSG-AREA                       DTSCS27
07055          PERFORM S1806-ERROR THRU S1806-EXIT.                     DTSCS27
07056                                                                   DTSCS27
07057      IF WRK-JUL-NO-ENTRY-88                                       DTSCS27
07058          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
07059          MOVE MSG-E276-AREA TO WRK-MSG-AREA                       DTSCS27
07060          PERFORM S1807-ERROR THRU S1807-EXIT.                     DTSCS27
07061                                                                   DTSCS27
07062      IF WRK-AUG-NO-ENTRY-88                                       DTSCS27
07063          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
07064          MOVE MSG-E276-AREA TO WRK-MSG-AREA                       DTSCS27
07065          PERFORM S1808-ERROR THRU S1808-EXIT.                     DTSCS27
07066                                                                   DTSCS27
07067      IF WRK-SEP-NO-ENTRY-88                                       DTSCS27
07068          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
07069          MOVE MSG-E276-AREA TO WRK-MSG-AREA                       DTSCS27
07070          PERFORM S1809-ERROR THRU S1809-EXIT.                     DTSCS27
07071                                                                   DTSCS27
07072      IF WRK-OCT-NO-ENTRY-88                                       DTSCS27
07073          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
07074          MOVE MSG-E276-AREA TO WRK-MSG-AREA                       DTSCS27
07075          PERFORM S1810-ERROR THRU S1810-EXIT.                     DTSCS27
07076                                                                   DTSCS27
07077      IF WRK-NOV-NO-ENTRY-88                                       DTSCS27
07078          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
07079          MOVE MSG-E276-AREA TO WRK-MSG-AREA                       DTSCS27
07080          PERFORM S1811-ERROR THRU S1811-EXIT.                     DTSCS27
07081                                                                   DTSCS27
07082      IF WRK-DEC-NO-ENTRY-88                                       DTSCS27
07083          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
07084          MOVE MSG-E276-AREA TO WRK-MSG-AREA                       DTSCS27
07085          PERFORM S1812-ERROR THRU S1812-EXIT.                     DTSCS27
07086                                                                   DTSCS27
07087  S4120-EXIT.                                                      DTSCS27
07088      EXIT.                                                        DTSCS27
07089      SKIP3                                                        DTSCS27
07090  S4130-NOT-ORIG.                                                  DTSCS27
07091      IF WRK-JAN-NO-ENTRY-88                                       DTSCS27
07092          NEXT SENTENCE                                            DTSCS27
07093      ELSE                                                         DTSCS27
07094          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
07095          MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-AREA              DTSCS27
07096          PERFORM S1801-ERROR THRU S1801-EXIT.                     DTSCS27
07097                                                                   DTSCS27
07098      IF WRK-FEB-NO-ENTRY-88                                       DTSCS27
07099          NEXT SENTENCE                                            DTSCS27
07100      ELSE                                                         DTSCS27
07101          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
07102          MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-AREA              DTSCS27
07103          PERFORM S1802-ERROR THRU S1802-EXIT.                     DTSCS27
07104                                                                   DTSCS27
07105      IF WRK-MAR-NO-ENTRY-88                                       DTSCS27
07106          NEXT SENTENCE                                            DTSCS27
07107      ELSE                                                         DTSCS27
07108          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
07109          MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-AREA              DTSCS27
07110          PERFORM S1803-ERROR THRU S1803-EXIT.                     DTSCS27
07111                                                                   DTSCS27
07112      IF WRK-APR-NO-ENTRY-88                                       DTSCS27
07113          NEXT SENTENCE                                            DTSCS27
07114      ELSE                                                         DTSCS27
07115          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
07116          MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-AREA              DTSCS27
07117          PERFORM S1804-ERROR THRU S1804-EXIT.                     DTSCS27
07118                                                                   DTSCS27
07119      IF WRK-MAY-NO-ENTRY-88                                       DTSCS27
07120          NEXT SENTENCE                                            DTSCS27
07121      ELSE                                                         DTSCS27
07122          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
07123          MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-AREA              DTSCS27
07124          PERFORM S1805-ERROR THRU S1805-EXIT.                     DTSCS27
07125                                                                   DTSCS27
07126      IF WRK-JUN-NO-ENTRY-88                                       DTSCS27
07127          NEXT SENTENCE                                            DTSCS27
07128      ELSE                                                         DTSCS27
07129          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
07130          MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-AREA              DTSCS27
07131          PERFORM S1806-ERROR THRU S1806-EXIT.                     DTSCS27
07132                                                                   DTSCS27
07133      IF WRK-JUL-NO-ENTRY-88                                       DTSCS27
07134          NEXT SENTENCE                                            DTSCS27
07135      ELSE                                                         DTSCS27
07136          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
07137          MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-AREA              DTSCS27
07138          PERFORM S1807-ERROR THRU S1807-EXIT.                     DTSCS27
07139                                                                   DTSCS27
07140      IF WRK-AUG-NO-ENTRY-88                                       DTSCS27
07141          NEXT SENTENCE                                            DTSCS27
07142      ELSE                                                         DTSCS27
07143          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
07144          MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-AREA              DTSCS27
07145          PERFORM S1808-ERROR THRU S1808-EXIT.                     DTSCS27
07146                                                                   DTSCS27
07147      IF WRK-SEP-NO-ENTRY-88                                       DTSCS27
07148          NEXT SENTENCE                                            DTSCS27
07149      ELSE                                                         DTSCS27
07150          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
07151          MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-AREA              DTSCS27
07152          PERFORM S1809-ERROR THRU S1809-EXIT.                     DTSCS27
07153                                                                   DTSCS27
07154      IF WRK-OCT-NO-ENTRY-88                                       DTSCS27
07155          NEXT SENTENCE                                            DTSCS27
07156      ELSE                                                         DTSCS27
07157          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
07158          MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-AREA              DTSCS27
07159          PERFORM S1810-ERROR THRU S1810-EXIT.                     DTSCS27
07160                                                                   DTSCS27
07161      IF WRK-NOV-NO-ENTRY-88                                       DTSCS27
07162          NEXT SENTENCE                                            DTSCS27
07163      ELSE                                                         DTSCS27
07164          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
07165          MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-AREA              DTSCS27
07166          PERFORM S1811-ERROR THRU S1811-EXIT.                     DTSCS27
07167                                                                   DTSCS27
07168      IF WRK-DEC-NO-ENTRY-88                                       DTSCS27
07169          NEXT SENTENCE                                            DTSCS27
07170      ELSE                                                         DTSCS27
07171          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
07172          MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-AREA              DTSCS27
07173          PERFORM S1812-ERROR THRU S1812-EXIT.                     DTSCS27
07174                                                                   DTSCS27
07175  S4130-EXIT.                                                      DTSCS27
07176      EXIT.                                                        DTSCS27
07177      EJECT                                                        DTSCS27
07178  S4200-WAGE-EDITS.                                                DTSCS27
07179 **    IF WRK-SCR-HOLD-DIS-EDIT3-YES-88                            DTSCS27
07180 **       NEXT SENTENCE                                            DTSCS27
07181 **    ELSE                                                        DTSCS27
07182       IF WRK-TAX-WAGE > WRK-CALC-TAX-WAGE                         DTSCS27
07183          IF (WRK-TAX-WAGE - WRK-CALC-TAX-WAGE) > +.99             DTSCS27
07184 **       IF MAP-DISREGARD-EDITS-YES-88                            DTSCS27
07185 **          SET MAP-DISREGARD-EDITS-NO-88 TO TRUE                 DTSCS27
07186 **          SET WRK-SCR-HOLD-DIS-EDIT3-YES-88 TO TRUE             DTSCS27
07187 **       ELSE                                                     DTSCS27
07188             SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE               DTSCS27
07189             IF MAP-EDIT-FULL-88                                   DTSCS27
07190                MOVE MSG-E27R-AREA TO WRK-MSG-AREA                 DTSCS27
07191                PERFORM S1601-ERROR THRU S1601-EXIT                DTSCS27
07192                GO TO S4200-EXIT                                   DTSCS27
07193             ELSE                                                  DTSCS27
07194                GO TO S4200-EXIT.                                  DTSCS27
07195                                                                   DTSCS27
07196 **    IF WRK-SCR-HOLD-DIS-EDIT3-YES-88                            DTSCS27
07197 **       NEXT SENTENCE                                            DTSCS27
07198 **    ELSE                                                        DTSCS27
07199       IF WRK-TAX-WAGE < WRK-CALC-TAX-WAGE                         DTSCS27
07200          IF (WRK-CALC-TAX-WAGE - WRK-TAX-WAGE) > +.99             DTSCS27
07201 **       IF MAP-EDIT-FULL-88                                      DTSCS27
07202 **       AND MAP-DISREGARD-EDITS-YES-88                           DTSCS27
07203 **          SET MAP-DISREGARD-EDITS-NO-88 TO TRUE                 DTSCS27
07204 **          SET WRK-SCR-HOLD-DIS-EDIT3-YES-88 TO TRUE             DTSCS27
07205 **       ELSE                                                     DTSCS27
07206             SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE               DTSCS27
07207             IF MAP-EDIT-FULL-88                                   DTSCS27
07208                MOVE MSG-E279-AREA TO WRK-MSG-AREA                 DTSCS27
07209                PERFORM S1601-ERROR THRU S1601-EXIT                DTSCS27
07210                GO TO S4200-EXIT                                   DTSCS27
07211             ELSE                                                  DTSCS27
07212                GO TO S4200-EXIT.                                  DTSCS27
07213                                                                   DTSCS27
07214                                                                   DTSCS27
07215      IF MAP-RPT-ORIG-88 OR MAP-RPT-ESTIM-88                       DTSCS27
07216          NEXT SENTENCE                                            DTSCS27
07217      ELSE                                                         DTSCS27
07218          GO TO S4200-EXIT.                                        DTSCS27
07219                                                                   DTSCS27
07220                                                                   DTSCS27
07221      IF (WRK-TAX-WAGE-NO-ENTRY-88)                                DTSCS27
07222              OR                                                   DTSCS27
07223         (WRK-TAX-WAGE-INVALID-88)                                 DTSCS27
07224          GO TO S4200-EXIT.                                        DTSCS27
07225                                                                   DTSCS27
07226                                                                   DTSCS27
07227      IF WRK-TAX-WAGE > WRK-TOT-WAGE                               DTSCS27
07228 **       IF WRK-SCR-HOLD-DIS-EDIT3-YES-88                         DTSCS27
07229 **          MOVE WRK-TAX-WAGE TO WRK-TOT-WAGE                     DTSCS27
07230 **       ELSE                                                     DTSCS27
07231             SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE               DTSCS27
07232             IF MAP-EDIT-FULL-88                                   DTSCS27
07233                 MOVE MSG-E27S-AREA TO WRK-MSG-AREA                DTSCS27
07234                 PERFORM S1601-ERROR THRU S1601-EXIT               DTSCS27
07235                 GO TO S4200-EXIT                                  DTSCS27
07236             ELSE                                                  DTSCS27
07237                 GO TO S4200-EXIT.                                 DTSCS27
07238                                                                   DTSCS27
07239  S4200-EXIT.                                                      DTSCS27
07240      EXIT.                                                        DTSCS27
07241      SKIP3                                                        DTSCS27
07242  S4400-REMIT-AMT-EDITS.                                           DTSCS27
07243      IF MAP-RPT-WITHDRW-88                                        DTSCS27
07244          IF WRK-REMIT-AMT > +0                                    DTSCS27
07245              SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE              DTSCS27
07246              MOVE MSG-E278-AREA TO WRK-MSG-AREA                   DTSCS27
07247              PERFORM S2301-ERROR THRU S2301-EXIT                  DTSCS27
07248              GO TO S4400-EXIT.                                    DTSCS27
07249  S4400-EXIT.                                                      DTSCS27
07250      EXIT.                                                        DTSCS27
07251      EJECT                                                        DTSCS27
07252  S4500-RPT-TYPE-EDITS.                                            DTSCS27
07253      IF WRK-MPRF-EXISTS-NO-88                                     DTSCS27
07254          GO TO S4500-EXIT.                                        DTSCS27
07255                                                                   DTSCS27
07256      IF WRK-MQTR-EXISTS-NO-88                                     DTSCS27
07257          PERFORM S4510-NO-MQTR-EXISTS THRU S4510-EXIT             DTSCS27
07258      ELSE                                                         DTSCS27
07259          PERFORM S4520-MQTR-EXISTS THRU S4520-EXIT.               DTSCS27
07260  S4500-EXIT.                                                      DTSCS27
07261      EXIT.                                                        DTSCS27
07262                                                                   DTSCS27
07263                                                                   DTSCS27
07264                                                                   DTSCS27
07265  S4510-NO-MQTR-EXISTS.                                            DTSCS27
07266      IF MAP-RPT-ORIG-88 OR MAP-RPT-ESTIM-88                       DTSCS27
07267          NEXT SENTENCE                                            DTSCS27
07268      ELSE                                                         DTSCS27
07269          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
07270          IF MAP-EDIT-FULL-88                                      DTSCS27
07271              MOVE MSG-E271-AREA TO WRK-MSG-AREA                   DTSCS27
07272              PERFORM S2501-ERROR THRU S2501-EXIT                  DTSCS27
07273              GO TO S4510-EXIT                                     DTSCS27
07274          ELSE                                                     DTSCS27
07275              GO TO S4510-EXIT.                                    DTSCS27
07276  S4510-EXIT.                                                      DTSCS27
07277      EXIT.                                                        DTSCS27
07278                                                                   DTSCS27
07279                                                                   DTSCS27
07280                                                                   DTSCS27
07281  S4520-MQTR-EXISTS.                                               DTSCS27
07282      IF MAP-RPT-ESTIM-88                                          DTSCS27
07283      OR MAP-RPT-ORIG-88                                           DTSCS27
07284          PERFORM S4521-ORIG-ESTIM   THRU S4521-EXIT               DTSCS27
07285      ELSE                                                         DTSCS27
07286          PERFORM S4522-SUPPLEMENTAL THRU S4522-EXIT.              DTSCS27
07287                                                                   DTSCS27
07288  S4520-EXIT.                                                      DTSCS27
07289      EXIT.                                                        DTSCS27
07290                                                                   DTSCS27
07291  S4521-ORIG-ESTIM.                                                DTSCS27
07292      IF WRK-MQTR-CURR-RCVD-88                                     DTSCS27
07293          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
07294          IF MAP-EDIT-FULL-88                                      DTSCS27
07295              MOVE MSG-E271-AREA TO WRK-MSG-AREA                   DTSCS27
07296              PERFORM S2501-ERROR THRU S2501-EXIT.                 DTSCS27
07297                                                                   DTSCS27
07298  S4521-EXIT.                                                      DTSCS27
07299      EXIT.                                                        DTSCS27
07300                                                                   DTSCS27
07301  S4522-SUPPLEMENTAL.                                              DTSCS27
07302      IF WRK-MQTR-CURR-RCVD-88                                     DTSCS27
07303          IF WRK-MQTR-ANNUAL-YES-88                                DTSCS27
07304             NEXT SENTENCE                                         DTSCS27
07305          ELSE                                                     DTSCS27
07306             SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE               DTSCS27
07307             IF MAP-EDIT-FULL-88                                   DTSCS27
07308                 MOVE MSG-E27J-AREA TO WRK-MSG-AREA                DTSCS27
07309                 PERFORM S2501-ERROR THRU S2501-EXIT               DTSCS27
07310             ELSE                                                  DTSCS27
07311                 NEXT SENTENCE                                     DTSCS27
07312      ELSE                                                         DTSCS27
07313          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
07314          IF MAP-EDIT-FULL-88                                      DTSCS27
07315              MOVE MSG-E271-AREA TO WRK-MSG-AREA                   DTSCS27
07316              PERFORM S2501-ERROR THRU S2501-EXIT                  DTSCS27
07317          ELSE                                                     DTSCS27
07318              NEXT SENTENCE.                                       DTSCS27
07319                                                                   DTSCS27
07320  S4522-EXIT.                                                      DTSCS27
07321      EXIT.                                                        DTSCS27
07322                                                                   DTSCS27
07323  S4600-WAIVE-IND-EDITS.                                           DTSCS27
07324  S4600-EXIT.                                                      DTSCS27
07325      EXIT.                                                        DTSCS27
07326      EJECT                                                        DTSCS27
07327 *S4650-UI-RATE-EDITS.                                             DTSCS27
07328 *****IF MAP-RPT-ORIG-88 OR MAP-RPT-ESTIM-88 OR MAP-RPT-WITHDRW-88 DTSCS27
07329 *********GO TO S4650-EXIT.                                        DTSCS27
07330                                                                   DTSCS27
07331 *****IF MPRF-CLASS-REG-88 OR MPRF-CLASS-GOV-88                    DTSCS27
07332 *********IF WRK-NO-UI-RATE-88                                     DTSCS27
07333 *************MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS27
07334 *************MOVE 'UI RATE'       TO WRK-MSG-TEXT                 DTSCS27
07335 *************PERFORM S2901-ERROR THRU S2901-EXIT                  DTSCS27
07336 *********ELSE                                                     DTSCS27
07337 *************IF WRK-UI-RATE = L381-UI-RATE                        DTSCS27
07338 *****************NEXT SENTENCE                                    DTSCS27
07339 *************ELSE                                                 DTSCS27
07340 **************** MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER           DTSCS27
07341 *****************MOVE 'UI RATE'       TO WRK-MSG-TEXT             DTSCS27
07342 *****************PERFORM S2901-ERROR THRU S2901-EXIT              DTSCS27
07343 *****ELSE                                                         DTSCS27
07344 *********IF WRK-NO-UI-RATE-88                                     DTSCS27
07345 *************NEXT SENTENCE                                        DTSCS27
07346 *********ELSE                                                     DTSCS27
07347 *************MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS27
07348 *************MOVE 'UI RATE'       TO WRK-MSG-TEXT                 DTSCS27
07349 *************PERFORM S2901-ERROR THRU S2901-EXIT.                 DTSCS27
07350 *S4650-EXIT.                                                      DTSCS27
07351 *****EXIT.                                                        DTSCS27
07352      EJECT                                                        DTSCS27
07353  S4700-RESPONSIBILITY-EDITS.                                      DTSCS27
07354  S4700-EXIT.                                                      DTSCS27
07355      EXIT.                                                        DTSCS27
07356      EJECT                                                        DTSCS27
07357  S4800-RECEIVED-DATE-EDITS.                                       DTSCS27
07358      IF WRK-RECEIVED-DATE = +0                                    DTSCS27
07359          GO TO S4800-EXIT.                                        DTSCS27
07360                                                                   DTSCS27
07361      IF WRK-RECEIVED-DATE > LCCM-CURR-RUN-DATE                    DTSCS27
07362          SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE                  DTSCS27
07363              MOVE EMSG-C-VALIDATE TO WRK-MSG-NUMBER               DTSCS27
07364              MOVE 'RECEIVED DATE' TO WRK-MSG-TEXT                 DTSCS27
07365              PERFORM S3301-ERROR THRU S3301-EXIT                  DTSCS27
07366              GO TO S4800-EXIT.                                    DTSCS27
07367                                                                   DTSCS27
07368      IF WRK-SCR-HOLD-DIS-EDIT5-YES-88                             DTSCS27
07369         NEXT SENTENCE                                             DTSCS27
07370      ELSE                                                         DTSCS27
07371         MOVE LCCM-CURR-RUN-DATE TO L001-FED-8-DATE-9              DTSCS27
07372         SUBTRACT 1 FROM L001-FED-8-YR                             DTSCS27
07373         IF (WRK-RECEIVED-DATE < L001-FED-8-DATE-9)                DTSCS27
07374            IF MAP-DISREGARD-EDITS-YES-88                          DTSCS27
07375               SET MAP-DISREGARD-EDITS-NO-88 TO TRUE               DTSCS27
07376               SET WRK-SCR-HOLD-DIS-EDIT5-YES-88 TO TRUE           DTSCS27
07377            ELSE                                                   DTSCS27
07378               SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE             DTSCS27
07379               IF MAP-EDIT-FULL-88                                 DTSCS27
07380                  MOVE EMSG-OLD-RCVD-DATE TO WRK-MSG-AREA          DTSCS27
07381                  PERFORM S3301-ERROR THRU S3301-EXIT              DTSCS27
07382                  GO TO S4800-EXIT.                                DTSCS27
07383  S4800-EXIT.                                                      DTSCS27
07384      EXIT.                                                        DTSCS27
07385      EJECT                                                        DTSCS27
07386  S4850-CHK-DUP-SSN.                                               DTSCS27
07387      MOVE +0 TO WRK-DUP-CNT.                                      DTSCS27
07388                                                                   DTSCS27
07389      PERFORM                                                      DTSCS27
07390        VARYING DUP-SUB1 FROM +1 BY +1                             DTSCS27
07391        UNTIL DUP-SUB1 > DUP-LAST                                  DTSCS27
07392           IF WRK-CHK-SSN (DUP-SUB) = WRK-CHK-SSN (DUP-SUB1)       DTSCS27
07393              ADD +1 TO WRK-DUP-CNT                                DTSCS27
07394              IF WRK-DUP-CNT > +1                                  DTSCS27
07395                 MOVE WRK-CHK-SSN (DUP-SUB) TO WRK-DUP-SSN         DTSCS27
07396                 PERFORM S4851-ERROR     THRU S4851-EXIT           DTSCS27
07397              END-IF                                               DTSCS27
07398           END-IF                                                  DTSCS27
07399      END-PERFORM.                                                 DTSCS27
07400                                                                   DTSCS27
07401      IF WRK-DUP-SSN > ZERO                                        DTSCS27
07402      AND WRK-ITEM-FOUND-YES-88                                    DTSCS27
07403         PERFORM P9800-TS-TO-SCREEN  THRU P9800-EXIT               DTSCS27
07404         PERFORM S4852-SET-SSN-SUB   THRU S4852-EXIT               DTSCS27
07405         IF SUB2 > ZERO                                            DTSCS27
07406            SET L427-SSN-INVALID-88 (SUB2) TO TRUE                 DTSCS27
07407            MOVE MSG-E27T-AREA TO WRK-MSG-AREA                     DTSCS27
07408            MOVE CATB-UNPROT-NORM-NUM-MDTON                        DTSCS27
07409                                  TO MAP-SSN1-A (SUB2)             DTSCS27
07410                                     MAP-SSN2-A (SUB2)             DTSCS27
07411                                     MAP-SSN3-A (SUB2)             DTSCS27
07412            IF LCCM-NO-MSG                                         DTSCS27
07413               MOVE WRK-MSG-AREA TO LCCM-MSG-AREA                  DTSCS27
07414               MOVE CATB-CURSOR TO MAP-SSN1-L (SUB2)               DTSCS27
07415               SET CURSOR-SET-YES TO TRUE                          DTSCS27
07416            END-IF                                                 DTSCS27
07417         END-IF                                                    DTSCS27
07418         PERFORM P9300-SCREEN-TO-TS THRU P9300-EXIT                DTSCS27
07419      END-IF.                                                      DTSCS27
07420                                                                   DTSCS27
07421  S4850-EXIT.                                                      DTSCS27
07422      EXIT.                                                        DTSCS27
07423                                                                   DTSCS27
07424  S4851-ERROR.                                                     DTSCS27
07425      SET WRK-ITEM-FOUND-NO-88  TO TRUE.                           DTSCS27
07426                                                                   DTSCS27
07427      PERFORM                                                      DTSCS27
07428        VARYING ITEM-SUB FROM +1 BY +1                             DTSCS27
07429        UNTIL ITEM-SUB > WRK-SCR-HOLD-LAST-ITEM                    DTSCS27
07430        OR WRK-ITEM-FOUND-YES-88                                   DTSCS27
07431           MOVE ITEM-SUB            TO L829-ITEM-NO                DTSCS27
07432           PERFORM S829A-READ-ITEM THRU S829A-EXIT                 DTSCS27
07433           MOVE L829-REC           TO L427-WAGE-AREA               DTSCS27
07434           PERFORM                                                 DTSCS27
07435             VARYING SSN-SUB FROM +1 BY +1                         DTSCS27
07436             UNTIL SSN-SUB > WRK-MAX-WAGE-ITEMS                    DTSCS27
07437                IF L427-SSN (SSN-SUB) = WRK-DUP-SSN                DTSCS27
07438                   SET WRK-ITEM-FOUND-YES-88 TO TRUE               DTSCS27
07439                   MOVE ITEM-SUB TO WRK-SCR-HOLD-CURR-ITEM         DTSCS27
07440                END-IF                                             DTSCS27
07441           END-PERFORM                                             DTSCS27
07442      END-PERFORM.                                                 DTSCS27
07443                                                                   DTSCS27
07444  S4851-EXIT.                                                      DTSCS27
07445      EXIT.                                                        DTSCS27
07446                                                                   DTSCS27
07447  S4852-SET-SSN-SUB.                                               DTSCS27
07448      MOVE +0 TO SUB2.                                             DTSCS27
07449      PERFORM                                                      DTSCS27
07450        VARYING SSN-SUB FROM +1 BY +1                              DTSCS27
07451        UNTIL SSN-SUB > WRK-MAX-WAGE-ITEMS                         DTSCS27
07452        OR SUB2 > ZERO                                             DTSCS27
07453           IF L427-SSN (SSN-SUB) = WRK-DUP-SSN                     DTSCS27
07454              MOVE SSN-SUB TO SUB2                                 DTSCS27
07455           END-IF                                                  DTSCS27
07456      END-PERFORM.                                                 DTSCS27
07457                                                                   DTSCS27
07458  S4852-EXIT.                                                      DTSCS27
07459      EXIT.                                                        DTSCS27
07460                                                                   DTSCS27
07461      EJECT                                                        DTSCS27
07462  S4900-OVERRIDE.                                                  DTSCS27
07463 *&   IF MAP-DISREGARD-EDITS-YES-88                                DTSCS27
07464 *        GO TO S4900-EXIT.                                        DTSCS27
07465                                                                   DTSCS27
07466                                                                   DTSCS27
07467      IF WRK-MPRF-EXISTS-NO-88                                     DTSCS27
07468          GO TO S4900-EXIT.                                        DTSCS27
07469                                                                   DTSCS27
07470                                                                   DTSCS27
07471      IF WRK-YRQ  = +0                                             DTSCS27
07472          GO TO S4900-EXIT.                                        DTSCS27
07473                                                                   DTSCS27
07474                                                                   DTSCS27
07475      IF WRK-SCR-HOLD-DIS-EDIT2-YES-88                             DTSCS27
07476          NEXT SENTENCE                                            DTSCS27
07477      ELSE                                                         DTSCS27
07478      IF WRK-YRQ  > MPRF-LAST-ARCHIVED-YRQ                         DTSCS27
07479          NEXT SENTENCE                                            DTSCS27
07480      ELSE                                                         DTSCS27
07481          IF MAP-DISREGARD-EDITS-YES-88                            DTSCS27
07482              SET MAP-DISREGARD-EDITS-NO-88 TO TRUE                DTSCS27
07483              SET WRK-SCR-HOLD-DIS-EDIT2-YES-88 TO TRUE            DTSCS27
07484          ELSE                                                     DTSCS27
07485              SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE              DTSCS27
07486              IF MAP-EDIT-FULL-88                                  DTSCS27
07487                  MOVE MSG-E275-AREA TO WRK-MSG-AREA               DTSCS27
07488                  PERFORM S3801-ERROR THRU S3801-EXIT.             DTSCS27
07489                                                                   DTSCS27
07490                                                                   DTSCS27
07491      IF WRK-SCR-HOLD-DIS-EDIT2-YES-88                             DTSCS27
07492          NEXT SENTENCE                                            DTSCS27
07493      ELSE                                                         DTSCS27
07494          MOVE WRK-YRQ4 TO L004-QTR-5-9                            DTSCS27
07495          PERFORM S004-FROM-5 THRU S004-EXIT                       DTSCS27
07496          IF LCCM-CURR-RUN-DATE < L004-QTR-END-DATE                DTSCS27
07497              IF MAP-DISREGARD-EDITS-YES-88                        DTSCS27
07498                  SET MAP-DISREGARD-EDITS-NO-88 TO TRUE            DTSCS27
07499                  SET WRK-SCR-HOLD-DIS-EDIT2-YES-88 TO TRUE        DTSCS27
07500              ELSE                                                 DTSCS27
07501                  SET WRK-PASSED-FULL-EDITS-NO-88 TO TRUE          DTSCS27
07502                  IF MAP-EDIT-FULL-88                              DTSCS27
07503                      MOVE MSG-E273-AREA TO WRK-MSG-AREA           DTSCS27
07504                      PERFORM S3801-ERROR THRU S3801-EXIT.         DTSCS27
07505  S4900-EXIT.                                                      DTSCS27
07506      EXIT.                                                        DTSCS27
07507 /*****************************************************************DTSCS27
07508 * LOCK SCREEN FOR UPDATE CONFIRMATION                            *DTSCS27
07509 ******************************************************************DTSCS27
07510                                                                   DTSCS27
07511  S5100-SET-LOCK-ATTRB.                                            DTSCS27
07512      MOVE CATB-ASKIP-BRT-MDTON TO WRK-ATB-AN                      DTSCS27
07513                                   WRK-ATB-NUM.                    DTSCS27
07514                                                                   DTSCS27
07515      PERFORM S5900-SET-ATTRB THRU S5900-EXIT.                     DTSCS27
07516                                                                   DTSCS27
07517      MOVE CATB-ASKIP-BRT-MDTON TO MAP-BATCH-NO-A                  DTSCS27
07518                                   MAP-ITEM-NO-A                   DTSCS27
07519                                   MAP-GOTO-A.                     DTSCS27
07520                                                                   DTSCS27
07521  S5100-EXIT.                                                      DTSCS27
07522      EXIT.                                                        DTSCS27
07523                                                                   DTSCS27
07524                                                                   DTSCS27
07525                                                                   DTSCS27
07526 ******************************************************************DTSCS27
07527 * SET ATTIBUTE BYTES FOR UPDATE ACCESS                           *DTSCS27
07528 ******************************************************************DTSCS27
07529                                                                   DTSCS27
07530  S5200-SET-UPDATE-ATTRB.                                          DTSCS27
07531      MOVE CATB-UNPROT-BRT-AN-MDTON TO WRK-ATB-AN.                 DTSCS27
07532                                                                   DTSCS27
07533      MOVE CATB-UNPROT-BRT-NUM-MDTON TO WRK-ATB-NUM.               DTSCS27
07534                                                                   DTSCS27
07535      PERFORM S5900-SET-ATTRB THRU S5900-EXIT.                     DTSCS27
07536  S5200-EXIT.                                                      DTSCS27
07537      EXIT.                                                        DTSCS27
07538                                                                   DTSCS27
07539                                                                   DTSCS27
07540                                                                   DTSCS27
07541 ******************************************************************DTSCS27
07542 *  SET ATTRIBUTE BYTES FOR INQUIRY STATUS                        *DTSCS27
07543 ******************************************************************DTSCS27
07544                                                                   DTSCS27
07545  S5300-SET-INQ-ATTRB.                                             DTSCS27
07546      MOVE CATB-ASKIP-BRT-MDTOFF TO WRK-ATB-AN                     DTSCS27
07547                                    WRK-ATB-NUM.                   DTSCS27
07548                                                                   DTSCS27
07549      PERFORM S5900-SET-ATTRB THRU S5900-EXIT.                     DTSCS27
07550  S5300-EXIT.                                                      DTSCS27
07551      EXIT.                                                        DTSCS27
07552                                                                   DTSCS27
07553  S5400-SET-ADD-LOCK-ATTRB.                                        DTSCS27
07554      MOVE CATB-UNPROT-BRT-AN-MDTON TO WRK-ATB-AN.                 DTSCS27
07555                                                                   DTSCS27
07556      MOVE CATB-UNPROT-BRT-NUM-MDTON TO WRK-ATB-NUM.               DTSCS27
07557                                                                   DTSCS27
07558      PERFORM S5900-SET-ATTRB THRU S5900-EXIT.                     DTSCS27
07559                                                                   DTSCS27
07560      MOVE CATB-ASKIP-BRT-MDTON TO MAP-EMP-NAME-CHECK-A            DTSCS27
07561                                   MAP-EMP-NO-1-A                  DTSCS27
07562                                   MAP-EMP-NO-2-A                  DTSCS27
07563                                   MAP-YRQ-YR-A                    DTSCS27
07564                                   MAP-BATCH-NO-A                  DTSCS27
07565                                   MAP-ITEM-NO-A.                  DTSCS27
07566                                                                   DTSCS27
07567  S5400-EXIT.                                                      DTSCS27
07568      EXIT.                                                        DTSCS27
07569                                                                   DTSCS27
07570                                                                   DTSCS27
07571                                                                   DTSCS27
07572  S5900-SET-ATTRB.                                                 DTSCS27
07573      MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-BATCH-NO-A             DTSCS27
07574                                        MAP-ITEM-NO-A.             DTSCS27
07575                                                                   DTSCS27
07576      MOVE WRK-ATB-AN                                              DTSCS27
07577        TO MAP-EMP-NAME-CHECK-A                                    DTSCS27
07578           MAP-VERIFIED-IND-A                                      DTSCS27
07579           MAP-RPT-TYPE-A                                          DTSCS27
07580           MAP-WAIVE-BOTH-IND-A                                    DTSCS27
07581           MAP-WAIVE-LATE-PEN-IND-A                                DTSCS27
07582           MAP-WAIVE-INT-IND-A                                     DTSCS27
07583           MAP-RESPONSIBLE-ACTIVITY-A                              DTSCS27
07584           MAP-RESPONSIBLE-OP-ID-A                                 DTSCS27
07585           MAP-EDIT-MODE-A                                         DTSCS27
07586           MAP-DISREGARD-EDITS-IND-A                               DTSCS27
07587           MAP-STATUS-CHANGE-IND-A.                                DTSCS27
07588                                                                   DTSCS27
07589      MOVE WRK-ATB-NUM                                             DTSCS27
07590        TO MAP-EMP-NO-1-A                                          DTSCS27
07591           MAP-EMP-NO-2-A                                          DTSCS27
07592           MAP-YRQ-YR-A                                            DTSCS27
07593           MAP-JAN-EMPL-CNT-A                                      DTSCS27
07594           MAP-FEB-EMPL-CNT-A                                      DTSCS27
07595           MAP-MAR-EMPL-CNT-A                                      DTSCS27
07596           MAP-APR-EMPL-CNT-A                                      DTSCS27
07597           MAP-MAY-EMPL-CNT-A                                      DTSCS27
07598           MAP-JUN-EMPL-CNT-A                                      DTSCS27
07599           MAP-JUL-EMPL-CNT-A                                      DTSCS27
07600           MAP-AUG-EMPL-CNT-A                                      DTSCS27
07601           MAP-SEP-EMPL-CNT-A                                      DTSCS27
07602           MAP-OCT-EMPL-CNT-A                                      DTSCS27
07603           MAP-NOV-EMPL-CNT-A                                      DTSCS27
07604           MAP-DEC-EMPL-CNT-A                                      DTSCS27
07605           MAP-TAX-WAGE-A                                          DTSCS27
07606           MAP-REMIT-AMT-A                                         DTSCS27
07607           MAP-RECEIVED-DATE-DA-A                                  DTSCS27
07608           MAP-RECEIVED-DATE-MO-A                                  DTSCS27
07609           MAP-RECEIVED-DATE-YR-A                                  DTSCS27
07610           MAP-ENTRY-MODE-A.                                       DTSCS27
07611                                                                   DTSCS27
07612      PERFORM S5910-WAGE-ITEMS     THRU S5910-EXIT                 DTSCS27
07613         VARYING SUB FROM +1 BY +1                                 DTSCS27
07614         UNTIL SUB > WRK-MAX-WAGE-ITEMS.                           DTSCS27
07615                                                                   DTSCS27
07616      MOVE CATB-ASKIP-NORM-MDTON TO MAP-YRQ-Q-A.                   DTSCS27
07617                                                                   DTSCS27
07618      IF LCCM-OP-ARPT-EDIT-FULL-88                                 DTSCS27
07619         MOVE CATB-ASKIP-NORM-MDTON   TO MAP-TAX-WG-BASE-LBL-A     DTSCS27
07620         MOVE WRK-ATB-NUM             TO MAP-TAX-WG-BASE-A         DTSCS27
07621      ELSE                                                         DTSCS27
07622         MOVE CATB-ASKIP-DRK-MDTOFF   TO MAP-TAX-WG-BASE-LBL-A     DTSCS27
07623                                         MAP-TAX-WG-BASE-A         DTSCS27
07624      END-IF.                                                      DTSCS27
07625                                                                   DTSCS27
07626      MOVE CATB-ASKIP-BRT-MDTON TO MAP-PROCESSED-DATE-A            DTSCS27
07627                                   MAP-PASSED-FULL-EDITS-IND-A     DTSCS27
07628                                   MAP-TOT-WAGE-A                  DTSCS27
07629                                   MAP-CALC-TAX-WAGE-A.            DTSCS27
07630                                                                   DTSCS27
07631      MOVE CATB-UNPROT-BRT-AN-MDTON TO MAP-GOTO-A.                 DTSCS27
07632  S5900-EXIT.                                                      DTSCS27
07633      EXIT.                                                        DTSCS27
07634                                                                   DTSCS27
07635  S5910-WAGE-ITEMS.                                                DTSCS27
07636      IF MAP-SSN1 (SUB) = LOW-VALUES OR SPACES                     DTSCS27
07637         MOVE WRK-ATB-NUM     TO MAP-SSN1-A (SUB)                  DTSCS27
07638                                 MAP-SSN2-A (SUB)                  DTSCS27
07639                                 MAP-SSN3-A (SUB)                  DTSCS27
07640         MOVE WRK-ATB-AN      TO MAP-SSN-NAME-CHK-A (SUB)          DTSCS27
07641      ELSE                                                         DTSCS27
07642         IF L427-SSN-PRE-FILL-88 (SUB)                             DTSCS27
07643         OR L427-SSN-CURR-WAGE-88 (SUB)                            DTSCS27
07644            MOVE CATB-ASKIP-BRT-MDTON TO                           DTSCS27
07645                                 MAP-SSN1-A (SUB)                  DTSCS27
07646                                 MAP-SSN2-A (SUB)                  DTSCS27
07647                                 MAP-SSN3-A (SUB)                  DTSCS27
07648            MOVE WRK-ATB-AN   TO MAP-SSN-NAME-CHK-A (SUB)          DTSCS27
07649         ELSE                                                      DTSCS27
07650            MOVE WRK-ATB-NUM  TO MAP-SSN1-A (SUB)                  DTSCS27
07651                                 MAP-SSN2-A (SUB)                  DTSCS27
07652                                 MAP-SSN3-A (SUB)                  DTSCS27
07653            MOVE WRK-ATB-AN   TO MAP-SSN-NAME-CHK-A (SUB).         DTSCS27
07654                                                                   DTSCS27
07655      IF L427-SSN-CURR-WAGE-88 (SUB)                               DTSCS27
07656         MOVE CATB-ASKIP-BRT-MDTON TO                              DTSCS27
07657                               MAP-YRQ1-WAGES-A (SUB)              DTSCS27
07658                               MAP-YRQ2-WAGES-A (SUB)              DTSCS27
07659                               MAP-YRQ3-WAGES-A (SUB)              DTSCS27
07660                               MAP-YRQ4-WAGES-A (SUB)              DTSCS27
07661      ELSE                                                         DTSCS27
07662         MOVE WRK-ATB-AN    TO MAP-YRQ1-WAGES-A (SUB)              DTSCS27
07663                               MAP-YRQ2-WAGES-A (SUB)              DTSCS27
07664                               MAP-YRQ3-WAGES-A (SUB)              DTSCS27
07665                               MAP-YRQ4-WAGES-A (SUB).             DTSCS27
07666  S5910-EXIT.                                                      DTSCS27
07667      EXIT.                                                        DTSCS27
07668 /*****************************************************************DTSCS27
07669 * MAP ROUTINES                                                   *DTSCS27
07670 ******************************************************************DTSCS27
07671                                                                   DTSCS27
07672  S9100-RECEIVE.                                                   DTSCS27
07673      SET L851-RECEIVE-88 TO TRUE.                                 DTSCS27
07674                                                                   DTSCS27
07675      MOVE WRK-SCR-ID TO L851-SCR-ID.                              DTSCS27
07676                                                                   DTSCS27
07677      PERFORM S851-SCREEN-PROCESSING THRU S851-EXIT.               DTSCS27
07678                                                                   DTSCS27
07679      MOVE L851-AID TO LCCM-AID.                                   DTSCS27
07680                                                                   DTSCS27
07681      MOVE L851-CURSOR TO LCCM-CURSOR.                             DTSCS27
07682  S9100-EXIT.                                                      DTSCS27
07683      EXIT.                                                        DTSCS27
07684                                                                   DTSCS27
07685                                                                   DTSCS27
07686                                                                   DTSCS27
07687  S9200-SEND-DATAONLY.                                             DTSCS27
07688      MOVE LOW-VALUES TO MAP-AREA.                                 DTSCS27
07689                                                                   DTSCS27
07690      IF LCCM-NO-MSG                                               DTSCS27
07691          NEXT SENTENCE                                            DTSCS27
07692      ELSE                                                         DTSCS27
07693          PERFORM S805-MSG-AREA THRU S805-EXIT.                    DTSCS27
07694                                                                   DTSCS27
07695      IF CURSOR-SET-GOTO                                           DTSCS27
07696          MOVE CATB-CURSOR TO MAP-GOTO-L                           DTSCS27
07697      ELSE                                                         DTSCS27
07698          MOVE CATB-CURSOR TO MAP-BATCH-NO-L.                      DTSCS27
07699                                                                   DTSCS27
07700      SET L851-SEND-DATAONLY-88 TO TRUE.                           DTSCS27
07701                                                                   DTSCS27
07702      PERFORM S9900-PREPARE-SEND THRU S9900-EXIT.                  DTSCS27
07703                                                                   DTSCS27
07704      PERFORM S851-SCREEN-PROCESSING THRU S851-EXIT.               DTSCS27
07705  S9200-EXIT.                                                      DTSCS27
07706      EXIT.                                                        DTSCS27
07707                                                                   DTSCS27
07708                                                                   DTSCS27
07709                                                                   DTSCS27
07710  S9300-SEND-MAP.                                                  DTSCS27
07711      MOVE  LCCM-TASK-START-DISP-DATE TO MAP-SYS-DATE.             DTSCS27
07712                                                                   DTSCS27
07713      MOVE  LCCM-CICS-REGION-NAME TO MAP-CICS-REGION-NAME.         DTSCS27
07714                                                                   DTSCS27
07715      MOVE  LCCM-TASK-START-DISP-TIME TO MAP-SYS-TIME.             DTSCS27
07716                                                                   DTSCS27
07717      IF SCR-ACCESS-UPDATE                                         DTSCS27
07718          PERFORM S9310-UPDATE-FKEYS THRU S9310-EXIT               DTSCS27
07719      ELSE                                                         DTSCS27
07720          PERFORM S9320-INQUIRY-FKEYS THRU S9320-EXIT.             DTSCS27
07721                                                                   DTSCS27
07722      PERFORM S9330-DSCR-FIELDS THRU S9330-EXIT.                   DTSCS27
07723                                                                   DTSCS27
07724      PERFORM S805-MSG-AREA THRU S805-EXIT.                        DTSCS27
07725                                                                   DTSCS27
07726      IF CURSOR-SET-NO                                             DTSCS27
07727          MOVE CATB-CURSOR TO MAP-BATCH-NO-L.                      DTSCS27
07728                                                                   DTSCS27
07729      SET L851-SEND-88 TO TRUE.                                    DTSCS27
07730                                                                   DTSCS27
07731      PERFORM S9900-PREPARE-SEND THRU S9900-EXIT.                  DTSCS27
07732                                                                   DTSCS27
07733      PERFORM S851-SCREEN-PROCESSING THRU S851-EXIT.               DTSCS27
07734  S9300-EXIT.                                                      DTSCS27
07735      EXIT.                                                        DTSCS27
07736                                                                   DTSCS27
07737                                                                   DTSCS27
07738                                                                   DTSCS27
07739  S9310-UPDATE-FKEYS.                                              DTSCS27
07740      PERFORM S9320-INQUIRY-FKEYS THRU S9320-EXIT.                 DTSCS27
07741                                                                   DTSCS27
07742      IF LCCM-SCR-CLEAR                                            DTSCS27
07743          MOVE 'ENTER=ADD' TO MAP-KEY-ENTER                        DTSCS27
07744      ELSE                                                         DTSCS27
07745      IF LCCM-SCR-INQUIRE                                          DTSCS27
07746          MOVE CFKD-MOD TO MAP-KEY-MOD                             DTSCS27
07747          MOVE CFKD-DEL TO MAP-KEY-DEL                             DTSCS27
07748      ELSE                                                         DTSCS27
07749      IF LCCM-SCR-UPDATE-LOCKED                                    DTSCS27
07750         MOVE LOW-VALUES TO  MAP-KEY-BACK                          DTSCS27
07751                             MAP-KEY-FWRD                          DTSCS27
07752                             MAP-KEY-INQ                           DTSCS27
07753                             MAP-KEY-WAGE-BACK                     DTSCS27
07754                             MAP-KEY-WAGE-FWRD.                    DTSCS27
07755  S9310-EXIT.                                                      DTSCS27
07756      EXIT.                                                        DTSCS27
07757                                                                   DTSCS27
07758                                                                   DTSCS27
07759                                                                   DTSCS27
07760  S9320-INQUIRY-FKEYS.                                             DTSCS27
07761      MOVE 'F5=WG BACK' TO MAP-KEY-WAGE-BACK.                      DTSCS27
07762                                                                   DTSCS27
07763      MOVE 'F6=WG FWRD' TO MAP-KEY-WAGE-FWRD.                      DTSCS27
07764                                                                   DTSCS27
07765      MOVE CFKD-BACKWARD TO MAP-KEY-BACK.                          DTSCS27
07766                                                                   DTSCS27
07767      MOVE CFKD-FORWARD TO MAP-KEY-FWRD.                           DTSCS27
07768                                                                   DTSCS27
07769      MOVE LOW-VALUES TO MAP-KEY-ENTER                             DTSCS27
07770                         MAP-KEY-MOD                               DTSCS27
07771                         MAP-KEY-DEL.                              DTSCS27
07772                                                                   DTSCS27
07773      MOVE 'F9=INQ' TO MAP-KEY-INQ.                                DTSCS27
07774  S9320-EXIT.                                                      DTSCS27
07775      EXIT.                                                        DTSCS27
07776                                                                   DTSCS27
07777                                                                   DTSCS27
07778                                                                   DTSCS27
07779  S9330-DSCR-FIELDS.                                               DTSCS27
07780      IF MAP-ENTRY-MODE-A = CATB-UNPROT-NORM-NUM-MDTON             DTSCS27
07781          NEXT SENTENCE                                            DTSCS27
07782      ELSE                                                         DTSCS27
07783          MOVE LCCM-ENTRY-MODE TO MAP-ENTRY-MODE.                  DTSCS27
07784                                                                   DTSCS27
07785      IF MAP-EDIT-MODE-A = CATB-UNPROT-NORM-AN-MDTON               DTSCS27
07786          NEXT SENTENCE                                            DTSCS27
07787      ELSE                                                         DTSCS27
07788          MOVE LCCM-OP-ARPT-EDIT-MODE TO MAP-EDIT-MODE.            DTSCS27
07789  S9330-EXIT.                                                      DTSCS27
07790      EXIT.                                                        DTSCS27
07791                                                                   DTSCS27
07792                                                                   DTSCS27
07793                                                                   DTSCS27
07794  S9900-PREPARE-SEND.                                              DTSCS27
07795      MOVE WRK-SCR-ID TO L851-SCR-ID                               DTSCS27
07796                         LCCM-SCR-ID.                              DTSCS27
07797                                                                   DTSCS27
07798      MOVE LCCM-OP-ALARM-IND TO L851-ALARM-IND.                    DTSCS27
07799                                                                   DTSCS27
07800      MOVE LCCM-MSG-TYPE TO L851-MSG-TYPE.                         DTSCS27
07801  S9900-EXIT.                                                      DTSCS27
07802      EXIT.                                                        DTSCS27
