DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
717
Batch/DTSBX470.cob
Normal file
717
Batch/DTSBX470.cob
Normal file
@ -0,0 +1,717 @@
|
||||
00001 IDENTIFICATION DIVISION. 10/18/05
|
||||
00002 PROGRAM-ID. DTSBX470. DTSBX470
|
||||
00003 AUTHOR. TRW. LV001
|
||||
00004 DATE-WRITTEN. JULY 2003. DTSBX470
|
||||
00005 DATE-COMPILED. DTSBX470
|
||||
00006 SKIP3 DTSBX470
|
||||
00007 ***** DTSBX470
|
||||
00008 * DTSBX470
|
||||
00009 * FUNCTION: EXTRACT MAILING & LOCAL ADDRESSES OF EMPLOYERS DTSBX470
|
||||
00010 * FOR OFFICE OF WORKERS COMPENSATION. DTSBX470
|
||||
00011 * DTSBX470
|
||||
00012 * DTSBX470
|
||||
00013 * DTSBX470
|
||||
00014 * DTSBX470
|
||||
00015 * DTSBX470
|
||||
00016 * DTSBX470
|
||||
00017 * DTSBX470
|
||||
00018 * DTSBX470
|
||||
00019 ***** DTSBX470
|
||||
00020 SKIP3 DTSBX470
|
||||
00021 ENVIRONMENT DIVISION. DTSBX470
|
||||
00022 SKIP2 DTSBX470
|
||||
00023 INPUT-OUTPUT SECTION. DTSBX470
|
||||
00024 DTSBX470
|
||||
00025 FILE-CONTROL. DTSBX470
|
||||
00026 SELECT OWC-FILE ASSIGN TO DTSBX470 DTSBX470
|
||||
00027 FILE STATUS IS BX470-STATUS. DTSBX470
|
||||
00028 DTSBX470
|
||||
00029 SKIP2 DTSBX470
|
||||
00030 DATA DIVISION. DTSBX470
|
||||
00031 SKIP3 DTSBX470
|
||||
00032 FILE SECTION. DTSBX470
|
||||
00033 FD OWC-FILE DTSBX470
|
||||
00034 RECORDING MODE IS F DTSBX470
|
||||
00035 LABEL RECORDS ARE STANDARD. DTSBX470
|
||||
00036 DTSBX470
|
||||
00037 01 OWC-REC1 PIC X(441). DTSBX470
|
||||
00038 DTSBX470
|
||||
00039 EJECT DTSBX470
|
||||
00040 WORKING-STORAGE SECTION. DTSBX470
|
||||
000405 77 PAN-VALET PICTURE X(24) VALUE '001DTSBX470 10/18/05'. DTSBX470
|
||||
00041 SKIP3 DTSBX470
|
||||
00042 01 WRK-OWC-REC. DTSBX470
|
||||
00043 05 OWC-EMP-NO PIC 9(06). DTSBX470
|
||||
00044 05 FILLER PIC X(01) VALUE ','. DTSBX470
|
||||
00045 05 OWC-FEIN PIC 9(09). DTSBX470
|
||||
00046 05 FILLER PIC X(01) VALUE ','. DTSBX470
|
||||
00047 05 OWC-TRADE-NAME PIC X(40). DTSBX470
|
||||
00048 05 FILLER PIC X(01) VALUE ','. DTSBX470
|
||||
00049 05 OWC-ENTITY-NAME PIC X(40). DTSBX470
|
||||
00050 05 FILLER PIC X(01) VALUE ','. DTSBX470
|
||||
00051 05 OWC-M-ATTN PIC X(40). DTSBX470
|
||||
00052 05 FILLER PIC X(01) VALUE ','. DTSBX470
|
||||
00053 05 OWC-M-DELV1 PIC X(40). DTSBX470
|
||||
00054 05 FILLER PIC X(01) VALUE ','. DTSBX470
|
||||
00055 05 OWC-M-DELV2 PIC X(40). DTSBX470
|
||||
00056 05 FILLER PIC X(01) VALUE ','. DTSBX470
|
||||
00057 05 OWC-M-CITY PIC X(25). DTSBX470
|
||||
00058 05 FILLER PIC X(01) VALUE ','. DTSBX470
|
||||
00059 05 OWC-M-STATE PIC X(02). DTSBX470
|
||||
00060 05 FILLER PIC X(01) VALUE ','. DTSBX470
|
||||
00061 05 OWC-M-ZIP PIC X(05). DTSBX470
|
||||
00062 05 FILLER PIC X(01) VALUE ','. DTSBX470
|
||||
00063 05 OWC-W-ATTN PIC X(40). DTSBX470
|
||||
00064 05 FILLER PIC X(01) VALUE ','. DTSBX470
|
||||
00065 05 OWC-W-DELV1 PIC X(40). DTSBX470
|
||||
00066 05 FILLER PIC X(01) VALUE ','. DTSBX470
|
||||
00067 05 OWC-W-DELV2 PIC X(40). DTSBX470
|
||||
00068 05 FILLER PIC X(01) VALUE ','. DTSBX470
|
||||
00069 05 OWC-W-CITY PIC X(25). DTSBX470
|
||||
00070 05 FILLER PIC X(01) VALUE ','. DTSBX470
|
||||
00071 05 OWC-W-STATE PIC X(02). DTSBX470
|
||||
00072 05 FILLER PIC X(01) VALUE ','. DTSBX470
|
||||
00073 05 OWC-W-ZIP PIC X(05). DTSBX470
|
||||
00074 05 FILLER PIC X(01) VALUE ','. DTSBX470
|
||||
00075 05 OWC-VOICE-1. DTSBX470
|
||||
00076 10 OWC-VOICE-1-AREA-CD PIC X(03). DTSBX470
|
||||
00077 10 OWC-VOICE-1-PREFIX PIC X(03). DTSBX470
|
||||
00078 10 OWC-VOICE-1-SUFFIX PIC X(04). DTSBX470
|
||||
00079 10 OWC-VOICE-1-EXT PIC X(05). DTSBX470
|
||||
00080 05 FILLER PIC X(01) VALUE ','. DTSBX470
|
||||
00081 05 OWC-INACT-DATE PIC X(10). DTSBX470
|
||||
00082 DTSBX470
|
||||
00083 01 WRK-M-ADDR. DTSBX470
|
||||
00084 05 WRK-M-ATTN PIC X(40). DTSBX470
|
||||
00085 05 WRK-M-DELV1 PIC X(40). DTSBX470
|
||||
00086 05 WRK-M-DELV2 PIC X(40). DTSBX470
|
||||
00087 05 WRK-M-CITY PIC X(25). DTSBX470
|
||||
00088 05 WRK-M-STATE PIC X(02). DTSBX470
|
||||
00089 05 WRK-M-ZIP PIC X(05). DTSBX470
|
||||
00090 DTSBX470
|
||||
00091 01 WRK-W-ADDR. DTSBX470
|
||||
00092 05 WRK-W-ATTN PIC X(40). DTSBX470
|
||||
00093 05 WRK-W-DELV1 PIC X(40). DTSBX470
|
||||
00094 05 WRK-W-DELV2 PIC X(40). DTSBX470
|
||||
00095 05 WRK-W-CITY PIC X(25). DTSBX470
|
||||
00096 05 WRK-W-STATE PIC X(02). DTSBX470
|
||||
00097 05 WRK-W-ZIP PIC X(05). DTSBX470
|
||||
00098 DTSBX470
|
||||
00099 01 WRK-AREA. DTSBX470
|
||||
00100 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +470.DTSBX470
|
||||
00101 DTSBX470
|
||||
00102 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBX470'.DTSBX470
|
||||
00103 DTSBX470
|
||||
00104 05 WRK-RUN-TYPE PIC X(06). DTSBX470
|
||||
00105 88 WRK-RUN-TYPE-CONV-88 VALUE ' CONV'. DTSBX470
|
||||
00106 88 WRK-RUN-TYPE-UPDATE-88 VALUE 'UPDATE'. DTSBX470
|
||||
00107 DTSBX470
|
||||
00108 05 WRK-INTERVAL PIC X(01). DTSBX470
|
||||
00109 88 WRK-INTERVAL-WEEK-88 VALUE 'W'. DTSBX470
|
||||
00110 88 WRK-INTERVAL-MONTH-88 VALUE 'M'. DTSBX470
|
||||
00111 88 WRK-INTERVAL-QTR-88 VALUE 'Q'. DTSBX470
|
||||
00112 DTSBX470
|
||||
00113 05 BX470-STATUS PIC X(02). DTSBX470
|
||||
00114 88 BX470-STATUS-OK-88 VALUE '00'. DTSBX470
|
||||
00115 DTSBX470
|
||||
00116 05 WRK-CUTOFF-DATE PIC S9(09) COMP-3 DTSBX470
|
||||
00117 VALUE +0. DTSBX470
|
||||
00118 05 WRK-LIAB-ENTER-DATE PIC S9(09) COMP-3 DTSBX470
|
||||
00119 VALUE +0. DTSBX470
|
||||
00120 05 WRK-INACT-ENTER-DATE PIC S9(09) COMP-3 DTSBX470
|
||||
00121 VALUE +0. DTSBX470
|
||||
00122 05 WRK-INACT-DATE PIC S9(09) COMP-3 DTSBX470
|
||||
00123 VALUE +0. DTSBX470
|
||||
00124 05 WRK-MPRF-READ-CNT PIC S9(07) COMP-3 DTSBX470
|
||||
00125 VALUE +0. DTSBX470
|
||||
00126 05 WRK-WRITTEN-CNT PIC S9(07) COMP-3 DTSBX470
|
||||
00127 VALUE +0. DTSBX470
|
||||
00128 05 WRK-NO-W-ADDRESS-CNT PIC S9(07) COMP-3 DTSBX470
|
||||
00129 VALUE +0. DTSBX470
|
||||
00130 DTSBX470
|
||||
00131 05 WRK-STATUS-IND PIC X(01). DTSBX470
|
||||
00132 88 WRK-STATUS-ACT-88 VALUE '0'. DTSBX470
|
||||
00133 88 WRK-STATUS-INACT-88 VALUE '1'. DTSBX470
|
||||
00134 DTSBX470
|
||||
00135 05 WRK-ERROR-IND PIC X(01) VALUE 'N'. DTSBX470
|
||||
00136 88 WRK-ERROR-YES-88 VALUE 'Y'. DTSBX470
|
||||
00137 88 WRK-ERROR-NO-88 VALUE 'N'. DTSBX470
|
||||
00138 DTSBX470
|
||||
00139 05 WRK-SELECT-IND PIC X(01). DTSBX470
|
||||
00140 88 WRK-SELECT-YES-88 VALUE 'Y'. DTSBX470
|
||||
00141 88 WRK-SELECT-NO-88 VALUE 'N'. DTSBX470
|
||||
00142 DTSBX470
|
||||
00143 05 WRK-FINAL-SELECT-IND PIC X(01). DTSBX470
|
||||
00144 88 WRK-FINAL-SELECT-YES-88 VALUE 'Y'. DTSBX470
|
||||
00145 88 WRK-FINAL-SELECT-NO-88 VALUE 'N'. DTSBX470
|
||||
00146 DTSBX470
|
||||
00147 05 WRK-NAME-UPD-IND PIC X(01). DTSBX470
|
||||
00148 88 WRK-NAME-UPD-YES-88 VALUE 'Y'. DTSBX470
|
||||
00149 88 WRK-NAME-UPD-NO-88 VALUE 'N'. DTSBX470
|
||||
00150 DTSBX470
|
||||
00151 05 WRK-ADDR-UPD-IND PIC X(01). DTSBX470
|
||||
00152 88 WRK-ADDR-UPD-YES-88 VALUE 'Y'. DTSBX470
|
||||
00153 88 WRK-ADDR-UPD-NO-88 VALUE 'N'. DTSBX470
|
||||
00154 DTSBX470
|
||||
00155 05 WRK-STATUS-UPD-IND PIC X(01). DTSBX470
|
||||
00156 88 WRK-STATUS-UPD-YES-88 VALUE 'Y'. DTSBX470
|
||||
00157 88 WRK-STATUS-UPD-NO-88 VALUE 'N'. DTSBX470
|
||||
00158 DTSBX470
|
||||
00159 05 WRK-EMP-CNT PIC 9(07). DTSBX470
|
||||
00160 05 WRK-EMP-NO PIC 9(06) VALUE ZEROS. DTSBX470
|
||||
00161 DTSBX470
|
||||
00162 05 REC-TYPE PIC X(01). DTSBX470
|
||||
00163 05 WRK-TRACE-IND PIC X(01). DTSBX470
|
||||
00164 DTSBX470
|
||||
00165 DTSBX470
|
||||
00166 01 L001-LINK-AREA. DTSBX470
|
||||
00167 ++INCLUDE DTSIL001 DTSBX470
|
||||
00168 EJECT DTSBX470
|
||||
00169 01 L004-COMM-AREA. DTSBX470
|
||||
00170 ++INCLUDE DTSIL004 DTSBX470
|
||||
00171 EJECT DTSBX470
|
||||
00172 01 L056-COMM-AREA. DTSBX470
|
||||
00173 ++INCLUDE DTSIL056 DTSBX470
|
||||
00174 EJECT DTSBX470
|
||||
00175 01 L910-LINK-AREA. DTSBX470
|
||||
00176 ++INCLUDE DTSIL910 DTSBX470
|
||||
00177 EJECT DTSBX470
|
||||
00178 01 MSKL-REC. DTSBX470
|
||||
00179 ++INCLUDE DTSIMSKL DTSBX470
|
||||
00180 EJECT DTSBX470
|
||||
00181 01 MHDR-REC. DTSBX470
|
||||
00182 ++INCLUDE DTSIMHDR DTSBX470
|
||||
00183 EJECT DTSBX470
|
||||
00184 01 MPRF-REC. DTSBX470
|
||||
00185 ++INCLUDE DTSIMPRF DTSBX470
|
||||
00186 EJECT DTSBX470
|
||||
00187 01 MTAD-REC. DTSBX470
|
||||
00188 ++INCLUDE DTSIMTAD DTSBX470
|
||||
00189 EJECT DTSBX470
|
||||
00190 01 MSOL-REC. DTSBX470
|
||||
00191 ++INCLUDE DTSIMSOL DTSBX470
|
||||
00192 EJECT DTSBX470
|
||||
00193 01 MQTR-REC. DTSBX470
|
||||
00194 ++INCLUDE DTSIMQTR DTSBX470
|
||||
00195 EJECT DTSBX470
|
||||
00196 01 MLOG-REC. DTSBX470
|
||||
00197 ++INCLUDE DTSIMLOG DTSBX470
|
||||
00198 EJECT DTSBX470
|
||||
00199 LINKAGE SECTION. DTSBX470
|
||||
00200 SKIP3 DTSBX470
|
||||
00201 01 PARM-AREA. DTSBX470
|
||||
00202 05 PARM-LENGTH PIC S9(04) COMP. DTSBX470
|
||||
00203 DTSBX470
|
||||
00204 05 PARM-DATA. DTSBX470
|
||||
00205 10 PARM-RUN-TYPE PIC X(06). DTSBX470
|
||||
00206 88 PARM-RUN-TYPE-CONV-88 VALUE ' CONV'. DTSBX470
|
||||
00207 88 PARM-RUN-TYPE-UPDATE-88 VALUE 'UPDATE'. DTSBX470
|
||||
00208 88 PARM-RUN-TYPE-VALID-88 VALUE ' CONV', DTSBX470
|
||||
00209 'UPDATE'. DTSBX470
|
||||
00210 10 FILLER PIC X(01). DTSBX470
|
||||
00211 10 PARM-INTERVAL PIC X(01). DTSBX470
|
||||
00212 88 PARM-INTERVAL-WEEK-88 VALUE 'W'. DTSBX470
|
||||
00213 88 PARM-INTERVAL-MONTH-88 VALUE 'M'. DTSBX470
|
||||
00214 88 PARM-INTERVAL-QTR-88 VALUE 'Q'. DTSBX470
|
||||
00215 88 PARM-INTERVAL-VALID-88 VALUE 'W' 'M' 'Q'. DTSBX470
|
||||
00216 DTSBX470
|
||||
00217 PROCEDURE DIVISION USING PARM-AREA. DTSBX470
|
||||
00218 SKIP2 DTSBX470
|
||||
00219 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBX470
|
||||
00220 IF WRK-ERROR-NO-88 DTSBX470
|
||||
00221 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBX470
|
||||
00222 PERFORM T0000-TERMINATE THRU T0000-EXIT DTSBX470
|
||||
00223 END-IF. DTSBX470
|
||||
00224 DTSBX470
|
||||
00225 GOBACK. DTSBX470
|
||||
00226 EJECT DTSBX470
|
||||
00227 I0000-INITIATE. DTSBX470
|
||||
00228 DISPLAY 'EMPLOYER ADDRESS EXTRACT (OWC) '. DTSBX470
|
||||
00229 DISPLAY SPACE. DTSBX470
|
||||
00230 DTSBX470
|
||||
00231 MOVE 'N' TO WRK-TRACE-IND. DTSBX470
|
||||
00232 DTSBX470
|
||||
00233 PERFORM I1000-EDIT-PARM THRU I1000-EXIT. DTSBX470
|
||||
00234 DTSBX470
|
||||
00235 PERFORM I2000-OPEN-FILES THRU I2000-EXIT. DTSBX470
|
||||
00236 DTSBX470
|
||||
00237 PERFORM I3000-SET-DATES THRU I3000-EXIT. DTSBX470
|
||||
00238 DTSBX470
|
||||
00239 I0000-EXIT. DTSBX470
|
||||
00240 EXIT. DTSBX470
|
||||
00241 DTSBX470
|
||||
00242 I1000-EDIT-PARM. DTSBX470
|
||||
00243 IF NOT PARM-RUN-TYPE-VALID-88 DTSBX470
|
||||
00244 SET WRK-ERROR-YES-88 TO TRUE DTSBX470
|
||||
00245 DISPLAY 'DTSBX470: INVALID RUN TYPE PARM ' DTSBX470
|
||||
00246 PARM-RUN-TYPE DTSBX470
|
||||
00247 GO TO I1000-EXIT DTSBX470
|
||||
00248 ELSE DTSBX470
|
||||
00249 MOVE PARM-RUN-TYPE TO WRK-RUN-TYPE DTSBX470
|
||||
00250 END-IF. DTSBX470
|
||||
00251 DTSBX470
|
||||
00252 IF WRK-RUN-TYPE-UPDATE-88 DTSBX470
|
||||
00253 IF NOT PARM-INTERVAL-VALID-88 DTSBX470
|
||||
00254 SET WRK-ERROR-YES-88 TO TRUE DTSBX470
|
||||
00255 DISPLAY 'DTSBX470: INVALID INTERVAL PARM ' DTSBX470
|
||||
00256 PARM-INTERVAL DTSBX470
|
||||
00257 GO TO I1000-EXIT DTSBX470
|
||||
00258 ELSE DTSBX470
|
||||
00259 MOVE PARM-INTERVAL TO WRK-INTERVAL DTSBX470
|
||||
00260 END-IF DTSBX470
|
||||
00261 END-IF. DTSBX470
|
||||
00262 DTSBX470
|
||||
00263 IF WRK-RUN-TYPE-UPDATE-88 DTSBX470
|
||||
00264 DISPLAY 'BX470 RUN TYPE: UPDATE' DTSBX470
|
||||
00265 ELSE DTSBX470
|
||||
00266 DISPLAY 'BX470 RUN TYPE: CONVERSION' DTSBX470
|
||||
00267 END-IF. DTSBX470
|
||||
00268 DTSBX470
|
||||
00269 IF WRK-RUN-TYPE-UPDATE-88 DTSBX470
|
||||
00270 IF WRK-INTERVAL-WEEK-88 DTSBX470
|
||||
00271 DISPLAY ' INTERVAL: WEEKLY' DTSBX470
|
||||
00272 ELSE DTSBX470
|
||||
00273 IF WRK-INTERVAL-MONTH-88 DTSBX470
|
||||
00274 DISPLAY ' INTERVAL: MONTHLY' DTSBX470
|
||||
00275 ELSE DTSBX470
|
||||
00276 IF WRK-INTERVAL-QTR-88 DTSBX470
|
||||
00277 DISPLAY ' INTERVAL: QUARTERLY' DTSBX470
|
||||
00278 END-IF DTSBX470
|
||||
00279 END-IF DTSBX470
|
||||
00280 END-IF DTSBX470
|
||||
00281 END-IF. DTSBX470
|
||||
00282 DTSBX470
|
||||
00283 I1000-EXIT. DTSBX470
|
||||
00284 EXIT. DTSBX470
|
||||
00285 DTSBX470
|
||||
00286 I2000-OPEN-FILES. DTSBX470
|
||||
00287 MOVE WRK-TRACE-IND TO L910-TRACE-IND. DTSBX470
|
||||
00288 DTSBX470
|
||||
00289 MOVE WRK-MOD-NAME TO L910-MOD-NAME. DTSBX470
|
||||
00290 DTSBX470
|
||||
00291 PERFORM S910-OPEN-READ THRU S910-EXIT. DTSBX470
|
||||
00292 DTSBX470
|
||||
00293 OPEN OUTPUT OWC-FILE. DTSBX470
|
||||
00294 IF NOT BX470-STATUS-OK-88 DTSBX470
|
||||
00295 DISPLAY 'CANNOT OPEN OUTPUT FILE ' BX470-STATUS DTSBX470
|
||||
00296 SET WRK-ERROR-YES-88 TO TRUE DTSBX470
|
||||
00297 END-IF. DTSBX470
|
||||
00298 DTSBX470
|
||||
00299 I2000-EXIT. DTSBX470
|
||||
00300 EXIT. DTSBX470
|
||||
00301 DTSBX470
|
||||
00302 I3000-SET-DATES. DTSBX470
|
||||
00303 MOVE LOW-VALUES TO MSKL-REC. DTSBX470
|
||||
00304 MOVE +0 TO MSKL-EMP-NO. DTSBX470
|
||||
00305 SET MSKL-HDR-88 TO TRUE. DTSBX470
|
||||
00306 DTSBX470
|
||||
00307 PERFORM S910-READ THRU S910-EXIT. DTSBX470
|
||||
00308 IF L910-NO-REC-88 DTSBX470
|
||||
00309 DISPLAY 'DTSBX470: MHDR RECORD IS MISSING' DTSBX470
|
||||
00310 SET WRK-ERROR-YES-88 TO TRUE DTSBX470
|
||||
00311 GO TO I3000-EXIT DTSBX470
|
||||
00312 ELSE DTSBX470
|
||||
00313 MOVE MSKL-REC TO MHDR-REC DTSBX470
|
||||
00314 END-IF. DTSBX470
|
||||
00315 DTSBX470
|
||||
00316 EVALUATE TRUE DTSBX470
|
||||
00317 WHEN WRK-INTERVAL-WEEK-88 DTSBX470
|
||||
00318 MOVE MHDR-CMPL-WEEK-END-DATE TO WRK-CUTOFF-DATE DTSBX470
|
||||
00319 DTSBX470
|
||||
00320 WHEN WRK-INTERVAL-MONTH-88 DTSBX470
|
||||
00321 MOVE MHDR-CMPL-MONTH-END-DATE TO WRK-CUTOFF-DATE DTSBX470
|
||||
00322 DTSBX470
|
||||
00323 WHEN WRK-INTERVAL-QTR-88 DTSBX470
|
||||
00324 MOVE MHDR-CMPL-QTR-END-DATE TO WRK-CUTOFF-DATE DTSBX470
|
||||
00325 DTSBX470
|
||||
00326 END-EVALUATE. DTSBX470
|
||||
00327 DTSBX470
|
||||
00328 MOVE 20051001 TO WRK-CUTOFF-DATE. DTSBX470
|
||||
00329 DISPLAY 'WRK-CUTOFF DATE ' WRK-CUTOFF-DATE. DTSBX470
|
||||
00330 I3000-EXIT. DTSBX470
|
||||
00331 EXIT. DTSBX470
|
||||
00332 DTSBX470
|
||||
00333 P0000-PROCESS. DTSBX470
|
||||
00334 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBX470
|
||||
00335 DTSBX470
|
||||
00336 MOVE +0 TO MSKL-EMP-NO. DTSBX470
|
||||
00337 DTSBX470
|
||||
00338 SET MSKL-PRF-88 TO TRUE. DTSBX470
|
||||
00339 DTSBX470
|
||||
00340 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBX470
|
||||
00341 IF NOT L910-OK-88 DTSBX470
|
||||
00342 DISPLAY 'BAD FIRST READ ' L910-RESULT-IND DTSBX470
|
||||
00343 GO TO P0000-EXIT DTSBX470
|
||||
00344 ELSE DTSBX470
|
||||
00345 PERFORM P1000-SCAN-MPRF THRU P1000-EXIT DTSBX470
|
||||
00346 UNTIL L910-NO-REC-88 DTSBX470
|
||||
00347 END-IF. DTSBX470
|
||||
00348 DTSBX470
|
||||
00349 DTSBX470
|
||||
00350 P0000-EXIT. DTSBX470
|
||||
00351 EXIT. DTSBX470
|
||||
00352 EJECT DTSBX470
|
||||
00353 P1000-SCAN-MPRF. DTSBX470
|
||||
00354 MOVE MSKL-REC TO MPRF-REC. DTSBX470
|
||||
00355 DTSBX470
|
||||
00356 IF MPRF-CLASS-SUB-88 DTSBX470
|
||||
00357 IF WRK-RUN-TYPE-CONV-88 DTSBX470
|
||||
00358 PERFORM P1100-CONVERSION THRU P1100-EXIT DTSBX470
|
||||
00359 ELSE DTSBX470
|
||||
00360 PERFORM P1200-UPDATE THRU P1200-EXIT DTSBX470
|
||||
00361 END-IF DTSBX470
|
||||
00362 END-IF. DTSBX470
|
||||
00363 DTSBX470
|
||||
00364 MOVE MPRF-REC TO MSKL-REC. DTSBX470
|
||||
00365 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBX470
|
||||
00366 DTSBX470
|
||||
00367 P1000-EXIT. DTSBX470
|
||||
00368 EXIT. DTSBX470
|
||||
00369 DTSBX470
|
||||
00370 P1100-CONVERSION. DTSBX470
|
||||
00371 IF MPRF-STATUS-ACT-88 DTSBX470
|
||||
00372 ADD +1 TO WRK-MPRF-READ-CNT DTSBX470
|
||||
00373 PERFORM P2200-FIND-ADDRESS THRU P2200-EXIT DTSBX470
|
||||
00374 PERFORM P3100-WRITE-OUTPUT THRU P3100-EXIT DTSBX470
|
||||
00375 END-IF. DTSBX470
|
||||
00376 DTSBX470
|
||||
00377 P1100-EXIT. DTSBX470
|
||||
00378 EXIT. DTSBX470
|
||||
00379 DTSBX470
|
||||
00380 P1200-UPDATE. DTSBX470
|
||||
00381 ADD +1 TO WRK-MPRF-READ-CNT DTSBX470
|
||||
00382 SET WRK-SELECT-NO-88 TO TRUE. DTSBX470
|
||||
00383 SET WRK-NAME-UPD-NO-88 TO TRUE. DTSBX470
|
||||
00384 SET WRK-ADDR-UPD-NO-88 TO TRUE. DTSBX470
|
||||
00385 SET WRK-STATUS-UPD-NO-88 TO TRUE. DTSBX470
|
||||
00386 DTSBX470
|
||||
00387 PERFORM P2000-CHK-UPDATES THRU P2000-EXIT. DTSBX470
|
||||
00388 IF WRK-SELECT-YES-88 DTSBX470
|
||||
00389 PERFORM P2100-LIABILITY THRU P2100-EXIT DTSBX470
|
||||
00390 PERFORM P2200-FIND-ADDRESS THRU P2200-EXIT DTSBX470
|
||||
00391 PERFORM P3000-FINAL-SELECT THRU P3000-EXIT DTSBX470
|
||||
00392 IF WRK-FINAL-SELECT-YES-88 DTSBX470
|
||||
00393 PERFORM P3100-WRITE-OUTPUT THRU P3100-EXIT DTSBX470
|
||||
00394 END-IF DTSBX470
|
||||
00395 END-IF. DTSBX470
|
||||
00396 DTSBX470
|
||||
00397 P1200-EXIT. DTSBX470
|
||||
00398 EXIT. DTSBX470
|
||||
00399 DTSBX470
|
||||
00400 P2000-CHK-UPDATES. DTSBX470
|
||||
00401 MOVE LOW-VALUES TO MLOG-KEY-AREA. DTSBX470
|
||||
00402 MOVE MPRF-EMP-NO TO MLOG-EMP-NO. DTSBX470
|
||||
00403 SET MLOG-LOG-88 TO TRUE. DTSBX470
|
||||
00404 MOVE MLOG-KEY-AREA TO MSKL-KEY-AREA. DTSBX470
|
||||
00405 DTSBX470
|
||||
00406 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBX470
|
||||
00407 IF L910-OK-88 DTSBX470
|
||||
00408 MOVE MSKL-REC TO MLOG-REC DTSBX470
|
||||
00409 PERFORM DTSBX470
|
||||
00410 UNTIL L910-NO-REC-88 DTSBX470
|
||||
00411 PERFORM P2010-EVALUATE THRU P2010-EXIT DTSBX470
|
||||
00412 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBX470
|
||||
00413 MOVE MSKL-REC TO MLOG-REC DTSBX470
|
||||
00414 END-PERFORM DTSBX470
|
||||
00415 END-IF. DTSBX470
|
||||
00416 DTSBX470
|
||||
00417 P2000-EXIT. DTSBX470
|
||||
00418 EXIT. DTSBX470
|
||||
00419 DTSBX470
|
||||
00420 P2010-EVALUATE. DTSBX470
|
||||
00421 IF ((MLOG-DATA-ELEMENT-NAME = DTSBX470
|
||||
00422 'MPRF-PRIMARY-NAME' OR 'MPRF-ENTITY-NAME') DTSBX470
|
||||
00423 AND MLOG-ESTB-DATE > WRK-CUTOFF-DATE) DTSBX470
|
||||
00424 SET WRK-SELECT-YES-88 TO TRUE DTSBX470
|
||||
00425 SET WRK-NAME-UPD-YES-88 TO TRUE DTSBX470
|
||||
00426 ELSE DTSBX470
|
||||
00427 IF ((MLOG-DE-REC-TYPE = 'MTAD') DTSBX470
|
||||
00428 AND MLOG-ESTB-DATE > WRK-CUTOFF-DATE) DTSBX470
|
||||
00429 SET WRK-SELECT-YES-88 TO TRUE DTSBX470
|
||||
00430 SET WRK-ADDR-UPD-YES-88 TO TRUE DTSBX470
|
||||
00431 ELSE DTSBX470
|
||||
00432 IF ((MLOG-DE-REC-TYPE = 'MSOL') DTSBX470
|
||||
00433 AND MLOG-ESTB-DATE > WRK-CUTOFF-DATE) DTSBX470
|
||||
00434 SET WRK-SELECT-YES-88 TO TRUE DTSBX470
|
||||
00435 END-IF DTSBX470
|
||||
00436 END-IF DTSBX470
|
||||
00437 END-IF. DTSBX470
|
||||
00438 DTSBX470
|
||||
00439 P2010-EXIT. DTSBX470
|
||||
00440 EXIT. DTSBX470
|
||||
00441 DTSBX470
|
||||
00442 P2100-LIABILITY. DTSBX470
|
||||
00443 MOVE ZERO TO WRK-LIAB-ENTER-DATE DTSBX470
|
||||
00444 WRK-INACT-ENTER-DATE DTSBX470
|
||||
00445 WRK-INACT-DATE. DTSBX470
|
||||
00446 DTSBX470
|
||||
00447 MOVE LOW-VALUES TO MSOL-KEY-AREA. DTSBX470
|
||||
00448 MOVE MPRF-EMP-NO TO MSOL-EMP-NO. DTSBX470
|
||||
00449 SET MSOL-SOL-88 TO TRUE. DTSBX470
|
||||
00450 MOVE MSOL-KEY-AREA TO MSKL-KEY-AREA. DTSBX470
|
||||
00451 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBX470
|
||||
00452 PERFORM DTSBX470
|
||||
00453 UNTIL L910-NO-REC-88 DTSBX470
|
||||
00454 MOVE MSKL-REC TO MSOL-REC DTSBX470
|
||||
00455 PERFORM P2110-CHECK-DATES THRU P2110-EXIT DTSBX470
|
||||
00456 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBX470
|
||||
00457 END-PERFORM. DTSBX470
|
||||
00458 DTSBX470
|
||||
00459 IF MPRF-STATUS-ACT-88 DTSBX470
|
||||
00460 IF ((WRK-LIAB-ENTER-DATE > WRK-INACT-ENTER-DATE) DTSBX470
|
||||
00461 AND (WRK-LIAB-ENTER-DATE > WRK-CUTOFF-DATE)) DTSBX470
|
||||
00462 SET WRK-STATUS-UPD-YES-88 TO TRUE DTSBX470
|
||||
00463 END-IF DTSBX470
|
||||
00464 ELSE DTSBX470
|
||||
00465 IF MPRF-STATUS-INACT-88 DTSBX470
|
||||
00466 IF ((WRK-INACT-ENTER-DATE > WRK-LIAB-ENTER-DATE) DTSBX470
|
||||
00467 AND (WRK-INACT-ENTER-DATE > WRK-CUTOFF-DATE)) DTSBX470
|
||||
00468 SET WRK-STATUS-UPD-YES-88 TO TRUE DTSBX470
|
||||
00469 END-IF DTSBX470
|
||||
00470 END-IF DTSBX470
|
||||
00471 END-IF. DTSBX470
|
||||
00472 DTSBX470
|
||||
00473 P2100-EXIT. DTSBX470
|
||||
00474 EXIT. DTSBX470
|
||||
00475 DTSBX470
|
||||
00476 P2110-CHECK-DATES. DTSBX470
|
||||
00477 IF MSOL-INACT-WITHDRAWN-88 DTSBX470
|
||||
00478 NEXT SENTENCE DTSBX470
|
||||
00479 ELSE DTSBX470
|
||||
00480 IF MSOL-INACT-INACTIVE-88 DTSBX470
|
||||
00481 MOVE MSOL-INACT-DATE TO WRK-INACT-DATE DTSBX470
|
||||
00482 MOVE MSOL-INACT-ENTER-DATE TO WRK-INACT-ENTER-DATE DTSBX470
|
||||
00483 ELSE DTSBX470
|
||||
00484 MOVE MSOL-ESTB-DATE TO WRK-LIAB-ENTER-DATE DTSBX470
|
||||
00485 END-IF DTSBX470
|
||||
00486 END-IF. DTSBX470
|
||||
00487 DTSBX470
|
||||
00488 P2110-EXIT. DTSBX470
|
||||
00489 EXIT. DTSBX470
|
||||
00490 DTSBX470
|
||||
00491 P2200-FIND-ADDRESS. DTSBX470
|
||||
00492 MOVE SPACES TO WRK-M-ADDR DTSBX470
|
||||
00493 WRK-W-ADDR. DTSBX470
|
||||
00494 DTSBX470
|
||||
00495 PERFORM P2210-MAILING-ADDR THRU P2210-EXIT. DTSBX470
|
||||
00496 PERFORM P2220-LOCAL-ADDR THRU P2220-EXIT. DTSBX470
|
||||
00497 DTSBX470
|
||||
00498 P2200-EXIT. DTSBX470
|
||||
00499 EXIT. DTSBX470
|
||||
00500 DTSBX470
|
||||
00501 P2210-MAILING-ADDR. DTSBX470
|
||||
00502 MOVE LOW-VALUES TO MTAD-KEY-AREA. DTSBX470
|
||||
00503 MOVE MPRF-EMP-NO TO MTAD-EMP-NO. DTSBX470
|
||||
00504 SET MTAD-TAD-88 TO TRUE. DTSBX470
|
||||
00505 SET MTAD-ID-TAX-MAILING-ADDR-88 TO TRUE. DTSBX470
|
||||
00506 DTSBX470
|
||||
00507 MOVE MTAD-KEY-AREA TO MSKL-KEY-AREA. DTSBX470
|
||||
00508 DTSBX470
|
||||
00509 PERFORM S910-READ THRU S910-EXIT. DTSBX470
|
||||
00510 IF L910-NO-REC-88 DTSBX470
|
||||
00511 GO TO P2210-EXIT DTSBX470
|
||||
00512 ELSE DTSBX470
|
||||
00513 MOVE MSKL-REC TO MTAD-REC DTSBX470
|
||||
00514 END-IF. DTSBX470
|
||||
00515 DTSBX470
|
||||
00516 INSPECT MTAD-ATTN-LINE REPLACING ALL ',' BY SPACE. DTSBX470
|
||||
00517 MOVE MTAD-ATTN-LINE TO WRK-M-ATTN. DTSBX470
|
||||
00518 INSPECT MTAD-DELIV-LINE-1 REPLACING ALL ',' BY SPACE. DTSBX470
|
||||
00519 MOVE MTAD-DELIV-LINE-1 TO WRK-M-DELV1. DTSBX470
|
||||
00520 INSPECT MTAD-DELIV-LINE-2 REPLACING ALL ',' BY SPACE. DTSBX470
|
||||
00521 MOVE MTAD-DELIV-LINE-2 TO WRK-M-DELV2. DTSBX470
|
||||
00522 MOVE MTAD-CITY TO WRK-M-CITY. DTSBX470
|
||||
00523 MOVE MTAD-ST TO WRK-M-STATE. DTSBX470
|
||||
00524 MOVE MTAD-ZIP TO WRK-M-ZIP. DTSBX470
|
||||
00525 DTSBX470
|
||||
00526 P2210-EXIT. DTSBX470
|
||||
00527 EXIT. DTSBX470
|
||||
00528 DTSBX470
|
||||
00529 P2220-LOCAL-ADDR. DTSBX470
|
||||
00530 MOVE LOW-VALUES TO MTAD-KEY-AREA. DTSBX470
|
||||
00531 MOVE MPRF-EMP-NO TO MTAD-EMP-NO. DTSBX470
|
||||
00532 SET MTAD-TAD-88 TO TRUE. DTSBX470
|
||||
00533 SET MTAD-ID-TAX-RECORDS-ADDR-88 TO TRUE. DTSBX470
|
||||
00534 DTSBX470
|
||||
00535 MOVE MTAD-KEY-AREA TO MSKL-KEY-AREA. DTSBX470
|
||||
00536 DTSBX470
|
||||
00537 PERFORM S910-READ THRU S910-EXIT. DTSBX470
|
||||
00538 IF L910-NO-REC-88 DTSBX470
|
||||
00539 ADD +1 TO WRK-NO-W-ADDRESS-CNT DTSBX470
|
||||
00540 MOVE SPACES TO WRK-W-ADDR DTSBX470
|
||||
00541 GO TO P2220-EXIT DTSBX470
|
||||
00542 ELSE DTSBX470
|
||||
00543 MOVE MSKL-REC TO MTAD-REC DTSBX470
|
||||
00544 END-IF. DTSBX470
|
||||
00545 DTSBX470
|
||||
00546 INSPECT MTAD-ATTN-LINE REPLACING ALL ',' BY SPACE. DTSBX470
|
||||
00547 MOVE MTAD-ATTN-LINE TO WRK-W-ATTN. DTSBX470
|
||||
00548 INSPECT MTAD-DELIV-LINE-1 REPLACING ALL ',' BY SPACE. DTSBX470
|
||||
00549 MOVE MTAD-DELIV-LINE-1 TO WRK-W-DELV1. DTSBX470
|
||||
00550 INSPECT MTAD-DELIV-LINE-2 REPLACING ALL ',' BY SPACE. DTSBX470
|
||||
00551 MOVE MTAD-DELIV-LINE-2 TO WRK-W-DELV2. DTSBX470
|
||||
00552 MOVE MTAD-CITY TO WRK-W-CITY. DTSBX470
|
||||
00553 MOVE MTAD-ST TO WRK-W-STATE. DTSBX470
|
||||
00554 MOVE MTAD-ZIP TO WRK-W-ZIP. DTSBX470
|
||||
00555 DTSBX470
|
||||
00556 P2220-EXIT. DTSBX470
|
||||
00557 EXIT. DTSBX470
|
||||
00558 DTSBX470
|
||||
00559 P3000-FINAL-SELECT. DTSBX470
|
||||
00560 SET WRK-FINAL-SELECT-NO-88 TO TRUE. DTSBX470
|
||||
00561 DTSBX470
|
||||
00562 IF WRK-RUN-TYPE-UPDATE-88 DTSBX470
|
||||
00563 IF (WRK-NAME-UPD-YES-88 DTSBX470
|
||||
00564 OR WRK-ADDR-UPD-YES-88 DTSBX470
|
||||
00565 OR WRK-STATUS-UPD-YES-88) DTSBX470
|
||||
00566 SET WRK-FINAL-SELECT-YES-88 TO TRUE DTSBX470
|
||||
00567 ELSE DTSBX470
|
||||
00568 GO TO P3000-EXIT DTSBX470
|
||||
00569 END-IF DTSBX470
|
||||
00570 END-IF. DTSBX470
|
||||
00571 DTSBX470
|
||||
00572 IF MPRF-STATUS-INACT-88 DTSBX470
|
||||
00573 IF NOT WRK-STATUS-UPD-YES-88 DTSBX470
|
||||
00574 SET WRK-FINAL-SELECT-NO-88 TO TRUE DTSBX470
|
||||
00575 GO TO P3000-EXIT DTSBX470
|
||||
00576 END-IF DTSBX470
|
||||
00577 END-IF. DTSBX470
|
||||
00578 DTSBX470
|
||||
00579 P3000-EXIT. DTSBX470
|
||||
00580 EXIT. DTSBX470
|
||||
00581 DTSBX470
|
||||
00582 P3100-WRITE-OUTPUT. DTSBX470
|
||||
00583 DISPLAY SPACE. DTSBX470
|
||||
00584 DISPLAY MPRF-EMP-NO ' ' MPRF-PRIMARY-NAME. DTSBX470
|
||||
00585 DISPLAY ' ' WRK-NAME-UPD-IND ' ' WRK-ADDR-UPD-IND DTSBX470
|
||||
00586 ' ' WRK-STATUS-UPD-IND. DTSBX470
|
||||
00587 DTSBX470
|
||||
00588 MOVE MPRF-EMP-NO TO OWC-EMP-NO. DTSBX470
|
||||
00589 MOVE MPRF-FEIN TO OWC-FEIN. DTSBX470
|
||||
00590 IF MPRF-PRIMARY-IS-ENTITY-88 DTSBX470
|
||||
00591 MOVE MPRF-PRIMARY-NAME TO OWC-ENTITY-NAME DTSBX470
|
||||
00592 MOVE SPACES TO OWC-TRADE-NAME DTSBX470
|
||||
00593 ELSE DTSBX470
|
||||
00594 MOVE MPRF-PRIMARY-NAME TO OWC-TRADE-NAME DTSBX470
|
||||
00595 MOVE MPRF-ENTITY-NAME TO OWC-ENTITY-NAME DTSBX470
|
||||
00596 END-IF. DTSBX470
|
||||
00597 INSPECT OWC-ENTITY-NAME REPLACING ALL ',' BY SPACE. DTSBX470
|
||||
00598 INSPECT OWC-TRADE-NAME REPLACING ALL ',' BY SPACE. DTSBX470
|
||||
00599 DTSBX470
|
||||
00600 MOVE WRK-M-ATTN TO OWC-M-ATTN. DTSBX470
|
||||
00601 MOVE WRK-M-DELV1 TO OWC-M-DELV1. DTSBX470
|
||||
00602 MOVE WRK-M-DELV2 TO OWC-M-DELV2. DTSBX470
|
||||
00603 MOVE WRK-M-CITY TO OWC-M-CITY. DTSBX470
|
||||
00604 MOVE WRK-M-STATE TO OWC-M-STATE. DTSBX470
|
||||
00605 MOVE WRK-M-ZIP TO OWC-M-ZIP. DTSBX470
|
||||
00606 DTSBX470
|
||||
00607 MOVE WRK-W-ATTN TO OWC-W-ATTN. DTSBX470
|
||||
00608 MOVE WRK-W-DELV1 TO OWC-W-DELV1. DTSBX470
|
||||
00609 MOVE WRK-W-DELV2 TO OWC-W-DELV2. DTSBX470
|
||||
00610 MOVE WRK-W-CITY TO OWC-W-CITY. DTSBX470
|
||||
00611 MOVE WRK-W-STATE TO OWC-W-STATE. DTSBX470
|
||||
00612 MOVE WRK-W-ZIP TO OWC-W-ZIP. DTSBX470
|
||||
00613 DTSBX470
|
||||
00614 MOVE MTAD-VOICE-1 TO OWC-VOICE-1. DTSBX470
|
||||
00615 DTSBX470
|
||||
00616 MOVE SPACES TO OWC-INACT-DATE. DTSBX470
|
||||
00617 IF MPRF-STATUS-INACT-88 DTSBX470
|
||||
00618 MOVE WRK-INACT-DATE TO L001-FED-8-DATE-9 DTSBX470
|
||||
00619 PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSBX470
|
||||
00620 IF L001-VALID-DATE DTSBX470
|
||||
00621 MOVE L001-SLASH-8-DATE TO OWC-INACT-DATE DTSBX470
|
||||
00622 END-IF DTSBX470
|
||||
00623 END-IF. DTSBX470
|
||||
00624 DTSBX470
|
||||
00625 ADD +1 TO WRK-WRITTEN-CNT. DTSBX470
|
||||
00626 WRITE OWC-REC1 FROM WRK-OWC-REC. DTSBX470
|
||||
00627 IF NOT BX470-STATUS-OK-88 DTSBX470
|
||||
00628 DISPLAY 'CANNOT WRITE OUTPUT FILE ' BX470-STATUS DTSBX470
|
||||
00629 END-IF. DTSBX470
|
||||
00630 DTSBX470
|
||||
00631 P3100-EXIT. DTSBX470
|
||||
00632 EXIT. DTSBX470
|
||||
00633 DTSBX470
|
||||
00634 T0000-TERMINATE. DTSBX470
|
||||
00635 DISPLAY ' '. DTSBX470
|
||||
00636 DTSBX470
|
||||
00637 DISPLAY '*** DTSBX470 TERMINATION STATISTICS ***'. DTSBX470
|
||||
00638 DTSBX470
|
||||
00639 DISPLAY ' '. DTSBX470
|
||||
00640 DTSBX470
|
||||
00641 DISPLAY 'NUMBER OF MASTER FILE PROFILE RECORDS ENCOUNTERED: 'DTSBX470
|
||||
00642 WRK-MPRF-READ-CNT. DTSBX470
|
||||
00643 DTSBX470
|
||||
00644 DISPLAY 'NUMBER OF RECORDS WRITTEN : 'DTSBX470
|
||||
00645 WRK-WRITTEN-CNT. DTSBX470
|
||||
00646 DTSBX470
|
||||
00647 PERFORM S910-CLOSE THRU S910-EXIT. DTSBX470
|
||||
00648 DTSBX470
|
||||
00649 CLOSE OWC-FILE. DTSBX470
|
||||
00650 DTSBX470
|
||||
00651 T0000-EXIT. DTSBX470
|
||||
00652 EXIT. DTSBX470
|
||||
00653 EJECT DTSBX470
|
||||
00654 S001-FROM-FED-8. DTSBX470
|
||||
00655 SET L001-FROM-FED-8 TO TRUE. DTSBX470
|
||||
00656 GO TO S001-DATE. DTSBX470
|
||||
00657 DTSBX470
|
||||
00658 S001-DATE. DTSBX470
|
||||
00659 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBX470
|
||||
00660 S001-EXIT. DTSBX470
|
||||
00661 EXIT. DTSBX470
|
||||
00662 DTSBX470
|
||||
00663 S004-EDIT-QTR. DTSBX470
|
||||
00664 CALL 'DTSBU004' USING L004-COMM-AREA. DTSBX470
|
||||
00665 DTSBX470
|
||||
00666 S004-EXIT. DTSBX470
|
||||
00667 EXIT. DTSBX470
|
||||
00668 SKIP3 DTSBX470
|
||||
00669 S056-DISP-RATE. DTSBX470
|
||||
00670 CALL 'DTSBU056' USING L056-COMM-AREA. DTSBX470
|
||||
00671 DTSBX470
|
||||
00672 S056-EXIT. DTSBX470
|
||||
00673 EXIT. DTSBX470
|
||||
00674 SKIP3 DTSBX470
|
||||
00675 S910-OPEN-READ. DTSBX470
|
||||
00676 SET L910-OPEN-READ-88 TO TRUE. DTSBX470
|
||||
00677 GO TO S910-MSTR-IO. DTSBX470
|
||||
00678 DTSBX470
|
||||
00679 S910-OPEN-UPDATE-NO-AIX. DTSBX470
|
||||
00680 SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE. DTSBX470
|
||||
00681 GO TO S910-MSTR-IO. DTSBX470
|
||||
00682 DTSBX470
|
||||
00683 S910-READ. DTSBX470
|
||||
00684 SET L910-READ-88 TO TRUE. DTSBX470
|
||||
00685 GO TO S910-MSTR-IO. DTSBX470
|
||||
00686 DTSBX470
|
||||
00687 S910-START-BROWSE. DTSBX470
|
||||
00688 SET L910-START-BROWSE-88 TO TRUE. DTSBX470
|
||||
00689 GO TO S910-MSTR-IO. DTSBX470
|
||||
00690 DTSBX470
|
||||
00691 S910-READ-NEXT. DTSBX470
|
||||
00692 SET L910-READ-NEXT-88 TO TRUE. DTSBX470
|
||||
00693 GO TO S910-MSTR-IO. DTSBX470
|
||||
00694 DTSBX470
|
||||
00695 S910-COUNT. DTSBX470
|
||||
00696 SET L910-COUNT-88 TO TRUE. DTSBX470
|
||||
00697 GO TO S910-MSTR-IO. DTSBX470
|
||||
00698 DTSBX470
|
||||
00699 S910-REWRITE. DTSBX470
|
||||
00700 SET L910-REWRITE-88 TO TRUE. DTSBX470
|
||||
00701 GO TO S910-MSTR-IO. DTSBX470
|
||||
00702 DTSBX470
|
||||
00703 S910-CLOSE. DTSBX470
|
||||
00704 SET L910-CLOSE-88 TO TRUE. DTSBX470
|
||||
00705 GO TO S910-MSTR-IO. DTSBX470
|
||||
00706 DTSBX470
|
||||
00707 S910-MSTR-IO. DTSBX470
|
||||
00708 CALL 'DTSBU910' USING L910-LINK-AREA DTSBX470
|
||||
00709 MSKL-REC. DTSBX470
|
||||
00710 S910-EXIT. DTSBX470
|
||||
00711 EXIT. DTSBX470
|
||||
00712 SKIP3 DTSBX470
|
||||
00713 S999-ABEND. DTSBX470
|
||||
00714 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBX470
|
||||
00715 S999-EXIT. DTSBX470
|
||||
00716 EXIT. DTSBX470
|
||||
Reference in New Issue
Block a user