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