DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
615
Batch/DTSBD541.cob
Normal file
615
Batch/DTSBD541.cob
Normal file
@ -0,0 +1,615 @@
|
||||
00001 IDENTIFICATION DIVISION. 06/25/09
|
||||
00002 PROGRAM-ID. DTSBD541. DTSBD541
|
||||
00003 AUTHOR. NGC. LV003
|
||||
00004 DATE-WRITTEN. JUNE 2004. DTSBD541
|
||||
00005 DATE-COMPILED. DTSBD541
|
||||
00006 SKIP3 DTSBD541
|
||||
00007 ***** DTSBD541
|
||||
00008 * FUNCTION: BUILD EMPLOYEE TRANSFER TRANSACTION FILE (ETT) DTSBD541
|
||||
00009 * FOR ES202 PROCESS. DTSBD541
|
||||
00010 * STEP 1 - EXTRACT DATA FROM 2 CONSECUTIVE QUARTERS DTSBD541
|
||||
00011 * DTSBD541
|
||||
00012 * MODIFICATION LOG: DTSBD541
|
||||
00013 * DTSBD541
|
||||
00014 * 06/24/2004 INITIAL DEVELOPMENT DTSBD541
|
||||
00015 * WORK ORDER: PROGRAMMER: GD DTSBD541
|
||||
00016 * DTSBD541
|
||||
00017 * 08/25/2004 ADDED WAGE FILE DTSBD541
|
||||
00018 * WORK ORDER: PROGRAMMER: GD DTSBD541
|
||||
00019 * DTSBD541
|
||||
00020 * 10/25/2004 READ THE PARAMETER FILE CONTAINING BOTH PARM DTSBD541
|
||||
00021 * SPECIFIED QTR AND PREVIOUS QTR WHICH CREATED DTSBD541
|
||||
00022 * FROM PGM DTSBD540 FOR THIS PGM PROCESSING. DTSBD541
|
||||
00023 * REFERENCE: LMI REQUIRMENT PROGRAMMER: RW DTSBD541
|
||||
00024 * DTSBD541
|
||||
00025 * 99/99/9999 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD541
|
||||
00026 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD541
|
||||
00027 * WORK ORDER: PROGRAMMER: XXX DTSBD541
|
||||
00028 * DTSBD541
|
||||
00029 * DESCRIPTION: DTSBD541
|
||||
00030 * DTSBD541
|
||||
00031 * INITIATION: DTSBD541
|
||||
00032 * VSAM WAGE FILE OPEN READ DTSBD541
|
||||
00033 * DTSBD541
|
||||
00034 * PARAMETERS INPUT: DTSBD541
|
||||
00035 * PARM-EMP-NO PARM-START-YRQ PARM-END-YRQ. DTSBD541
|
||||
00036 * DTSBD541
|
||||
00037 * PROCESSING: DTSBD541
|
||||
00038 * SEE PRINTED OUTPUTS DESCRIPTION AND LAYOUTS (535R1). DTSBD541
|
||||
00039 * DTSBD541
|
||||
00040 * TERMINATION: DTSBD541
|
||||
00041 * OUTPUT STATISTICAL RECORDS COUNT. DTSBD541
|
||||
00042 * DTSBD541
|
||||
00043 * RECORDS READ: DTSBD541
|
||||
00044 * MASTER: DTSBD541
|
||||
00045 VSAM WAGES FILE DTSBD541
|
||||
00046 * DTSBD541
|
||||
00047 * ALTERNATE INDEX: DTSBD541
|
||||
00048 * NONE. DTSBD541
|
||||
00049 * DTSBD541
|
||||
00050 * REFERENCE: DTSBD541
|
||||
00051 * NONE. DTSBD541
|
||||
00052 * DTSBD541
|
||||
00053 * RECORDS UPDATED: DTSBD541
|
||||
00054 * NONE DTSBD541
|
||||
00055 * DTSBD541
|
||||
00056 * REPORT RECORDS WRITTEN: DTSBD541
|
||||
00057 * NONE. DTSBD541
|
||||
00058 * DTSBD541
|
||||
00059 * BATCH TRANSACTION COLLECTION RECORDS WRITTEN: DTSBD541
|
||||
00060 * NONE. DTSBD541
|
||||
00061 * DTSBD541
|
||||
00062 * MODULES CALLED: DTSBD541
|
||||
00063 * DTSBU001 DATE CONVERSION/EDIT. DTSBD541
|
||||
00064 * DTSBU004 QUARERLY SUMMARY REPORT REC. DTSBD541
|
||||
00065 * DTSBU981 VSAM.WGH FILE I/O. DTSBD541
|
||||
00066 * DTSBU946 VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 1. DTSBD541
|
||||
00067 * DTSBD541
|
||||
00068 * VERMONT REFERENCE: DTSBD541
|
||||
00069 * NONE. DTSBD541
|
||||
00070 * DTSBD541
|
||||
00071 ***** DTSBD541
|
||||
00072 SKIP3 DTSBD541
|
||||
00073 ENVIRONMENT DIVISION. DTSBD541
|
||||
00074 INPUT-OUTPUT SECTION. DTSBD541
|
||||
00075 SKIP3 DTSBD541
|
||||
00076 FILE-CONTROL. DTSBD541
|
||||
00077 SELECT ES202PRM-FILE ASSIGN TO ES202P1I DTSBD541
|
||||
00078 FILE STATUS IS PARM-STATUS. DTSBD541
|
||||
00079 DTSBD541
|
||||
00080 SELECT OUTFILE1 ASSIGN TO OUTFILE1 DTSBD541
|
||||
00081 FILE STATUS IS OUTFILE1-STATUS. DTSBD541
|
||||
00082 DTSBD541
|
||||
00083 SELECT ES2WAGE ASSIGN TO ES2WAGE DTSBD541
|
||||
00084 FILE STATUS IS ES2WAGE-STATUS. DTSBD541
|
||||
00085 DTSBD541
|
||||
00086 SELECT EXPORT-WAGE ASSIGN TO EXPWAGE DTSBD541
|
||||
00087 FILE STATUS IS EXPWAGE-STATUS. DTSBD541
|
||||
00088 DTSBD541
|
||||
00089 SKIP3 DTSBD541
|
||||
00090 DATA DIVISION. DTSBD541
|
||||
00091 FILE SECTION. DTSBD541
|
||||
00092 FD ES202PRM-FILE DTSBD541
|
||||
00093 RECORDING MODE IS F DTSBD541
|
||||
00094 BLOCK CONTAINS 0 RECORDS. DTSBD541
|
||||
00095 DTSBD541
|
||||
00096 01 ES202-PARM-REC. DTSBD541
|
||||
00097 05 ES202-PARM-YRQ1 PIC S9(05) COMP-3. DTSBD541
|
||||
00098 05 ES202-PARM-YRQ2 PIC S9(05) COMP-3. DTSBD541
|
||||
00099 DTSBD541
|
||||
00100 FD OUTFILE1 DTSBD541
|
||||
00101 RECORD CONTAINS 16 CHARACTERS DTSBD541
|
||||
00102 DATA RECORD IS OUTFILE1-REC. DTSBD541
|
||||
00103 DTSBD541
|
||||
00104 01 OUTFILE1-REC. DTSBD541
|
||||
00105 05 OUTFILE1-SSN PIC 9(09). DTSBD541
|
||||
00106 05 OUTFILE1-QTR PIC 9(01). DTSBD541
|
||||
00107 05 OUTFILE1-EMP-NO PIC 9(06). DTSBD541
|
||||
00108 DTSBD541
|
||||
00109 FD ES2WAGE DTSBD541
|
||||
00110 RECORD CONTAINS 26 CHARACTERS DTSBD541
|
||||
00111 DATA RECORD IS ES2WAGE-REC. DTSBD541
|
||||
00112 SKIP1 DTSBD541
|
||||
00113 01 ES2WAGE-REC. DTSBD541
|
||||
00114 ++INCLUDE ES2WAGV1 DTSBD541
|
||||
00115 DTSBD541
|
||||
00116 FD EXPORT-WAGE DTSBD541
|
||||
00117 RECORD CONTAINS 92 CHARACTERS DTSBD541
|
||||
00118 DATA RECORD IS EXPWAGE-REC. DTSBD541
|
||||
00119 SKIP1 DTSBD541
|
||||
00120 01 EXPWAGE-REC PIC X(92). DTSBD541
|
||||
00121 DTSBD541
|
||||
00122 WORKING-STORAGE SECTION. DTSBD541
|
||||
001225 77 PAN-VALET PICTURE X(24) VALUE '003DTSBD541 06/25/09'. DTSBD541
|
||||
00123 DTSBD541
|
||||
00124 01 WRK-AREA. DTSBD541
|
||||
00125 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +541.DTSBD541
|
||||
00126 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBD541'.DTSBD541
|
||||
00127 05 WRK-ABEND-MSG PIC X(60). DTSBD541
|
||||
00128 DTSBD541
|
||||
00129 05 DISP-PARM-START-YRQ PIC X(05). DTSBD541
|
||||
00130 05 DISP-PARM-END-YRQ PIC X(05). DTSBD541
|
||||
00131 05 DISP-ESTB-DATE PIC X(10). DTSBD541
|
||||
00132 05 RUN-DATE PIC S9(09) COMP-3. DTSBD541
|
||||
00133 05 WRK-YRQ1 PIC S9(05) COMP-3. DTSBD541
|
||||
00134 05 WRK-YRQ2 PIC S9(05) COMP-3. DTSBD541
|
||||
00135 05 WRK-EMP-NO PIC S9(07) COMP-3 DTSBD541
|
||||
00136 VALUE +0. DTSBD541
|
||||
00137 05 WRK-EMPLOYEE PIC S9(07) COMP-3 DTSBD541
|
||||
00138 VALUE +0. DTSBD541
|
||||
00139 05 WRK-TOT-EARNINGS PIC S9(11)V99 COMP-3 DTSBD541
|
||||
00140 VALUE +0. DTSBD541
|
||||
00141 DTSBD541
|
||||
00142 DTSBD541
|
||||
00143 05 WRK-SUBJECT-IND PIC X(01) VALUE 'N'. DTSBD541
|
||||
00144 88 WRK-SUBJECT-YES-88 VALUE 'Y'. DTSBD541
|
||||
00145 88 WRK-SUBJECT-NO-88 VALUE 'N'. DTSBD541
|
||||
00146 DTSBD541
|
||||
00147 05 PARM-STATUS PIC X(02). DTSBD541
|
||||
00148 88 PARM-OK-88 VALUE '00'. DTSBD541
|
||||
00149 88 PARM-EOF-88 VALUE '10'. DTSBD541
|
||||
00150 DTSBD541
|
||||
00151 05 OUTFILE1-STATUS PIC X(02). DTSBD541
|
||||
00152 88 OUTFILE1-OK-88 VALUE '00'. DTSBD541
|
||||
00153 DTSBD541
|
||||
00154 05 ES2WAGE-STATUS PIC X(02). DTSBD541
|
||||
00155 88 ES2WAGE-OK-88 VALUE '00'. DTSBD541
|
||||
00156 DTSBD541
|
||||
00157 05 EXPWAGE-STATUS PIC X(02). DTSBD541
|
||||
00158 88 EXPWAGE-OK-88 VALUE '00'. DTSBD541
|
||||
00159 DTSBD541
|
||||
00160 05 WRK-EOF-IND PIC X(03) DTSBD541
|
||||
00161 VALUE 'NO '. DTSBD541
|
||||
00162 DTSBD541
|
||||
00163 05 WRK-ERROR-IND PIC X(01). DTSBD541
|
||||
00164 88 WRK-ERROR-YES-88 VALUE 'Y'. DTSBD541
|
||||
00165 88 WRK-ERROR-NO-88 VALUE 'N'. DTSBD541
|
||||
00166 DTSBD541
|
||||
00167 05 WRK-WWGH-READ-CNT PIC S9(07) COMP-3 VALUE +0. DTSBD541
|
||||
00168 05 WRK-OUTFILE1-WRITE-CNT PIC S9(07) COMP-3 VALUE +0. DTSBD541
|
||||
00169 05 WRK-ES2WAGE-WRITE-CNT PIC S9(09) COMP-3 VALUE +0. DTSBD541
|
||||
00170 05 WRK-EXPWAGE-WRITE-CNT PIC S9(09) COMP-3 VALUE +0. DTSBD541
|
||||
00171 05 PARM-REC-CNT PIC S9(05) COMP-3 VALUE +0. DTSBD541
|
||||
00172 DTSBD541
|
||||
00173 05 WRK-PARM-START-YRQ PIC S9(05) COMP-3. DTSBD541
|
||||
00174 05 WRK-PARM-END-YRQ PIC S9(05) COMP-3. DTSBD541
|
||||
00175 DTSBD541
|
||||
00176 01 WRK-YRQ PIC 9(05). DTSBD541
|
||||
00177 01 FILLER REDEFINES WRK-YRQ. DTSBD541
|
||||
00178 05 WRK-YRQ-YEAR PIC 9(4). DTSBD541
|
||||
00179 05 WRK-YRQ-QTR PIC 9(1). DTSBD541
|
||||
00180 EJECT DTSBD541
|
||||
00181 DTSBD541
|
||||
00182 01 WRK-EXPWAGE-REC. DTSBD541
|
||||
00183 05 EXP-SSN PIC 9(09). DTSBD541
|
||||
00184 05 EXP-FIRST-NAME PIC X(15). DTSBD541
|
||||
00185 05 EXP-MIDDLE-INITIAL PIC X(01). DTSBD541
|
||||
00186 05 EXP-LAST-NAME PIC X(20). DTSBD541
|
||||
00187 05 EXP-STATE-FIPS PIC 9(02). DTSBD541
|
||||
00188 05 EXP-UI-ACCOUNT PIC 9(10). DTSBD541
|
||||
00189 05 EXP-REPORTING-UNIT PIC 9(05). DTSBD541
|
||||
00190 05 EXP-FEIN PIC 9(09). DTSBD541
|
||||
00191 05 EXP-YEAR PIC 9(04). DTSBD541
|
||||
00192 05 EXP-QUARTER PIC 9(01). DTSBD541
|
||||
00193 05 EXP-WAGES PIC 9(10). DTSBD541
|
||||
00194 05 EXP-HOURS PIC 9(03). DTSBD541
|
||||
00195 05 EXP-WEEKS PIC 9(03). DTSBD541
|
||||
00196 DTSBD541
|
||||
00197 01 L001-LINK-AREA. DTSBD541
|
||||
00198 ++INCLUDE DTSIL001 DTSBD541
|
||||
00199 EJECT DTSBD541
|
||||
00200 01 L004-LINK-AREA. DTSBD541
|
||||
00201 ++INCLUDE DTSIL004 DTSBD541
|
||||
00202 EJECT DTSBD541
|
||||
00203 01 L910-LINK-AREA. DTSBD541
|
||||
00204 ++INCLUDE DTSIL910 DTSBD541
|
||||
00205 EJECT DTSBD541
|
||||
00206 01 MSKL-REC. DTSBD541
|
||||
00207 ++INCLUDE DTSIMSKL DTSBD541
|
||||
00208 DTSBD541
|
||||
00209 01 MPRF-REC. DTSBD541
|
||||
00210 ++INCLUDE DTSIMPRF DTSBD541
|
||||
00211 DTSBD541
|
||||
00212 01 L981-LINK-AREA. DTSBD541
|
||||
00213 ++INCLUDE DTSIL981 DTSBD541
|
||||
00214 SKIP3 DTSBD541
|
||||
00215 01 WWGH-REC. DTSBD541
|
||||
00216 ++INCLUDE DTSIWWGH DTSBD541
|
||||
00217 EJECT DTSBD541
|
||||
00218 PROCEDURE DIVISION. DTSBD541
|
||||
00219 DTSBD541
|
||||
00220 PERFORM I0000-INITIALIZE THRU I0000-EXIT. DTSBD541
|
||||
00221 IF WRK-ERROR-NO-88 DTSBD541
|
||||
00222 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBD541
|
||||
00223 PERFORM T0000-TERMINATE THRU T0000-EXIT DTSBD541
|
||||
00224 END-IF. DTSBD541
|
||||
00225 DTSBD541
|
||||
00226 GOBACK. DTSBD541
|
||||
00227 EJECT DTSBD541
|
||||
00228 I0000-INITIALIZE. DTSBD541
|
||||
00229 DTSBD541
|
||||
00230 SET WRK-ERROR-NO-88 TO TRUE. DTSBD541
|
||||
00231 DTSBD541
|
||||
00232 PERFORM I1000-PROCESS-PARMS THRU I1000-EXIT. DTSBD541
|
||||
00233 DTSBD541
|
||||
00234 PERFORM I2000-OPEN-FILES THRU I2000-EXIT. DTSBD541
|
||||
00235 DTSBD541
|
||||
00236 MOVE WRK-MOD-NAME TO L981-MOD-NAME. DTSBD541
|
||||
00237 DTSBD541
|
||||
00238 I0000-EXIT. DTSBD541
|
||||
00239 EXIT. DTSBD541
|
||||
00240 DTSBD541
|
||||
00241 I1000-PROCESS-PARMS. DTSBD541
|
||||
00242 DTSBD541
|
||||
00243 OPEN INPUT ES202PRM-FILE. DTSBD541
|
||||
00244 READ ES202PRM-FILE. DTSBD541
|
||||
00245 IF NOT PARM-OK-88 DTSBD541
|
||||
00246 DISPLAY '*** FILE STATUS IS : ' PARM-STATUS DTSBD541
|
||||
00247 MOVE 'CANNOT OPEN ES202PRM FILE ' TO WRK-ABEND-MSG DTSBD541
|
||||
00248 PERFORM S999-ABEND THRU S999-EXIT DTSBD541
|
||||
00249 END-IF. DTSBD541
|
||||
00250 DTSBD541
|
||||
00251 ************************************************************* DTSBD541
|
||||
00252 * YRQ1 = NEW QUARTER DTSBD541
|
||||
00253 * YRQ2 = OLD QUARTER DTSBD541
|
||||
00254 ************************************************************* DTSBD541
|
||||
00255 MOVE ES202-PARM-YRQ1 TO WRK-YRQ1. DTSBD541
|
||||
00256 MOVE ES202-PARM-YRQ2 TO WRK-YRQ2. DTSBD541
|
||||
00257 DTSBD541
|
||||
00258 DISPLAY SPACE. DTSBD541
|
||||
00259 DISPLAY 'BD541 YRQ1 ' WRK-YRQ1 ' YRQ2 ' WRK-YRQ2. DTSBD541
|
||||
00260 DISPLAY SPACE. DTSBD541
|
||||
00261 I1000-EXIT. DTSBD541
|
||||
00262 EXIT. DTSBD541
|
||||
00263 SKIP3 DTSBD541
|
||||
00264 DTSBD541
|
||||
00265 I2000-OPEN-FILES. DTSBD541
|
||||
00266 OPEN OUTPUT OUTFILE1. DTSBD541
|
||||
00267 IF NOT OUTFILE1-OK-88 DTSBD541
|
||||
00268 DISPLAY 'CANNOT OPEN OUTFILE1 ' OUTFILE1-STATUS DTSBD541
|
||||
00269 SET WRK-ERROR-YES-88 TO TRUE DTSBD541
|
||||
00270 GO TO I2000-EXIT DTSBD541
|
||||
00271 END-IF. DTSBD541
|
||||
00272 DTSBD541
|
||||
00273 OPEN OUTPUT ES2WAGE. DTSBD541
|
||||
00274 IF NOT ES2WAGE-OK-88 DTSBD541
|
||||
00275 DISPLAY 'CANNOT OPEN ES2WAGE ' ES2WAGE-STATUS DTSBD541
|
||||
00276 SET WRK-ERROR-YES-88 TO TRUE DTSBD541
|
||||
00277 GO TO I2000-EXIT DTSBD541
|
||||
00278 END-IF. DTSBD541
|
||||
00279 DTSBD541
|
||||
00280 OPEN OUTPUT EXPORT-WAGE. DTSBD541
|
||||
00281 IF NOT EXPWAGE-OK-88 DTSBD541
|
||||
00282 DISPLAY 'CANNOT OPEN EXPWAGE ' EXPWAGE-STATUS DTSBD541
|
||||
00283 SET WRK-ERROR-YES-88 TO TRUE DTSBD541
|
||||
00284 GO TO I2000-EXIT DTSBD541
|
||||
00285 END-IF. DTSBD541
|
||||
00286 DTSBD541
|
||||
00287 PERFORM S910A-OPEN-READ THRU S910A-EXIT. DTSBD541
|
||||
00288 PERFORM S981A-OPEN-READ THRU S981A-EXIT. DTSBD541
|
||||
00289 DTSBD541
|
||||
00290 I2000-EXIT. DTSBD541
|
||||
00291 EXIT. DTSBD541
|
||||
00292 SKIP3 DTSBD541
|
||||
00293 ************************************************************** DTSBD541
|
||||
00294 * START BROWSE THE VSAM.WGH FILE WITH THE PARM-START-YRQ * DTSBD541
|
||||
00295 * AND PARM-EMP-NO. * DTSBD541
|
||||
00296 ************************************************************** DTSBD541
|
||||
00297 DTSBD541
|
||||
00298 P0000-PROCESS. DTSBD541
|
||||
00299 MOVE LOW-VALUES TO WWGH-REC. DTSBD541
|
||||
00300 MOVE ZERO TO WWGH-EMP-NO DTSBD541
|
||||
00301 WWGH-YRQ DTSBD541
|
||||
00302 WWGH-SSN. DTSBD541
|
||||
00303 DTSBD541
|
||||
00304 PERFORM S981D-START-BROWSE THRU S981D-EXIT. DTSBD541
|
||||
00305 IF L981-NO-REC-88 DTSBD541
|
||||
00306 MOVE '1ST START BROWSE FIND NO REC ' TO WRK-ABEND-MSG DTSBD541
|
||||
00307 PERFORM S999-ABEND THRU S999-EXIT DTSBD541
|
||||
00308 GO TO P0000-EXIT DTSBD541
|
||||
00309 ELSE DTSBD541
|
||||
00310 PERFORM P1000-SCAN-WAGES THRU P1000-EXIT DTSBD541
|
||||
00311 UNTIL L981-NO-REC-88 DTSBD541
|
||||
00312 OR WRK-ERROR-YES-88. DTSBD541
|
||||
00313 DTSBD541
|
||||
00314 P0000-EXIT. DTSBD541
|
||||
00315 EXIT. DTSBD541
|
||||
00316 DTSBD541
|
||||
00317 ************************************************************** DTSBD541
|
||||
00318 * SELECT VSAM-WGH RECORDS FOR ETT AND WAGE FILES. * DTSBD541
|
||||
00319 * FOR THE ETT FILE, SELECT WAGES FROM YRQ1 AND YRQ2. * DTSBD541
|
||||
00320 * FOR THE WAGE FILE, SELECT WAGES FROM YRQ1 ONLY. * DTSBD541
|
||||
00321 ************************************************************** DTSBD541
|
||||
00322 DTSBD541
|
||||
00323 P1000-SCAN-WAGES. DTSBD541
|
||||
00324 DTSBD541
|
||||
00325 ADD +1 TO WRK-WWGH-READ-CNT. DTSBD541
|
||||
00326 DTSBD541
|
||||
00327 *** IF WWGH-SSN < 1000000 DTSBD541
|
||||
00328 IF WWGH-EMP-NO = ZERO DTSBD541
|
||||
00329 NEXT SENTENCE DTSBD541
|
||||
00330 ELSE DTSBD541
|
||||
00331 PERFORM P2000-WRITE-OUTPUT THRU P2000-EXIT DTSBD541
|
||||
00332 END-IF. DTSBD541
|
||||
00333 DTSBD541
|
||||
00334 PERFORM S981E-READ-NEXT THRU S981E-EXIT. DTSBD541
|
||||
00335 DTSBD541
|
||||
00336 P1000-EXIT. DTSBD541
|
||||
00337 EXIT. DTSBD541
|
||||
00338 DTSBD541
|
||||
00339 ************************************************************** DTSBD541
|
||||
00340 * CREATE OUTPUT RECORDS, BASED ON QUARTER * DTSBD541
|
||||
00341 ************************************************************** DTSBD541
|
||||
00342 DTSBD541
|
||||
00343 P2000-WRITE-OUTPUT. DTSBD541
|
||||
00344 IF WWGH-YRQ = WRK-YRQ1 DTSBD541
|
||||
00345 OR WWGH-YRQ = WRK-YRQ2 DTSBD541
|
||||
00346 PERFORM P2100-WRITE-OUTFILE1 THRU P2100-EXIT DTSBD541
|
||||
00347 IF WRK-ERROR-NO-88 DTSBD541
|
||||
00348 IF WWGH-YRQ = WRK-YRQ1 DTSBD541
|
||||
00349 PERFORM P2200-WRITE-WAGES THRU P2200-EXIT DTSBD541
|
||||
00350 END-IF DTSBD541
|
||||
00351 END-IF DTSBD541
|
||||
00352 END-IF. DTSBD541
|
||||
00353 DTSBD541
|
||||
00354 P2000-EXIT. DTSBD541
|
||||
00355 EXIT. DTSBD541
|
||||
00356 DTSBD541
|
||||
00357 P2100-WRITE-OUTFILE1. DTSBD541
|
||||
00358 MOVE WWGH-EMP-NO TO OUTFILE1-EMP-NO. DTSBD541
|
||||
00359 MOVE WWGH-SSN TO OUTFILE1-SSN. DTSBD541
|
||||
00360 DTSBD541
|
||||
00361 IF WWGH-YRQ = WRK-YRQ1 DTSBD541
|
||||
00362 MOVE 1 TO OUTFILE1-QTR DTSBD541
|
||||
00363 ELSE DTSBD541
|
||||
00364 IF WWGH-YRQ = WRK-YRQ2 DTSBD541
|
||||
00365 MOVE 2 TO OUTFILE1-QTR DTSBD541
|
||||
00366 ELSE DTSBD541
|
||||
00367 GO TO P2100-EXIT DTSBD541
|
||||
00368 END-IF DTSBD541
|
||||
00369 END-IF. DTSBD541
|
||||
00370 DTSBD541
|
||||
00371 WRITE OUTFILE1-REC. DTSBD541
|
||||
00372 IF OUTFILE1-OK-88 DTSBD541
|
||||
00373 ADD +1 TO WRK-OUTFILE1-WRITE-CNT DTSBD541
|
||||
00374 ELSE DTSBD541
|
||||
00375 DISPLAY 'CANNOT WRITE OUTFILE1 ' OUTFILE1-STATUS DTSBD541
|
||||
00376 SET WRK-ERROR-YES-88 TO TRUE DTSBD541
|
||||
00377 PERFORM S999-ABEND THRU S999-EXIT DTSBD541
|
||||
00378 END-IF. DTSBD541
|
||||
00379 DTSBD541
|
||||
00380 P2100-EXIT. DTSBD541
|
||||
00381 EXIT. DTSBD541
|
||||
00382 DTSBD541
|
||||
00383 P2200-WRITE-WAGES. DTSBD541
|
||||
00384 IF WRK-EMP-NO = ZERO DTSBD541
|
||||
00385 PERFORM P2210-CHECK-EMP THRU P2210-EXIT DTSBD541
|
||||
00386 IF WRK-SUBJECT-NO-88 DTSBD541
|
||||
00387 GO TO P2200-EXIT DTSBD541
|
||||
00388 ELSE DTSBD541
|
||||
00389 MOVE WWGH-EMP-NO TO WRK-EMP-NO DTSBD541
|
||||
00390 END-IF DTSBD541
|
||||
00391 END-IF. DTSBD541
|
||||
00392 DTSBD541
|
||||
00393 IF WWGH-EMP-NO = WRK-EMP-NO DTSBD541
|
||||
00394 IF WRK-SUBJECT-NO-88 DTSBD541
|
||||
00395 GO TO P2200-EXIT DTSBD541
|
||||
00396 ELSE DTSBD541
|
||||
00397 ADD WWGH-EARNINGS TO WRK-TOT-EARNINGS DTSBD541
|
||||
00398 ADD +1 TO WRK-EMPLOYEE DTSBD541
|
||||
00399 END-IF DTSBD541
|
||||
00400 ELSE DTSBD541
|
||||
00401 PERFORM P2220-ES2WAGE THRU P2220-EXIT DTSBD541
|
||||
00402 MOVE ZERO TO WRK-TOT-EARNINGS DTSBD541
|
||||
00403 WRK-EMPLOYEE DTSBD541
|
||||
00404 MOVE WWGH-EMP-NO TO WRK-EMP-NO DTSBD541
|
||||
00405 PERFORM P2210-CHECK-EMP THRU P2210-EXIT DTSBD541
|
||||
00406 IF WRK-SUBJECT-NO-88 DTSBD541
|
||||
00407 GO TO P2200-EXIT DTSBD541
|
||||
00408 ELSE DTSBD541
|
||||
00409 MOVE WWGH-EARNINGS TO WRK-TOT-EARNINGS DTSBD541
|
||||
00410 MOVE +1 TO WRK-EMPLOYEE DTSBD541
|
||||
00411 END-IF DTSBD541
|
||||
00412 END-IF. DTSBD541
|
||||
00413 DTSBD541
|
||||
00414 PERFORM P2230-EXPWAGE THRU P2230-EXIT. DTSBD541
|
||||
00415 DTSBD541
|
||||
00416 P2200-EXIT. DTSBD541
|
||||
00417 EXIT. DTSBD541
|
||||
00418 DTSBD541
|
||||
00419 P2210-CHECK-EMP. DTSBD541
|
||||
00420 SET WRK-SUBJECT-NO-88 TO TRUE. DTSBD541
|
||||
00421 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBD541
|
||||
00422 MOVE WWGH-EMP-NO TO MSKL-EMP-NO. DTSBD541
|
||||
00423 SET MSKL-PRF-88 TO TRUE. DTSBD541
|
||||
00424 DTSBD541
|
||||
00425 PERFORM S910B-READ THRU S910B-EXIT. DTSBD541
|
||||
00426 IF L910-OK-88 DTSBD541
|
||||
00427 MOVE MSKL-REC TO MPRF-REC DTSBD541
|
||||
00428 IF MPRF-CLASS-SUB-88 DTSBD541
|
||||
00429 SET WRK-SUBJECT-YES-88 TO TRUE DTSBD541
|
||||
00430 END-IF DTSBD541
|
||||
00431 END-IF. DTSBD541
|
||||
00432 DTSBD541
|
||||
00433 P2210-EXIT. DTSBD541
|
||||
00434 EXIT. DTSBD541
|
||||
00435 DTSBD541
|
||||
00436 P2220-ES2WAGE. DTSBD541
|
||||
00437 MOVE ZERO TO WAG-EMP-ACCT. DTSBD541
|
||||
00438 MOVE WRK-EMP-NO TO WAG-DC-ACCT. DTSBD541
|
||||
00439 MOVE WRK-EMPLOYEE TO WAG-EMPLOYEE. DTSBD541
|
||||
00440 MOVE WRK-TOT-EARNINGS TO WAG-WAGE-AMT. DTSBD541
|
||||
00441 DTSBD541
|
||||
00442 WRITE ES2WAGE-REC. DTSBD541
|
||||
00443 IF ES2WAGE-OK-88 DTSBD541
|
||||
00444 ADD +1 TO WRK-ES2WAGE-WRITE-CNT DTSBD541
|
||||
00445 ELSE DTSBD541
|
||||
00446 DISPLAY 'CANNOT WRITE ES2WAGE ' ES2WAGE-STATUS DTSBD541
|
||||
00447 SET WRK-ERROR-YES-88 TO TRUE DTSBD541
|
||||
00448 PERFORM S999-ABEND THRU S999-EXIT DTSBD541
|
||||
00449 END-IF. DTSBD541
|
||||
00450 DTSBD541
|
||||
00451 P2220-EXIT. DTSBD541
|
||||
00452 EXIT. DTSBD541
|
||||
00453 DTSBD541
|
||||
00454 P2230-EXPWAGE. DTSBD541
|
||||
00455 MOVE WWGH-SSN TO EXP-SSN. DTSBD541
|
||||
00456 MOVE SPACES TO EXP-FIRST-NAME DTSBD541
|
||||
00457 EXP-MIDDLE-INITIAL DTSBD541
|
||||
00458 EXP-LAST-NAME. DTSBD541
|
||||
00459 MOVE WWGH-EMP-NO TO EXP-UI-ACCOUNT. DTSBD541
|
||||
00460 MOVE 11 TO EXP-STATE-FIPS. DTSBD541
|
||||
00461 MOVE ZERO TO EXP-REPORTING-UNIT. DTSBD541
|
||||
00462 MOVE MPRF-FEIN TO EXP-FEIN. DTSBD541
|
||||
00463 MOVE WWGH-YRQ TO WRK-YRQ. DTSBD541
|
||||
00464 MOVE WRK-YRQ-YEAR TO EXP-YEAR. DTSBD541
|
||||
00465 MOVE WRK-YRQ-QTR TO EXP-QUARTER. DTSBD541
|
||||
00466 MOVE WWGH-EARNINGS TO EXP-WAGES. DTSBD541
|
||||
00467 MOVE ZERO TO EXP-HOURS DTSBD541
|
||||
00468 EXP-WEEKS. DTSBD541
|
||||
00469 DTSBD541
|
||||
00470 WRITE EXPWAGE-REC FROM WRK-EXPWAGE-REC. DTSBD541
|
||||
00471 IF EXPWAGE-OK-88 DTSBD541
|
||||
00472 ADD +1 TO WRK-EXPWAGE-WRITE-CNT DTSBD541
|
||||
00473 ELSE DTSBD541
|
||||
00474 DISPLAY 'CANNOT WRITE EXPWAGE ' EXPWAGE-STATUS DTSBD541
|
||||
00475 SET WRK-ERROR-YES-88 TO TRUE DTSBD541
|
||||
00476 PERFORM S999-ABEND THRU S999-EXIT DTSBD541
|
||||
00477 END-IF. DTSBD541
|
||||
00478 DTSBD541
|
||||
00479 P2230-EXIT. DTSBD541
|
||||
00480 EXIT. DTSBD541
|
||||
00481 DTSBD541
|
||||
00482 T0000-TERMINATE. DTSBD541
|
||||
00483 DTSBD541
|
||||
00484 DISPLAY ' '. DTSBD541
|
||||
00485 DISPLAY ' '. DTSBD541
|
||||
00486 DTSBD541
|
||||
00487 DISPLAY '*** DTSBD541 TERMINATION STATISTICS ***'. DTSBD541
|
||||
00488 DTSBD541
|
||||
00489 DISPLAY ' '. DTSBD541
|
||||
00490 DISPLAY 'WGH INPUT RECORDS READ :' DTSBD541
|
||||
00491 WRK-WWGH-READ-CNT. DTSBD541
|
||||
00492 DTSBD541
|
||||
00493 DISPLAY 'ETT OUTPUT RECORDS WRITTEN :' DTSBD541
|
||||
00494 WRK-OUTFILE1-WRITE-CNT. DTSBD541
|
||||
00495 DTSBD541
|
||||
00496 DISPLAY 'ES-202 WAGE OUTPUT RECORDS WRITTEN :' DTSBD541
|
||||
00497 WRK-ES2WAGE-WRITE-CNT. DTSBD541
|
||||
00498 DTSBD541
|
||||
00499 DISPLAY 'EXPORT WAGE OUTPUT RECORDS WRITTEN :' DTSBD541
|
||||
00500 WRK-EXPWAGE-WRITE-CNT. DTSBD541
|
||||
00501 DTSBD541
|
||||
00502 PERFORM S910C-CLOSE THRU S910C-EXIT. DTSBD541
|
||||
00503 PERFORM S981C-CLOSE THRU S981C-EXIT. DTSBD541
|
||||
00504 CLOSE OUTFILE1 DTSBD541
|
||||
00505 ES2WAGE DTSBD541
|
||||
00506 EXPORT-WAGE DTSBD541
|
||||
00507 ES202PRM-FILE. DTSBD541
|
||||
00508 DTSBD541
|
||||
00509 T0000-EXIT. DTSBD541
|
||||
00510 EXIT. DTSBD541
|
||||
00511 EJECT DTSBD541
|
||||
00512 DTSBD541
|
||||
00513 S001-FROM-FED-8. DTSBD541
|
||||
00514 SET L001-FROM-FED-8 TO TRUE. DTSBD541
|
||||
00515 GO TO S001-DATE. DTSBD541
|
||||
00516 DTSBD541
|
||||
00517 S001-FROM-ABS-DAY. DTSBD541
|
||||
00518 SET L001-FROM-ABS-DAY TO TRUE. DTSBD541
|
||||
00519 GO TO S001-DATE. DTSBD541
|
||||
00520 DTSBD541
|
||||
00521 S001-FROM-CAL-6. DTSBD541
|
||||
00522 SET L001-FROM-CAL-6 TO TRUE. DTSBD541
|
||||
00523 GO TO S001-DATE. DTSBD541
|
||||
00524 DTSBD541
|
||||
00525 S001-DATE. DTSBD541
|
||||
00526 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBD541
|
||||
00527 S001-EXIT. DTSBD541
|
||||
00528 EXIT. DTSBD541
|
||||
00529 DTSBD541
|
||||
00530 S004-FROM-3. DTSBD541
|
||||
00531 SET L004-FROM-3 TO TRUE. DTSBD541
|
||||
00532 GO TO S004-YRQ. DTSBD541
|
||||
00533 DTSBD541
|
||||
00534 S004-YRQ. DTSBD541
|
||||
00535 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBD541
|
||||
00536 DTSBD541
|
||||
00537 S004-EXIT. DTSBD541
|
||||
00538 EXIT. DTSBD541
|
||||
00539 DTSBD541
|
||||
00540 S910A-OPEN-READ. DTSBD541
|
||||
00541 SET L910-OPEN-READ-88 TO TRUE. DTSBD541
|
||||
00542 PERFORM S910Z-MSTR-IO THRU S910Z-EXIT. DTSBD541
|
||||
00543 DTSBD541
|
||||
00544 S910A-EXIT. DTSBD541
|
||||
00545 EXIT. DTSBD541
|
||||
00546 DTSBD541
|
||||
00547 S910B-READ. DTSBD541
|
||||
00548 SET L910-READ-88 TO TRUE. DTSBD541
|
||||
00549 PERFORM S910Z-MSTR-IO THRU S910Z-EXIT. DTSBD541
|
||||
00550 DTSBD541
|
||||
00551 S910B-EXIT. DTSBD541
|
||||
00552 EXIT. DTSBD541
|
||||
00553 DTSBD541
|
||||
00554 S910C-CLOSE. DTSBD541
|
||||
00555 SET L910-CLOSE-88 TO TRUE. DTSBD541
|
||||
00556 PERFORM S910Z-MSTR-IO THRU S910Z-EXIT. DTSBD541
|
||||
00557 DTSBD541
|
||||
00558 S910C-EXIT. DTSBD541
|
||||
00559 EXIT. DTSBD541
|
||||
00560 DTSBD541
|
||||
00561 S910Z-MSTR-IO. DTSBD541
|
||||
00562 CALL 'DTSBU910' USING L910-LINK-AREA DTSBD541
|
||||
00563 MSKL-REC. DTSBD541
|
||||
00564 S910Z-EXIT. DTSBD541
|
||||
00565 EXIT. DTSBD541
|
||||
00566 DTSBD541
|
||||
00567 S981A-OPEN-READ. DTSBD541
|
||||
00568 SET L981-OPEN-READ-88 TO TRUE. DTSBD541
|
||||
00569 PERFORM S981Z-WAGE-I THRU S981Z-EXIT. DTSBD541
|
||||
00570 DTSBD541
|
||||
00571 S981A-EXIT. DTSBD541
|
||||
00572 EXIT. DTSBD541
|
||||
00573 DTSBD541
|
||||
00574 S981B-OPEN-UPDATE. DTSBD541
|
||||
00575 SET L981-OPEN-UPDATE-88 TO TRUE. DTSBD541
|
||||
00576 PERFORM S981Z-WAGE-I THRU S981Z-EXIT. DTSBD541
|
||||
00577 DTSBD541
|
||||
00578 S981B-EXIT. DTSBD541
|
||||
00579 EXIT. DTSBD541
|
||||
00580 DTSBD541
|
||||
00581 S981C-CLOSE. DTSBD541
|
||||
00582 SET L981-CLOSE-88 TO TRUE. DTSBD541
|
||||
00583 PERFORM S981Z-WAGE-I THRU S981Z-EXIT. DTSBD541
|
||||
00584 DTSBD541
|
||||
00585 S981C-EXIT. DTSBD541
|
||||
00586 EXIT. DTSBD541
|
||||
00587 DTSBD541
|
||||
00588 S981D-START-BROWSE. DTSBD541
|
||||
00589 SET L981-START-BROWSE-88 TO TRUE. DTSBD541
|
||||
00590 PERFORM S981Z-WAGE-I THRU S981Z-EXIT. DTSBD541
|
||||
00591 DTSBD541
|
||||
00592 S981D-EXIT. DTSBD541
|
||||
00593 EXIT. DTSBD541
|
||||
00594 DTSBD541
|
||||
00595 S981E-READ-NEXT. DTSBD541
|
||||
00596 SET L981-READ-NEXT-88 TO TRUE. DTSBD541
|
||||
00597 PERFORM S981Z-WAGE-I THRU S981Z-EXIT. DTSBD541
|
||||
00598 DTSBD541
|
||||
00599 S981E-EXIT. DTSBD541
|
||||
00600 EXIT. DTSBD541
|
||||
00601 DTSBD541
|
||||
00602 S981Z-WAGE-I. DTSBD541
|
||||
00603 CALL 'DTSBU981' USING L981-LINK-AREA DTSBD541
|
||||
00604 WWGH-REC. DTSBD541
|
||||
00605 S981Z-EXIT. DTSBD541
|
||||
00606 EXIT. DTSBD541
|
||||
00607 DTSBD541
|
||||
00608 S999-ABEND. DTSBD541
|
||||
00609 DISPLAY '*** DTSBD541 ABENDING : ' DTSBD541
|
||||
00610 WRK-ABEND-MSG. DTSBD541
|
||||
00611 DTSBD541
|
||||
00612 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBD541
|
||||
00613 S999-EXIT. DTSBD541
|
||||
00614 EXIT. DTSBD541
|
||||
Reference in New Issue
Block a user