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