MP Batchs, copybooks, jcls, Procs
This commit is contained in:
633
Batch/DTSBS414.cob
Normal file
633
Batch/DTSBS414.cob
Normal file
@ -0,0 +1,633 @@
|
||||
00001 IDENTIFICATION DIVISION. 08/16/24
|
||||
00002 PROGRAM-ID. DTSBS414. DTSBS414
|
||||
00003 AUTHOR. SRUJANI LV166
|
||||
00004 DATE-WRITTEN. AUG2024 CL155
|
||||
00005 DATE-COMPILED. DTSBS414
|
||||
00006 SKIP3 DTSBS414
|
||||
00007 ***** DTSBS414
|
||||
00008 * DTSBS414
|
||||
00009 * FUNCTION: ADD EVENT LOG FOR NEW ACCOUNT REGISTRATION CL156
|
||||
00010 * DTSBS414
|
||||
00011 * DTSBS414
|
||||
00012 ***** DTSBS414
|
||||
00013 SKIP3 DTSBS414
|
||||
00014 ENVIRONMENT DIVISION. DTSBS414
|
||||
00015 SKIP2 DTSBS414
|
||||
00016 CONFIGURATION SECTION. DTSBS414
|
||||
00017 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBS414
|
||||
00018 DTSBS414
|
||||
00019 INPUT-OUTPUT SECTION. DTSBS414
|
||||
00020 DTSBS414
|
||||
00021 FILE-CONTROL. DTSBS414
|
||||
00022 SELECT EMP-FILE1 ASSIGN TO EMPFILE1 CL122
|
||||
00023 FILE STATUS IS EXP-STATUS. DTSBS414
|
||||
00024 DTSBS414
|
||||
00025 CL*71
|
||||
00026 DATA DIVISION. DTSBS414
|
||||
00027 DTSBS414
|
||||
00028 FILE SECTION. DTSBS414
|
||||
00029 DTSBS414
|
||||
00030 FD EMP-FILE1 CL122
|
||||
00031 RECORDING MODE IS F. DTSBS414
|
||||
00032 01 EMP-REC1. CL122
|
||||
00033 05 IREC-TYPE PIC X(03). CL158
|
||||
00034 05 FILLER PIC X(01) VALUE ','. CL158
|
||||
00035 05 IEMP-NO PIC 9(06). CL158
|
||||
00036 05 FILLER PIC X(01) VALUE ','. CL158
|
||||
00037 05 IEMP-FEIN PIC 9(09). CL158
|
||||
00038 05 FILLER PIC X(01) VALUE ','. CL158
|
||||
00039 05 IEMP-CLASS PIC X(01). CL162
|
||||
00040 05 FILLER PIC X(01) VALUE ','. CL162
|
||||
00041 05 IEMP-STATUS PIC X(01). CL162
|
||||
00042 05 FILLER PIC X(01) VALUE ','. CL162
|
||||
00043 05 ISOURCE-CD PIC X(02). CL162
|
||||
00044 05 FILLER PIC X(01) VALUE ','. CL162
|
||||
00045 05 IACTION-CD PIC X(01). CL162
|
||||
00046 EJECT CL158
|
||||
00047 WORKING-STORAGE SECTION. DTSBS414
|
||||
000475 77 PAN-VALET PICTURE X(24) VALUE '166DTSBS414 08/16/24'. DTSBS414
|
||||
00048 SKIP3 DTSBS414
|
||||
00049 01 WRK-AREA. DTSBS414
|
||||
00050 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +400.DTSBS414
|
||||
00051 DTSBS414
|
||||
00052 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBD400'.DTSBS414
|
||||
00053 DTSBS414
|
||||
00054 05 WRK-MPRF-IND PIC X(01). DTSBS414
|
||||
00055 88 WRK-MPRF-OK VALUE 'Y'. DTSBS414
|
||||
00056 88 WRK-MPRF-NO-REC VALUE 'N'. DTSBS414
|
||||
00057 05 WRK-MEVL-IND PIC X(01). DTSBS414
|
||||
00058 88 WRK-MEVL-OK VALUE 'Y'. DTSBS414
|
||||
00059 88 WRK-MEVL-NO-REC VALUE 'N'. DTSBS414
|
||||
00060 05 WRK-ERROR-IND PIC X(01). CL*31
|
||||
00061 88 WRK-ERROR-YES-88 VALUE 'Y'. CL*31
|
||||
00062 88 WRK-ERROR-NO-88 VALUE 'N'. CL*31
|
||||
00063 *RW1 DTSBS414
|
||||
00064 05 EXP-STATUS PIC X(02). CL*15
|
||||
00065 88 EXP-STATUS-OK-88 VALUE '00'. CL*15
|
||||
00066 CL*15
|
||||
00067 05 WRK-BAL PIC 9(09)V9(02). CL*77
|
||||
00068 05 FILE-END PIC X(01) VALUE 'N'. CL*23
|
||||
00069 05 WRK-ABEND-MSG PIC X(60) VALUE SPACES. DTSBS414
|
||||
00070 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBS414
|
||||
00071 05 WS-NUMBER-ONE PIC S9(05) COMP-3 VALUE +0. DTSBS414
|
||||
00072 05 WRK-TRACE-IND PIC X(01). CL*28
|
||||
00073 CL136
|
||||
00074 05 WRK-MESS-LINE-1. CL*10
|
||||
00075 10 FILLER PIC X(43) VALUE CL165
|
||||
00076 'MINI CONVERSION - REGISTRATION SENT TO ESSP'. CL164
|
||||
00077 CL160
|
||||
00078 05 EVL-TEXT PIC X(50). CL**9
|
||||
00079 * CL190
|
||||
00080 *RW2 DTSBS414
|
||||
00081 DTSBS414
|
||||
00082 01 TSKL-REC. CL183
|
||||
00083 ++INCLUDE DTSITSKL CL183
|
||||
00084 EJECT CL183
|
||||
00085 01 T003-REC. CL183
|
||||
00086 ++INCLUDE DTSIT003 CL183
|
||||
00087 EJECT CL183
|
||||
00088 01 L001-LINK-AREA. DTSBS414
|
||||
00089 ++INCLUDE DTSIL001 DTSBS414
|
||||
00090 EJECT DTSBS414
|
||||
00091 01 L005-LINK-AREA. CL157
|
||||
00092 ++INCLUDE DTSIL005 DTSBS414
|
||||
00093 EJECT DTSBS414
|
||||
00094 01 L039-LINK-AREA. DTSBS414
|
||||
00095 ++INCLUDE DTSIL039 DTSBS414
|
||||
00096 EJECT DTSBS414
|
||||
00097 01 L101-LINK-AREA. CL*23
|
||||
00098 ++INCLUDE DTSIL101 CL*23
|
||||
00099 EJECT DTSBS414
|
||||
00100 01 L102-LINK-AREA. CL*23
|
||||
00101 ++INCLUDE DTSIL102 CL*23
|
||||
00102 EJECT CL*23
|
||||
00103 01 L109-LINK-AREA. CL*23
|
||||
00104 ++INCLUDE DTSIL109 CL*23
|
||||
00105 CL*23
|
||||
00106 01 L054-LINK-AREA. DTSBS414
|
||||
00107 ++INCLUDE DTSIL054 DTSBS414
|
||||
00108 EJECT DTSBS414
|
||||
00109 01 L410-LINK-AREA. DTSBS414
|
||||
00110 ++INCLUDE DTSIL410 DTSBS414
|
||||
00111 EJECT DTSBS414
|
||||
00112 01 L600-LINK-AREA. DTSBS414
|
||||
00113 ++INCLUDE DTSIL600 DTSBS414
|
||||
00114 EJECT DTSBS414
|
||||
00115 01 L910-LINK-AREA. DTSBS414
|
||||
00116 ++INCLUDE DTSIL910 DTSBS414
|
||||
00117 EJECT DTSBS414
|
||||
00118 01 MSKL-REC. DTSBS414
|
||||
00119 ++INCLUDE DTSIMSKL DTSBS414
|
||||
00120 EJECT DTSBS414
|
||||
00121 01 MNTE-REC. CL183
|
||||
00122 ++INCLUDE DTSIMNTE CL183
|
||||
00123 EJECT CL183
|
||||
00124 01 MHDR-REC. DTSBS414
|
||||
00125 ++INCLUDE DTSIMHDR DTSBS414
|
||||
00126 EJECT DTSBS414
|
||||
00127 01 MPRF-REC. CL164
|
||||
00128 ++INCLUDE DTSIMPRF CL164
|
||||
00129 EJECT CL164
|
||||
00130 01 MQTR-REC. DTSBS414
|
||||
00131 ++INCLUDE DTSIMQTR DTSBS414
|
||||
00132 EJECT DTSBS414
|
||||
00133 01 MRPT-REC. DTSBS414
|
||||
00134 ++INCLUDE DTSIMRPT DTSBS414
|
||||
00135 EJECT DTSBS414
|
||||
00136 01 MSOL-REC. DTSBS414
|
||||
00137 ++INCLUDE DTSIMSOL DTSBS414
|
||||
00138 EJECT DTSBS414
|
||||
00139 01 MRCT-REC. DTSBS414
|
||||
00140 ++INCLUDE DTSIMRCT DTSBS414
|
||||
00141 EJECT DTSBS414
|
||||
00142 01 MREL-REC. DTSBS414
|
||||
00143 ++INCLUDE DTSIMREL DTSBS414
|
||||
00144 EJECT DTSBS414
|
||||
00145 01 MEVL-REC. DTSBS414
|
||||
00146 ++INCLUDE DTSIMEVL DTSBS414
|
||||
00147 EJECT DTSBS414
|
||||
00148 01 MLIN-REC. DTSBS414
|
||||
00149 ++INCLUDE DTSIMLIN DTSBS414
|
||||
00150 EJECT DTSBS414
|
||||
00151 01 MRTE-REC. DTSBS414
|
||||
00152 ++INCLUDE DTSIMRTE DTSBS414
|
||||
00153 EJECT DTSBS414
|
||||
00154 01 MDST-REC. DTSBS414
|
||||
00155 ++INCLUDE DTSIMDST DTSBS414
|
||||
00156 EJECT DTSBS414
|
||||
00157 01 MPAY-REC. DTSBS414
|
||||
00158 ++INCLUDE DTSIMPAY DTSBS414
|
||||
00159 EJECT DTSBS414
|
||||
00160 01 MADJ-REC. DTSBS414
|
||||
00161 ++INCLUDE DTSIMADJ DTSBS414
|
||||
00162 EJECT DTSBS414
|
||||
00163 01 MJRN-REC. DTSBS414
|
||||
00164 ++INCLUDE DTSIMJRN DTSBS414
|
||||
00165 EJECT DTSBS414
|
||||
00166 01 MERA-REC. DTSBS414
|
||||
00167 ++INCLUDE DTSIMERA DTSBS414
|
||||
00168 EJECT DTSBS414
|
||||
00169 01 MCOL-REC. DTSBS414
|
||||
00170 ++INCLUDE DTSIMCOL DTSBS414
|
||||
00171 EJECT DTSBS414
|
||||
00172 01 MFAS-REC. DTSBS414
|
||||
00173 ++INCLUDE DTSIMFAS DTSBS414
|
||||
00174 01 MAUR-REC. DTSBS414
|
||||
00175 ++INCLUDE DTSIMAUR DTSBS414
|
||||
00176 EJECT DTSBS414
|
||||
00177 01 MFAE-REC. DTSBS414
|
||||
00178 ++INCLUDE DTSIMFAE DTSBS414
|
||||
00179 EJECT DTSBS414
|
||||
00180 01 MLOG-REC. DTSBS414
|
||||
00181 ++INCLUDE DTSIMLOG DTSBS414
|
||||
00182 EJECT DTSBS414
|
||||
00183 01 MOPO-REC. DTSBS414
|
||||
00184 ++INCLUDE DTSIMOPO DTSBS414
|
||||
00185 EJECT DTSBS414
|
||||
00186 01 MTAD-REC. DTSBS414
|
||||
00187 ++INCLUDE DTSIMTAD DTSBS414
|
||||
00188 EJECT DTSBS414
|
||||
00189 01 MTAA-REC. DTSBS414
|
||||
00190 ++INCLUDE DTSIMTAA DTSBS414
|
||||
00191 EJECT DTSBS414
|
||||
00192 01 MBAA-REC. DTSBS414
|
||||
00193 ++INCLUDE DTSIMBAA DTSBS414
|
||||
00194 EJECT DTSBS414
|
||||
00195 01 MFSC-REC. DTSBS414
|
||||
00196 ++INCLUDE DTSIMFSC DTSBS414
|
||||
00197 EJECT DTSBS414
|
||||
00198 01 MERD-REC. DTSBS414
|
||||
00199 ++INCLUDE DTSIMERD DTSBS414
|
||||
00200 EJECT DTSBS414
|
||||
00201 01 MDPC-REC. DTSBS414
|
||||
00202 ++INCLUDE DTSIMDPC DTSBS414
|
||||
00203 EJECT DTSBS414
|
||||
00204 01 L921-LINK-AREA. DTSBS414
|
||||
00205 ++INCLUDE DTSIL921 DTSBS414
|
||||
00206 EJECT DTSBS414
|
||||
00207 01 ISKL-REC. DTSBS414
|
||||
00208 ++INCLUDE DTSIISKL DTSBS414
|
||||
00209 EJECT DTSBS414
|
||||
00210 01 IPES-REC. DTSBS414
|
||||
00211 ++INCLUDE DTSIIPES DTSBS414
|
||||
00212 EJECT DTSBS414
|
||||
00213 01 L931-LINK-AREA. DTSBS414
|
||||
00214 ++INCLUDE DTSIL931 DTSBS414
|
||||
00215 EJECT DTSBS414
|
||||
00216 01 FSKL-REC. DTSBS414
|
||||
00217 ++INCLUDE DTSIFSKL DTSBS414
|
||||
00218 EJECT DTSBS414
|
||||
00219 01 FQTR-REC. DTSBS414
|
||||
00220 ++INCLUDE DTSIFQTR DTSBS414
|
||||
00221 EJECT DTSBS414
|
||||
00222 01 FFIS-REC. DTSBS414
|
||||
00223 ++INCLUDE DTSIFFIS DTSBS414
|
||||
00224 EJECT DTSBS414
|
||||
00225 01 FFAZ-REC. DTSBS414
|
||||
00226 ++INCLUDE DTSIFFAZ DTSBS414
|
||||
00227 EJECT DTSBS414
|
||||
00228 01 FOPR-REC. DTSBS414
|
||||
00229 ++INCLUDE DTSIFOPR DTSBS414
|
||||
00230 EJECT DTSBS414
|
||||
00231 01 L933-LINK-AREA. DTSBS414
|
||||
00232 ++INCLUDE DTSIL933 DTSBS414
|
||||
00233 EJECT DTSBS414
|
||||
00234 01 XSIC-REC. DTSBS414
|
||||
00235 ++INCLUDE DTSIXSIC DTSBS414
|
||||
00236 EJECT DTSBS414
|
||||
00237 01 L004-COMM-AREA. DTSBS414
|
||||
00238 ++INCLUDE DTSIL004 DTSBS414
|
||||
00239 DTSBS414
|
||||
00240 01 L061-LINK-AREA. DTSBS414
|
||||
00241 ++INCLUDE DTSIL061 DTSBS414
|
||||
00242 DTSBS414
|
||||
00243 01 L062-LINK-AREA. DTSBS414
|
||||
00244 ++INCLUDE DTSIL062 DTSBS414
|
||||
00245 DTSBS414
|
||||
00246 01 L516-LINK-AREA. DTSBS414
|
||||
00247 ++INCLUDE DTSIL516 DTSBS414
|
||||
00248 EJECT DTSBS414
|
||||
00249 01 LBCM-LINK-AREA. CL173
|
||||
00250 ++INCLUDE DTSILBCM CL173
|
||||
00251 EJECT CL154
|
||||
00252 01 L923-LINK-AREA. CL183
|
||||
00253 ++INCLUDE DTSIL923 CL183
|
||||
00254 EJECT CL183
|
||||
00255 01 ASKL-REC. CL183
|
||||
00256 ++INCLUDE DTSIASKL CL183
|
||||
00257 EJECT CL183
|
||||
00258 01 AHDR-REC. CL183
|
||||
00259 ++INCLUDE DTSIAHDR CL183
|
||||
00260 EJECT CL183
|
||||
00261 01 AADJ-REC. CL183
|
||||
00262 ++INCLUDE DTSIAADJ CL183
|
||||
00263 EJECT CL183
|
||||
00264 01 L927-LINK-AREA. CL183
|
||||
00265 ++INCLUDE DTSIL927 CL183
|
||||
00266 EJECT CL183
|
||||
00267 PROCEDURE DIVISION. CL173
|
||||
00268 CL164
|
||||
00269 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBS414
|
||||
00270 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBS414
|
||||
00271 UNTIL FILE-END = 'Y'. CL*17
|
||||
00272 PERFORM T0000-TERMINATE THRU T0000-EXIT. DTSBS414
|
||||
00273 SKIP2 DTSBS414
|
||||
00274 GOBACK. DTSBS414
|
||||
00275 EJECT DTSBS414
|
||||
00276 I0000-INITIATE. DTSBS414
|
||||
00277 SKIP2 DTSBS414
|
||||
00278 MOVE 'N' TO WRK-TRACE-IND. DTSBS414
|
||||
00279 SET WRK-ERROR-NO-88 TO TRUE. DTSBS414
|
||||
00280 DTSBS414
|
||||
00281 PERFORM I2000-OPEN-FILES-1 THRU I2000-EXIT. DTSBS414
|
||||
00282 DTSBS414
|
||||
00283 CL120
|
||||
00284 I0000-EXIT. DTSBS414
|
||||
00285 EXIT. DTSBS414
|
||||
00286 I2000-OPEN-FILES-1. DTSBS414
|
||||
00287 OPEN INPUT EMP-FILE1. CL120
|
||||
00288 IF NOT EXP-STATUS-OK-88 DTSBS414
|
||||
00289 DISPLAY 'CANNOT OPEN EXP FILE ' EXP-STATUS DTSBS414
|
||||
00290 SET WRK-ERROR-YES-88 TO TRUE DTSBS414
|
||||
00291 GO TO I2000-EXIT. DTSBS414
|
||||
00292 MOVE WRK-TRACE-IND TO L910-TRACE-IND. DTSBS414
|
||||
00293 DTSBS414
|
||||
00294 MOVE WRK-MOD-NAME TO L910-MOD-NAME. DTSBS414
|
||||
00295 DTSBS414
|
||||
00296 PERFORM S910-OPEN-UPDATE-NO-AIX THRU S910-EXIT. CL*40
|
||||
00297 * PERFORM S923-OPEN-UPDATE THRU S923-EXIT. CL*85
|
||||
00298 * PERFORM S927-OPEN-UPDATE THRU S927-EXIT. CL*25
|
||||
00299 DTSBS414
|
||||
00300 PERFORM S005-FROM-SYS THRU S005-EXIT. CL187
|
||||
00301 DTSBS414
|
||||
00302 * PERFORM S931-OPEN-UPDATE THRU S931-EXIT. CL*85
|
||||
00303 DTSBS414
|
||||
00304 MOVE WRK-MOD-NAME TO L933-MOD-NAME. DTSBS414
|
||||
00305 DTSBS414
|
||||
00306 MOVE 'N' TO FILE-END. CL*24
|
||||
00307 CL*89
|
||||
00308 READ EMP-FILE1 AT END MOVE 'Y' TO FILE-END. CL*88
|
||||
00309 CL*89
|
||||
00310 CL*89
|
||||
00311 I2000-EXIT. DTSBS414
|
||||
00312 EXIT. DTSBS414
|
||||
00313 DTSBS414
|
||||
00314 P0000-PROCESS. DTSBS414
|
||||
00315 CL*88
|
||||
00316 DISPLAY IEMP-NO CL*36
|
||||
00317 PERFORM S6000-WRITE-MEVL THRU S6000-EXIT. CL228
|
||||
00318 CL209
|
||||
00319 PERFORM P1000-READ-NEXT THRU P1000-EXIT. CL135
|
||||
00320 CL*89
|
||||
00321 P0000-EXIT. CL119
|
||||
00322 EXIT. DTSBS414
|
||||
00323 DTSBS414
|
||||
00324 P1000-READ-NEXT. CL*88
|
||||
00325 READ EMP-FILE1 AT END CL*91
|
||||
00326 MOVE 'Y' TO FILE-END CL*90
|
||||
00327 GO TO P1000-EXIT. CL*88
|
||||
00328 P1000-EXIT. CL*88
|
||||
00329 EXIT. CL*88
|
||||
00330 CL*88
|
||||
00331 S6000-WRITE-MEVL. CL154
|
||||
00332 MOVE LOW-VALUES TO MEVL-REC. CL165
|
||||
00333 CL173
|
||||
00334 MOVE ZERO TO LBCM-EMP-ABSTIME. CL173
|
||||
00335 MOVE IEMP-NO TO MEVL-EMP-NO. CL209
|
||||
00336 CL*62
|
||||
00337 SET MEVL-EVL-88 TO TRUE. CL165
|
||||
00338 CL154
|
||||
00339 PERFORM S005-FROM-SYS THRU S005-A-EXIT. CL217
|
||||
00340 MOVE L005-DATE TO MEVL-DATE. CL181
|
||||
00341 CL154
|
||||
00342 MOVE L005-TIME TO MEVL-TIME. CL181
|
||||
00343 CL154
|
||||
00344 MOVE ZEROS TO MEVL-PURGE-DATE. CL154
|
||||
00345 CL154
|
||||
00346 MOVE WRK-MESS-LINE-1 TO EVL-TEXT CL160
|
||||
00347 MOVE EVL-TEXT TO MEVL-TEXT. CL209
|
||||
00348 SET MEVL-SOURCE-SYSTEM-88 TO TRUE. CL209
|
||||
00349 CL154
|
||||
00350 SET MEVL-NOT-CONVERTED-88 TO TRUE. CL154
|
||||
00351 ** MOVE LBCM-CURR-RUN-DATE TO MEVL-ESTB-DATE CL*39
|
||||
00352 DISPLAY MEVL-REC. CL242
|
||||
00353 MOVE MEVL-REC TO MSKL-REC. CL242
|
||||
00354 CL154
|
||||
00355 PERFORM S910-WRITE THRU S910-EXIT. CL154
|
||||
00356 S6000-EXIT. CL154
|
||||
00357 EXIT. CL154
|
||||
00358 EJECT CL154
|
||||
00359 CL*95
|
||||
00360 SKIP3 CL183
|
||||
00361 T0000-TERMINATE. DTSBS414
|
||||
00362 DTSBS414
|
||||
00363 DISPLAY ' '. DTSBS414
|
||||
00364 DTSBS414
|
||||
00365 DISPLAY '*** DTSBZEVL TERMINATION STATISTICS ***'. CL154
|
||||
00366 DTSBS414
|
||||
00367 DISPLAY ' '. DTSBS414
|
||||
00368 DTSBS414
|
||||
00369 CL123
|
||||
00370 CLOSE EMP-FILE1. CL123
|
||||
00371 DTSBS414
|
||||
00372 T0000-EXIT. DTSBS414
|
||||
00373 EXIT. DTSBS414
|
||||
00374 EJECT DTSBS414
|
||||
00375 S001-FROM-FED-8. DTSBS414
|
||||
00376 SET L001-FROM-FED-8 TO TRUE. DTSBS414
|
||||
00377 GO TO S001-DATE. DTSBS414
|
||||
00378 DTSBS414
|
||||
00379 S001-FROM-ABS-DAY. DTSBS414
|
||||
00380 SET L001-FROM-ABS-DAY TO TRUE. DTSBS414
|
||||
00381 GO TO S001-DATE. DTSBS414
|
||||
00382 DTSBS414
|
||||
00383 S001-DATE. DTSBS414
|
||||
00384 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBS414
|
||||
00385 DTSBS414
|
||||
00386 S001-EXIT. DTSBS414
|
||||
00387 EXIT. DTSBS414
|
||||
00388 SKIP3 DTSBS414
|
||||
00389 S004-FROM-5. DTSBS414
|
||||
00390 SET L004-FROM-5 TO TRUE. DTSBS414
|
||||
00391 GO TO S004-EDIT-QTR. DTSBS414
|
||||
00392 DTSBS414
|
||||
00393 S004-FROM-ABS. DTSBS414
|
||||
00394 SET L004-FROM-ABS TO TRUE. DTSBS414
|
||||
00395 GO TO S004-EDIT-QTR. DTSBS414
|
||||
00396 DTSBS414
|
||||
00397 S004-EDIT-QTR. DTSBS414
|
||||
00398 CALL 'DTSBU004' USING L004-COMM-AREA. DTSBS414
|
||||
00399 DTSBS414
|
||||
00400 S004-EXIT. DTSBS414
|
||||
00401 EXIT. DTSBS414
|
||||
00402 SKIP3 DTSBS414
|
||||
00403 DTSBS414
|
||||
00404 S005-FROM-SYS. CL187
|
||||
00405 SET L005-FROM-SYS TO TRUE. CL187
|
||||
00406 CALL 'DTSBU005' USING L005-LINK-AREA. CL187
|
||||
00407 CL187
|
||||
00408 S005-EXIT. CL187
|
||||
00409 EXIT. CL187
|
||||
00410 CL187
|
||||
00411 S005-FROM-ABSTIME. CL156
|
||||
00412 SET L005-FROM-ABSTIME TO TRUE. CL156
|
||||
00413 GO TO S005-ABSTIME. CL156
|
||||
00414 CL156
|
||||
00415 S005-ABSTIME. CL156
|
||||
00416 CALL 'DTSBU005' USING L005-LINK-AREA. CL156
|
||||
00417 S005-A-EXIT. CL156
|
||||
00418 EXIT. CL156
|
||||
00419 SKIP3 CL156
|
||||
00420 S910-WRITE. CL156
|
||||
00421 SET LBCM-EMP-UPDATE-YES-88 TO TRUE. CL173
|
||||
00422 SET L910-WRITE-88 TO TRUE. CL156
|
||||
00423 GO TO S910-MSTR-IO. CL156
|
||||
00424 S039-SIC-EDIT. DTSBS414
|
||||
00425 CALL 'DTSBU039' USING L039-LINK-AREA. DTSBS414
|
||||
00426 S039-EXIT. DTSBS414
|
||||
00427 EXIT. DTSBS414
|
||||
00428 DTSBS414
|
||||
00429 S054-RATE-DETERMINATION. DTSBS414
|
||||
00430 CALL 'DTSBU054' USING L054-LINK-AREA DTSBS414
|
||||
00431 MRCT-REC. DTSBS414
|
||||
00432 DTSBS414
|
||||
00433 S054-EXIT. DTSBS414
|
||||
00434 EXIT. DTSBS414
|
||||
00435 SKIP3 DTSBS414
|
||||
00436 S061-FLD-REP-INFO. DTSBS414
|
||||
00437 SKIP1 DTSBS414
|
||||
00438 CALL 'DTSBU061' USING L061-LINK-AREA. DTSBS414
|
||||
00439 SKIP2 DTSBS414
|
||||
00440 S061-EXIT. DTSBS414
|
||||
00441 EXIT. DTSBS414
|
||||
00442 DTSBS414
|
||||
00443 S062-FLD-REP-LOOKUP. DTSBS414
|
||||
00444 DTSBS414
|
||||
00445 CALL 'DTSBU062' USING L062-LINK-AREA. DTSBS414
|
||||
00446 DTSBS414
|
||||
00447 S062-EXIT. DTSBS414
|
||||
00448 EXIT. DTSBS414
|
||||
00449 DTSBS414
|
||||
00450 S101-PER-MONTH-NO. CL*23
|
||||
00451 SET L101-PER-MONTH-NO-88 TO TRUE. CL*23
|
||||
00452 GO TO S101-INT-CHARGE. CL*23
|
||||
00453 CL*23
|
||||
00454 S101-INT-CHARGE. CL*23
|
||||
00455 CALL 'DTSBU101' USING L101-LINK-AREA. CL*23
|
||||
00456 S101-EXIT. CL*23
|
||||
00457 EXIT. CL*23
|
||||
00458 CL*23
|
||||
00459 S109-FIRST-PEN-INT-YRQ. CL*23
|
||||
00460 SET L109-CMND-PEN-INT-QTR-88 TO TRUE. CL*23
|
||||
00461 CALL 'DTSBU109' USING L109-LINK-AREA. CL*23
|
||||
00462 S109-EXIT. CL*23
|
||||
00463 EXIT. CL*23
|
||||
00464 CL*23
|
||||
00465 S410-FILING-SCHED. DTSBS414
|
||||
00466 CALL 'DTSBU410' USING L410-LINK-AREA. DTSBS414
|
||||
00467 DTSBS414
|
||||
00468 S410-EXIT. DTSBS414
|
||||
00469 EXIT. DTSBS414
|
||||
00470 SKIP3 DTSBS414
|
||||
00471 S516-LIABILITY. DTSBS414
|
||||
00472 CALL 'DTSBU516' USING L516-LINK-AREA DTSBS414
|
||||
00473 MPRF-REC. DTSBS414
|
||||
00474 DTSBS414
|
||||
00475 S516-EXIT. DTSBS414
|
||||
00476 EXIT. DTSBS414
|
||||
00477 SKIP3 DTSBS414
|
||||
00478 S910-OPEN-READ. DTSBS414
|
||||
00479 SET L910-OPEN-READ-88 TO TRUE. DTSBS414
|
||||
00480 GO TO S910-MSTR-IO. DTSBS414
|
||||
00481 DTSBS414
|
||||
00482 S910-OPEN-UPDATE-NO-AIX. DTSBS414
|
||||
00483 SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE. DTSBS414
|
||||
00484 GO TO S910-MSTR-IO. DTSBS414
|
||||
00485 DTSBS414
|
||||
00486 S910-READ. DTSBS414
|
||||
00487 SET L910-READ-88 TO TRUE. DTSBS414
|
||||
00488 GO TO S910-MSTR-IO. DTSBS414
|
||||
00489 DTSBS414
|
||||
00490 S910-START-BROWSE. DTSBS414
|
||||
00491 SET L910-START-BROWSE-88 TO TRUE. DTSBS414
|
||||
00492 GO TO S910-MSTR-IO. DTSBS414
|
||||
00493 DTSBS414
|
||||
00494 S910-READ-NEXT. DTSBS414
|
||||
00495 SET L910-READ-NEXT-88 TO TRUE. DTSBS414
|
||||
00496 GO TO S910-MSTR-IO. DTSBS414
|
||||
00497 DTSBS414
|
||||
00498 S910-COUNT. DTSBS414
|
||||
00499 SET L910-COUNT-88 TO TRUE. DTSBS414
|
||||
00500 GO TO S910-MSTR-IO. DTSBS414
|
||||
00501 DTSBS414
|
||||
00502 S910-REWRITE. DTSBS414
|
||||
00503 SET L910-REWRITE-88 TO TRUE. DTSBS414
|
||||
00504 GO TO S910-MSTR-IO. DTSBS414
|
||||
00505 DTSBS414
|
||||
00506 S910-DELETE. DTSBS414
|
||||
00507 SET L910-DELETE-88 TO TRUE. DTSBS414
|
||||
00508 GO TO S910-MSTR-IO. DTSBS414
|
||||
00509 DTSBS414
|
||||
00510 S910-CLOSE. DTSBS414
|
||||
00511 SET L910-CLOSE-88 TO TRUE. DTSBS414
|
||||
00512 GO TO S910-MSTR-IO. DTSBS414
|
||||
00513 DTSBS414
|
||||
00514 S910-MSTR-IO. DTSBS414
|
||||
00515 CALL 'DTSBU910' USING L910-LINK-AREA DTSBS414
|
||||
00516 MSKL-REC. DTSBS414
|
||||
00517 S910-EXIT. DTSBS414
|
||||
00518 EXIT. DTSBS414
|
||||
00519 SKIP3 DTSBS414
|
||||
00520 S921-OPEN-READ. DTSBS414
|
||||
00521 SET L921-OPEN-READ-88 TO TRUE. DTSBS414
|
||||
00522 GO TO S921-AIX-IO. DTSBS414
|
||||
00523 DTSBS414
|
||||
00524 S921-START-BROWSE. DTSBS414
|
||||
00525 SET L921-START-BROWSE-88 TO TRUE. DTSBS414
|
||||
00526 GO TO S921-AIX-IO. DTSBS414
|
||||
00527 DTSBS414
|
||||
00528 S921-CLOSE. DTSBS414
|
||||
00529 SET L921-CLOSE-88 TO TRUE. DTSBS414
|
||||
00530 GO TO S921-AIX-IO. DTSBS414
|
||||
00531 DTSBS414
|
||||
00532 S923-CLOSE. CL183
|
||||
00533 SET L923-CLOSE-88 TO TRUE. CL183
|
||||
00534 GO TO S923-ATC-IO. CL183
|
||||
00535 CL183
|
||||
00536 S923-ATC-IO. CL183
|
||||
00537 CALL 'DTSBU923' USING L923-LINK-AREA CL183
|
||||
00538 ASKL-REC. CL183
|
||||
00539 S923-EXIT. CL183
|
||||
00540 EXIT. CL183
|
||||
00541 SKIP3 CL183
|
||||
00542 S921-AIX-IO. DTSBS414
|
||||
00543 CALL 'DTSBU921' USING L921-LINK-AREA DTSBS414
|
||||
00544 ISKL-REC. DTSBS414
|
||||
00545 S921-EXIT. DTSBS414
|
||||
00546 EXIT. DTSBS414
|
||||
00547 SKIP3 DTSBS414
|
||||
00548 DTSBS414
|
||||
00549 S923-OPEN-UPDATE. CL183
|
||||
00550 SET L923-OPEN-UPDATE-88 TO TRUE. CL183
|
||||
00551 GO TO S923-ATC-IO. CL183
|
||||
00552 CL183
|
||||
00553 SKIP3 CL183
|
||||
00554 S927-OPEN-UPDATE. CL183
|
||||
00555 SET L927-OPEN-UPDATE-88 TO TRUE. CL183
|
||||
00556 GO TO S927-BTC-O. CL183
|
||||
00557 CL183
|
||||
00558 S927-WRITE. CL183
|
||||
00559 SET L927-WRITE-88 TO TRUE. CL183
|
||||
00560 GO TO S927-BTC-O. CL183
|
||||
00561 CL183
|
||||
00562 S927-CLOSE. CL183
|
||||
00563 SET L927-CLOSE-88 TO TRUE. CL183
|
||||
00564 GO TO S927-BTC-O. CL183
|
||||
00565 CL183
|
||||
00566 S927-BTC-O. CL183
|
||||
00567 CALL 'DTSBU927' USING L927-LINK-AREA CL183
|
||||
00568 TSKL-REC. CL183
|
||||
00569 S927-EXIT. CL183
|
||||
00570 EXIT. CL183
|
||||
00571 CL183
|
||||
00572 SKIP3 CL183
|
||||
00573 S931-OPEN-READ. DTSBS414
|
||||
00574 SET L931-OPEN-READ-88 TO TRUE. DTSBS414
|
||||
00575 GO TO S931-REF-IO. DTSBS414
|
||||
00576 DTSBS414
|
||||
00577 S931-OPEN-UPDATE. DTSBS414
|
||||
00578 SET L931-OPEN-UPDATE-88 TO TRUE. DTSBS414
|
||||
00579 GO TO S931-REF-IO. DTSBS414
|
||||
00580 DTSBS414
|
||||
00581 S931-START-BROWSE. DTSBS414
|
||||
00582 SET L931-START-BROWSE-88 TO TRUE. DTSBS414
|
||||
00583 GO TO S931-REF-IO. DTSBS414
|
||||
00584 DTSBS414
|
||||
00585 S931-READ. DTSBS414
|
||||
00586 SET L931-READ-88 TO TRUE. DTSBS414
|
||||
00587 GO TO S931-REF-IO. DTSBS414
|
||||
00588 DTSBS414
|
||||
00589 S931-READ-NEXT. DTSBS414
|
||||
00590 SET L931-READ-NEXT-88 TO TRUE. DTSBS414
|
||||
00591 GO TO S931-REF-IO. DTSBS414
|
||||
00592 DTSBS414
|
||||
00593 S931-DELETE. DTSBS414
|
||||
00594 SET L931-DELETE-88 TO TRUE. DTSBS414
|
||||
00595 GO TO S931-REF-IO. DTSBS414
|
||||
00596 DTSBS414
|
||||
00597 S931-REWRITE. DTSBS414
|
||||
00598 SET L931-REWRITE-88 TO TRUE. DTSBS414
|
||||
00599 GO TO S931-REF-IO. DTSBS414
|
||||
00600 DTSBS414
|
||||
00601 S931-WRITE. DTSBS414
|
||||
00602 SET L931-WRITE-88 TO TRUE. DTSBS414
|
||||
00603 GO TO S931-REF-IO. DTSBS414
|
||||
00604 DTSBS414
|
||||
00605 S931-CLOSE. DTSBS414
|
||||
00606 SET L931-CLOSE-88 TO TRUE. DTSBS414
|
||||
00607 GO TO S931-REF-IO. DTSBS414
|
||||
00608 DTSBS414
|
||||
00609 S931-REF-IO. DTSBS414
|
||||
00610 CALL 'DTSBU931' USING L931-LINK-AREA DTSBS414
|
||||
00611 FSKL-REC. DTSBS414
|
||||
00612 S931-EXIT. DTSBS414
|
||||
00613 EXIT. DTSBS414
|
||||
00614 SKIP3 DTSBS414
|
||||
00615 S933-OPEN-READ. DTSBS414
|
||||
00616 SET L933-OPEN-READ-88 TO TRUE. DTSBS414
|
||||
00617 GO TO S933-SIC-I. DTSBS414
|
||||
00618 DTSBS414
|
||||
00619 S933-CLOSE. DTSBS414
|
||||
00620 SET L933-CLOSE-88 TO TRUE. DTSBS414
|
||||
00621 GO TO S933-SIC-I. DTSBS414
|
||||
00622 DTSBS414
|
||||
00623 S933-SIC-I. DTSBS414
|
||||
00624 CALL 'DTSBU933' USING L933-LINK-AREA DTSBS414
|
||||
00625 XSIC-REC. DTSBS414
|
||||
00626 S933-EXIT. DTSBS414
|
||||
00627 EXIT. DTSBS414
|
||||
00628 DTSBS414
|
||||
00629 S999-ABEND. DTSBS414
|
||||
00630 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBS414
|
||||
00631 S999-EXIT. DTSBS414
|
||||
00632 EXIT. DTSBS414
|
||||
Reference in New Issue
Block a user