DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
377
Batch/DTSBX451.cob
Normal file
377
Batch/DTSBX451.cob
Normal file
@ -0,0 +1,377 @@
|
||||
00001 IDENTIFICATION DIVISION. 06/13/05
|
||||
00002 PROGRAM-ID. DTSBX451. DTSBX451
|
||||
00003 AUTHOR. NGC. LV001
|
||||
00004 DATE-WRITTEN. JANUARY 2005. DTSBX451
|
||||
00005 DATE-COMPILED. DTSBX451
|
||||
00006 SKIP3 DTSBX451
|
||||
00007 ***** DTSBX451
|
||||
00008 * DTSBX451
|
||||
00009 * FUNCTION: MAINTAIN NEW HIRE DATABASE, STEP 2: DTSBX451
|
||||
00010 * SELECT WORKER AND EMPLOYER RECORDS WITH DTSBX451
|
||||
00011 * MOST RECENT HIRE DATE, AND BUILD DTSBX451
|
||||
00012 * FINAL OUTPUT RECORDS. DTSBX451
|
||||
00013 * DTSBX451
|
||||
00014 ***** DTSBX451
|
||||
00015 SKIP3 DTSBX451
|
||||
00016 ENVIRONMENT DIVISION. DTSBX451
|
||||
00017 CONFIGURATION SECTION. DTSBX451
|
||||
00018 INPUT-OUTPUT SECTION. DTSBX451
|
||||
00019 FILE-CONTROL. DTSBX451
|
||||
00020 DTSBX451
|
||||
00021 SELECT EMPLOYER-FILE-IN ASSIGN TO EMPLRIN DTSBX451
|
||||
00022 FILE STATUS IS EMP-IN-STATUS. DTSBX451
|
||||
00023 SELECT EMPLOYER-FILE-OUT ASSIGN TO EMPLROUT DTSBX451
|
||||
00024 FILE STATUS IS EMP-OUT-STATUS. DTSBX451
|
||||
00025 SELECT WORKER-FILE-IN ASSIGN TO WORKRIN DTSBX451
|
||||
00026 FILE STATUS IS WORKER-IN-STATUS. DTSBX451
|
||||
00027 SELECT WORKER-FILE-OUT ASSIGN TO WORKROUT DTSBX451
|
||||
00028 FILE STATUS IS WORKER-OUT-STATUS. DTSBX451
|
||||
00029 DTSBX451
|
||||
00030 DATA DIVISION. DTSBX451
|
||||
00031 DTSBX451
|
||||
00032 FILE SECTION. DTSBX451
|
||||
00033 DTSBX451
|
||||
00034 FD EMPLOYER-FILE-IN DTSBX451
|
||||
00035 RECORDING MODE IS F DTSBX451
|
||||
00036 BLOCK CONTAINS 0 RECORDS DTSBX451
|
||||
00037 LABEL RECORDS ARE OMITTED. DTSBX451
|
||||
00038 01 EMPLOYER-REC-IN PIC X(135). DTSBX451
|
||||
00039 DTSBX451
|
||||
00040 FD EMPLOYER-FILE-OUT DTSBX451
|
||||
00041 RECORDING MODE IS F DTSBX451
|
||||
00042 BLOCK CONTAINS 0 RECORDS DTSBX451
|
||||
00043 LABEL RECORDS ARE OMITTED. DTSBX451
|
||||
00044 *01 EMPLOYER-REC-OUT PIC X(135). DTSBX451
|
||||
00045 01 EMPLOYER-REC-OUT. DTSBX451
|
||||
00046 ++INCLUDE DTSIXTRO DTSBX451
|
||||
00047 DTSBX451
|
||||
00048 FD WORKER-FILE-IN DTSBX451
|
||||
00049 RECORDING MODE IS F DTSBX451
|
||||
00050 BLOCK CONTAINS 0 RECORDS DTSBX451
|
||||
00051 LABEL RECORDS ARE OMITTED. DTSBX451
|
||||
00052 DTSBX451
|
||||
00053 01 WORKER-REC-IN PIC X(136). DTSBX451
|
||||
00054 DTSBX451
|
||||
00055 FD WORKER-FILE-OUT DTSBX451
|
||||
00056 RECORDING MODE IS F DTSBX451
|
||||
00057 BLOCK CONTAINS 0 RECORDS DTSBX451
|
||||
00058 LABEL RECORDS ARE OMITTED. DTSBX451
|
||||
00059 DTSBX451
|
||||
00060 01 WORKER-REC-OUT PIC X(150). DTSBX451
|
||||
00061 DTSBX451
|
||||
00062 WORKING-STORAGE SECTION. DTSBX451
|
||||
000625 77 PAN-VALET PICTURE X(24) VALUE '001DTSBX451 06/13/05'. DTSBX451
|
||||
00063 DTSBX451
|
||||
00064 01 WRK-AREA. DTSBX451
|
||||
00065 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +451. DTSBX451
|
||||
00066 DTSBX451
|
||||
00067 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBX451'. DTSBX451
|
||||
00068 DTSBX451
|
||||
00069 05 WORKER-IN-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX451
|
||||
00070 05 WORKER-OUT-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX451
|
||||
00071 05 EMP-IN-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX451
|
||||
00072 05 EMP-OUT-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX451
|
||||
00073 DTSBX451
|
||||
00074 05 EMP-IN-STATUS PIC X(02). DTSBX451
|
||||
00075 88 EMP-IN-STATUS-OK-88 VALUE '00'. DTSBX451
|
||||
00076 88 EMP-IN-STATUS-EOF-88 VALUE '10'. DTSBX451
|
||||
00077 DTSBX451
|
||||
00078 05 EMP-OUT-STATUS PIC X(02). DTSBX451
|
||||
00079 88 EMP-OUT-STATUS-OK-88 VALUE '00'. DTSBX451
|
||||
00080 88 EMP-OUT-STATUS-EOF-88 VALUE '10'. DTSBX451
|
||||
00081 DTSBX451
|
||||
00082 05 WORKER-IN-STATUS PIC X(02). DTSBX451
|
||||
00083 88 WORKER-IN-STATUS-OK-88 VALUE '00'. DTSBX451
|
||||
00084 88 WORKER-IN-STATUS-EOF-88 VALUE '10'. DTSBX451
|
||||
00085 DTSBX451
|
||||
00086 05 WORKER-OUT-STATUS PIC X(02). DTSBX451
|
||||
00087 88 WORKER-OUT-STATUS-OK-88 VALUE '00'. DTSBX451
|
||||
00088 88 WORKER-OUT-STATUS-EOF-88 VALUE '10'. DTSBX451
|
||||
00089 DTSBX451
|
||||
00090 05 WRK-ERROR-IND PIC X(01). DTSBX451
|
||||
00091 88 WRK-ERROR-YES-88 VALUE 'Y'. DTSBX451
|
||||
00092 88 WRK-ERROR-NO-88 VALUE 'N'. DTSBX451
|
||||
00093 DTSBX451
|
||||
00094 05 WRK-SSN PIC X(09) VALUE ZERO. DTSBX451
|
||||
00095 05 WRK-FEIN PIC X(09) VALUE ZERO. DTSBX451
|
||||
00096 DTSBX451
|
||||
00097 05 WRK-CURRENT-DATE PIC X(10). DTSBX451
|
||||
00098 DTSBX451
|
||||
00099 01 WRK-WORKER-REC-IN. DTSBX451
|
||||
00100 05 WORKER-SSN-IN PIC X(09). DTSBX451
|
||||
00101 05 WORKER-HIRE-DATE-XOR-IN PIC S9(09) COMP-3. DTSBX451
|
||||
00102 05 WORKER-DOB-IN PIC X(10). DTSBX451
|
||||
00103 05 WORKER-LAST-NAME-IN PIC X(20). DTSBX451
|
||||
00104 05 WORKER-FIRST-NAME-IN PIC X(15). DTSBX451
|
||||
00105 05 WORKER-MID-INIT-IN PIC X(01). DTSBX451
|
||||
00106 05 WORKER-ADDR-1-IN PIC X(40). DTSBX451
|
||||
00107 05 WORKER-CITY-IN PIC X(25). DTSBX451
|
||||
00108 05 WORKER-STATE-IN PIC X(02). DTSBX451
|
||||
00109 05 WORKER-ZIP-IN PIC X(09). DTSBX451
|
||||
00110 DTSBX451
|
||||
00111 01 WRK-WORKER-REC-OUT. DTSBX451
|
||||
00112 05 WORKER-SSN-OUT PIC X(09). DTSBX451
|
||||
00113 05 FILLER PIC X(01) VALUE ','. DTSBX451
|
||||
00114 05 WORKER-DOB-OUT PIC X(10). DTSBX451
|
||||
00115 05 FILLER PIC X(01) VALUE ','. DTSBX451
|
||||
00116 05 WORKER-LAST-NAME-OUT PIC X(20). DTSBX451
|
||||
00117 05 FILLER PIC X(01) VALUE ','. DTSBX451
|
||||
00118 05 WORKER-FIRST-NAME-OUT PIC X(15). DTSBX451
|
||||
00119 05 FILLER PIC X(01) VALUE ','. DTSBX451
|
||||
00120 05 WORKER-MID-INIT-OUT PIC X(01). DTSBX451
|
||||
00121 05 FILLER PIC X(01) VALUE ','. DTSBX451
|
||||
00122 05 WORKER-ADDR-1-OUT PIC X(40). DTSBX451
|
||||
00123 05 FILLER PIC X(01) VALUE ','. DTSBX451
|
||||
00124 05 WORKER-CITY-OUT PIC X(25). DTSBX451
|
||||
00125 05 FILLER PIC X(01) VALUE ','. DTSBX451
|
||||
00126 05 WORKER-STATE-OUT PIC X(02). DTSBX451
|
||||
00127 05 FILLER PIC X(01) VALUE ','. DTSBX451
|
||||
00128 05 WORKER-ZIP-OUT PIC X(09). DTSBX451
|
||||
00129 05 FILLER PIC X(01) VALUE ','. DTSBX451
|
||||
00130 05 WORKER-ENTER-DATE-OUT PIC X(10). DTSBX451
|
||||
00131 DTSBX451
|
||||
00132 01 WRK-EMPLER-REC-IN. DTSBX451
|
||||
00133 05 EMPLER-FEIN-IN PIC X(09). DTSBX451
|
||||
00134 05 EMPLER-HIRE-DATE-XOR-IN PIC S9(09) COMP-3. DTSBX451
|
||||
00135 05 EMPLER-NAME-IN PIC X(45). DTSBX451
|
||||
00136 05 EMPLER-ADDRESS. DTSBX451
|
||||
00137 10 EMPLER-ADDR-1-IN PIC X(40). DTSBX451
|
||||
00138 10 EMPLER-CITY-IN PIC X(25). DTSBX451
|
||||
00139 10 EMPLER-STATE-IN PIC X(02). DTSBX451
|
||||
00140 10 EMPLER-ZIP-IN PIC X(09). DTSBX451
|
||||
00141 DTSBX451
|
||||
00142 *01 WRK-EMPLER-REC-OUT. DTSBX451
|
||||
00143 * 05 EMPLER-FEIN-OUT PIC X(09). DTSBX451
|
||||
00144 * 05 FILLER PIC X(01) VALUE ','. DTSBX451
|
||||
00145 * 05 EMPLER-NAME-OUT PIC X(45). DTSBX451
|
||||
00146 * 05 FILLER PIC X(01) VALUE ','. DTSBX451
|
||||
00147 * 05 EMPLER-ADDR-1-OUT PIC X(40). DTSBX451
|
||||
00148 * 05 FILLER PIC X(01) VALUE ','. DTSBX451
|
||||
00149 * 05 EMPLER-CITY-OUT PIC X(25). DTSBX451
|
||||
00150 * 05 FILLER PIC X(01) VALUE ','. DTSBX451
|
||||
00151 * 05 EMPLER-STATE-OUT PIC X(02). DTSBX451
|
||||
00152 * 05 FILLER PIC X(01) VALUE ','. DTSBX451
|
||||
00153 * 05 EMPLER-ZIP-OUT PIC X(09). DTSBX451
|
||||
00154 DTSBX451
|
||||
00155 01 L005-COMM-AREA. DTSBX451
|
||||
00156 ++INCLUDE DTSIL005 DTSBX451
|
||||
00157 DTSBX451
|
||||
00158 01 L001-LINK-AREA. DTSBX451
|
||||
00159 ++INCLUDE DTSIL001 DTSBX451
|
||||
00160 DTSBX451
|
||||
00161 PROCEDURE DIVISION. DTSBX451
|
||||
00162 DTSBX451
|
||||
00163 DTSBX451-MAIN. DTSBX451
|
||||
00164 DTSBX451
|
||||
00165 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBX451
|
||||
00166 DTSBX451
|
||||
00167 PERFORM P0000-PROCESS THRU P0000-EXIT. DTSBX451
|
||||
00168 DTSBX451
|
||||
00169 PERFORM T0000-TERMINATE THRU T0000-EXIT. DTSBX451
|
||||
00170 DTSBX451
|
||||
00171 DTSBX451-MAIN-EXIT. DTSBX451
|
||||
00172 GOBACK. DTSBX451
|
||||
00173 DTSBX451
|
||||
00174 I0000-INITIATE. DTSBX451
|
||||
00175 OPEN INPUT EMPLOYER-FILE-IN DTSBX451
|
||||
00176 IF EMP-IN-STATUS-OK-88 DTSBX451
|
||||
00177 NEXT SENTENCE DTSBX451
|
||||
00178 ELSE DTSBX451
|
||||
00179 DISPLAY 'EMPLOYER INPUT FILE OPEN ERROR ' DTSBX451
|
||||
00180 EMP-IN-STATUS DTSBX451
|
||||
00181 PERFORM S999-ABEND THRU S999-EXIT DTSBX451
|
||||
00182 END-IF. DTSBX451
|
||||
00183 DTSBX451
|
||||
00184 OPEN INPUT WORKER-FILE-IN DTSBX451
|
||||
00185 IF WORKER-IN-STATUS-OK-88 DTSBX451
|
||||
00186 NEXT SENTENCE DTSBX451
|
||||
00187 ELSE DTSBX451
|
||||
00188 DISPLAY 'WORKER INPUT FILE OPEN ERROR ' DTSBX451
|
||||
00189 WORKER-IN-STATUS DTSBX451
|
||||
00190 PERFORM S999-ABEND THRU S999-EXIT DTSBX451
|
||||
00191 END-IF. DTSBX451
|
||||
00192 DTSBX451
|
||||
00193 OPEN OUTPUT EMPLOYER-FILE-OUT. DTSBX451
|
||||
00194 IF EMP-OUT-STATUS-OK-88 DTSBX451
|
||||
00195 NEXT SENTENCE DTSBX451
|
||||
00196 ELSE DTSBX451
|
||||
00197 DISPLAY 'EMPLOYER OUTPUT FILE OPEN ERROR ' DTSBX451
|
||||
00198 EMP-OUT-STATUS DTSBX451
|
||||
00199 PERFORM S999-ABEND THRU S999-EXIT DTSBX451
|
||||
00200 END-IF. DTSBX451
|
||||
00201 DTSBX451
|
||||
00202 OPEN OUTPUT WORKER-FILE-OUT. DTSBX451
|
||||
00203 IF WORKER-OUT-STATUS-OK-88 DTSBX451
|
||||
00204 NEXT SENTENCE DTSBX451
|
||||
00205 ELSE DTSBX451
|
||||
00206 DISPLAY 'WORKER OUTPUT FILE OPEN ERROR ' DTSBX451
|
||||
00207 WORKER-OUT-STATUS DTSBX451
|
||||
00208 PERFORM S999-ABEND THRU S999-EXIT DTSBX451
|
||||
00209 END-IF. DTSBX451
|
||||
00210 DTSBX451
|
||||
00211 SET L005-FROM-SYS TO TRUE. DTSBX451
|
||||
00212 PERFORM S005-SYS-DATE THRU S005-EXIT. DTSBX451
|
||||
00213 MOVE L005-DATE TO L001-FED-8-DATE-9. DTSBX451
|
||||
00214 PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSBX451
|
||||
00215 MOVE L001-SLASH-8-DATE TO WRK-CURRENT-DATE. DTSBX451
|
||||
00216 DTSBX451
|
||||
00217 DISPLAY ' '. DTSBX451
|
||||
00218 DISPLAY 'CURR-DATE ' WRK-CURRENT-DATE. DTSBX451
|
||||
00219 DTSBX451
|
||||
00220 I0000-EXIT. DTSBX451
|
||||
00221 EXIT. DTSBX451
|
||||
00222 DTSBX451
|
||||
00223 P0000-PROCESS. DTSBX451
|
||||
00224 PERFORM P1000-WORKER THRU P1000-EXIT DTSBX451
|
||||
00225 UNTIL WORKER-IN-STATUS-EOF-88. DTSBX451
|
||||
00226 DTSBX451
|
||||
00227 PERFORM P2000-EMPLOYER THRU P2000-EXIT DTSBX451
|
||||
00228 UNTIL EMP-IN-STATUS-EOF-88. DTSBX451
|
||||
00229 DTSBX451
|
||||
00230 P0000-EXIT. DTSBX451
|
||||
00231 EXIT. DTSBX451
|
||||
00232 DTSBX451
|
||||
00233 P1000-WORKER. DTSBX451
|
||||
00234 READ WORKER-FILE-IN INTO WRK-WORKER-REC-IN. DTSBX451
|
||||
00235 DTSBX451
|
||||
00236 IF WORKER-IN-STATUS-OK-88 DTSBX451
|
||||
00237 ADD +1 TO WORKER-IN-CNT DTSBX451
|
||||
00238 ELSE DTSBX451
|
||||
00239 IF WORKER-IN-STATUS-EOF-88 DTSBX451
|
||||
00240 GO TO P1000-EXIT DTSBX451
|
||||
00241 ELSE DTSBX451
|
||||
00242 DISPLAY 'BAD READ ON WORKER INPUT FILE ' DTSBX451
|
||||
00243 WORKER-IN-STATUS DTSBX451
|
||||
00244 PERFORM S999-ABEND THRU S999-EXIT DTSBX451
|
||||
00245 END-IF DTSBX451
|
||||
00246 END-IF. DTSBX451
|
||||
00247 DTSBX451
|
||||
00248 IF WORKER-SSN-IN = WRK-SSN DTSBX451
|
||||
00249 NEXT SENTENCE DTSBX451
|
||||
00250 ELSE DTSBX451
|
||||
00251 MOVE WORKER-SSN-IN TO WRK-SSN DTSBX451
|
||||
00252 PERFORM P1100-WORKER-OUTPUT THRU P1100-EXIT DTSBX451
|
||||
00253 END-IF. DTSBX451
|
||||
00254 DTSBX451
|
||||
00255 P1000-EXIT. DTSBX451
|
||||
00256 EXIT. DTSBX451
|
||||
00257 DTSBX451
|
||||
00258 P1100-WORKER-OUTPUT. DTSBX451
|
||||
00259 MOVE WORKER-SSN-IN TO WORKER-SSN-OUT. DTSBX451
|
||||
00260 DTSBX451
|
||||
00261 MOVE WRK-CURRENT-DATE TO WORKER-ENTER-DATE-OUT. DTSBX451
|
||||
00262 DTSBX451
|
||||
00263 MOVE WORKER-DOB-IN TO WORKER-DOB-OUT. DTSBX451
|
||||
00264 DTSBX451
|
||||
00265 MOVE WORKER-LAST-NAME-IN TO WORKER-LAST-NAME-OUT. DTSBX451
|
||||
00266 MOVE WORKER-FIRST-NAME-IN TO WORKER-FIRST-NAME-OUT. DTSBX451
|
||||
00267 MOVE WORKER-MID-INIT-IN TO WORKER-MID-INIT-OUT. DTSBX451
|
||||
00268 MOVE WORKER-ADDR-1-IN TO WORKER-ADDR-1-OUT. DTSBX451
|
||||
00269 MOVE WORKER-CITY-IN TO WORKER-CITY-OUT. DTSBX451
|
||||
00270 MOVE WORKER-STATE-IN TO WORKER-STATE-OUT. DTSBX451
|
||||
00271 MOVE WORKER-ZIP-IN TO WORKER-ZIP-OUT. DTSBX451
|
||||
00272 DTSBX451
|
||||
00273 WRITE WORKER-REC-OUT FROM WRK-WORKER-REC-OUT. DTSBX451
|
||||
00274 ADD +1 TO WORKER-OUT-CNT. DTSBX451
|
||||
00275 DTSBX451
|
||||
00276 P1100-EXIT. DTSBX451
|
||||
00277 EXIT. DTSBX451
|
||||
00278 DTSBX451
|
||||
00279 P2000-EMPLOYER. DTSBX451
|
||||
00280 READ EMPLOYER-FILE-IN INTO WRK-EMPLER-REC-IN. DTSBX451
|
||||
00281 DTSBX451
|
||||
00282 IF EMP-IN-STATUS-OK-88 DTSBX451
|
||||
00283 ADD +1 TO EMP-IN-CNT DTSBX451
|
||||
00284 ELSE DTSBX451
|
||||
00285 IF EMP-IN-STATUS-EOF-88 DTSBX451
|
||||
00286 GO TO P2000-EXIT DTSBX451
|
||||
00287 ELSE DTSBX451
|
||||
00288 DISPLAY 'BAD READ ON EMPLOYER INPUT FILE ' DTSBX451
|
||||
00289 EMP-IN-STATUS DTSBX451
|
||||
00290 PERFORM S999-ABEND THRU S999-EXIT DTSBX451
|
||||
00291 END-IF DTSBX451
|
||||
00292 END-IF. DTSBX451
|
||||
00293 DTSBX451
|
||||
00294 IF EMPLER-FEIN-IN = WRK-FEIN DTSBX451
|
||||
00295 NEXT SENTENCE DTSBX451
|
||||
00296 ELSE DTSBX451
|
||||
00297 MOVE EMPLER-FEIN-IN TO WRK-FEIN DTSBX451
|
||||
00298 PERFORM P2100-EMPLOYER-OUTPUT THRU P2100-EXIT DTSBX451
|
||||
00299 END-IF. DTSBX451
|
||||
00300 DTSBX451
|
||||
00301 P2000-EXIT. DTSBX451
|
||||
00302 EXIT. DTSBX451
|
||||
00303 DTSBX451
|
||||
00304 P2100-EMPLOYER-OUTPUT. DTSBX451
|
||||
00305 MOVE EMPLER-FEIN-IN TO XTRO-FEIN. DTSBX451
|
||||
00306 SET XTRO-SOURCE-NEWHIRE-88 TO TRUE. DTSBX451
|
||||
00307 DTSBX451
|
||||
00308 MOVE EMPLER-NAME-IN TO XTRO-EMP-NAME. DTSBX451
|
||||
00309 MOVE EMPLER-ADDR-1-IN TO XTRO-STREET-1. DTSBX451
|
||||
00310 MOVE EMPLER-CITY-IN TO XTRO-CITY-1. DTSBX451
|
||||
00311 MOVE EMPLER-STATE-IN TO XTRO-STATE-1. DTSBX451
|
||||
00312 MOVE EMPLER-ZIP-IN TO XTRO-ZIP-1. DTSBX451
|
||||
00313 DTSBX451
|
||||
00314 MOVE SPACES TO XTRO-STREET-2 DTSBX451
|
||||
00315 XTRO-CITY-2 DTSBX451
|
||||
00316 XTRO-STATE-2 DTSBX451
|
||||
00317 XTRO-ZIP-2. DTSBX451
|
||||
00318 DTSBX451
|
||||
00319 WRITE EMPLOYER-REC-OUT. DTSBX451
|
||||
00320 ADD +1 TO EMP-OUT-CNT. DTSBX451
|
||||
00321 DTSBX451
|
||||
00322 P2100-EXIT. DTSBX451
|
||||
00323 EXIT. DTSBX451
|
||||
00324 DTSBX451
|
||||
00325 T0000-TERMINATE. DTSBX451
|
||||
00326 DTSBX451
|
||||
00327 DISPLAY ' '. DTSBX451
|
||||
00328 DTSBX451
|
||||
00329 DISPLAY '*** DTSBX451 TERMINATION STATISTICS ***'. DTSBX451
|
||||
00330 DTSBX451
|
||||
00331 DISPLAY ' '. DTSBX451
|
||||
00332 DTSBX451
|
||||
00333 DISPLAY 'WORKER INPUT RECORDS : ' DTSBX451
|
||||
00334 WORKER-IN-CNT. DTSBX451
|
||||
00335 DTSBX451
|
||||
00336 DISPLAY 'WORKER OUTPUT RECORDS : ' DTSBX451
|
||||
00337 WORKER-OUT-CNT. DTSBX451
|
||||
00338 DTSBX451
|
||||
00339 DISPLAY 'EMPLOYER INPUT RECORDS : ' DTSBX451
|
||||
00340 EMP-IN-CNT. DTSBX451
|
||||
00341 DTSBX451
|
||||
00342 DISPLAY 'EMPLOYER OUTPUT RECORDS : ' DTSBX451
|
||||
00343 EMP-OUT-CNT. DTSBX451
|
||||
00344 DTSBX451
|
||||
00345 CLOSE EMPLOYER-FILE-IN DTSBX451
|
||||
00346 EMPLOYER-FILE-OUT DTSBX451
|
||||
00347 WORKER-FILE-IN DTSBX451
|
||||
00348 WORKER-FILE-OUT. DTSBX451
|
||||
00349 DTSBX451
|
||||
00350 T0000-EXIT. DTSBX451
|
||||
00351 EXIT. DTSBX451
|
||||
00352 DTSBX451
|
||||
00353 S001-FROM-NINES-COMP. DTSBX451
|
||||
00354 SET L001-FROM-NINES-COMPLEMENT TO TRUE. DTSBX451
|
||||
00355 GO TO S001-DATE. DTSBX451
|
||||
00356 DTSBX451
|
||||
00357 S001-FROM-FED-8. DTSBX451
|
||||
00358 SET L001-FROM-FED-8 TO TRUE. DTSBX451
|
||||
00359 GO TO S001-DATE. DTSBX451
|
||||
00360 DTSBX451
|
||||
00361 S001-DATE. DTSBX451
|
||||
00362 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBX451
|
||||
00363 S001-EXIT. DTSBX451
|
||||
00364 EXIT. DTSBX451
|
||||
00365 DTSBX451
|
||||
00366 S005-SYS-DATE. DTSBX451
|
||||
00367 CALL 'DTSBU005' USING L005-COMM-AREA. DTSBX451
|
||||
00368 DTSBX451
|
||||
00369 S005-EXIT. DTSBX451
|
||||
00370 EXIT. DTSBX451
|
||||
00371 DTSBX451
|
||||
00372 S999-ABEND. DTSBX451
|
||||
00373 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBX451
|
||||
00374 S999-EXIT. DTSBX451
|
||||
00375 EXIT. DTSBX451
|
||||
00376 DTSBX451
|
||||
Reference in New Issue
Block a user