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