1717 lines
136 KiB
COBOL
1717 lines
136 KiB
COBOL
00001 IDENTIFICATION DIVISION. 08/07/12
|
|
00002 PROGRAM-ID. DTSBX440. DTSBX440
|
|
00003 AUTHOR. NGC. LV001
|
|
00004 DATE-WRITTEN. NOVEMBER 2007. DTSBX440
|
|
00005 DATE-COMPILED. DTSBX440
|
|
00006 SKIP3 DTSBX440
|
|
00007 ***** DTSBX440
|
|
00008 * DTSBX440
|
|
00009 * FUNCTION: INTERNAL WEB MAINFRAME INPUT- AUDITS DTSBX440
|
|
00010 * FROM X163 AND X164 FILES. DTSBX440
|
|
00011 * DTSBX440
|
|
00012 * MODIFICATION LOG: DTSBX440
|
|
00013 * DTSBX440
|
|
00014 * 03/13/2012 INITIAL DEVELOPMENT. DTSBX440
|
|
00015 * REFERENCE: PROGRAMMER: GD DTSBX440
|
|
00016 * DTSBX440
|
|
00017 * 03/13/2012 ADDED CODE TO EDIT AUDIT RECORDS COMING FROM DTSBX440
|
|
00018 * SERVER. TWO RECORDS TYPES ARE EDITED DTSBX440
|
|
00019 * X163 TO UPDATE MFAS AND MUIR RECS AND X164 TO DTSBX440
|
|
00020 * CREATE/UPDATE MAUY RECS. DTSBX440
|
|
00021 * REFERENCE: PROGRAMMER: ZL1 DTSBX440
|
|
00022 * DTSBX440
|
|
00023 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBX440
|
|
00024 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBX440
|
|
00025 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBX440
|
|
00026 * DTSBX440
|
|
00027 * DTSBX440
|
|
00028 * DESCRIPTION: DTSBX440
|
|
00029 * DTSBX440
|
|
00030 * DTSBX440
|
|
00031 * INITIATION: DTSBX440
|
|
00032 * DTSBX440
|
|
00033 * SET LECM-MST-OPEN-READ-88 TO TRUE. DTSBX440
|
|
00034 * SET LECM-REF-OPEN-READ-88 TO TRUE. DTSBX440
|
|
00035 * DTSBX440
|
|
00036 * EDIT AND DEFAULT PARAMETERS. DTSBX440
|
|
00037 * DTSBX440
|
|
00038 * DTSBX440
|
|
00039 * PROCESSING: DTSBX440
|
|
00040 * DTSBX440
|
|
00041 * DTSBX440
|
|
00042 * TERMINATION: DTSBX440
|
|
00043 * DTSBX440
|
|
00044 * DTSBX440
|
|
00045 * DTSBX440
|
|
00046 * RECORDS READ: DTSBX440
|
|
00047 * DTSBX440
|
|
00048 * MASTER: DTSBX440
|
|
00049 * DTSBX440
|
|
00050 * MFAS DTSBX440
|
|
00051 * MUIR DTSBX440
|
|
00052 * MAUY DTSBX440
|
|
00053 * DTSBX440
|
|
00054 * ALTERNATE INDEX: DTSBX440
|
|
00055 * DTSBX440
|
|
00056 * NONE. DTSBX440
|
|
00057 * DTSBX440
|
|
00058 * DTSBX440
|
|
00059 * REFERENCE: DTSBX440
|
|
00060 * DTSBX440
|
|
00061 * DTSBX440
|
|
00062 * DTSBX440
|
|
00063 * RECORDS UPDATED: DTSBX440
|
|
00064 * DTSBX440
|
|
00065 * NONE DTSBX440
|
|
00066 * DTSBX440
|
|
00067 * DTSBX440
|
|
00068 * OUTPUT RECORDS WRITTEN: DTSBX440
|
|
00069 * DTSBX440
|
|
00070 * DTSIT040 TRANSACTIONS RECORDS DTSBX440
|
|
00071 * DTSBX440
|
|
00072 * DTSBX440
|
|
00073 * BATCH TRANSACTION COLLECTION RECORDS WRITTEN: DTSBX440
|
|
00074 * DTSBX440
|
|
00075 * NONE. DTSBX440
|
|
00076 * DTSBX440
|
|
00077 * DTSBX440
|
|
00078 * MODULES CALLED: DTSBX440
|
|
00079 * DTSBX440
|
|
00080 * DTSBU001 DATE EDIT/CONVERSION. DTSBX440
|
|
00081 * DTSBU004 QUARTER EDIT/CONVERSION. DTSBX440
|
|
00082 * DTSBU910 MASTER FILE I/O. DTSBX440
|
|
00083 * DTSBX440
|
|
00084 * DTSBX440
|
|
00085 * DTSBX440
|
|
00086 ***** DTSBX440
|
|
00087 SKIP3 DTSBX440
|
|
00088 ENVIRONMENT DIVISION. DTSBX440
|
|
00089 INPUT-OUTPUT SECTION. DTSBX440
|
|
00090 FILE-CONTROL. DTSBX440
|
|
00091 DTSBX440
|
|
00092 SELECT WEB-AUD-FILE ASSIGN TO DTSFAUDT DTSBX440
|
|
00093 FILE STATUS IS AUDIT-STATUS. DTSBX440
|
|
00094 DTSBX440
|
|
00095 DATA DIVISION. DTSBX440
|
|
00096 FILE SECTION. DTSBX440
|
|
00097 FD WEB-AUD-FILE DTSBX440
|
|
00098 RECORDING MODE IS F DTSBX440
|
|
00099 LABEL RECORDS ARE STANDARD DTSBX440
|
|
00100 BLOCK CONTAINS 0 CHARACTERS. DTSBX440
|
|
00101 DTSBX440
|
|
00102 01 AUDIT-REC. DTSBX440
|
|
00103 05 AUDIT-QTR-REC-TYPE PIC X(03). DTSBX440
|
|
00104 88 REC-TYPE-AUDIT-163-88 VALUE '163'. DTSBX440
|
|
00105 88 REC-TYPE-AUDIT-164-88 VALUE '164'. DTSBX440
|
|
00106 05 FILLER PIC X(01). DTSBX440
|
|
00107 05 AUDIT-QTR-EMP PIC 9(06). DTSBX440
|
|
00108 05 AUDIT-QTR-REC-FILLER PIC X(246). DTSBX440
|
|
00109 DTSBX440
|
|
00110 DTSBX440
|
|
00111 WORKING-STORAGE SECTION. DTSBX440
|
|
001115 77 PAN-VALET PICTURE X(24) VALUE '001DTSBX440 08/07/12'. DTSBX440
|
|
00112 SKIP3 DTSBX440
|
|
00113 01 W-AREA. DTSBX440
|
|
00114 05 W-ABEND-CD PIC S9(04) COMP VALUE +440.DTSBX440
|
|
00115 05 W-MOD-NAME PIC X(08) VALUE 'DTSBX440'.DTSBX440
|
|
00116 DTSBX440
|
|
00117 05 WEB-AUD-STATUS PIC X(02). DTSBX440
|
|
00118 88 WEB-AUD-STATUS-OK-88 VALUE '00'. DTSBX440
|
|
00119 88 WEB-AUD-STATUS-EOF-88 VALUE '10'. DTSBX440
|
|
00120 DTSBX440
|
|
00121 DTSBX440
|
|
00122 05 ABEND-MSG PIC X(60). DTSBX440
|
|
00123 DTSBX440
|
|
00124 05 AUDIT-STATUS PIC X(02). DTSBX440
|
|
00125 88 WEB-STATUS-OK-88 VALUE '00'. DTSBX440
|
|
00126 88 WEB-STATUS-EOF-88 VALUE '10'. DTSBX440
|
|
00127 DTSBX440
|
|
00128 05 MAUR-STATUS PIC X(01). DTSBX440
|
|
00129 88 MAUR-REC-FOUND-88 VALUE '0'. DTSBX440
|
|
00130 88 MAUR-REC-NOT-FOUND-88 VALUE '1'. DTSBX440
|
|
00131 DTSBX440
|
|
00132 05 MAUY-STATUS PIC X(01). DTSBX440
|
|
00133 88 MAUY-REC-FOUND-88 VALUE '0'. DTSBX440
|
|
00134 88 MAUY-REC-NOT-FOUND-88 VALUE '1'. DTSBX440
|
|
00135 DTSBX440
|
|
00136 05 W-INTEGER PIC S9(11) COMP-3. DTSBX440
|
|
00137 05 W-FRACTION PIC SV9(11) COMP-3. DTSBX440
|
|
00138 05 W-NUMBER PIC S9(11)V9(05) COMP-3. DTSBX440
|
|
00139 05 WRK-AUDIT-HRS PIC S9(04)V9(01) COMP-3. DTSBX440
|
|
00140 DTSBX440
|
|
00141 05 W-ERROR-IND PIC X(01) VALUE 'N'. DTSBX440
|
|
00142 88 W-ERROR-YES-88 VALUE 'Y'. DTSBX440
|
|
00143 88 W-ERROR-NO-88 VALUE 'N'. DTSBX440
|
|
00144 DTSBX440
|
|
00145 05 W-AUDIT-START-DT PIC S9(09) COMP-3 DTSBX440
|
|
00146 VALUE 20071001. DTSBX440
|
|
00147 05 W-START-DT PIC S9(09) COMP-3. DTSBX440
|
|
00148 05 W-DEFAULT-DATE PIC X(10) DTSBX440
|
|
00149 VALUE '01/01/1994'. DTSBX440
|
|
00150 DTSBX440
|
|
00151 05 T040-ERROR-SW PIC 9(01) VALUE 0. DTSBX440
|
|
00152 05 WRK-ERR-TYPE OCCURS 5 TIMES PIC 9(02). DTSBX440
|
|
00153 DTSBX440
|
|
00154 05 W-SLASH-DATE PIC X(10). DTSBX440
|
|
00155 05 FILLER REDEFINES W-SLASH-DATE. DTSBX440
|
|
00156 10 W-SLASH-DT-MM PIC X(02). DTSBX440
|
|
00157 10 FILLER PIC X(01). DTSBX440
|
|
00158 10 W-SLASH-DT-DD PIC X(02). DTSBX440
|
|
00159 10 FILLER PIC X(01). DTSBX440
|
|
00160 10 W-SLASH-DT-CCYY PIC X(04). DTSBX440
|
|
00161 DTSBX440
|
|
00162 05 WRK-FLD-REP-ID PIC X(02) VALUE SPACES. DTSBX440
|
|
00163 05 WRK-ERROR-TYPE PIC X(02). DTSBX440
|
|
00164 05 WRK-SLASH-YRQ PIC X(06). DTSBX440
|
|
00165 05 FILLER REDEFINES WRK-SLASH-YRQ. DTSBX440
|
|
00166 10 WRK-SLASH-YRQ-YR PIC X(04). DTSBX440
|
|
00167 10 FILLER PIC X(01). DTSBX440
|
|
00168 10 WRK-SLASH-YRQ-QTR PIC X(01). DTSBX440
|
|
00169 DTSBX440
|
|
00170 05 WRK-YRQ. DTSBX440
|
|
00171 10 WRK-YRQ-YR PIC 9(04). DTSBX440
|
|
00172 10 WRK-YRQ-QTR PIC 9(01). DTSBX440
|
|
00173 DTSBX440
|
|
00174 05 W-WRK-YRQ PIC S9(5) COMP-3. DTSBX440
|
|
00175 DTSBX440
|
|
00176 05 SUB PIC S9(04) COMP. DTSBX440
|
|
00177 05 WRK-SUB PIC 9(04). DTSBX440
|
|
00178 05 W-SUB PIC 9(04). DTSBX440
|
|
00179 05 AUDIT-CNT-SUB PIC S9(04) COMP. DTSBX440
|
|
00180 DTSBX440
|
|
00181 05 WRK-CAL-YEAR PIC 9(04). DTSBX440
|
|
00182 DTSBX440
|
|
00183 05 W-QTR-3-AREA. DTSBX440
|
|
00184 10 W-QTR-3-YY PIC X(02). DTSBX440
|
|
00185 10 FILLER PIC X(01). DTSBX440
|
|
00186 10 W-QTR-3-Q PIC X(01). DTSBX440
|
|
00187 DTSBX440
|
|
00188 05 ALL-NINES-DT PIC S9(09) COMP-3 DTSBX440
|
|
00189 VALUE +999999999. DTSBX440
|
|
00190 05 ALL-NINES-DT-DISP PIC X(10) VALUE '12/31/9999'. DTSBX440
|
|
00191 05 ALL-NINES-QTR PIC S9(05) COMP-3 DTSBX440
|
|
00192 VALUE +99999. DTSBX440
|
|
00193 05 ALL-NINES-QTR-DISP PIC X(06) VALUE '9999/9'. DTSBX440
|
|
00194 DTSBX440
|
|
00195 05 W-COMP-DATE PIC S9(09) COMP-3. DTSBX440
|
|
00196 05 W-PROCESS-DATE PIC S9(09) COMP-3. DTSBX440
|
|
00197 05 W-CHNG-DATE PIC S9(09)V99 COMP-3. DTSBX440
|
|
00198 DTSBX440
|
|
00199 05 WRK-EMPE-CNT PIC S9(05) COMP-3 VALUE 0. DTSBX440
|
|
00200 05 WRK-EMPL-CNT PIC S9(05) COMP-3 VALUE 0. DTSBX440
|
|
00201 DTSBX440
|
|
00202 05 WRK-QTR-GROSS-PAYROLL PIC S9(11)V99 COMP-3. DTSBX440
|
|
00203 05 WRK-QTR-UNDER-TOT-WAGE PIC S9(11)V99 COMP-3. DTSBX440
|
|
00204 05 WRK-QTR-UNDER-TAX-WAGE PIC S9(11)V99 COMP-3. DTSBX440
|
|
00205 05 WRK-QTR-UNDER-CONTRIB PIC S9(11)V99 COMP-3. DTSBX440
|
|
00206 05 WRK-QTR-OVER-TOT-WAGE PIC S9(11)V99 COMP-3. DTSBX440
|
|
00207 05 WRK-QTR-OVER-TAX-WAGE PIC S9(11)V99 COMP-3. DTSBX440
|
|
00208 05 WRK-QTR-OVER-CONTRIB PIC S9(11)V99 COMP-3. DTSBX440
|
|
00209 DTSBX440
|
|
00210 05 WRK-OP-ID PIC X(08) VALUE SPACES. DTSBX440
|
|
00211 05 W-MONEY-AMT-X PIC X(12). DTSBX440
|
|
00212 05 W-MONEY-AMT-9 REDEFINES W-MONEY-AMT-X DTSBX440
|
|
00213 PIC 9(09).99. DTSBX440
|
|
00214 05 W-MONEY-AMT PIC S9(09)V99 VALUE 0. DTSBX440
|
|
00215 DTSBX440
|
|
00216 05 W-AUDIT-HRS PIC S9(04)V9 COMP-3. DTSBX440
|
|
00217 05 WRK-QTR-AUDITED-CNT PIC S9(03) COMP-3. DTSBX440
|
|
00218 DTSBX440
|
|
00219 05 WRK-COLLECT-AMT PIC S9(09)V99 COMP-3. DTSBX440
|
|
00220 05 WRK-DUE-AMT PIC S9(09)V99 COMP-3. DTSBX440
|
|
00221 05 WRK-CONTRIB-AMT PIC S9(09)V99 COMP-3. DTSBX440
|
|
00222 05 WRK-MONEY-AMT PIC S9(11)V99 COMP-3. DTSBX440
|
|
00223 DTSBX440
|
|
00224 05 W-WEB-IMP-CNT PIC 9(08) VALUE ZEROS. DTSBX440
|
|
00225 05 W-T040-MFAS-CNT PIC 9(08) VALUE ZEROS. DTSBX440
|
|
00226 05 W-T040-MAUY-CNT PIC 9(08) VALUE ZEROS. DTSBX440
|
|
00227 05 W-T040-MAUR-CNT PIC 9(08) VALUE ZEROS. DTSBX440
|
|
00228 05 WRK-ASSIGN-NO PIC 9(09). DTSBX440
|
|
00229 05 FILLER REDEFINES WRK-ASSIGN-NO. DTSBX440
|
|
00230 10 WRK-ASSIGN-CC PIC 9(02). DTSBX440
|
|
00231 10 WRK-ASSIGN-YY PIC 9(02). DTSBX440
|
|
00232 10 WRK-ASSIGN-NBR PIC 9(05). DTSBX440
|
|
00233 05 WRK-FLD-ASSIGN. DTSBX440
|
|
00234 10 WRK-FLD-ASSIGN-YEAR PIC 9(02). DTSBX440
|
|
00235 10 FILLER PIC X(01) VALUE SPACE. DTSBX440
|
|
00236 10 WRK-FLD-ASSIGN-NBR PIC 9(05). DTSBX440
|
|
00237 DTSBX440
|
|
00238 05 T040-UPD-MFAS PIC 9(02) VALUE ZEROS. DTSBX440
|
|
00239 05 T040-UPD-MAUR PIC 9(02) VALUE ZEROS. DTSBX440
|
|
00240 05 T040-UPD-MAUY PIC 9(02) VALUE ZEROS. DTSBX440
|
|
00241 05 W-ERROR-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX440
|
|
00242 05 W-QCOLL-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX440
|
|
00243 05 W-AUDIT-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX440
|
|
00244 05 W-ACTIVE-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX440
|
|
00245 DTSBX440
|
|
00246 05 DISPLAY-AMT1-X PIC X(14). DTSBX440
|
|
00247 05 DISPLAY-AMT1 REDEFINES DISPLAY-AMT1-X DTSBX440
|
|
00248 PIC ---,---,--9.99. DTSBX440
|
|
00249 05 DISPLAY-AMT2-X PIC X(14). DTSBX440
|
|
00250 05 DISPLAY-AMT2 REDEFINES DISPLAY-AMT2-X DTSBX440
|
|
00251 PIC ---,---,--9.99. DTSBX440
|
|
00252 05 DISPLAY-AMT3-X PIC X(14). DTSBX440
|
|
00253 05 DISPLAY-AMT3 REDEFINES DISPLAY-AMT3-X DTSBX440
|
|
00254 PIC ---,---,--9.99. DTSBX440
|
|
00255 05 DISPLAY-AMT4-X PIC X(14). DTSBX440
|
|
00256 05 DISPLAY-AMT4 REDEFINES DISPLAY-AMT4-X DTSBX440
|
|
00257 PIC ---,---,--9.99. DTSBX440
|
|
00258 EJECT DTSBX440
|
|
00259 01 L001-LINK-AREA. DTSBX440
|
|
00260 ++INCLUDE DTSIL001 DTSBX440
|
|
00261 EJECT DTSBX440
|
|
00262 01 L004-LINK-AREA. DTSBX440
|
|
00263 ++INCLUDE DTSIL004 DTSBX440
|
|
00264 EJECT DTSBX440
|
|
00265 01 L005-LINK-AREA. DTSBX440
|
|
00266 ++INCLUDE DTSIL005 DTSBX440
|
|
00267 DTSBX440
|
|
00268 01 T040-LINK-AREA. DTSBX440
|
|
00269 ++INCLUDE DTSIT040 DTSBX440
|
|
00270 DTSBX440
|
|
00271 01 L036-LINK-AREA. DTSBX440
|
|
00272 ++INCLUDE DTSIL036 DTSBX440
|
|
00273 DTSBX440
|
|
00274 01 L062-LINK-AREA. DTSBX440
|
|
00275 ++INCLUDE DTSIL062 DTSBX440
|
|
00276 DTSBX440
|
|
00277 01 R140-REC. DTSBX440
|
|
00278 ++INCLUDE DTSIR140 DTSBX440
|
|
00279 DTSBX440
|
|
00280 01 L205-LINK-AREA. DTSBX440
|
|
00281 ++INCLUDE DTSIL205 DTSBX440
|
|
00282 DTSBX440
|
|
00283 01 L910-LINK-AREA. DTSBX440
|
|
00284 ++INCLUDE DTSIL910 DTSBX440
|
|
00285 SKIP3 DTSBX440
|
|
00286 01 L927-LINK-AREA. DTSBX440
|
|
00287 ++INCLUDE DTSIL927 DTSBX440
|
|
00288 SKIP3 DTSBX440
|
|
00289 01 MSKL-REC. DTSBX440
|
|
00290 ++INCLUDE DTSIMSKL DTSBX440
|
|
00291 SKIP3 DTSBX440
|
|
00292 01 TSKL-REC. DTSBX440
|
|
00293 ++INCLUDE DTSITSKL DTSBX440
|
|
00294 SKIP3 DTSBX440
|
|
00295 01 MHDR-REC. DTSBX440
|
|
00296 ++INCLUDE DTSIMHDR DTSBX440
|
|
00297 SKIP3 DTSBX440
|
|
00298 01 X163-REC. DTSBX440
|
|
00299 ++INCLUDE DTSIX163 DTSBX440
|
|
00300 SKIP3 DTSBX440
|
|
00301 01 X164-REC. DTSBX440
|
|
00302 ++INCLUDE DTSIX164 DTSBX440
|
|
00303 SKIP3 DTSBX440
|
|
00304 01 MAUY-REC. DTSBX440
|
|
00305 ++INCLUDE DTSIMAUY DTSBX440
|
|
00306 SKIP3 DTSBX440
|
|
00307 01 MFAS-REC. DTSBX440
|
|
00308 ++INCLUDE DTSIMFAS DTSBX440
|
|
00309 SKIP3 DTSBX440
|
|
00310 01 MAUR-REC. DTSBX440
|
|
00311 ++INCLUDE DTSIMAUR DTSBX440
|
|
00312 SKIP3 DTSBX440
|
|
00313 01 L921-LINK-AREA. DTSBX440
|
|
00314 ++INCLUDE DTSIL921 DTSBX440
|
|
00315 SKIP3 DTSBX440
|
|
00316 01 ISKL-REC. DTSBX440
|
|
00317 ++INCLUDE DTSIISKL DTSBX440
|
|
00318 SKIP3 DTSBX440
|
|
00319 01 IEIN-REC. DTSBX440
|
|
00320 ++INCLUDE DTSIIEIN DTSBX440
|
|
00321 DTSBX440
|
|
00322 01 L931-LINK-AREA. DTSBX440
|
|
00323 ++INCLUDE DTSIL931 DTSBX440
|
|
00324 SKIP3 DTSBX440
|
|
00325 01 FSKL-REC. DTSBX440
|
|
00326 ++INCLUDE DTSIFSKL DTSBX440
|
|
00327 SKIP3 DTSBX440
|
|
00328 01 FQTR-REC. DTSBX440
|
|
00329 ++INCLUDE DTSIFQTR DTSBX440
|
|
00330 DTSBX440
|
|
00331 LINKAGE SECTION. DTSBX440
|
|
00332 DTSBX440
|
|
00333 DTSBX440
|
|
00334 01 MPRF-REC. DTSBX440
|
|
00335 ++INCLUDE DTSIMPRF DTSBX440
|
|
00336 EJECT DTSBX440
|
|
00337 PROCEDURE DIVISION. DTSBX440
|
|
00338 DTSBX440
|
|
00339 PERFORM I0000-INITIALIZE THRU I0000-EXIT DTSBX440
|
|
00340 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBX440
|
|
00341 PERFORM T0000-TERMINATE THRU T0000-EXIT DTSBX440
|
|
00342 DTSBX440
|
|
00343 GOBACK. DTSBX440
|
|
00344 DTSBX440
|
|
00345 I0000-INITIALIZE. DTSBX440
|
|
00346 PERFORM S005-FROM-SYS THRU S005-EXIT. DTSBX440
|
|
00347 PERFORM I2000-OPEN-FILES THRU I2000-EXIT. DTSBX440
|
|
00348 MOVE ZEROS TO W-SUB. DTSBX440
|
|
00349 MOVE LENGTH OF R140-REC TO R140-LENGTH. DTSBX440
|
|
00350 I0000-EXIT. DTSBX440
|
|
00351 EXIT. DTSBX440
|
|
00352 DTSBX440
|
|
00353 DTSBX440
|
|
00354 I2000-OPEN-FILES. DTSBX440
|
|
00355 DTSBX440
|
|
00356 OPEN INPUT WEB-AUD-FILE. DTSBX440
|
|
00357 IF NOT WEB-STATUS-OK-88 DTSBX440
|
|
00358 DISPLAY 'AUDIT FILE OPEN ERROR: ' AUDIT-STATUS DTSBX440
|
|
00359 MOVE 'FILE OPEN ERROR' DTSBX440
|
|
00360 TO ABEND-MSG DTSBX440
|
|
00361 PERFORM S999-ABEND THRU S999-EXIT DTSBX440
|
|
00362 END-IF. DTSBX440
|
|
00363 PERFORM S910-OPEN-READ THRU S910-EXIT. DTSBX440
|
|
00364 DTSBX440
|
|
00365 MOVE 'N' TO L927-TRACE-IND. DTSBX440
|
|
00366 MOVE W-MOD-NAME TO L927-MOD-NAME. DTSBX440
|
|
00367 PERFORM S927A-OPEN THRU S927A-EXIT. DTSBX440
|
|
00368 DTSBX440
|
|
00369 PERFORM S931-OPEN-READ THRU S931-EXIT. DTSBX440
|
|
00370 DTSBX440
|
|
00371 I2000-EXIT. DTSBX440
|
|
00372 EXIT. DTSBX440
|
|
00373 DTSBX440
|
|
00374 P0000-PROCESS. DTSBX440
|
|
00375 DTSBX440
|
|
00376 PERFORM P2000-AUDITS THRU P2000-EXIT. DTSBX440
|
|
00377 DTSBX440
|
|
00378 P0000-EXIT. DTSBX440
|
|
00379 EXIT. DTSBX440
|
|
00380 DTSBX440
|
|
00381 P2000-AUDITS. DTSBX440
|
|
00382 MOVE 0 TO T040-UPD-MFAS DTSBX440
|
|
00383 T040-UPD-MAUR. DTSBX440
|
|
00384 * T040-UPD-MAUY. DTSBX440
|
|
00385 DTSBX440
|
|
00386 PERFORM S1000-READ-WEB-IMP THRU S1000-EXIT. DTSBX440
|
|
00387 IF WEB-AUD-STATUS-EOF-88 DTSBX440
|
|
00388 GO TO P2000-EXIT. DTSBX440
|
|
00389 DTSBX440
|
|
00390 ADD 1 TO W-WEB-IMP-CNT. DTSBX440
|
|
00391 DTSBX440
|
|
00392 IF W-WEB-IMP-CNT = 1 AND NOT DTSBX440
|
|
00393 REC-TYPE-AUDIT-163-88 DTSBX440
|
|
00394 DISPLAY ' 1ST RECORD NOT TYPE 163... ABENDING' DTSBX440
|
|
00395 GO TO S999-ABEND. DTSBX440
|
|
00396 DTSBX440
|
|
00397 IF REC-TYPE-AUDIT-163-88 DTSBX440
|
|
00398 MOVE 0 TO W-SUB DTSBX440
|
|
00399 PERFORM P2100-PARSE-AUDITS THRU P2100-EXIT DTSBX440
|
|
00400 PERFORM P3000-AUDIT-MFAS THRU P3000-EXIT DTSBX440
|
|
00401 PERFORM P4000-AUDIT-MAUR THRU P4000-EXIT DTSBX440
|
|
00402 GO TO P2000-AUDITS. DTSBX440
|
|
00403 DTSBX440
|
|
00404 IF REC-TYPE-AUDIT-164-88 AND W-SUB = 0 DTSBX440
|
|
00405 PERFORM P2100-PARSE-AUDITS THRU P2100-EXIT DTSBX440
|
|
00406 PERFORM P4500-AUDIT-MAUY THRU P4500-AUDIT-MAUY-EXIT DTSBX440
|
|
00407 PERFORM P5000-QUARTER THRU P5000-EXIT DTSBX440
|
|
00408 GO TO P2000-AUDITS DTSBX440
|
|
00409 ELSE DTSBX440
|
|
00410 IF REC-TYPE-AUDIT-164-88 DTSBX440
|
|
00411 ADD 1 TO W-SUB DTSBX440
|
|
00412 PERFORM P2100-PARSE-AUDITS THRU P2100-EXIT DTSBX440
|
|
00413 PERFORM P5000-QUARTER THRU P5000-EXIT DTSBX440
|
|
00414 GO TO P2000-AUDITS. DTSBX440
|
|
00415 DTSBX440
|
|
00416 GO TO P2000-AUDITS. DTSBX440
|
|
00417 DTSBX440
|
|
00418 P2000-EXIT. DTSBX440
|
|
00419 EXIT. DTSBX440
|
|
00420 DTSBX440
|
|
00421 P2100-PARSE-AUDITS. DTSBX440
|
|
00422 PERFORM DTSBX440
|
|
00423 VARYING SUB FROM +1 BY +1 DTSBX440
|
|
00424 UNTIL SUB > +100 DTSBX440
|
|
00425 MOVE +0 TO L205-FIELD-LENGTH (SUB) DTSBX440
|
|
00426 L205-INTEGER (SUB) DTSBX440
|
|
00427 L205-FRACTION (SUB) DTSBX440
|
|
00428 MOVE SPACES TO L205-TEXT (SUB) DTSBX440
|
|
00429 L205-DATE (SUB) DTSBX440
|
|
00430 SET L205-TYPE-TEXT-88 (SUB) TO TRUE DTSBX440
|
|
00431 END-PERFORM. DTSBX440
|
|
00432 DTSBX440
|
|
00433 IF REC-TYPE-AUDIT-163-88 DTSBX440
|
|
00434 PERFORM P2200-AUDIT-X163 THRU P2200-EXIT DTSBX440
|
|
00435 ELSE DTSBX440
|
|
00436 IF REC-TYPE-AUDIT-164-88 DTSBX440
|
|
00437 PERFORM P2300-AUDIT-X164 THRU P2300-EXIT DTSBX440
|
|
00438 ELSE DTSBX440
|
|
00439 DISPLAY ' INVALID RECORD TYPE.....' DTSBX440
|
|
00440 END-IF. DTSBX440
|
|
00441 DTSBX440
|
|
00442 DTSBX440
|
|
00443 P2100-EXIT. DTSBX440
|
|
00444 EXIT. DTSBX440
|
|
00445 DTSBX440
|
|
00446 P2200-AUDIT-X163. DTSBX440
|
|
00447 INITIALIZE X163-REC DTSBX440
|
|
00448 MOVE +23 TO L205-LAST-FIELD DTSBX440
|
|
00449 MOVE +5 TO L205-LAST-FIELD-LEN DTSBX440
|
|
00450 DTSBX440
|
|
00451 **** RECORD TYPE DTSBX440
|
|
00452 MOVE +3 TO L205-FIELD-LENGTH (1). DTSBX440
|
|
00453 SET L205-TYPE-TEXT-88 (1) TO TRUE. DTSBX440
|
|
00454 DTSBX440
|
|
00455 **** EMPLOYER NUMBER DTSBX440
|
|
00456 MOVE +6 TO L205-FIELD-LENGTH (2). DTSBX440
|
|
00457 SET L205-TYPE-TEXT-88 (2) TO TRUE. DTSBX440
|
|
00458 DTSBX440
|
|
00459 **** ASSIGN NO DTSBX440
|
|
00460 MOVE +8 TO L205-FIELD-LENGTH (3). DTSBX440
|
|
00461 SET L205-TYPE-TEXT-88 (3) TO TRUE. DTSBX440
|
|
00462 DTSBX440
|
|
00463 **** COMPLETED DATE DTSBX440
|
|
00464 MOVE +10 TO L205-FIELD-LENGTH (4). DTSBX440
|
|
00465 SET L205-TYPE-TEXT-88 (4) TO TRUE. DTSBX440
|
|
00466 DTSBX440
|
|
00467 **** PROCESSED DATE DTSBX440
|
|
00468 MOVE +10 TO L205-FIELD-LENGTH (5). DTSBX440
|
|
00469 SET L205-TYPE-TEXT-88 (5) TO TRUE. DTSBX440
|
|
00470 DTSBX440
|
|
00471 **** FLD REP ID DTSBX440
|
|
00472 MOVE +2 TO L205-FIELD-LENGTH (6). DTSBX440
|
|
00473 SET L205-TYPE-TEXT-88 (6) TO TRUE. DTSBX440
|
|
00474 DTSBX440
|
|
00475 **** FIRST YRQ DTSBX440
|
|
00476 MOVE +6 TO L205-FIELD-LENGTH (7). DTSBX440
|
|
00477 SET L205-TYPE-TEXT-88 (7) TO TRUE. DTSBX440
|
|
00478 DTSBX440
|
|
00479 **** LAST YRQ DTSBX440
|
|
00480 MOVE +6 TO L205-FIELD-LENGTH (8). DTSBX440
|
|
00481 SET L205-TYPE-TEXT-88 (8) TO TRUE. DTSBX440
|
|
00482 DTSBX440
|
|
00483 **** QTR AUDITED CNT DTSBX440
|
|
00484 MOVE +3 TO L205-FIELD-LENGTH (9). DTSBX440
|
|
00485 SET L205-TYPE-NUMBER-88 (9) TO TRUE. DTSBX440
|
|
00486 DTSBX440
|
|
00487 **** EMP SIZE DTSBX440
|
|
00488 MOVE +1 TO L205-FIELD-LENGTH (10). DTSBX440
|
|
00489 SET L205-TYPE-TEXT-88 (10) TO TRUE. DTSBX440
|
|
00490 DTSBX440
|
|
00491 **** ERR TYPE 1 DTSBX440
|
|
00492 MOVE +2 TO L205-FIELD-LENGTH (11). DTSBX440
|
|
00493 SET L205-TYPE-TEXT-88 (11) TO TRUE. DTSBX440
|
|
00494 DTSBX440
|
|
00495 **** ERR TYPE 2 DTSBX440
|
|
00496 MOVE +2 TO L205-FIELD-LENGTH (12). DTSBX440
|
|
00497 SET L205-TYPE-TEXT-88 (12) TO TRUE. DTSBX440
|
|
00498 DTSBX440
|
|
00499 **** ERR TYPE 3 DTSBX440
|
|
00500 MOVE +2 TO L205-FIELD-LENGTH (13). DTSBX440
|
|
00501 SET L205-TYPE-TEXT-88 (13) TO TRUE. DTSBX440
|
|
00502 DTSBX440
|
|
00503 **** ERR TYPE 4 DTSBX440
|
|
00504 MOVE +2 TO L205-FIELD-LENGTH (14). DTSBX440
|
|
00505 SET L205-TYPE-TEXT-88 (14) TO TRUE. DTSBX440
|
|
00506 DTSBX440
|
|
00507 **** ERR TYPE 5 DTSBX440
|
|
00508 MOVE +2 TO L205-FIELD-LENGTH (15). DTSBX440
|
|
00509 SET L205-TYPE-TEXT-88 (15) TO TRUE. DTSBX440
|
|
00510 DTSBX440
|
|
00511 **** MONEY DUE DTSBX440
|
|
00512 MOVE +12 TO L205-FIELD-LENGTH (16). DTSBX440
|
|
00513 SET L205-TYPE-NUMBER-88 (16) TO TRUE. DTSBX440
|
|
00514 DTSBX440
|
|
00515 **** MONEY COLLECT DTSBX440
|
|
00516 MOVE +12 TO L205-FIELD-LENGTH (17). DTSBX440
|
|
00517 SET L205-TYPE-NUMBER-88 (17) TO TRUE. DTSBX440
|
|
00518 DTSBX440
|
|
00519 **** MONEY REASON CD DTSBX440
|
|
00520 MOVE +1 TO L205-FIELD-LENGTH (18). DTSBX440
|
|
00521 SET L205-TYPE-TEXT-88 (18) TO TRUE. DTSBX440
|
|
00522 DTSBX440
|
|
00523 **** PEN WAIVE IND DTSBX440
|
|
00524 MOVE +1 TO L205-FIELD-LENGTH (19). DTSBX440
|
|
00525 SET L205-TYPE-TEXT-88 (19) TO TRUE. DTSBX440
|
|
00526 DTSBX440
|
|
00527 **** INT WAIVE IND DTSBX440
|
|
00528 MOVE +1 TO L205-FIELD-LENGTH (20). DTSBX440
|
|
00529 SET L205-TYPE-TEXT-88 (20) TO TRUE. DTSBX440
|
|
00530 DTSBX440
|
|
00531 **** AUDIT HRS DTSBX440
|
|
00532 MOVE +12 TO L205-FIELD-LENGTH (21). DTSBX440
|
|
00533 SET L205-TYPE-NUMBER-88 (21) TO TRUE. DTSBX440
|
|
00534 DTSBX440
|
|
00535 **** NEW EMPLOYE CNT DTSBX440
|
|
00536 MOVE +12 TO L205-FIELD-LENGTH (22). DTSBX440
|
|
00537 SET L205-TYPE-NUMBER-88 (22) TO TRUE. DTSBX440
|
|
00538 DTSBX440
|
|
00539 **** IND EMPLOYR CNT DTSBX440
|
|
00540 MOVE +12 TO L205-FIELD-LENGTH (23). DTSBX440
|
|
00541 SET L205-TYPE-NUMBER-88 (23) TO TRUE. DTSBX440
|
|
00542 DTSBX440
|
|
00543 MOVE AUDIT-REC TO L205-INPUT-DATA. DTSBX440
|
|
00544 CALL 'DTSBU205' USING L205-LINK-AREA. DTSBX440
|
|
00545 DTSBX440
|
|
00546 MOVE L205-TEXT (1) (1:03) TO X163-REC-TYPE. DTSBX440
|
|
00547 DTSBX440
|
|
00548 MOVE L205-TEXT (2) (1:06) TO X163-EMP-NO. DTSBX440
|
|
00549 DTSBX440
|
|
00550 MOVE L205-TEXT (3) (1:8) TO X163-ASSIGN-NO. DTSBX440
|
|
00551 DTSBX440
|
|
00552 MOVE L205-TEXT (4) (1:10) TO X163-COMPLETED-DT. DTSBX440
|
|
00553 DTSBX440
|
|
00554 MOVE L205-TEXT (5) (1:10) TO X163-PROCESSED-DT. DTSBX440
|
|
00555 DTSBX440
|
|
00556 MOVE L205-TEXT (6) (1:02) TO WRK-FLD-REP-ID. DTSBX440
|
|
00557 DISPLAY 'WRK-FLD REP ID ' WRK-FLD-REP-ID. DTSBX440
|
|
00558 MOVE WRK-FLD-REP-ID TO X163-FLD-REP-ID. DTSBX440
|
|
00559 DISPLAY 'X163-FLD REP ID ' X163-FLD-REP-ID. DTSBX440
|
|
00560 DTSBX440
|
|
00561 MOVE L205-TEXT (7) (1:06) TO X163-FIRST-YRQ. DTSBX440
|
|
00562 DTSBX440
|
|
00563 MOVE L205-TEXT (8) (1:06) TO X163-LAST-YRQ. DTSBX440
|
|
00564 DTSBX440
|
|
00565 MOVE L205-INTEGER (9) TO W-INTEGER. DTSBX440
|
|
00566 MOVE W-INTEGER TO X163-QTRS-AUDITED-CNT. DTSBX440
|
|
00567 DTSBX440
|
|
00568 DISPLAY '205 EMP SIZE ' L205-TEXT (10) (1:01) DTSBX440
|
|
00569 MOVE L205-TEXT (10) (1:01) TO X163-EMP-SIZE-IND. DTSBX440
|
|
00570 DISPLAY 'X163 EMP SIZE ' X163-EMP-SIZE-IND. DTSBX440
|
|
00571 DTSBX440
|
|
00572 MOVE L205-TEXT (11) (1:02) TO X163-ERR-TYPE1. DTSBX440
|
|
00573 DTSBX440
|
|
00574 MOVE L205-TEXT (12) (1:02) TO X163-ERR-TYPE2. DTSBX440
|
|
00575 DTSBX440
|
|
00576 MOVE L205-TEXT (13) (1:02) TO X163-ERR-TYPE3. DTSBX440
|
|
00577 DTSBX440
|
|
00578 MOVE L205-TEXT (14) (1:02) TO X163-ERR-TYPE4. DTSBX440
|
|
00579 DTSBX440
|
|
00580 MOVE L205-TEXT (15) (1:02) TO X163-ERR-TYPE5. DTSBX440
|
|
00581 DTSBX440
|
|
00582 MOVE L205-INTEGER (16) TO W-INTEGER. DTSBX440
|
|
00583 MOVE L205-FRACTION (16) TO W-FRACTION. DTSBX440
|
|
00584 COMPUTE W-NUMBER = W-INTEGER + W-FRACTION. DTSBX440
|
|
00585 MOVE W-NUMBER TO X163-MONEY-DUE-AMT. DTSBX440
|
|
00586 DTSBX440
|
|
00587 MOVE L205-INTEGER (17) TO W-INTEGER. DTSBX440
|
|
00588 MOVE L205-FRACTION (17) TO W-FRACTION. DTSBX440
|
|
00589 COMPUTE W-NUMBER = W-INTEGER + W-FRACTION. DTSBX440
|
|
00590 MOVE W-NUMBER TO X163-MONEY-COLLECT-AMT. DTSBX440
|
|
00591 DTSBX440
|
|
00592 MOVE L205-TEXT (18) (1:01) TO X163-MONEY-REASON-CD. DTSBX440
|
|
00593 DTSBX440
|
|
00594 MOVE L205-TEXT (19) (1:01) TO X163-PEN-WAIVE-IND. DTSBX440
|
|
00595 DTSBX440
|
|
00596 MOVE L205-TEXT (20) (1:01) TO X163-INT-WAIVE-IND. DTSBX440
|
|
00597 DTSBX440
|
|
00598 MOVE L205-INTEGER (21) TO W-INTEGER. DTSBX440
|
|
00599 MOVE L205-FRACTION (21) TO W-FRACTION. DTSBX440
|
|
00600 COMPUTE W-NUMBER = W-INTEGER + W-FRACTION. DTSBX440
|
|
00601 MOVE W-NUMBER TO X163-AUDIT-HRS. DTSBX440
|
|
00602 DTSBX440
|
|
00603 MOVE L205-INTEGER (22) TO W-INTEGER. DTSBX440
|
|
00604 MOVE W-INTEGER TO X163-NEW-EMPLOYEE-CNT. DTSBX440
|
|
00605 DTSBX440
|
|
00606 MOVE L205-INTEGER (23) TO W-INTEGER. DTSBX440
|
|
00607 MOVE W-INTEGER TO X163-INDCON-TO-EMPL-CNT. DTSBX440
|
|
00608 DTSBX440
|
|
00609 P2200-EXIT. DTSBX440
|
|
00610 EXIT. DTSBX440
|
|
00611 DTSBX440
|
|
00612 P2300-AUDIT-X164. DTSBX440
|
|
00613 INITIALIZE X164-REC DTSBX440
|
|
00614 MOVE +12 TO L205-LAST-FIELD DTSBX440
|
|
00615 MOVE +12 TO L205-LAST-FIELD-LEN DTSBX440
|
|
00616 DTSBX440
|
|
00617 **** RECORD TYPE DTSBX440
|
|
00618 MOVE +3 TO L205-FIELD-LENGTH (1). DTSBX440
|
|
00619 SET L205-TYPE-TEXT-88 (1) TO TRUE. DTSBX440
|
|
00620 DTSBX440
|
|
00621 **** EMPLOYER NUMBER DTSBX440
|
|
00622 MOVE +6 TO L205-FIELD-LENGTH (2). DTSBX440
|
|
00623 SET L205-TYPE-TEXT-88 (2) TO TRUE. DTSBX440
|
|
00624 DTSBX440
|
|
00625 **** ASSIGN NO DTSBX440
|
|
00626 MOVE +8 TO L205-FIELD-LENGTH (3). DTSBX440
|
|
00627 SET L205-TYPE-TEXT-88 (3) TO TRUE. DTSBX440
|
|
00628 DTSBX440
|
|
00629 **** QUARTER DTSBX440
|
|
00630 MOVE +6 TO L205-FIELD-LENGTH (4). DTSBX440
|
|
00631 SET L205-TYPE-TEXT-88 (4) TO TRUE. DTSBX440
|
|
00632 DTSBX440
|
|
00633 **** QTR-AUDITED-IND DTSBX440
|
|
00634 MOVE +1 TO L205-FIELD-LENGTH (5). DTSBX440
|
|
00635 SET L205-TYPE-TEXT-88 (5) TO TRUE. DTSBX440
|
|
00636 DTSBX440
|
|
00637 **** QTR GROSS PAYROLL DTSBX440
|
|
00638 MOVE +12 TO L205-FIELD-LENGTH (6). DTSBX440
|
|
00639 SET L205-TYPE-NUMBER-88 (6) TO TRUE. DTSBX440
|
|
00640 DTSBX440
|
|
00641 **** QTR UNDER TOT WAGE DTSBX440
|
|
00642 MOVE +12 TO L205-FIELD-LENGTH (7). DTSBX440
|
|
00643 SET L205-TYPE-NUMBER-88 (7) TO TRUE. DTSBX440
|
|
00644 DTSBX440
|
|
00645 **** QTR UNDER TAX WAGE DTSBX440
|
|
00646 MOVE +12 TO L205-FIELD-LENGTH (8). DTSBX440
|
|
00647 SET L205-TYPE-NUMBER-88 (8) TO TRUE. DTSBX440
|
|
00648 DTSBX440
|
|
00649 **** QTR UNDER CONTRIB DTSBX440
|
|
00650 MOVE +12 TO L205-FIELD-LENGTH (9). DTSBX440
|
|
00651 SET L205-TYPE-NUMBER-88 (9) TO TRUE. DTSBX440
|
|
00652 DTSBX440
|
|
00653 **** QTR OVER TOT WAGE DTSBX440
|
|
00654 MOVE +12 TO L205-FIELD-LENGTH (10). DTSBX440
|
|
00655 SET L205-TYPE-NUMBER-88 (10) TO TRUE. DTSBX440
|
|
00656 DTSBX440
|
|
00657 **** QTR OVER TAX WAGE DTSBX440
|
|
00658 MOVE +12 TO L205-FIELD-LENGTH (11). DTSBX440
|
|
00659 SET L205-TYPE-NUMBER-88 (11) TO TRUE. DTSBX440
|
|
00660 DTSBX440
|
|
00661 **** QTR OVER CONTRIB DTSBX440
|
|
00662 MOVE +12 TO L205-FIELD-LENGTH (12). DTSBX440
|
|
00663 SET L205-TYPE-NUMBER-88 (12) TO TRUE. DTSBX440
|
|
00664 DTSBX440
|
|
00665 MOVE AUDIT-REC TO L205-INPUT-DATA. DTSBX440
|
|
00666 CALL 'DTSBU205' USING L205-LINK-AREA. DTSBX440
|
|
00667 DTSBX440
|
|
00668 MOVE L205-TEXT (1) (1:03) TO X164-REC-TYPE. DTSBX440
|
|
00669 DTSBX440
|
|
00670 MOVE L205-TEXT (2) (1:06) TO X164-EMP-NO. DTSBX440
|
|
00671 DTSBX440
|
|
00672 MOVE L205-TEXT (3) (1:08) TO X164-ASSIGN-NO. DTSBX440
|
|
00673 DTSBX440
|
|
00674 MOVE L205-TEXT (4) (1:6) TO X164-QUARTER. DTSBX440
|
|
00675 DTSBX440
|
|
00676 MOVE L205-TEXT (5) (1:1) TO X164-QTR-AUDITED-IND. DTSBX440
|
|
00677 DTSBX440
|
|
00678 MOVE L205-INTEGER (6) TO W-INTEGER. DTSBX440
|
|
00679 MOVE L205-FRACTION (6) TO W-FRACTION. DTSBX440
|
|
00680 COMPUTE W-NUMBER = W-INTEGER + W-FRACTION. DTSBX440
|
|
00681 MOVE W-NUMBER TO X164-QTR-GROSS-PAYROLL. DTSBX440
|
|
00682 DTSBX440
|
|
00683 MOVE L205-INTEGER (7) TO W-INTEGER. DTSBX440
|
|
00684 MOVE L205-FRACTION (7) TO W-FRACTION. DTSBX440
|
|
00685 COMPUTE W-NUMBER = W-INTEGER + W-FRACTION. DTSBX440
|
|
00686 MOVE W-NUMBER TO X164-QTR-UNDER-TOT-WAGE. DTSBX440
|
|
00687 DTSBX440
|
|
00688 MOVE L205-INTEGER (8) TO W-INTEGER. DTSBX440
|
|
00689 MOVE L205-FRACTION (8) TO W-FRACTION. DTSBX440
|
|
00690 COMPUTE W-NUMBER = W-INTEGER + W-FRACTION. DTSBX440
|
|
00691 MOVE W-NUMBER TO X164-QTR-UNDER-TAX-WAGE. DTSBX440
|
|
00692 DTSBX440
|
|
00693 MOVE L205-INTEGER (9) TO W-INTEGER. DTSBX440
|
|
00694 MOVE L205-FRACTION (9) TO W-FRACTION. DTSBX440
|
|
00695 COMPUTE W-NUMBER = W-INTEGER + W-FRACTION. DTSBX440
|
|
00696 MOVE W-NUMBER TO X164-QTR-UNDER-CONTRIB. DTSBX440
|
|
00697 DTSBX440
|
|
00698 MOVE L205-INTEGER (10) TO W-INTEGER. DTSBX440
|
|
00699 MOVE L205-FRACTION (10) TO W-FRACTION. DTSBX440
|
|
00700 COMPUTE W-NUMBER = W-INTEGER + W-FRACTION. DTSBX440
|
|
00701 MOVE W-NUMBER TO X164-QTR-OVER-TOT-WAGE. DTSBX440
|
|
00702 DTSBX440
|
|
00703 MOVE L205-INTEGER (11) TO W-INTEGER. DTSBX440
|
|
00704 MOVE L205-FRACTION (11) TO W-FRACTION. DTSBX440
|
|
00705 COMPUTE W-NUMBER = W-INTEGER + W-FRACTION. DTSBX440
|
|
00706 MOVE W-NUMBER TO X164-QTR-OVER-TAX-WAGE. DTSBX440
|
|
00707 DTSBX440
|
|
00708 MOVE L205-INTEGER (12) TO W-INTEGER. DTSBX440
|
|
00709 MOVE L205-FRACTION (12) TO W-FRACTION. DTSBX440
|
|
00710 COMPUTE W-NUMBER = W-INTEGER + W-FRACTION. DTSBX440
|
|
00711 MOVE W-NUMBER TO X164-QTR-OVER-CONTRIB. DTSBX440
|
|
00712 DTSBX440
|
|
00713 DTSBX440
|
|
00714 P2300-EXIT. DTSBX440
|
|
00715 EXIT. DTSBX440
|
|
00716 DTSBX440
|
|
00717 P3000-AUDIT-MFAS. DTSBX440
|
|
00718 MOVE 0 TO T040-UPD-MFAS DTSBX440
|
|
00719 T040-UPD-MAUR DTSBX440
|
|
00720 T040-UPD-MAUY. DTSBX440
|
|
00721 DTSBX440
|
|
00722 MOVE X163-ASSIGN-NO TO WRK-FLD-ASSIGN. DTSBX440
|
|
00723 MOVE WRK-FLD-ASSIGN-YEAR TO WRK-ASSIGN-YY DTSBX440
|
|
00724 MOVE 20 TO WRK-ASSIGN-CC DTSBX440
|
|
00725 MOVE WRK-FLD-ASSIGN-NBR TO WRK-ASSIGN-NBR DTSBX440
|
|
00726 DTSBX440
|
|
00727 MOVE LOW-VALUES TO MFAS-KEY-AREA. DTSBX440
|
|
00728 MOVE X163-EMP-NO TO MFAS-EMP-NO R140-EMP-NO. DTSBX440
|
|
00729 MOVE WRK-ASSIGN-NO TO MFAS-ASSIGN-NO. DTSBX440
|
|
00730 SET MFAS-FAS-88 TO TRUE. DTSBX440
|
|
00731 MOVE MFAS-KEY-AREA TO MSKL-KEY-AREA. DTSBX440
|
|
00732 DTSBX440
|
|
00733 DISPLAY 'NEW AUD-MFAS ' MFAS-EMP-NO DTSBX440
|
|
00734 DTSBX440
|
|
00735 PERFORM S910-READ THRU S910-EXIT DTSBX440
|
|
00736 IF L910-OK-88 DTSBX440
|
|
00737 MOVE MSKL-REC TO MFAS-REC DTSBX440
|
|
00738 ELSE DTSBX440
|
|
00739 DISPLAY ' MFAS REC NOT FOUND.ABENDING' X163-EMP-NO DTSBX440
|
|
00740 GO TO S999-ABEND. DTSBX440
|
|
00741 DTSBX440
|
|
00742 P3000-AUDIT-MFAS-COMP-DATE. DTSBX440
|
|
00743 MOVE ZEROS TO T040-COMPLETED-DATE. DTSBX440
|
|
00744 IF X163-COMPLETED-DT > SPACES DTSBX440
|
|
00745 NEXT SENTENCE DTSBX440
|
|
00746 ELSE DTSBX440
|
|
00747 GO TO P3000-AUDIT-MFAS-PROCESS-DATE. DTSBX440
|
|
00748 DTSBX440
|
|
00749 MOVE X163-COMPLETED-DT TO W-SLASH-DATE. DTSBX440
|
|
00750 MOVE W-SLASH-DT-MM TO L001-FED-8-MO. DTSBX440
|
|
00751 MOVE W-SLASH-DT-DD TO L001-FED-8-DA. DTSBX440
|
|
00752 MOVE W-SLASH-DT-CCYY TO L001-FED-8-YR. DTSBX440
|
|
00753 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX440
|
|
00754 IF NOT L001-VALID-DATE DTSBX440
|
|
00755 SET W-ERROR-YES-88 TO TRUE DTSBX440
|
|
00756 MOVE SPACES TO R140-MESSAGE DTSBX440
|
|
00757 MOVE X163-EMP-NO TO R140-EMP-NO DTSBX440
|
|
00758 MOVE 'X163 RECORD ' TO R140-RECORD-DESC DTSBX440
|
|
00759 STRING 'REPORT: INVALID X163 COMPL DATE ' DTSBX440
|
|
00760 X163-COMPLETED-DT DELIMITED BY SIZE DTSBX440
|
|
00761 INTO R140-MESSAGE DTSBX440
|
|
00762 END-STRING DTSBX440
|
|
00763 DISPLAY 'X163 RECORD ' R140-RECORD-DESC DTSBX440
|
|
00764 PERFORM S946-WRITE-R140 THRU S946-EXIT DTSBX440
|
|
00765 MOVE 1 TO T040-ERROR-SW DTSBX440
|
|
00766 GO TO P3000-AUDIT-MFAS-PROCESS-DATE DTSBX440
|
|
00767 ELSE DTSBX440
|
|
00768 MOVE L001-FED-8-DATE-9 TO W-COMP-DATE DTSBX440
|
|
00769 END-IF. DTSBX440
|
|
00770 DTSBX440
|
|
00771 DISPLAY 'MCOMP ' MFAS-COMPLETED-DATE DTSBX440
|
|
00772 DISPLAY 'XCOMP ' W-COMP-DATE DTSBX440
|
|
00773 DTSBX440
|
|
00774 IF MFAS-COMPLETED-DATE NOT = W-COMP-DATE DTSBX440
|
|
00775 MOVE L001-FED-8-DATE-9 TO T040-COMPLETED-DATE DTSBX440
|
|
00776 DISPLAY 'XCOMP NOT EQ ' DTSBX440
|
|
00777 MOVE 1 TO T040-UPD-MFAS DTSBX440
|
|
00778 DISPLAY 'MFAS STAT CD ' MFAS-STATUS-CD DTSBX440
|
|
00779 IF MFAS-STATUS-CD NOT = 'C' DTSBX440
|
|
00780 MOVE 'C' TO T040-STATUS-CD DTSBX440
|
|
00781 MOVE 1 TO T040-UPD-MFAS. DTSBX440
|
|
00782 DTSBX440
|
|
00783 DTSBX440
|
|
00784 P3000-AUDIT-MFAS-PROCESS-DATE. DTSBX440
|
|
00785 MOVE ZEROS TO T040-PROCESSED-DATE. DTSBX440
|
|
00786 MOVE SPACES TO T040-STATUS-CD. DTSBX440
|
|
00787 IF X163-PROCESSED-DT > SPACES DTSBX440
|
|
00788 NEXT SENTENCE DTSBX440
|
|
00789 ELSE DTSBX440
|
|
00790 GO TO P3000-AUDIT-MFAS-FLD-REP-ID. DTSBX440
|
|
00791 DTSBX440
|
|
00792 MOVE X163-PROCESSED-DT TO W-SLASH-DATE. DTSBX440
|
|
00793 MOVE W-SLASH-DT-MM TO L001-FED-8-MO. DTSBX440
|
|
00794 MOVE W-SLASH-DT-DD TO L001-FED-8-DA. DTSBX440
|
|
00795 MOVE W-SLASH-DT-CCYY TO L001-FED-8-YR. DTSBX440
|
|
00796 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX440
|
|
00797 IF NOT L001-VALID-DATE DTSBX440
|
|
00798 SET W-ERROR-YES-88 TO TRUE DTSBX440
|
|
00799 MOVE SPACES TO R140-MESSAGE DTSBX440
|
|
00800 MOVE X163-EMP-NO TO R140-EMP-NO DTSBX440
|
|
00801 MOVE 'X163 RECORD ' TO R140-RECORD-DESC DTSBX440
|
|
00802 STRING 'REPORT: INVALID X163 PROCESS DT ' DTSBX440
|
|
00803 X163-PROCESSED-DT DELIMITED BY SIZE DTSBX440
|
|
00804 INTO R140-MESSAGE DTSBX440
|
|
00805 END-STRING DTSBX440
|
|
00806 DISPLAY 'X16X RECORD ' R140-RECORD-DESC DTSBX440
|
|
00807 PERFORM S946-WRITE-R140 THRU S946-EXIT DTSBX440
|
|
00808 MOVE 1 TO T040-ERROR-SW DTSBX440
|
|
00809 GO TO P3000-AUDIT-MFAS-FLD-REP-ID DTSBX440
|
|
00810 ELSE DTSBX440
|
|
00811 MOVE L001-FED-8-DATE-9 TO W-PROCESS-DATE DTSBX440
|
|
00812 END-IF. DTSBX440
|
|
00813 DTSBX440
|
|
00814 DTSBX440
|
|
00815 DISPLAY 'MPROC ' MFAS-PROCESSED-DATE DTSBX440
|
|
00816 DISPLAY 'XPROC ' W-PROCESS-DATE DTSBX440
|
|
00817 DTSBX440
|
|
00818 IF MFAS-PROCESSED-DATE NOT = W-PROCESS-DATE DTSBX440
|
|
00819 MOVE L001-FED-8-DATE-9 TO T040-PROCESSED-DATE DTSBX440
|
|
00820 DISPLAY 'XPROC NOT EQ ' DTSBX440
|
|
00821 MOVE 1 TO T040-UPD-MFAS DTSBX440
|
|
00822 DISPLAY 'MFAS STAT CD ' MFAS-STATUS-CD DTSBX440
|
|
00823 IF MFAS-STATUS-CD NOT = 'P' DTSBX440
|
|
00824 MOVE 'P' TO T040-STATUS-CD DTSBX440
|
|
00825 MOVE 1 TO T040-UPD-MFAS. DTSBX440
|
|
00826 DTSBX440
|
|
00827 P3000-AUDIT-MFAS-FLD-REP-ID. DTSBX440
|
|
00828 MOVE ZEROS TO T040-FLD-REP-ID. DTSBX440
|
|
00829 MOVE SPACES TO T040-OP-ID. DTSBX440
|
|
00830 DISPLAY ' X163-FLD ' X163-FLD-REP-ID DTSBX440
|
|
00831 IF X163-FLD-REP-ID > ZEROS DTSBX440
|
|
00832 NEXT SENTENCE DTSBX440
|
|
00833 ELSE DTSBX440
|
|
00834 GO TO P3000-AUDIT-MFAS-EMP-SIZE. DTSBX440
|
|
00835 DTSBX440
|
|
00836 MOVE X163-FLD-REP-ID TO L062-FLD-REP-ID DTSBX440
|
|
00837 PERFORM S062-LOOKUP-FLD-REP THRU S062-EXIT DTSBX440
|
|
00838 DTSBX440
|
|
00839 IF L062-VALID DTSBX440
|
|
00840 NEXT SENTENCE DTSBX440
|
|
00841 ELSE DTSBX440
|
|
00842 MOVE 'X163 RECORD ' TO R140-RECORD-DESC DTSBX440
|
|
00843 STRING 'REPORT: INVALID X163 FLD REP ID ' DTSBX440
|
|
00844 X163-FLD-REP-ID DELIMITED BY SIZE DTSBX440
|
|
00845 INTO R140-MESSAGE DTSBX440
|
|
00846 END-STRING DTSBX440
|
|
00847 DISPLAY 'X16Y RECORD ' R140-RECORD-DESC DTSBX440
|
|
00848 PERFORM S946-WRITE-R140 THRU S946-EXIT DTSBX440
|
|
00849 MOVE 1 TO T040-ERROR-SW DTSBX440
|
|
00850 GO TO P3000-AUDIT-MFAS-EMP-SIZE. DTSBX440
|
|
00851 DTSBX440
|
|
00852 DISPLAY ' XFLD ' X163-FLD-REP-ID DTSBX440
|
|
00853 DISPLAY ' MFLD ' MFAS-FLD-REP-ID DTSBX440
|
|
00854 DTSBX440
|
|
00855 IF X163-FLD-REP-ID NOT = MFAS-FLD-REP-ID DTSBX440
|
|
00856 MOVE X163-FLD-REP-ID TO T040-FLD-REP-ID DTSBX440
|
|
00857 MOVE L062-OP-ID TO T040-OP-ID WRK-OP-ID DTSBX440
|
|
00858 DISPLAY 'XFLDR NOT EQ ' DTSBX440
|
|
00859 MOVE 1 TO T040-UPD-MFAS. DTSBX440
|
|
00860 DTSBX440
|
|
00861 DISPLAY ' XPID ' L062-OP-ID DTSBX440
|
|
00862 DISPLAY ' MPID ' MFAS-SOURCE-OP-ID DTSBX440
|
|
00863 DTSBX440
|
|
00864 MOVE L062-OP-ID TO WRK-OP-ID DTSBX440
|
|
00865 DTSBX440
|
|
00866 IF L062-OP-ID NOT = MFAS-SOURCE-OP-ID DTSBX440
|
|
00867 MOVE L062-OP-ID TO T040-OP-ID DTSBX440
|
|
00868 DISPLAY 'XOPID NOT EQ ' DTSBX440
|
|
00869 MOVE 1 TO T040-UPD-MFAS. DTSBX440
|
|
00870 DTSBX440
|
|
00871 P3000-AUDIT-MFAS-EMP-SIZE. DTSBX440
|
|
00872 MOVE SPACES TO T040-EMP-SIZE-IND. DTSBX440
|
|
00873 IF X163-EMP-SIZE-IND = SPACES DTSBX440
|
|
00874 MOVE 'S' TO X163-EMP-SIZE-IND. DTSBX440
|
|
00875 DTSBX440
|
|
00876 DTSBX440
|
|
00877 MOVE X163-EMP-SIZE-IND TO L036-CD DTSBX440
|
|
00878 PERFORM S036-EMP-SIZE-IND THRU S036-EXIT DTSBX440
|
|
00879 DTSBX440
|
|
00880 IF L036-VALID DTSBX440
|
|
00881 NEXT SENTENCE DTSBX440
|
|
00882 ELSE DTSBX440
|
|
00883 STRING 'REPORT: INVALID X163 EMP SIZE ' DTSBX440
|
|
00884 X163-EMP-SIZE-IND DELIMITED BY SIZE DTSBX440
|
|
00885 INTO R140-MESSAGE DTSBX440
|
|
00886 END-STRING DTSBX440
|
|
00887 DISPLAY 'X16A RECORD ' R140-RECORD-DESC DTSBX440
|
|
00888 PERFORM S946-WRITE-R140 THRU S946-EXIT DTSBX440
|
|
00889 MOVE 1 TO T040-ERROR-SW DTSBX440
|
|
00890 GO TO P3000-AUDIT-T040. DTSBX440
|
|
00891 DTSBX440
|
|
00892 DISPLAY 'XEMP ' X163-EMP-SIZE-IND DTSBX440
|
|
00893 DISPLAY 'MEMP ' MFAS-EMP-SIZE-IND DTSBX440
|
|
00894 DTSBX440
|
|
00895 IF X163-EMP-SIZE-IND NOT = MFAS-EMP-SIZE-IND DTSBX440
|
|
00896 MOVE X163-EMP-SIZE-IND TO T040-EMP-SIZE-IND DTSBX440
|
|
00897 DISPLAY 'XESIZ NOT EQ ' DTSBX440
|
|
00898 MOVE 1 TO T040-UPD-MFAS. DTSBX440
|
|
00899 DTSBX440
|
|
00900 P3000-AUDIT-T040. DTSBX440
|
|
00901 IF T040-UPD-MFAS = 0 DTSBX440
|
|
00902 DISPLAY ' NPUPD T040 MFAS ' T040-UPD-MFAS DTSBX440
|
|
00903 GO TO P3000-EXIT. DTSBX440
|
|
00904 DTSBX440
|
|
00905 DISPLAY ' WRITE T040 MFAS ' T040-UPD-MFAS. DTSBX440
|
|
00906 MOVE LENGTH OF T040-LINK-AREA TO T040-LENGTH DTSBX440
|
|
00907 MOVE '040' TO T040-REC-TYPE. DTSBX440
|
|
00908 DTSBX440
|
|
00909 MOVE X163-EMP-NO TO T040-EMP-NO. DTSBX440
|
|
00910 MOVE L005-DATE TO T040-SYS-DATE. DTSBX440
|
|
00911 MOVE L005-TIME TO T040-SYS-TIME. DTSBX440
|
|
00912 SET T040-MFAS-88 TO TRUE. DTSBX440
|
|
00913 MOVE WRK-ASSIGN-NO TO T040-ASSIGN-NO. DTSBX440
|
|
00914 MOVE ZEROS TO T040-FIRST-YRQ DTSBX440
|
|
00915 T040-LAST-YRQ DTSBX440
|
|
00916 T040-QTRS-AUDITED-CNT DTSBX440
|
|
00917 T040-ERR-TYPE(1) DTSBX440
|
|
00918 T040-ERR-TYPE(2) DTSBX440
|
|
00919 T040-ERR-TYPE(3) DTSBX440
|
|
00920 T040-ERR-TYPE(4) DTSBX440
|
|
00921 T040-ERR-TYPE(5) DTSBX440
|
|
00922 T040-MONEY-DUE-AMT DTSBX440
|
|
00923 T040-MONEY-COLLECT-AMT DTSBX440
|
|
00924 T040-AUDIT-HRS DTSBX440
|
|
00925 T040-NEW-EMPLOYEE-CNT DTSBX440
|
|
00926 T040-INDCON-TO-EMPL-CNT. DTSBX440
|
|
00927 MOVE SPACES TO T040-PEN-WAIVE-IND DTSBX440
|
|
00928 T040-INT-WAIVE-IND. DTSBX440
|
|
00929 DTSBX440
|
|
00930 MOVE T040-LINK-AREA TO TSKL-REC. DTSBX440
|
|
00931 PERFORM S927B-WRITE THRU S927B-EXIT. DTSBX440
|
|
00932 ADD +1 TO W-T040-MFAS-CNT. DTSBX440
|
|
00933 DTSBX440
|
|
00934 P3000-EXIT. DTSBX440
|
|
00935 EXIT. DTSBX440
|
|
00936 DTSBX440
|
|
00937 P4000-AUDIT-MAUR. DTSBX440
|
|
00938 MOVE 0 TO T040-UPD-MAUR. DTSBX440
|
|
00939 MOVE LOW-VALUES TO MAUR-KEY-AREA. DTSBX440
|
|
00940 MOVE X163-EMP-NO TO MAUR-EMP-NO. DTSBX440
|
|
00941 SET MAUR-AUR-88 TO TRUE. DTSBX440
|
|
00942 MOVE WRK-ASSIGN-NO TO MAUR-ASSIGN-NO. DTSBX440
|
|
00943 MOVE MAUR-KEY-AREA TO MSKL-KEY-AREA. DTSBX440
|
|
00944 PERFORM S910-READ THRU S910-EXIT. DTSBX440
|
|
00945 IF L910-NO-REC-88 DTSBX440
|
|
00946 DISPLAY ' MAUR NOT FOUND ' X163-EMP-NO DTSBX440
|
|
00947 SET MAUR-REC-NOT-FOUND-88 TO TRUE DTSBX440
|
|
00948 ELSE DTSBX440
|
|
00949 DISPLAY ' MAUR FOUND ' X163-EMP-NO DTSBX440
|
|
00950 MOVE MSKL-REC TO MAUR-REC DTSBX440
|
|
00951 SET MAUR-REC-FOUND-88 TO TRUE. DTSBX440
|
|
00952 DTSBX440
|
|
00953 P4000-FIRST-YRQ. DTSBX440
|
|
00954 MOVE ZEROS TO T040-FIRST-YRQ WRK-YRQ. DTSBX440
|
|
00955 IF X163-FIRST-YRQ = SPACES DTSBX440
|
|
00956 GO TO P4000-LAST-YRQ. DTSBX440
|
|
00957 DTSBX440
|
|
00958 MOVE X163-FIRST-YRQ TO WRK-SLASH-YRQ. DTSBX440
|
|
00959 MOVE WRK-SLASH-YRQ-YR TO WRK-YRQ-YR DTSBX440
|
|
00960 MOVE WRK-SLASH-YRQ-QTR TO WRK-YRQ-QTR DTSBX440
|
|
00961 MOVE WRK-YRQ TO L004-QTR-5-9. DTSBX440
|
|
00962 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBX440
|
|
00963 IF L004-INVALID-QTR DTSBX440
|
|
00964 STRING 'REPORT: INVALID X163 FIRST QTR ' DTSBX440
|
|
00965 X163-FIRST-YRQ DELIMITED BY SIZE DTSBX440
|
|
00966 INTO R140-MESSAGE DTSBX440
|
|
00967 END-STRING DTSBX440
|
|
00968 PERFORM S946-WRITE-R140 THRU S946-EXIT DTSBX440
|
|
00969 MOVE 1 TO T040-ERROR-SW DTSBX440
|
|
00970 GO TO P4000-LAST-YRQ. DTSBX440
|
|
00971 DTSBX440
|
|
00972 MOVE L004-QTR-5-9 TO WRK-YRQ W-WRK-YRQ. DTSBX440
|
|
00973 MOVE L004-QTR-5-YR TO WRK-CAL-YEAR. DTSBX440
|
|
00974 DTSBX440
|
|
00975 DISPLAY ' WFYRQ ' W-WRK-YRQ DTSBX440
|
|
00976 DISPLAY ' MFYRQ ' MAUR-FIRST-YRQ DTSBX440
|
|
00977 DTSBX440
|
|
00978 IF MAUR-REC-NOT-FOUND-88 OR DTSBX440
|
|
00979 W-WRK-YRQ NOT = MAUR-FIRST-YRQ DTSBX440
|
|
00980 DISPLAY ' WFYRQ NOT EQ ' DTSBX440
|
|
00981 MOVE W-WRK-YRQ TO T040-FIRST-YRQ DTSBX440
|
|
00982 MOVE 1 TO T040-UPD-MAUR. DTSBX440
|
|
00983 DTSBX440
|
|
00984 P4000-LAST-YRQ. DTSBX440
|
|
00985 MOVE ZEROS TO T040-LAST-YRQ. DTSBX440
|
|
00986 IF X163-LAST-YRQ = SPACES DTSBX440
|
|
00987 GO TO P4000-QTR-AUDIT-CNT. DTSBX440
|
|
00988 DTSBX440
|
|
00989 DTSBX440
|
|
00990 MOVE X163-LAST-YRQ TO WRK-SLASH-YRQ. DTSBX440
|
|
00991 MOVE WRK-SLASH-YRQ-YR TO WRK-YRQ-YR DTSBX440
|
|
00992 MOVE WRK-SLASH-YRQ-QTR TO WRK-YRQ-QTR DTSBX440
|
|
00993 MOVE WRK-YRQ TO L004-QTR-5-9. DTSBX440
|
|
00994 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBX440
|
|
00995 IF L004-INVALID-QTR DTSBX440
|
|
00996 STRING 'REPORT: INVALID X163 LAST QTR ' DTSBX440
|
|
00997 X163-LAST-YRQ DELIMITED BY SIZE DTSBX440
|
|
00998 INTO R140-MESSAGE DTSBX440
|
|
00999 END-STRING DTSBX440
|
|
01000 DISPLAY 'X16C RECORD ' R140-RECORD-DESC DTSBX440
|
|
01001 PERFORM S946-WRITE-R140 THRU S946-EXIT DTSBX440
|
|
01002 MOVE 1 TO T040-ERROR-SW DTSBX440
|
|
01003 GO TO P4000-QTR-AUDIT-CNT. DTSBX440
|
|
01004 DTSBX440
|
|
01005 MOVE L004-QTR-5-9 TO WRK-YRQ W-WRK-YRQ. DTSBX440
|
|
01006 DTSBX440
|
|
01007 DTSBX440
|
|
01008 DISPLAY ' WLYRQ ' W-WRK-YRQ DTSBX440
|
|
01009 DISPLAY ' MLYRQ ' MAUR-LAST-YRQ DTSBX440
|
|
01010 DTSBX440
|
|
01011 IF MAUR-REC-NOT-FOUND-88 OR DTSBX440
|
|
01012 W-WRK-YRQ NOT = MAUR-LAST-YRQ DTSBX440
|
|
01013 MOVE W-WRK-YRQ TO T040-LAST-YRQ DTSBX440
|
|
01014 DISPLAY ' WLYRQ NOT EQ ' DTSBX440
|
|
01015 MOVE 1 TO T040-UPD-MAUR. DTSBX440
|
|
01016 DTSBX440
|
|
01017 P4000-QTR-AUDIT-CNT. DTSBX440
|
|
01018 MOVE ZEROS TO T040-QTRS-AUDITED-CNT DTSBX440
|
|
01019 IF X163-QTRS-AUDITED-CNT = ZEROS DTSBX440
|
|
01020 GO TO P4000-EMP-SIZE. DTSBX440
|
|
01021 DTSBX440
|
|
01022 IF X163-QTRS-AUDITED-CNT > 8 DTSBX440
|
|
01023 STRING 'REPORT: INVALID X163 QTRS AUDITED' DTSBX440
|
|
01024 X163-QTRS-AUDITED-CNT DELIMITED BY SIZE DTSBX440
|
|
01025 INTO R140-MESSAGE DTSBX440
|
|
01026 END-STRING DTSBX440
|
|
01027 DISPLAY 'X16D RECORD ' R140-RECORD-DESC DTSBX440
|
|
01028 PERFORM S946-WRITE-R140 THRU S946-EXIT DTSBX440
|
|
01029 MOVE 1 TO T040-ERROR-SW DTSBX440
|
|
01030 GO TO P4000-EMP-SIZE. DTSBX440
|
|
01031 DTSBX440
|
|
01032 MOVE X163-QTRS-AUDITED-CNT TO WRK-QTR-AUDITED-CNT. DTSBX440
|
|
01033 DTSBX440
|
|
01034 DISPLAY ' X163 QAUD ' WRK-QTR-AUDITED-CNT DTSBX440
|
|
01035 DISPLAY ' MAUR QUAD ' MAUR-QTRS-AUDITED-CNT DTSBX440
|
|
01036 DTSBX440
|
|
01037 IF MAUR-REC-NOT-FOUND-88 OR DTSBX440
|
|
01038 WRK-QTR-AUDITED-CNT NOT = MAUR-QTRS-AUDITED-CNT DTSBX440
|
|
01039 MOVE WRK-QTR-AUDITED-CNT TO T040-QTRS-AUDITED-CNT DTSBX440
|
|
01040 DISPLAY ' X163 QACNT NOT EQ' DTSBX440
|
|
01041 MOVE 1 TO T040-UPD-MAUR. DTSBX440
|
|
01042 DTSBX440
|
|
01043 P4000-EMP-SIZE. DTSBX440
|
|
01044 MOVE SPACES TO T040-EMP-SIZE-IND. DTSBX440
|
|
01045 IF X163-EMP-SIZE-IND = SPACES DTSBX440
|
|
01046 MOVE 'S' TO X163-EMP-SIZE-IND. DTSBX440
|
|
01047 DTSBX440
|
|
01048 MOVE X163-EMP-SIZE-IND TO L036-CD DTSBX440
|
|
01049 PERFORM S036-EMP-SIZE-IND THRU S036-EXIT DTSBX440
|
|
01050 DTSBX440
|
|
01051 IF L036-VALID DTSBX440
|
|
01052 NEXT SENTENCE DTSBX440
|
|
01053 ELSE DTSBX440
|
|
01054 STRING 'REPORT: INVALID X163 EMP SIZE ' DTSBX440
|
|
01055 X163-EMP-SIZE-IND DELIMITED BY SIZE DTSBX440
|
|
01056 INTO R140-MESSAGE DTSBX440
|
|
01057 END-STRING DTSBX440
|
|
01058 DISPLAY 'X16E RECORD ' R140-RECORD-DESC DTSBX440
|
|
01059 PERFORM S946-WRITE-R140 THRU S946-EXIT DTSBX440
|
|
01060 MOVE 1 TO T040-ERROR-SW DTSBX440
|
|
01061 GO TO P4000-ERR-TYPE1. DTSBX440
|
|
01062 DTSBX440
|
|
01063 DISPLAY ' XEMP ' X163-EMP-SIZE-IND DTSBX440
|
|
01064 DISPLAY ' MAUE ' MAUR-EMP-SIZE-IND DTSBX440
|
|
01065 IF MAUR-REC-NOT-FOUND-88 OR DTSBX440
|
|
01066 X163-EMP-SIZE-IND NOT = MAUR-EMP-SIZE-IND DTSBX440
|
|
01067 MOVE X163-EMP-SIZE-IND TO T040-EMP-SIZE-IND DTSBX440
|
|
01068 DISPLAY ' XEMPS NOT EQ' DTSBX440
|
|
01069 MOVE 1 TO T040-UPD-MAUR. DTSBX440
|
|
01070 DTSBX440
|
|
01071 P4000-ERR-TYPE1. DTSBX440
|
|
01072 MOVE ZEROS TO T040-ERR-TYPE(1) DTSBX440
|
|
01073 T040-ERR-TYPE(2) DTSBX440
|
|
01074 T040-ERR-TYPE(3) DTSBX440
|
|
01075 T040-ERR-TYPE(4) DTSBX440
|
|
01076 T040-ERR-TYPE(5) DTSBX440
|
|
01077 AUDIT-CNT-SUB. DTSBX440
|
|
01078 MOVE X163-ERR-TYPE1 TO WRK-ERR-TYPE(1). DTSBX440
|
|
01079 MOVE X163-ERR-TYPE2 TO WRK-ERR-TYPE(2). DTSBX440
|
|
01080 MOVE X163-ERR-TYPE3 TO WRK-ERR-TYPE(3). DTSBX440
|
|
01081 MOVE X163-ERR-TYPE4 TO WRK-ERR-TYPE(4). DTSBX440
|
|
01082 MOVE X163-ERR-TYPE5 TO WRK-ERR-TYPE(5). DTSBX440
|
|
01083 PERFORM P4000-AUDIT-CNT THRU P4000-AUDIT-CNT-EXIT 5 TIMES. DTSBX440
|
|
01084 DTSBX440
|
|
01085 GO TO P4000-DUE-AMT. DTSBX440
|
|
01086 P4000-AUDIT-CNT. DTSBX440
|
|
01087 ADD 1 TO AUDIT-CNT-SUB. DTSBX440
|
|
01088 MOVE WRK-ERR-TYPE(AUDIT-CNT-SUB) TO WRK-ERROR-TYPE. DTSBX440
|
|
01089 IF WRK-ERROR-TYPE = ZEROS DTSBX440
|
|
01090 GO TO P4000-AUDIT-CNT-EXIT. DTSBX440
|
|
01091 DTSBX440
|
|
01092 DTSBX440
|
|
01093 MOVE WRK-ERROR-TYPE TO L036-CD-2 DTSBX440
|
|
01094 SET L036-MAUR-ERROR-TYPE TO TRUE DTSBX440
|
|
01095 PERFORM S036-EDIT-CODES THRU S036-EXIT DTSBX440
|
|
01096 IF L036-NOT-VALID DTSBX440
|
|
01097 STRING 'REPORT: INVALID X163 ERROR TYPE ' DTSBX440
|
|
01098 WRK-ERROR-TYPE DELIMITED BY SIZE DTSBX440
|
|
01099 INTO R140-MESSAGE DTSBX440
|
|
01100 END-STRING DTSBX440
|
|
01101 DISPLAY 'X16F RECORD ' R140-RECORD-DESC DTSBX440
|
|
01102 PERFORM S946-WRITE-R140 THRU S946-EXIT DTSBX440
|
|
01103 MOVE 1 TO T040-ERROR-SW DTSBX440
|
|
01104 GO TO P4000-AUDIT-CNT-EXIT. DTSBX440
|
|
01105 DTSBX440
|
|
01106 DISPLAY ' WTYPE ' WRK-ERROR-TYPE DTSBX440
|
|
01107 DISPLAY ' MTYPE ' MAUR-ERROR-TYPE(AUDIT-CNT-SUB) DTSBX440
|
|
01108 DTSBX440
|
|
01109 IF MAUR-REC-NOT-FOUND-88 OR DTSBX440
|
|
01110 WRK-ERROR-TYPE NOT = MAUR-ERROR-TYPE(AUDIT-CNT-SUB) DTSBX440
|
|
01111 MOVE WRK-ERROR-TYPE TO T040-ERR-TYPE(AUDIT-CNT-SUB) DTSBX440
|
|
01112 DISPLAY ' XETYPE NOT EQ' AUDIT-CNT-SUB DTSBX440
|
|
01113 MOVE 1 TO T040-UPD-MAUR. DTSBX440
|
|
01114 P4000-AUDIT-CNT-EXIT. EXIT. DTSBX440
|
|
01115 DTSBX440
|
|
01116 P4000-DUE-AMT. DTSBX440
|
|
01117 MOVE ZEROS TO T040-MONEY-DUE-AMT WRK-DUE-AMT. DTSBX440
|
|
01118 IF X163-MONEY-DUE-AMT = ZEROS DTSBX440
|
|
01119 GO TO P4000-COLLECT-AMT. DTSBX440
|
|
01120 DTSBX440
|
|
01121 MOVE X163-MONEY-DUE-AMT TO W-MONEY-AMT-X. DTSBX440
|
|
01122 MOVE W-MONEY-AMT-9 TO W-MONEY-AMT. DTSBX440
|
|
01123 MOVE W-MONEY-AMT TO WRK-DUE-AMT DTSBX440
|
|
01124 DTSBX440
|
|
01125 DISPLAY 'WAMT ' WRK-DUE-AMT DTSBX440
|
|
01126 DISPLAY 'MAMT ' MAUR-MONEY-DUE-AMT DTSBX440
|
|
01127 DTSBX440
|
|
01128 IF MAUR-REC-NOT-FOUND-88 OR DTSBX440
|
|
01129 WRK-DUE-AMT NOT = MAUR-MONEY-DUE-AMT DTSBX440
|
|
01130 MOVE WRK-DUE-AMT TO T040-MONEY-DUE-AMT DTSBX440
|
|
01131 DISPLAY ' WAMT NOT EQ' DTSBX440
|
|
01132 MOVE 1 TO T040-UPD-MAUR. DTSBX440
|
|
01133 DTSBX440
|
|
01134 P4000-COLLECT-AMT. DTSBX440
|
|
01135 MOVE ZEROS TO T040-MONEY-COLLECT-AMT WRK-COLLECT-AMT. DTSBX440
|
|
01136 IF X163-MONEY-COLLECT-AMT = ZEROS DTSBX440
|
|
01137 GO TO P4000-REASON-CD. DTSBX440
|
|
01138 DTSBX440
|
|
01139 MOVE X163-MONEY-COLLECT-AMT TO W-MONEY-AMT-X. DTSBX440
|
|
01140 MOVE W-MONEY-AMT-9 TO W-MONEY-AMT. DTSBX440
|
|
01141 MOVE W-MONEY-AMT TO WRK-COLLECT-AMT DTSBX440
|
|
01142 DTSBX440
|
|
01143 DISPLAY 'WCAMT ' WRK-COLLECT-AMT DTSBX440
|
|
01144 DISPLAY 'MCAMT ' MAUR-MONEY-COLLECT-AMT DTSBX440
|
|
01145 DTSBX440
|
|
01146 IF MAUR-REC-NOT-FOUND-88 OR DTSBX440
|
|
01147 WRK-COLLECT-AMT NOT = MAUR-MONEY-COLLECT-AMT DTSBX440
|
|
01148 MOVE WRK-COLLECT-AMT TO T040-MONEY-COLLECT-AMT DTSBX440
|
|
01149 DISPLAY ' CAMT NOT EQ' DTSBX440
|
|
01150 MOVE 1 TO T040-UPD-MAUR. DTSBX440
|
|
01151 DTSBX440
|
|
01152 P4000-REASON-CD. DTSBX440
|
|
01153 MOVE SPACES TO T040-MONEY-REASON-CD. DTSBX440
|
|
01154 IF X163-MONEY-REASON-CD = SPACES DTSBX440
|
|
01155 MOVE '0' TO X163-MONEY-REASON-CD. DTSBX440
|
|
01156 DTSBX440
|
|
01157 MOVE X163-MONEY-REASON-CD TO L036-CD-1 DTSBX440
|
|
01158 SET L036-MAUR-MONEY-REASON-CD TO TRUE DTSBX440
|
|
01159 PERFORM S036-EDIT-CODES THRU S036-EXIT DTSBX440
|
|
01160 IF L036-NOT-VALID DTSBX440
|
|
01161 STRING 'REPORT: INVALID X163 MONY RES CD ' DTSBX440
|
|
01162 X163-MONEY-REASON-CD DELIMITED BY SIZE DTSBX440
|
|
01163 INTO R140-MESSAGE DTSBX440
|
|
01164 END-STRING DTSBX440
|
|
01165 PERFORM S946-WRITE-R140 THRU S946-EXIT DTSBX440
|
|
01166 MOVE 1 TO T040-ERROR-SW DTSBX440
|
|
01167 GO TO P4000-PEN-IND. DTSBX440
|
|
01168 DTSBX440
|
|
01169 DISPLAY ' XMCD ' X163-MONEY-REASON-CD DTSBX440
|
|
01170 DISPLAY ' MMCD ' MAUR-MONEY-REASON-CD DTSBX440
|
|
01171 DTSBX440
|
|
01172 IF MAUR-REC-NOT-FOUND-88 OR DTSBX440
|
|
01173 X163-MONEY-REASON-CD NOT = MAUR-MONEY-REASON-CD DTSBX440
|
|
01174 MOVE X163-MONEY-REASON-CD TO T040-MONEY-REASON-CD DTSBX440
|
|
01175 DISPLAY ' MRCD NOT EQ' DTSBX440
|
|
01176 MOVE 1 TO T040-UPD-MAUR. DTSBX440
|
|
01177 DTSBX440
|
|
01178 P4000-PEN-IND. DTSBX440
|
|
01179 MOVE SPACES TO T040-PEN-WAIVE-IND. DTSBX440
|
|
01180 IF X163-PEN-WAIVE-IND = SPACES DTSBX440
|
|
01181 GO TO P4000-INT-IND. DTSBX440
|
|
01182 DTSBX440
|
|
01183 IF X163-PEN-WAIVE-IND = 'Y' OR 'N' DTSBX440
|
|
01184 NEXT SENTENCE DTSBX440
|
|
01185 ELSE DTSBX440
|
|
01186 STRING 'REPORT: INVALID X163 PEN WAVE IND' DTSBX440
|
|
01187 X163-PEN-WAIVE-IND DELIMITED BY SIZE DTSBX440
|
|
01188 INTO R140-MESSAGE DTSBX440
|
|
01189 END-STRING DTSBX440
|
|
01190 DISPLAY 'X16I RECORD ' R140-RECORD-DESC DTSBX440
|
|
01191 PERFORM S946-WRITE-R140 THRU S946-EXIT DTSBX440
|
|
01192 MOVE 1 TO T040-ERROR-SW DTSBX440
|
|
01193 GO TO P4000-INT-IND. DTSBX440
|
|
01194 DTSBX440
|
|
01195 IF MAUR-REC-NOT-FOUND-88 OR DTSBX440
|
|
01196 X163-PEN-WAIVE-IND NOT = MAUR-PEN-WAIVE-IND DTSBX440
|
|
01197 MOVE X163-PEN-WAIVE-IND TO T040-PEN-WAIVE-IND DTSBX440
|
|
01198 DISPLAY ' PIND NOT EQ' DTSBX440
|
|
01199 MOVE 1 TO T040-UPD-MAUR. DTSBX440
|
|
01200 DTSBX440
|
|
01201 P4000-INT-IND. DTSBX440
|
|
01202 MOVE SPACES TO T040-INT-WAIVE-IND. DTSBX440
|
|
01203 IF X163-INT-WAIVE-IND = SPACES DTSBX440
|
|
01204 GO TO P4000-AUDIT-HRS. DTSBX440
|
|
01205 DTSBX440
|
|
01206 IF X163-INT-WAIVE-IND = 'Y' OR 'N' DTSBX440
|
|
01207 NEXT SENTENCE DTSBX440
|
|
01208 ELSE DTSBX440
|
|
01209 STRING 'REPORT: INVALID X163 INT WAVE IND' DTSBX440
|
|
01210 X163-INT-WAIVE-IND DELIMITED BY SIZE DTSBX440
|
|
01211 INTO R140-MESSAGE DTSBX440
|
|
01212 END-STRING DTSBX440
|
|
01213 PERFORM S946-WRITE-R140 THRU S946-EXIT DTSBX440
|
|
01214 MOVE 1 TO T040-ERROR-SW DTSBX440
|
|
01215 GO TO P4000-AUDIT-HRS. DTSBX440
|
|
01216 DTSBX440
|
|
01217 DISPLAY 'XWIND ' X163-INT-WAIVE-IND DTSBX440
|
|
01218 DISPLAY 'MWIND ' MAUR-INT-WAIVE-IND DTSBX440
|
|
01219 DTSBX440
|
|
01220 IF MAUR-REC-NOT-FOUND-88 OR DTSBX440
|
|
01221 X163-INT-WAIVE-IND NOT = MAUR-INT-WAIVE-IND DTSBX440
|
|
01222 MOVE X163-INT-WAIVE-IND TO T040-INT-WAIVE-IND DTSBX440
|
|
01223 DISPLAY ' IIND NOT EQ' DTSBX440
|
|
01224 MOVE 1 TO T040-UPD-MAUR. DTSBX440
|
|
01225 P4000-AUDIT-HRS. DTSBX440
|
|
01226 MOVE ZEROS TO T040-AUDIT-HRS. DTSBX440
|
|
01227 IF X163-AUDIT-HRS = ZEROS DTSBX440
|
|
01228 GO TO P4000-NEW-EMPLE-CNT. DTSBX440
|
|
01229 DTSBX440
|
|
01230 MOVE X163-AUDIT-HRS TO WRK-AUDIT-HRS. DTSBX440
|
|
01231 DTSBX440
|
|
01232 DISPLAY 'XAHRS ' WRK-AUDIT-HRS DTSBX440
|
|
01233 DISPLAY 'MWIND ' MAUR-AUDIT-HRS DTSBX440
|
|
01234 DTSBX440
|
|
01235 IF MAUR-REC-NOT-FOUND-88 OR DTSBX440
|
|
01236 WRK-AUDIT-HRS NOT = MAUR-AUDIT-HRS DTSBX440
|
|
01237 MOVE WRK-AUDIT-HRS TO T040-AUDIT-HRS DTSBX440
|
|
01238 DISPLAY ' AHRS NOT EQ' DTSBX440
|
|
01239 MOVE 1 TO T040-UPD-MAUR. DTSBX440
|
|
01240 P4000-NEW-EMPLE-CNT. DTSBX440
|
|
01241 MOVE ZEROS TO T040-NEW-EMPLOYEE-CNT DTSBX440
|
|
01242 IF X163-NEW-EMPLOYEE-CNT = ZEROS DTSBX440
|
|
01243 DISPLAY 'XYEE EQ ZEROS ' DTSBX440
|
|
01244 GO TO P4000-NEW-EMPL-CNT. DTSBX440
|
|
01245 DTSBX440
|
|
01246 MOVE X163-NEW-EMPLOYEE-CNT TO WRK-EMPE-CNT DTSBX440
|
|
01247 DISPLAY 'XYEE ' WRK-EMPE-CNT DTSBX440
|
|
01248 DISPLAY 'MYEE ' MAUR-NEW-EMPLOYEE-CNT DTSBX440
|
|
01249 DTSBX440
|
|
01250 IF MAUR-REC-NOT-FOUND-88 OR DTSBX440
|
|
01251 WRK-EMPE-CNT NOT = MAUR-NEW-EMPLOYEE-CNT DTSBX440
|
|
01252 DISPLAY ' NEMPE NOT EQ' DTSBX440
|
|
01253 MOVE WRK-EMPE-CNT TO T040-NEW-EMPLOYEE-CNT DTSBX440
|
|
01254 MOVE 1 TO T040-UPD-MAUR. DTSBX440
|
|
01255 DTSBX440
|
|
01256 P4000-NEW-EMPL-CNT. DTSBX440
|
|
01257 MOVE ZEROS TO T040-INDCON-TO-EMPL-CNT. DTSBX440
|
|
01258 IF X163-INDCON-TO-EMPL-CNT = ZEROS DTSBX440
|
|
01259 DISPLAY 'XYEL EQ ZEROS ' DTSBX440
|
|
01260 GO TO P4000-AUDIT-T040. DTSBX440
|
|
01261 DTSBX440
|
|
01262 MOVE X163-INDCON-TO-EMPL-CNT TO WRK-EMPL-CNT DTSBX440
|
|
01263 DISPLAY ' XEMPL ' WRK-EMPL-CNT DTSBX440
|
|
01264 DISPLAY ' MEMPL ' MAUR-INDCON-TO-EMPL-CNT DTSBX440
|
|
01265 DTSBX440
|
|
01266 IF MAUR-REC-NOT-FOUND-88 OR DTSBX440
|
|
01267 WRK-EMPL-CNT NOT = MAUR-INDCON-TO-EMPL-CNT DTSBX440
|
|
01268 MOVE WRK-EMPL-CNT TO T040-INDCON-TO-EMPL-CNT DTSBX440
|
|
01269 DISPLAY ' NEMPL NOT EQ' DTSBX440
|
|
01270 MOVE 1 TO T040-UPD-MAUR. DTSBX440
|
|
01271 DTSBX440
|
|
01272 P4000-AUDIT-T040. DTSBX440
|
|
01273 IF T040-UPD-MAUR = 0 DTSBX440
|
|
01274 GO TO P4000-EXIT. DTSBX440
|
|
01275 DTSBX440
|
|
01276 MOVE LENGTH OF T040-LINK-AREA TO T040-LENGTH DTSBX440
|
|
01277 MOVE '040' TO T040-REC-TYPE. DTSBX440
|
|
01278 MOVE WRK-OP-ID TO T040-OP-ID. DTSBX440
|
|
01279 MOVE X163-EMP-NO TO T040-EMP-NO. DTSBX440
|
|
01280 MOVE L005-DATE TO T040-SYS-DATE. DTSBX440
|
|
01281 MOVE L005-TIME TO T040-SYS-TIME. DTSBX440
|
|
01282 SET T040-MAUR-88 TO TRUE. DTSBX440
|
|
01283 MOVE WRK-ASSIGN-NO TO T040-ASSIGN-NO. DTSBX440
|
|
01284 MOVE T040-LINK-AREA TO TSKL-REC. DTSBX440
|
|
01285 PERFORM S927B-WRITE THRU S927B-EXIT. DTSBX440
|
|
01286 ADD +1 TO W-T040-MAUR-CNT. DTSBX440
|
|
01287 DISPLAY ' WRITE TO40 MAUR ' T040-UPD-MAUR. DTSBX440
|
|
01288 DTSBX440
|
|
01289 P4000-EXIT. DTSBX440
|
|
01290 EXIT. DTSBX440
|
|
01291 DTSBX440
|
|
01292 P4500-AUDIT-MAUY. DTSBX440
|
|
01293 MOVE 0 TO T040-UPD-MAUY. DTSBX440
|
|
01294 MOVE 1 TO W-SUB. DTSBX440
|
|
01295 MOVE LOW-VALUES TO MAUY-KEY-AREA. DTSBX440
|
|
01296 MOVE X164-EMP-NO TO MAUY-EMP-NO. DTSBX440
|
|
01297 SET MAUY-AUY-88 TO TRUE. DTSBX440
|
|
01298 MOVE WRK-ASSIGN-NO TO MAUY-ASSIGN-NO. DTSBX440
|
|
01299 MOVE WRK-CAL-YEAR TO MAUY-CALENDAR-YEAR. DTSBX440
|
|
01300 MOVE MAUY-KEY-AREA TO MSKL-KEY-AREA. DTSBX440
|
|
01301 PERFORM S910-READ THRU S910-EXIT. DTSBX440
|
|
01302 IF L910-NO-REC-88 DTSBX440
|
|
01303 DISPLAY ' MAUY NOT FOUND ' X164-EMP-NO DTSBX440
|
|
01304 SET MAUY-REC-NOT-FOUND-88 TO TRUE DTSBX440
|
|
01305 ELSE DTSBX440
|
|
01306 MOVE MSKL-REC TO MAUY-REC DTSBX440
|
|
01307 DISPLAY ' MAUY FOUND ' X164-EMP-NO DTSBX440
|
|
01308 SET MAUY-REC-FOUND-88 TO TRUE. DTSBX440
|
|
01309 DTSBX440
|
|
01310 P4500-AUDIT-MAUY-EXIT. DTSBX440
|
|
01311 EXIT. DTSBX440
|
|
01312 DTSBX440
|
|
01313 P5000-QUARTER. DTSBX440
|
|
01314 DISPLAY ' U MAUY ' T040-UPD-MAUY. DTSBX440
|
|
01315 DISPLAY ' WSUB ' W-SUB. DTSBX440
|
|
01316 MOVE ZEROS TO T040-FIRST-YRQ. DTSBX440
|
|
01317 IF X164-QUARTER = SPACES DTSBX440
|
|
01318 GO TO P5000-QTR-AUDITED-IND. DTSBX440
|
|
01319 DTSBX440
|
|
01320 MOVE X164-QUARTER TO WRK-SLASH-YRQ. DTSBX440
|
|
01321 MOVE WRK-SLASH-YRQ-YR TO WRK-YRQ-YR DTSBX440
|
|
01322 MOVE WRK-SLASH-YRQ-QTR TO WRK-YRQ-QTR DTSBX440
|
|
01323 WRK-SUB DTSBX440
|
|
01324 MOVE WRK-YRQ TO L004-QTR-5-9. DTSBX440
|
|
01325 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBX440
|
|
01326 IF L004-INVALID-QTR DTSBX440
|
|
01327 STRING 'REPORT: INVALID X164 QUARTER ' DTSBX440
|
|
01328 X164-QUARTER DELIMITED BY SIZE DTSBX440
|
|
01329 INTO R140-MESSAGE DTSBX440
|
|
01330 END-STRING DTSBX440
|
|
01331 PERFORM S946-WRITE-R140 THRU S946-EXIT DTSBX440
|
|
01332 MOVE 1 TO T040-ERROR-SW DTSBX440
|
|
01333 GO TO P5000-QTR-AUDITED-IND. DTSBX440
|
|
01334 DTSBX440
|
|
01335 DISPLAY ' QTR SUB ' WRK-SUB DTSBX440
|
|
01336 DISPLAY ' SUB ' W-SUB. DTSBX440
|
|
01337 DTSBX440
|
|
01338 P5000-QTR-AUDITED-IND. DTSBX440
|
|
01339 MOVE SPACES TO T040-QTR-AUDITED-IND(W-SUB). DTSBX440
|
|
01340 IF X164-QTR-AUDITED-IND = SPACES DTSBX440
|
|
01341 GO TO P5000-GROSS-PAYROLL. DTSBX440
|
|
01342 DTSBX440
|
|
01343 IF X164-QTR-AUDITED-IND NOT = 'Y' AND 'N' DTSBX440
|
|
01344 STRING 'REPORT: INVALID X164 QTR AUD IND ' DTSBX440
|
|
01345 X164-QTR-AUDITED-IND DELIMITED BY SIZE DTSBX440
|
|
01346 INTO R140-MESSAGE DTSBX440
|
|
01347 END-STRING DTSBX440
|
|
01348 PERFORM S946-WRITE-R140 THRU S946-EXIT DTSBX440
|
|
01349 MOVE 1 TO T040-ERROR-SW DTSBX440
|
|
01350 GO TO P5000-GROSS-PAYROLL. DTSBX440
|
|
01351 DTSBX440
|
|
01352 DISPLAY ' X164 IND ' X164-QTR-AUDITED-IND DTSBX440
|
|
01353 DISPLAY ' MAUY IND ' MAUY-QTR-AUDITED-IND(W-SUB) DTSBX440
|
|
01354 DTSBX440
|
|
01355 IF MAUY-REC-NOT-FOUND-88 OR DTSBX440
|
|
01356 X164-QTR-AUDITED-IND NOT = MAUY-QTR-AUDITED-IND(W-SUB) DTSBX440
|
|
01357 DISPLAY ' QTR AUD ' DTSBX440
|
|
01358 MOVE X164-QTR-AUDITED-IND TO T040-QTR-AUDITED-IND(W-SUB) DTSBX440
|
|
01359 MOVE 1 TO T040-UPD-MAUY. DTSBX440
|
|
01360 DTSBX440
|
|
01361 P5000-GROSS-PAYROLL. DTSBX440
|
|
01362 MOVE ZEROS TO T040-QTR-GROSS-PAYROLL(W-SUB). DTSBX440
|
|
01363 IF X164-QTR-GROSS-PAYROLL = ZEROS DTSBX440
|
|
01364 GO TO P5000-UNDER-TOT-WAGE. DTSBX440
|
|
01365 DTSBX440
|
|
01366 MOVE X164-QTR-GROSS-PAYROLL TO W-MONEY-AMT-X. DTSBX440
|
|
01367 MOVE W-MONEY-AMT-9 TO W-MONEY-AMT. DTSBX440
|
|
01368 MOVE W-MONEY-AMT TO WRK-MONEY-AMT. DTSBX440
|
|
01369 DTSBX440
|
|
01370 DISPLAY ' WGROS ' WRK-MONEY-AMT DTSBX440
|
|
01371 DISPLAY ' MGROS ' MAUY-QTR-GROSS-PAYROLL(W-SUB) DTSBX440
|
|
01372 IF MAUY-REC-NOT-FOUND-88 OR DTSBX440
|
|
01373 WRK-MONEY-AMT NOT = MAUY-QTR-GROSS-PAYROLL(W-SUB) DTSBX440
|
|
01374 DISPLAY ' GROSS ' DTSBX440
|
|
01375 MOVE WRK-MONEY-AMT TO T040-QTR-GROSS-PAYROLL(W-SUB) DTSBX440
|
|
01376 MOVE 1 TO T040-UPD-MAUY. DTSBX440
|
|
01377 DTSBX440
|
|
01378 P5000-UNDER-TOT-WAGE. DTSBX440
|
|
01379 MOVE ZEROS TO T040-QTR-UNDER-TOT-WAGE(W-SUB) DTSBX440
|
|
01380 IF X164-QTR-UNDER-TOT-WAGE = ZEROS DTSBX440
|
|
01381 GO TO P5000-UNDER-TAX-WAGE. DTSBX440
|
|
01382 DTSBX440
|
|
01383 MOVE X164-QTR-UNDER-TOT-WAGE TO W-MONEY-AMT-X. DTSBX440
|
|
01384 MOVE W-MONEY-AMT-9 TO W-MONEY-AMT. DTSBX440
|
|
01385 MOVE W-MONEY-AMT TO WRK-MONEY-AMT. DTSBX440
|
|
01386 DTSBX440
|
|
01387 DISPLAY ' WGROS ' WRK-MONEY-AMT DTSBX440
|
|
01388 DISPLAY ' TGROS ' MAUY-QTR-UNDER-TOT-WAGE(W-SUB) DTSBX440
|
|
01389 IF MAUY-REC-NOT-FOUND-88 OR DTSBX440
|
|
01390 WRK-MONEY-AMT NOT = MAUY-QTR-UNDER-TOT-WAGE(W-SUB) DTSBX440
|
|
01391 DISPLAY ' UTOT ' DTSBX440
|
|
01392 MOVE WRK-MONEY-AMT TO T040-QTR-UNDER-TOT-WAGE(W-SUB) DTSBX440
|
|
01393 MOVE 1 TO T040-UPD-MAUY. DTSBX440
|
|
01394 DTSBX440
|
|
01395 P5000-UNDER-TAX-WAGE. DTSBX440
|
|
01396 MOVE ZEROS TO T040-QTR-UNDER-TAX-WAGE(W-SUB) DTSBX440
|
|
01397 IF X164-QTR-UNDER-TAX-WAGE = ZEROS DTSBX440
|
|
01398 GO TO P5000-UNDER-CONTRIB. DTSBX440
|
|
01399 DTSBX440
|
|
01400 MOVE X164-QTR-UNDER-TAX-WAGE TO W-MONEY-AMT-X. DTSBX440
|
|
01401 MOVE W-MONEY-AMT-9 TO W-MONEY-AMT. DTSBX440
|
|
01402 MOVE W-MONEY-AMT TO WRK-MONEY-AMT. DTSBX440
|
|
01403 DTSBX440
|
|
01404 DISPLAY ' WGROS ' WRK-MONEY-AMT DTSBX440
|
|
01405 DISPLAY ' XGROS ' MAUY-QTR-UNDER-TAX-WAGE(W-SUB) DTSBX440
|
|
01406 IF MAUY-REC-NOT-FOUND-88 OR DTSBX440
|
|
01407 WRK-MONEY-AMT NOT = MAUY-QTR-UNDER-TAX-WAGE(W-SUB) DTSBX440
|
|
01408 DISPLAY ' UTAX ' DTSBX440
|
|
01409 MOVE WRK-MONEY-AMT TO T040-QTR-UNDER-TAX-WAGE(W-SUB) DTSBX440
|
|
01410 MOVE 1 TO T040-UPD-MAUY. DTSBX440
|
|
01411 DTSBX440
|
|
01412 P5000-UNDER-CONTRIB. DTSBX440
|
|
01413 MOVE ZEROS TO T040-QTR-UNDER-CONTRIB(W-SUB). DTSBX440
|
|
01414 IF X164-QTR-UNDER-CONTRIB = ZEROS DTSBX440
|
|
01415 GO TO P5000-OVER-TOT-WAGE. DTSBX440
|
|
01416 DTSBX440
|
|
01417 MOVE X164-QTR-UNDER-CONTRIB TO W-MONEY-AMT-X. DTSBX440
|
|
01418 MOVE W-MONEY-AMT-9 TO W-MONEY-AMT. DTSBX440
|
|
01419 MOVE W-MONEY-AMT TO WRK-CONTRIB-AMT. DTSBX440
|
|
01420 DTSBX440
|
|
01421 DISPLAY ' WGROS ' WRK-CONTRIB-AMT DTSBX440
|
|
01422 DISPLAY ' CGROS ' MAUY-QTR-UNDER-CONTRIB(W-SUB) DTSBX440
|
|
01423 IF MAUY-REC-NOT-FOUND-88 OR DTSBX440
|
|
01424 WRK-CONTRIB-AMT NOT = MAUY-QTR-UNDER-CONTRIB(W-SUB) DTSBX440
|
|
01425 DISPLAY ' UCON ' DTSBX440
|
|
01426 MOVE WRK-CONTRIB-AMT TO T040-QTR-UNDER-CONTRIB(W-SUB) DTSBX440
|
|
01427 MOVE 1 TO T040-UPD-MAUY. DTSBX440
|
|
01428 DTSBX440
|
|
01429 P5000-OVER-TOT-WAGE. DTSBX440
|
|
01430 MOVE ZEROS TO T040-QTR-OVER-TOT-WAGE(W-SUB) DTSBX440
|
|
01431 IF X164-QTR-OVER-TOT-WAGE = ZEROS DTSBX440
|
|
01432 GO TO P5000-OVER-TAX-WAGE. DTSBX440
|
|
01433 DTSBX440
|
|
01434 MOVE X164-QTR-OVER-TOT-WAGE TO W-MONEY-AMT-X. DTSBX440
|
|
01435 MOVE W-MONEY-AMT-9 TO W-MONEY-AMT. DTSBX440
|
|
01436 MOVE W-MONEY-AMT TO WRK-MONEY-AMT. DTSBX440
|
|
01437 DTSBX440
|
|
01438 DISPLAY ' WGROS ' WRK-MONEY-AMT DTSBX440
|
|
01439 DISPLAY 'OTGROS ' MAUY-QTR-OVER-TOT-WAGE(W-SUB) DTSBX440
|
|
01440 IF MAUY-REC-NOT-FOUND-88 OR DTSBX440
|
|
01441 WRK-MONEY-AMT NOT = MAUY-QTR-OVER-TOT-WAGE(W-SUB) DTSBX440
|
|
01442 DISPLAY ' OTOT ' DTSBX440
|
|
01443 MOVE WRK-MONEY-AMT TO T040-QTR-OVER-TOT-WAGE(W-SUB) DTSBX440
|
|
01444 MOVE 1 TO T040-UPD-MAUY. DTSBX440
|
|
01445 DTSBX440
|
|
01446 P5000-OVER-TAX-WAGE. DTSBX440
|
|
01447 MOVE ZEROS TO T040-QTR-OVER-TAX-WAGE(W-SUB) DTSBX440
|
|
01448 IF X164-QTR-OVER-TAX-WAGE = ZEROS DTSBX440
|
|
01449 GO TO P5000-OVER-CONTRIB. DTSBX440
|
|
01450 DTSBX440
|
|
01451 MOVE X164-QTR-OVER-TAX-WAGE TO W-MONEY-AMT-X. DTSBX440
|
|
01452 MOVE W-MONEY-AMT-9 TO W-MONEY-AMT. DTSBX440
|
|
01453 MOVE W-MONEY-AMT TO WRK-MONEY-AMT. DTSBX440
|
|
01454 DTSBX440
|
|
01455 DISPLAY ' WGROS ' WRK-MONEY-AMT DTSBX440
|
|
01456 DISPLAY 'OXGROS ' MAUY-QTR-OVER-TAX-WAGE(W-SUB) DTSBX440
|
|
01457 IF MAUY-REC-NOT-FOUND-88 OR DTSBX440
|
|
01458 WRK-MONEY-AMT NOT = MAUY-QTR-OVER-TAX-WAGE(W-SUB) DTSBX440
|
|
01459 DISPLAY ' OTAX ' DTSBX440
|
|
01460 MOVE WRK-MONEY-AMT TO T040-QTR-OVER-TAX-WAGE(W-SUB) DTSBX440
|
|
01461 MOVE 1 TO T040-UPD-MAUY. DTSBX440
|
|
01462 DTSBX440
|
|
01463 P5000-OVER-CONTRIB. DTSBX440
|
|
01464 MOVE ZEROS TO T040-QTR-OVER-CONTRIB(W-SUB). DTSBX440
|
|
01465 IF X164-QTR-OVER-CONTRIB = ZEROS DTSBX440
|
|
01466 GO TO P5000-AUDIT-T040. DTSBX440
|
|
01467 DTSBX440
|
|
01468 MOVE X164-QTR-OVER-CONTRIB TO W-MONEY-AMT-X. DTSBX440
|
|
01469 MOVE W-MONEY-AMT-9 TO W-MONEY-AMT. DTSBX440
|
|
01470 MOVE W-MONEY-AMT TO WRK-CONTRIB-AMT. DTSBX440
|
|
01471 DTSBX440
|
|
01472 DISPLAY ' WGROS ' WRK-CONTRIB-AMT DTSBX440
|
|
01473 DISPLAY 'OCGROS ' MAUY-QTR-OVER-CONTRIB(W-SUB) DTSBX440
|
|
01474 IF MAUY-REC-NOT-FOUND-88 OR DTSBX440
|
|
01475 WRK-CONTRIB-AMT NOT = MAUY-QTR-OVER-CONTRIB(W-SUB) DTSBX440
|
|
01476 DISPLAY ' OCON ' DTSBX440
|
|
01477 MOVE WRK-CONTRIB-AMT TO T040-QTR-OVER-CONTRIB(W-SUB) DTSBX440
|
|
01478 MOVE 1 TO T040-UPD-MAUY. DTSBX440
|
|
01479 DTSBX440
|
|
01480 P5000-AUDIT-T040. DTSBX440
|
|
01481 DTSBX440
|
|
01482 DISPLAY ' WRITE T040 REC ' T040-UPD-MAUY. DTSBX440
|
|
01483 DISPLAY 'W-SUB-EMP ' W-SUB ' ' X163-EMP-NO. DTSBX440
|
|
01484 DTSBX440
|
|
01485 IF T040-UPD-MAUY = 0 DTSBX440
|
|
01486 GO TO P5000-EXIT. DTSBX440
|
|
01487 DTSBX440
|
|
01488 DTSBX440
|
|
01489 IF W-SUB NOT = 4 DTSBX440
|
|
01490 GO TO P5000-EXIT. DTSBX440
|
|
01491 DTSBX440
|
|
01492 DISPLAY ' WRITING T040 MAUY REC ' T040-UPD-MAUY. DTSBX440
|
|
01493 DISPLAY 'T-SUB-EMP ' W-SUB ' ' X163-EMP-NO. DTSBX440
|
|
01494 DTSBX440
|
|
01495 MOVE LENGTH OF T040-LINK-AREA TO T040-LENGTH DTSBX440
|
|
01496 MOVE '040' TO T040-REC-TYPE. DTSBX440
|
|
01497 DTSBX440
|
|
01498 MOVE X164-EMP-NO TO T040-EMP-NO. DTSBX440
|
|
01499 MOVE WRK-OP-ID TO T040-OP-ID. DTSBX440
|
|
01500 MOVE L005-DATE TO T040-SYS-DATE. DTSBX440
|
|
01501 MOVE L005-TIME TO T040-SYS-TIME. DTSBX440
|
|
01502 SET T040-MAUY-88 TO TRUE. DTSBX440
|
|
01503 MOVE WRK-ASSIGN-NO TO T040-ASSIGN-NO. DTSBX440
|
|
01504 MOVE WRK-CAL-YEAR TO T040-CALENDAR-YEAR. DTSBX440
|
|
01505 MOVE T040-LINK-AREA TO TSKL-REC. DTSBX440
|
|
01506 PERFORM S927B-WRITE THRU S927B-EXIT. DTSBX440
|
|
01507 ADD +1 TO W-T040-MAUY-CNT. DTSBX440
|
|
01508 DTSBX440
|
|
01509 P5000-EXIT. DTSBX440
|
|
01510 EXIT. DTSBX440
|
|
01511 DTSBX440
|
|
01512 DTSBX440
|
|
01513 T0000-TERMINATE. DTSBX440
|
|
01514 CLOSE WEB-AUD-FILE. DTSBX440
|
|
01515 DTSBX440
|
|
01516 DISPLAY '*********************************************'. DTSBX440
|
|
01517 DISPLAY '** DTSBX440 TERMINATION STATISTICS **'. DTSBX440
|
|
01518 DISPLAY '** **'. DTSBX440
|
|
01519 DISPLAY '** ERRORS ' W-ERROR-CNT DTSBX440
|
|
01520 ' **'. DTSBX440
|
|
01521 DISPLAY '** MFAS-WRITTEN ' W-T040-MFAS-CNT DTSBX440
|
|
01522 ' **'. DTSBX440
|
|
01523 DISPLAY '** MAUR-WRITTEN ' W-T040-MAUR-CNT DTSBX440
|
|
01524 DISPLAY '** **'. DTSBX440
|
|
01525 DISPLAY '** MAUY-WRITTEN ' W-T040-MAUY-CNT DTSBX440
|
|
01526 DISPLAY '** **'. DTSBX440
|
|
01527 DISPLAY '*********************************************'. DTSBX440
|
|
01528 DTSBX440
|
|
01529 DTSBX440
|
|
01530 IF T040-ERROR-SW = 1 DTSBX440
|
|
01531 DISPLAY ' ERROR ON WEB INPUT FILE - NO T040 WRITTEN ' DTSBX440
|
|
01532 MOVE 2 TO RETURN-CODE. DTSBX440
|
|
01533 DTSBX440
|
|
01534 T0000-EXIT. DTSBX440
|
|
01535 EXIT. DTSBX440
|
|
01536 DTSBX440
|
|
01537 S1000-READ-WEB-IMP. DTSBX440
|
|
01538 READ WEB-AUD-FILE AT END SET WEB-AUD-STATUS-EOF-88 TO TRUE. DTSBX440
|
|
01539 ADD +1 TO W-WEB-IMP-CNT. DTSBX440
|
|
01540 DTSBX440
|
|
01541 S1000-EXIT. DTSBX440
|
|
01542 EXIT. DTSBX440
|
|
01543 S001-FROM-ABS-DAY. DTSBX440
|
|
01544 SET L001-FROM-ABS-DAY TO TRUE. DTSBX440
|
|
01545 GO TO S001-DATE. DTSBX440
|
|
01546 DTSBX440
|
|
01547 S001-FROM-FED-8. DTSBX440
|
|
01548 SET L001-FROM-FED-8 TO TRUE. DTSBX440
|
|
01549 GO TO S001-DATE. DTSBX440
|
|
01550 DTSBX440
|
|
01551 S001-FROM-CAL-6. DTSBX440
|
|
01552 SET L001-FROM-CAL-6 TO TRUE. DTSBX440
|
|
01553 GO TO S001-DATE. DTSBX440
|
|
01554 DTSBX440
|
|
01555 S001-DATE. DTSBX440
|
|
01556 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBX440
|
|
01557 S001-EXIT. DTSBX440
|
|
01558 EXIT. DTSBX440
|
|
01559 SKIP3 DTSBX440
|
|
01560 S004-FROM-5. DTSBX440
|
|
01561 SET L004-FROM-5 TO TRUE. DTSBX440
|
|
01562 GO TO S004-QTR. DTSBX440
|
|
01563 DTSBX440
|
|
01564 S004-FROM-ABS. DTSBX440
|
|
01565 SET L004-FROM-ABS TO TRUE. DTSBX440
|
|
01566 GO TO S004-QTR. DTSBX440
|
|
01567 DTSBX440
|
|
01568 S004-FROM-3. DTSBX440
|
|
01569 SET L004-FROM-3 TO TRUE. DTSBX440
|
|
01570 GO TO S004-QTR. DTSBX440
|
|
01571 DTSBX440
|
|
01572 S004-FROM-DATE. DTSBX440
|
|
01573 SET L004-FROM-DATE TO TRUE. DTSBX440
|
|
01574 GO TO S004-QTR. DTSBX440
|
|
01575 DTSBX440
|
|
01576 S004-QTR. DTSBX440
|
|
01577 DTSBX440
|
|
01578 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBX440
|
|
01579 DTSBX440
|
|
01580 S004-EXIT. DTSBX440
|
|
01581 EXIT. DTSBX440
|
|
01582 SKIP3 DTSBX440
|
|
01583 DTSBX440
|
|
01584 S005-FROM-SYS. DTSBX440
|
|
01585 SET L005-FROM-SYS TO TRUE. DTSBX440
|
|
01586 DTSBX440
|
|
01587 S005-ABSTIME. DTSBX440
|
|
01588 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBX440
|
|
01589 S005-EXIT. DTSBX440
|
|
01590 EXIT. DTSBX440
|
|
01591 S036-EMP-SIZE-IND. DTSBX440
|
|
01592 SET L036-MFAS-EMP-SIZE-IND TO TRUE. DTSBX440
|
|
01593 CALL 'DTSBU036' USING L036-LINK-AREA. DTSBX440
|
|
01594 GO TO S036-EXIT. DTSBX440
|
|
01595 S036-EDIT-CODES. DTSBX440
|
|
01596 CALL 'DTSBU036' USING L036-LINK-AREA. DTSBX440
|
|
01597 DTSBX440
|
|
01598 S036-EXIT. DTSBX440
|
|
01599 EXIT. DTSBX440
|
|
01600 S062-LOOKUP-FLD-REP. DTSBX440
|
|
01601 CALL 'DTSBU062' USING L062-LINK-AREA. DTSBX440
|
|
01602 S062-EXIT. DTSBX440
|
|
01603 EXIT. DTSBX440
|
|
01604 DTSBX440
|
|
01605 S910-OPEN-READ. DTSBX440
|
|
01606 SET L910-OPEN-READ-88 TO TRUE. DTSBX440
|
|
01607 GO TO S910-MSTR-IO. DTSBX440
|
|
01608 DTSBX440
|
|
01609 S910-READ. DTSBX440
|
|
01610 SET L910-READ-88 TO TRUE. DTSBX440
|
|
01611 GO TO S910-MSTR-IO. DTSBX440
|
|
01612 DTSBX440
|
|
01613 S910-START-BROWSE. DTSBX440
|
|
01614 SET L910-START-BROWSE-88 TO TRUE. DTSBX440
|
|
01615 GO TO S910-MSTR-IO. DTSBX440
|
|
01616 DTSBX440
|
|
01617 S910-READ-NEXT. DTSBX440
|
|
01618 SET L910-READ-NEXT-88 TO TRUE. DTSBX440
|
|
01619 GO TO S910-MSTR-IO. DTSBX440
|
|
01620 DTSBX440
|
|
01621 S910-COUNT. DTSBX440
|
|
01622 SET L910-COUNT-88 TO TRUE. DTSBX440
|
|
01623 GO TO S910-MSTR-IO. DTSBX440
|
|
01624 DTSBX440
|
|
01625 S910-REWRITE. DTSBX440
|
|
01626 SET L910-REWRITE-88 TO TRUE. DTSBX440
|
|
01627 GO TO S910-MSTR-IO. DTSBX440
|
|
01628 DTSBX440
|
|
01629 S910-CLOSE. DTSBX440
|
|
01630 SET L910-CLOSE-88 TO TRUE. DTSBX440
|
|
01631 GO TO S910-MSTR-IO. DTSBX440
|
|
01632 DTSBX440
|
|
01633 S910-MSTR-IO. DTSBX440
|
|
01634 CALL 'DTSBU910' USING L910-LINK-AREA DTSBX440
|
|
01635 MSKL-REC. DTSBX440
|
|
01636 S910-EXIT. DTSBX440
|
|
01637 EXIT. DTSBX440
|
|
01638 SKIP3 DTSBX440
|
|
01639 DTSBX440
|
|
01640 S921-OPEN-READ. DTSBX440
|
|
01641 SET L921-OPEN-READ-88 TO TRUE. DTSBX440
|
|
01642 GO TO S921-AIX-IO. DTSBX440
|
|
01643 DTSBX440
|
|
01644 S921-START-BROWSE. DTSBX440
|
|
01645 SET L921-START-BROWSE-88 TO TRUE. DTSBX440
|
|
01646 GO TO S921-AIX-IO. DTSBX440
|
|
01647 DTSBX440
|
|
01648 S921-READ-NEXT. DTSBX440
|
|
01649 SET L921-READ-NEXT-88 TO TRUE. DTSBX440
|
|
01650 GO TO S921-AIX-IO. DTSBX440
|
|
01651 DTSBX440
|
|
01652 S921-CLOSE. DTSBX440
|
|
01653 SET L921-CLOSE-88 TO TRUE. DTSBX440
|
|
01654 GO TO S921-AIX-IO. DTSBX440
|
|
01655 DTSBX440
|
|
01656 S921-AIX-IO. DTSBX440
|
|
01657 CALL 'DTSBU921' USING L921-LINK-AREA DTSBX440
|
|
01658 ISKL-REC. DTSBX440
|
|
01659 DTSBX440
|
|
01660 S921-EXIT. DTSBX440
|
|
01661 EXIT. DTSBX440
|
|
01662 DTSBX440
|
|
01663 S927A-OPEN. DTSBX440
|
|
01664 SET L927-OPEN-UPDATE-88 TO TRUE. DTSBX440
|
|
01665 PERFORM S927Z-IO THRU S927Z-EXIT. DTSBX440
|
|
01666 DTSBX440
|
|
01667 S927A-EXIT. DTSBX440
|
|
01668 EXIT. DTSBX440
|
|
01669 DTSBX440
|
|
01670 DTSBX440
|
|
01671 S927B-WRITE. DTSBX440
|
|
01672 SET L927-WRITE-88 TO TRUE. DTSBX440
|
|
01673 PERFORM S927Z-IO THRU S927Z-EXIT. DTSBX440
|
|
01674 DTSBX440
|
|
01675 S927B-EXIT. DTSBX440
|
|
01676 EXIT. DTSBX440
|
|
01677 S927C-CLOSE. DTSBX440
|
|
01678 SET L927-CLOSE-88 TO TRUE. DTSBX440
|
|
01679 PERFORM S927Z-IO THRU S927Z-EXIT. DTSBX440
|
|
01680 DTSBX440
|
|
01681 S927C-EXIT. DTSBX440
|
|
01682 EXIT. DTSBX440
|
|
01683 DTSBX440
|
|
01684 S927Z-IO. DTSBX440
|
|
01685 CALL 'DTSBU927' USING L927-LINK-AREA DTSBX440
|
|
01686 TSKL-REC. DTSBX440
|
|
01687 S927Z-EXIT. DTSBX440
|
|
01688 EXIT. DTSBX440
|
|
01689 S931-READ. DTSBX440
|
|
01690 SET L931-READ-88 TO TRUE. DTSBX440
|
|
01691 GO TO S931-REF-IO. DTSBX440
|
|
01692 DTSBX440
|
|
01693 S931-OPEN-READ. DTSBX440
|
|
01694 SET L931-OPEN-READ-88 TO TRUE. DTSBX440
|
|
01695 GO TO S931-REF-IO. DTSBX440
|
|
01696 DTSBX440
|
|
01697 S931-REF-IO. DTSBX440
|
|
01698 CALL 'DTSBU931' USING L931-LINK-AREA DTSBX440
|
|
01699 FSKL-REC. DTSBX440
|
|
01700 S931-EXIT. DTSBX440
|
|
01701 EXIT. DTSBX440
|
|
01702 DTSBX440
|
|
01703 DTSBX440
|
|
01704 S946-WRITE-R140. DTSBX440
|
|
01705 CALL 'DTSBU946' USING R140-REC. DTSBX440
|
|
01706 DTSBX440
|
|
01707 S946-EXIT. DTSBX440
|
|
01708 EXIT. DTSBX440
|
|
01709 S999-ABEND. DTSBX440
|
|
01710 DISPLAY '*** DTSBX440 ABENDING. ' DTSBX440
|
|
01711 ABEND-MSG. DTSBX440
|
|
01712 DTSBX440
|
|
01713 CALL 'DTSBU999' USING W-ABEND-CD. DTSBX440
|
|
01714 S999-EXIT. DTSBX440
|
|
01715 EXIT. DTSBX440
|