634 lines
50 KiB
COBOL
634 lines
50 KiB
COBOL
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
|