giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
f8b9dd0f5612ad38b5ea474fd5af67b0e43194ce
DUTAS/CICS/DTSCS24.cob
Neeraj Kumar ca3572c5df DUTAS re-platformed to Raincode - Initial Source Code
2025-07-21 11:20:11 -04:00

5473 lines
428 KiB
COBOL
Raw Blame History

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
Reference in New Issue View Git Blame Copy Permalink