MP Batchs, copybooks, jcls, Procs
This commit is contained in:
230
Batch/DTSBX469.cob
Normal file
230
Batch/DTSBX469.cob
Normal file
@ -0,0 +1,230 @@
|
||||
00001 IDENTIFICATION DIVISION. 07/13/10
|
||||
00002 PROGRAM-ID. DTSBX469. DTSBX469
|
||||
00003 LV001
|
||||
00004 ******************************************************************DTSBX469
|
||||
00005 * *DTSBX469
|
||||
00006 * *DTSBX469
|
||||
00007 * FUNCTION: *DTSBX469
|
||||
00008 * *DTSBX469
|
||||
00009 * THE FUNCTION OF DTSBX465 IS TO GENERATE A UI WAGE *DTSBX469
|
||||
00010 * FILE OF UI WAGES UPDATED TO THE UI WAGE FILE ON A GIVEN *DTSBX469
|
||||
00011 * DATE. *DTSBX469
|
||||
00012 * THE WGD-ACTIVITY-DATE FIELD IN THE UI WAGE FILE. *DTSBX469
|
||||
00013 * *DTSBX469
|
||||
00014 * *DTSBX469
|
||||
00015 * *DTSBX469
|
||||
00016 * G.A.BROWN *DTSBX469
|
||||
00017 ******************************************************************DTSBX469
|
||||
00018 ***** DTSBX469
|
||||
00019 DTSBX469
|
||||
00020 ENVIRONMENT DIVISION. DTSBX469
|
||||
00021 CONFIGURATION SECTION. DTSBX469
|
||||
00022 INPUT-OUTPUT SECTION. DTSBX469
|
||||
00023 FILE-CONTROL. DTSBX469
|
||||
00024 SELECT WAGE-FILE ASSIGN TO UT-S-WAGE. DTSBX469
|
||||
00025 DATA DIVISION. DTSBX469
|
||||
00026 FILE SECTION. DTSBX469
|
||||
00027 DTSBX469
|
||||
00028 FD WAGE-FILE DTSBX469
|
||||
00029 RECORDING MODE IS F DTSBX469
|
||||
00030 LABEL RECORD ARE STANDARD DTSBX469
|
||||
00031 RECORD CONTAINS 59 CHARACTERS DTSBX469
|
||||
00032 BLOCK CONTAINS 0 RECORDS DTSBX469
|
||||
00033 DATA RECORD IS WAGE-REC. DTSBX469
|
||||
00034 DTSBX469
|
||||
00035 01 WAGE-REC. DTSBX469
|
||||
00036 03 EMPLOYEE-SSN PIC 9(9). DTSBX469
|
||||
00037 03 EMPLOYEE-LAST-NAME PIC X(3). DTSBX469
|
||||
00038 03 FIL PIC 9(3). DTSBX469
|
||||
00039 03 EMPLOYER-ACCT-NUM PIC 9(6). DTSBX469
|
||||
00040 03 FIL PIC 9(3). DTSBX469
|
||||
00041 03 EMPLOYEE-WAGES PIC 9(7). DTSBX469
|
||||
00042 03 FIL PIC 9(3). DTSBX469
|
||||
00043 03 CEN-YEAR-QUARTER PIC 9(5). DTSBX469
|
||||
00044 03 FIL PIC 9(3). DTSBX469
|
||||
00045 03 WAGE-UPDATE-DATE PIC 9(8). DTSBX469
|
||||
00046 03 FIL PIC 9(9). DTSBX469
|
||||
00047 DTSBX469
|
||||
00048 DTSBX469
|
||||
00049 ******************************************************************DTSBX469
|
||||
00050 * WORKING STORAGE SECTION *DTSBX469
|
||||
00051 ******************************************************************DTSBX469
|
||||
00052 WORKING-STORAGE SECTION. DTSBX469
|
||||
000525 77 PAN-VALET PICTURE X(24) VALUE '001DTSBX469 07/13/10'. DTSBX469
|
||||
00053 DTSBX469
|
||||
00054 DTSBX469
|
||||
00055 01 COUNTERS. DTSBX469
|
||||
00056 03 STOP-RECS PIC 9(5). DTSBX469
|
||||
00057 03 ALL-NINES PIC 9. DTSBX469
|
||||
00058 03 RECS-IN PIC 9(9). DTSBX469
|
||||
00059 03 RECS-OUT PIC 9(9). DTSBX469
|
||||
00060 DTSBX469
|
||||
00061 03 WRK-ACCEPTED-DATE. DTSBX469
|
||||
00062 05 WRK-ACCEPTED-YR PIC 9(02). DTSBX469
|
||||
00063 05 WRK-ACCEPTED-MO PIC 9(02). DTSBX469
|
||||
00064 05 WRK-ACCEPTED-DD PIC 9(02). DTSBX469
|
||||
00065 DTSBX469
|
||||
00066 03 WRK-ACCEPTED-DATE-RED. DTSBX469
|
||||
00067 05 WRK-ACCEPTED-CEN-RED PIC 9(02). DTSBX469
|
||||
00068 05 WRK-ACCEPTED-YR-RED PIC 9(02). DTSBX469
|
||||
00069 05 WRK-ACCEPTED-MO-RED PIC 9(02). DTSBX469
|
||||
00070 05 WRK-ACCEPTED-DD-RED PIC 9(02). DTSBX469
|
||||
00071 DTSBX469
|
||||
00072 DTSBX469
|
||||
00073 03 WRK-END-DATE-DISP PIC 9(08). DTSBX469
|
||||
00074 03 FILLER REDEFINES WRK-END-DATE-DISP. DTSBX469
|
||||
00075 05 WRK-END-YR PIC 9(04). DTSBX469
|
||||
00076 05 WRK-END-MO PIC 9(02). DTSBX469
|
||||
00077 05 WRK-END-DA PIC 9(02). DTSBX469
|
||||
00078 DTSBX469
|
||||
00079 01 WRK-ACCEPTED-DATE-WS PIC 9(8). DTSBX469
|
||||
00080 01 BLANK-LINE PIC X(80) VALUE SPACE. DTSBX469
|
||||
00081 01 WRK-RECS-OUT. DTSBX469
|
||||
00082 03 FIL PIC X(13) VALUE 'RECS UPDATED:'. DTSBX469
|
||||
00083 03 FIL PIC XXX VALUE SPACES. DTSBX469
|
||||
00084 03 WRK-RECS-OUT-WS PIC 9(9). DTSBX469
|
||||
00085 03 FIL PIC X(56) VALUE SPACE. DTSBX469
|
||||
00086 DTSBX469
|
||||
00087 01 COMMON-LINKAGE-SECTION. DTSBX469
|
||||
00088 ++INCLUDE EWGLINKB DTSBX469
|
||||
00089 EJECT DTSBX469
|
||||
00090 EJECT DTSBX469
|
||||
00091 ******************************************************************DTSBX469
|
||||
00092 * PROCEDURE DIVISION - CONTROL PROCEDURE *DTSBX469
|
||||
00093 ******************************************************************DTSBX469
|
||||
00094 PROCEDURE DIVISION. DTSBX469
|
||||
00095 BEGIN00000. DTSBX469
|
||||
00096 OPEN OUTPUT WAGE-FILE. DTSBX469
|
||||
00097 MOVE LOW-VALUE TO VSAM-WAGEDATA-CONTROL-BLOCK. DTSBX469
|
||||
00098 DTSBX469
|
||||
00099 ACCEPT WRK-ACCEPTED-DATE FROM DATE. DTSBX469
|
||||
00100 DTSBX469
|
||||
00101 DISPLAY 'CURRENT DATE ' WRK-ACCEPTED-DATE. DTSBX469
|
||||
00102 DTSBX469
|
||||
00103 MOVE WRK-ACCEPTED-YR TO WRK-ACCEPTED-YR-RED. DTSBX469
|
||||
00104 MOVE WRK-ACCEPTED-MO TO WRK-ACCEPTED-MO-RED. DTSBX469
|
||||
00105 MOVE WRK-ACCEPTED-DD TO WRK-ACCEPTED-DD-RED. DTSBX469
|
||||
00106 MOVE 20 TO WRK-ACCEPTED-CEN-RED. DTSBX469
|
||||
00107 SUBTRACT 1 FROM WRK-ACCEPTED-DD-RED. DTSBX469
|
||||
00108 MOVE WRK-ACCEPTED-DATE-RED TO WRK-ACCEPTED-DATE-WS. DTSBX469
|
||||
00109 DTSBX469
|
||||
00110 DISPLAY 'YESTERDAY S DATE ' WRK-ACCEPTED-DATE-RED. DTSBX469
|
||||
00111 DTSBX469
|
||||
00112 PERFORM SERV2001-RESET-MASTER THRU SERV2001-EXIT. DTSBX469
|
||||
00113 ** DTSBX469
|
||||
00114 DTSBX469
|
||||
00115 MOVE ZEROS TO COUNTERS. DTSBX469
|
||||
00116 PERFORM MAIN0200-PROCESS-WAGE THRU MAIN0200-EX DTSBX469
|
||||
00117 UNTIL DTSBX469
|
||||
00118 DBW-END-OF-FILE. DTSBX469
|
||||
00119 ******************************************************************DTSBX469
|
||||
00120 * TERMINATION ROUTINE *DTSBX469
|
||||
00121 ******************************************************************DTSBX469
|
||||
00122 TERM0100-CLOSE-FILES. DTSBX469
|
||||
00123 DTSBX469
|
||||
00124 WRITE WAGE-REC FROM BLANK-LINE. DTSBX469
|
||||
00125 MOVE RECS-OUT TO WRK-RECS-OUT-WS. DTSBX469
|
||||
00126 WRITE WAGE-REC FROM WRK-RECS-OUT. DTSBX469
|
||||
00127 CLOSE WAGE-FILE. DTSBX469
|
||||
00128 DTSBX469
|
||||
00129 MOVE 'C' TO DBW-COMMAND-CODE. DTSBX469
|
||||
00130 PERFORM SERV9001-ACCESS-DATABASE THRU SERV9001-EXIT. DTSBX469
|
||||
00131 DTSBX469
|
||||
00132 DTSBX469
|
||||
00133 DISPLAY 'NUMBER RECORDS READ *** ' RECS-IN. DTSBX469
|
||||
00134 DISPLAY ' ' . DTSBX469
|
||||
00135 DISPLAY 'NUMBER RECORDS WRITTEN *** ' RECS-OUT. DTSBX469
|
||||
00136 STOP RUN. DTSBX469
|
||||
00137 TERM0100-EXIT. DTSBX469
|
||||
00138 EXIT. DTSBX469
|
||||
00139 DTSBX469
|
||||
00140 MAIN0200-PROCESS-WAGE. DTSBX469
|
||||
00141 DTSBX469
|
||||
00142 MOVE 'S' TO DBW-PROCESSING-MODE. DTSBX469
|
||||
00143 MOVE 'SG01' TO DBW-SEGNAME. DTSBX469
|
||||
00144 PERFORM SERV1001-READ-MASTER THRU SERV1001-EXIT. DTSBX469
|
||||
00145 DTSBX469
|
||||
00146 IF DBW-END-OF-FILE DTSBX469
|
||||
00147 GO TO MAIN0200-EX. DTSBX469
|
||||
00148 DTSBX469
|
||||
00149 ADD 1 TO RECS-IN. DTSBX469
|
||||
00150 PERFORM LOCATE-WAGE THRU L-W-EX DTSBX469
|
||||
00151 UNTIL DBW-NO-RECORD-FOUND. DTSBX469
|
||||
00152 DTSBX469
|
||||
00153 MAIN0200-EX. DTSBX469
|
||||
00154 EXIT. DTSBX469
|
||||
00155 DTSBX469
|
||||
00156 LOCATE-WAGE. DTSBX469
|
||||
00157 MOVE 'R' TO DBW-PROCESSING-MODE. DTSBX469
|
||||
00158 MOVE 'SG02' TO DBW-SEGNAME. DTSBX469
|
||||
00159 PERFORM SERV1001-READ-MASTER THRU SERV1001-EXIT. DTSBX469
|
||||
00160 IF DBW-NO-RECORD-FOUND DTSBX469
|
||||
00161 GO TO L-W-EX. DTSBX469
|
||||
00162 PERFORM SEGMENT-2-DATA THRU S-2-D-EX. DTSBX469
|
||||
00163 L-W-EX. DTSBX469
|
||||
00164 EXIT. DTSBX469
|
||||
00165 DTSBX469
|
||||
00166 SEGMENT-2-DATA. DTSBX469
|
||||
00167 ********************************************************** DTSBX469
|
||||
00168 * ALL NINES ARE BEING MOVE TO WGP-SSN PATCH BY CF BROOKS DTSBX469
|
||||
00169 ******* ************************************************** DTSBX469
|
||||
00170 * IF WGP-SSN = 999999999 DTSBX469
|
||||
00171 * MOVE 1 TO ALL-NINES DTSBX469
|
||||
00172 * GO TO S-2-D-EX. DTSBX469
|
||||
00173 DTSBX469
|
||||
00174 * DISPLAY ' WGD-ACTIVITY-DATE ' WGD-ACTIVITY-DATE. DTSBX469
|
||||
00175 DTSBX469
|
||||
00176 IF WGD-ACTIVITY-DATE = WRK-ACCEPTED-DATE-WS DTSBX469
|
||||
00177 NEXT SENTENCE ELSE DTSBX469
|
||||
00178 GO TO S-2-D-EX. DTSBX469
|
||||
00179 DTSBX469
|
||||
00180 * DISPLAY ' WGD-ACTIVITY-DATE' WGD-ACTIVITY-DATE. DTSBX469
|
||||
00181 * DISPLAY ' FROM-ACTIVITY-DATE' FROM-ACTIVITY-DATE. DTSBX469
|
||||
00182 * DISPLAY ' TO-ACTIVITY-DATE' TO-ACTIVITY-DATE. DTSBX469
|
||||
00183 DTSBX469
|
||||
00184 PERFORM 100-WRITE-ACCOUNTS THRU 100-W-B-A-EXT. DTSBX469
|
||||
00185 DTSBX469
|
||||
00186 GO TO S-2-D-EX. DTSBX469
|
||||
00187 DTSBX469
|
||||
00188 S-2-D-EX. DTSBX469
|
||||
00189 EXIT. DTSBX469
|
||||
00190 DTSBX469
|
||||
00191 100-WRITE-ACCOUNTS. DTSBX469
|
||||
00192 DTSBX469
|
||||
00193 ADD 1 TO RECS-OUT. DTSBX469
|
||||
00194 MOVE SPACES TO WAGE-REC. DTSBX469
|
||||
00195 MOVE WGP-SSN TO EMPLOYEE-SSN. DTSBX469
|
||||
00196 MOVE WGD-YR-QTR TO CEN-YEAR-QUARTER. DTSBX469
|
||||
00197 MOVE WGD-ACCOUNT-NUMBER TO EMPLOYER-ACCT-NUM. DTSBX469
|
||||
00198 MOVE WGD-QUARTER-EARNINGS TO EMPLOYEE-WAGES. DTSBX469
|
||||
00199 MOVE WGP-NAME-CHK TO EMPLOYEE-LAST-NAME. DTSBX469
|
||||
00200 MOVE WGD-ACTIVITY-DATE TO WAGE-UPDATE-DATE. DTSBX469
|
||||
00201 WRITE WAGE-REC. DTSBX469
|
||||
00202 MOVE SPACES TO WAGE-REC. DTSBX469
|
||||
00203 DTSBX469
|
||||
00204 100-W-B-A-EXT. DTSBX469
|
||||
00205 EXIT. DTSBX469
|
||||
00206 EJECT DTSBX469
|
||||
00207 ******************************************************************DTSBX469
|
||||
00208 * SERVICE ROUTINES *DTSBX469
|
||||
00209 ******************************************************************DTSBX469
|
||||
00210 SERV1001-READ-MASTER. DTSBX469
|
||||
00211 MOVE 'R' TO DBW-COMMAND-CODE. DTSBX469
|
||||
00212 PERFORM SERV9001-ACCESS-DATABASE THRU SERV9001-EXIT. DTSBX469
|
||||
00213 SERV1001-EXIT. DTSBX469
|
||||
00214 EXIT. DTSBX469
|
||||
00215 SERV2001-RESET-MASTER. DTSBX469
|
||||
00216 MOVE 'S' TO DBW-COMMAND-CODE. DTSBX469
|
||||
00217 PERFORM SERV9001-ACCESS-DATABASE THRU SERV9001-EXIT. DTSBX469
|
||||
00218 SERV2001-EXIT. DTSBX469
|
||||
00219 EXIT. DTSBX469
|
||||
00220 SERV9001-ACCESS-DATABASE. DTSBX469
|
||||
00221 IF DBW-SEGNAME = 'SG01' DTSBX469
|
||||
00222 CALL 'EWG960D' DTSBX469
|
||||
00223 USING VSAM-WAGEDATA-CONTROL-BLOCK. DTSBX469
|
||||
00224 IF DBW-SEGNAME = 'SG02' DTSBX469
|
||||
00225 CALL 'EWG960D' DTSBX469
|
||||
00226 USING VSAM-WAGEDATA-CONTROL-BLOCK. DTSBX469
|
||||
00227 SERV9001-EXIT. DTSBX469
|
||||
00228 EXIT. DTSBX469
|
||||
00229 DTSBX469
|
||||
Reference in New Issue
Block a user