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