DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
712
Batch/DTSBX772.cob
Normal file
712
Batch/DTSBX772.cob
Normal file
@ -0,0 +1,712 @@
|
||||
00001 IDENTIFICATION DIVISION. 01/18/11
|
||||
00002 PROGRAM-ID. DTSBX772. DTSBX772
|
||||
00003 AUTHOR. TRW. LV003
|
||||
00004 DATE-WRITTEN. JANUARY 2003. DTSBX772
|
||||
00005 DATE-COMPILED. DTSBX772
|
||||
00006 SKIP3 DTSBX772
|
||||
00007 ***** DTSBX772
|
||||
00008 * DTSBX772
|
||||
00009 * DTSBX772
|
||||
00010 * FUNCTION: BUILD RECONSTRUCTION FILE DATA FOR FILING DTSBX772
|
||||
00011 * ACTIVITIES FOR A SUBJECT QUARTER FOR THE DTSBX772
|
||||
00012 * ETA581 REPORT. DTSBX772
|
||||
00013 * DTSBX772
|
||||
00014 * MODIFICATION LOG: DTSBX772
|
||||
00015 * DTSBX772
|
||||
00016 * 01/02/2003 INITIAL DEVELOPMENT. DTSBX772
|
||||
00017 * REFERENCE: DATA VALIDATION PROGRAMMER: RW1 DTSBX772
|
||||
00018 * DTSBX772
|
||||
00019 * 01/12/2011 CORRECTED RESOLVED COUNT AS CALCULATED IN DTSBX772
|
||||
00020 * T1000-UPDATE-LINK. IT IS THE SUM OF THE DTSBX772
|
||||
00021 * DV SECURED COUNT AND THE RESOLVED COUNT. DTSBX772
|
||||
00022 * IT HAD BEEN SET TO THE SUM OF THE SECURED DTSBX772
|
||||
00023 * COUNT AND THE RESOLVED COUNT - THE SECURED DTSBX772
|
||||
00024 * COUNT IS FOR A DIFFERENT QUARTER. DTSBX772
|
||||
00025 * REFERENCE: DATA VALIDATION PROGRAMMER: GD DTSBX772
|
||||
00026 * DTSBX772
|
||||
00027 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBX772
|
||||
00028 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBX772
|
||||
00029 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBX772
|
||||
00030 * DTSBX772
|
||||
00031 * DTSBX772
|
||||
00032 * DESCRIPTION: DTSBX772
|
||||
00033 * DTSBX772
|
||||
00034 * DTSBX772
|
||||
00035 * INITIATION: DTSBX772
|
||||
00036 * DTSBX772
|
||||
00037 * SET LECM-MST-OPEN-READ-88 TO TRUE. DTSBX772
|
||||
00038 * SET LECM-REF-OPEN-READ-88 TO TRUE. DTSBX772
|
||||
00039 * DTSBX772
|
||||
00040 * EDIT AND DEFAULT PARAMETERS. DTSBX772
|
||||
00041 * DTSBX772
|
||||
00042 * DTSBX772
|
||||
00043 * PROCESSING: DTSBX772
|
||||
00044 * DTSBX772
|
||||
00045 * SEE PRINTED OUTPUTS DESCRIPTION AND LAYOUTS (DTSIX772) DTSBX772
|
||||
00046 * DTSBX772
|
||||
00047 * DTSBX772
|
||||
00048 * TERMINATION: DTSBX772
|
||||
00049 * DTSBX772
|
||||
00050 * DTSBX772
|
||||
00051 * DTSBX772
|
||||
00052 * RECORDS READ: DTSBX772
|
||||
00053 * DTSBX772
|
||||
00054 * MASTER: DTSBX772
|
||||
00055 * DTSBX772
|
||||
00056 * MERD DTSBX772
|
||||
00057 * MSOL DTSBX772
|
||||
00058 * MQTR DTSBX772
|
||||
00059 * DTSBX772
|
||||
00060 * DTSBX772
|
||||
00061 * ALTERNATE INDEX: DTSBX772
|
||||
00062 * DTSBX772
|
||||
00063 * NONE. DTSBX772
|
||||
00064 * DTSBX772
|
||||
00065 * DTSBX772
|
||||
00066 * REFERENCE: DTSBX772
|
||||
00067 * DTSBX772
|
||||
00068 * DTSBX772
|
||||
00069 * DTSBX772
|
||||
00070 * RECORDS UPDATED: DTSBX772
|
||||
00071 * DTSBX772
|
||||
00072 * NONE DTSBX772
|
||||
00073 * DTSBX772
|
||||
00074 * DTSBX772
|
||||
00075 * OUTPUT RECORDS WRITTEN: DTSBX772
|
||||
00076 * DTSBX772
|
||||
00077 * DTSIY772 POPULATION X FILING ACTIVITIES FOR A SUBJECT QUARTERDTSBX772
|
||||
00078 * DTSBX772
|
||||
00079 * DTSBX772
|
||||
00080 * BATCH TRANSACTION COLLECTION RECORDS WRITTEN: DTSBX772
|
||||
00081 * DTSBX772
|
||||
00082 * NONE. DTSBX772
|
||||
00083 * DTSBX772
|
||||
00084 * DTSBX772
|
||||
00085 * MODULES CALLED: DTSBX772
|
||||
00086 * DTSBX772
|
||||
00087 * DTSBU001 DATE EDIT/CONVERSION. DTSBX772
|
||||
00088 * DTSBU004 QUARTER EDIT/CONVERSION. DTSBX772
|
||||
00089 * DTSBU005 ABSOLUTE TIMES CONVERSION. DTSBX772
|
||||
00090 * DTSBU910 MASTER FILE I/O. DTSBX772
|
||||
00091 * DTSBX772
|
||||
00092 ***** DTSBX772
|
||||
00093 SKIP3 DTSBX772
|
||||
00094 ENVIRONMENT DIVISION. DTSBX772
|
||||
00095 DTSBX772
|
||||
00096 INPUT-OUTPUT SECTION. DTSBX772
|
||||
00097 SKIP3 DTSBX772
|
||||
00098 FILE-CONTROL. DTSBX772
|
||||
00099 SELECT REPORT-FILING ASSIGN TO DTSX772 DTSBX772
|
||||
00100 FILE STATUS IS X772-STATUS. DTSBX772
|
||||
00101 EJECT DTSBX772
|
||||
00102 DATA DIVISION. DTSBX772
|
||||
00103 DTSBX772
|
||||
00104 FILE SECTION. DTSBX772
|
||||
00105 SKIP2 DTSBX772
|
||||
00106 FD REPORT-FILING DTSBX772
|
||||
00107 RECORDING MODE IS F DTSBX772
|
||||
00108 LABEL RECORDS ARE STANDARD DTSBX772
|
||||
00109 BLOCK CONTAINS 0 CHARACTERS. DTSBX772
|
||||
00110 DTSBX772
|
||||
00111 01 REPORT-FILING-REC PIC X(124). DTSBX772
|
||||
00112 DTSBX772
|
||||
00113 WORKING-STORAGE SECTION. DTSBX772
|
||||
001135 77 PAN-VALET PICTURE X(24) VALUE '003DTSBX772 01/18/11'. DTSBX772
|
||||
00114 DTSBX772
|
||||
00115 01 WRK-AREA. DTSBX772
|
||||
00116 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +772. DTSBX772
|
||||
00117 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBX772'. DTSBX772
|
||||
00118 05 ABEND-MSG PIC X(60). DTSBX772
|
||||
00119 DTSBX772
|
||||
00120 05 X772-STATUS PIC X(02) VALUE SPACES. DTSBX772
|
||||
00121 88 X772-FILE-OK-88 VALUE ZERO. DTSBX772
|
||||
00122 DTSBX772
|
||||
00123 05 WRK-REC-AREA PIC X(124) VALUE SPACES. DTSBX772
|
||||
00124 05 WRK-LEN PIC S9(04) COMP VALUE +124. DTSBX772
|
||||
00125 DTSBX772
|
||||
00126 05 WRK-EMP-CLASS-AREA. DTSBX772
|
||||
00127 10 WRK-DV-EMP-CLASS PIC X(01). DTSBX772
|
||||
00128 88 WRK-DV-EMP-CLASS-CONTRIB-88 VALUE 'C'. DTSBX772
|
||||
00129 88 WRK-DV-EMP-CLASS-REIMB-88 VALUE 'R'. DTSBX772
|
||||
00130 10 FILLER PIC X(01) VALUE '-'. DTSBX772
|
||||
00131 10 WRK-MPRF-EMP-CLASS PIC X(22). DTSBX772
|
||||
00132 88 WRK-MPRF-EMP-CLASS-CONTRIB-88 VALUE DTSBX772
|
||||
00133 'RATED'. DTSBX772
|
||||
00134 88 WRK-MPRF-EMP-CLASS-REIMB-88 VALUE DTSBX772
|
||||
00135 'SELF INSURED'. DTSBX772
|
||||
00136 05 WRK-EMP-CLASS REDEFINES WRK-EMP-CLASS-AREA DTSBX772
|
||||
00137 PIC X(24). DTSBX772
|
||||
00138 DTSBX772
|
||||
00139 05 WRK-RPT-QTR-AREA. DTSBX772
|
||||
00140 10 WRK-RPT-QTR-YR PIC X(04). DTSBX772
|
||||
00141 10 WRK-RPT-QTR-SLASH PIC X(01). DTSBX772
|
||||
00142 10 WRK-RPT-QTR-Q PIC X(01). DTSBX772
|
||||
00143 05 WRK-RPT-QTR-9 REDEFINES WRK-RPT-QTR-AREA PIC 9(06). DTSBX772
|
||||
00144 DTSBX772
|
||||
00145 05 WRK-OBS-NBR PIC S9(07) COMP-3 VALUE +0. DTSBX772
|
||||
00146 DTSBX772
|
||||
00147 05 WRK-CON-TIMELY-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX772
|
||||
00148 05 WRK-CON-SECURED-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX772
|
||||
00149 05 WRK-CON-RESOLVED-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX772
|
||||
00150 05 WRK-REIMB-TIMELY-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX772
|
||||
00151 05 WRK-REIMB-SECURED-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX772
|
||||
00152 05 WRK-REIMB-RESOLVED-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX772
|
||||
00153 05 WRK-OUTSTANDING-QTR-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX772
|
||||
00154 DTSBX772
|
||||
00155 05 WRK-581-SECURED-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX772
|
||||
00156 DTSBX772
|
||||
00157 05 WRK-DV-CON-TIMELY-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX772
|
||||
00158 05 WRK-DV-CON-SECURED-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX772
|
||||
00159 05 WRK-DV-REIMB-TIMELY-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX772
|
||||
00160 05 WRK-DV-REIMB-SECURED-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX772
|
||||
00161 05 WRK-CNT1 PIC S9(07) COMP-3 VALUE +0. DTSBX772
|
||||
00162 05 WRK-CNT2 PIC S9(07) COMP-3 VALUE +0. DTSBX772
|
||||
00163 05 WRK-CNT3 PIC S9(07) COMP-3 VALUE +0. DTSBX772
|
||||
00164 DTSBX772
|
||||
00165 05 WRK-FILLER1 PIC X(26) VALUE SPACES. DTSBX772
|
||||
00166 05 WRK-FILLER2 PIC X(36) VALUE SPACES. DTSBX772
|
||||
00167 05 WRK-FILLER3 PIC X(46) VALUE SPACES. DTSBX772
|
||||
00168 DTSBX772
|
||||
00169 05 WRK-RECS-WRITTEN-CNT PIC S9(07) COMP-3 DTSBX772
|
||||
00170 VALUE +0. DTSBX772
|
||||
00171 05 DISPLAY-CNT PIC Z(06)9. DTSBX772
|
||||
00172 DTSBX772
|
||||
00173 05 DISPLAY-AMT-X PIC X(15). DTSBX772
|
||||
00174 05 DISPLAY-AMT REDEFINES DISPLAY-AMT-X DTSBX772
|
||||
00175 PIC ZZZ,ZZZ,ZZ9.99-. DTSBX772
|
||||
00176 EJECT DTSBX772
|
||||
00177 01 L001-LINK-AREA. DTSBX772
|
||||
00178 ++INCLUDE DTSIL001 DTSBX772
|
||||
00179 EJECT DTSBX772
|
||||
00180 01 L004-LINK-AREA. DTSBX772
|
||||
00181 ++INCLUDE DTSIL004 DTSBX772
|
||||
00182 EJECT DTSBX772
|
||||
00183 01 L005-LINK-AREA. DTSBX772
|
||||
00184 ++INCLUDE DTSIL005 DTSBX772
|
||||
00185 EJECT DTSBX772
|
||||
00186 01 Y772-REC. DTSBX772
|
||||
00187 ++INCLUDE DTSIY772 DTSBX772
|
||||
00188 EJECT DTSBX772
|
||||
00189 01 X772-REC. DTSBX772
|
||||
00190 ++INCLUDE DTSIX772 DTSBX772
|
||||
00191 EJECT DTSBX772
|
||||
00192 LINKAGE SECTION. DTSBX772
|
||||
00193 SKIP3 DTSBX772
|
||||
00194 01 XL772-LINK-AREA. DTSBX772
|
||||
00195 ++INCLUDE DTSXL772 DTSBX772
|
||||
00196 SKIP3 DTSBX772
|
||||
00197 01 X770-PARM-REC. DTSBX772
|
||||
00198 ++INCLUDE DTSIX770 DTSBX772
|
||||
00199 SKIP3 DTSBX772
|
||||
00200 01 RSKL-REC. DTSBX772
|
||||
00201 ++INCLUDE DTSIRSK1 DTSBX772
|
||||
00202 EJECT DTSBX772
|
||||
00203 PROCEDURE DIVISION USING XL772-LINK-AREA DTSBX772
|
||||
00204 X770-PARM-REC DTSBX772
|
||||
00205 RSKL-REC. DTSBX772
|
||||
00206 DTSBX772
|
||||
00207 IF XL772-CMD-PROCESS-88 DTSBX772
|
||||
00208 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBX772
|
||||
00209 ELSE DTSBX772
|
||||
00210 IF XL772-CMD-INIT-88 DTSBX772
|
||||
00211 PERFORM I0000-INITIALIZE THRU I0000-EXIT DTSBX772
|
||||
00212 ELSE DTSBX772
|
||||
00213 IF XL772-CMD-TERMINATE-88 DTSBX772
|
||||
00214 PERFORM T0000-TERMINATE THRU T0000-EXIT DTSBX772
|
||||
00215 ELSE DTSBX772
|
||||
00216 MOVE 'INVALID L770-CALL-TYPE-IND ENCOUNTERED' DTSBX772
|
||||
00217 TO ABEND-MSG DTSBX772
|
||||
00218 PERFORM S999-ABEND THRU S999-EXIT. DTSBX772
|
||||
00219 SKIP2 DTSBX772
|
||||
00220 GOBACK. DTSBX772
|
||||
00221 EJECT DTSBX772
|
||||
00222 I0000-INITIALIZE. DTSBX772
|
||||
00223 DTSBX772
|
||||
00224 OPEN OUTPUT REPORT-FILING. DTSBX772
|
||||
00225 DTSBX772
|
||||
00226 IF NOT X772-FILE-OK-88 DTSBX772
|
||||
00227 DISPLAY 'FILE STATUS IS : ' X772-STATUS DTSBX772
|
||||
00228 MOVE 'CANNOT OPEN OUTPUT FILE ' TO ABEND-MSG DTSBX772
|
||||
00229 PERFORM S999-ABEND THRU S999-EXIT. DTSBX772
|
||||
00230 DTSBX772
|
||||
00231 MOVE +0 TO XL772-CON-TIMELY-CNT DTSBX772
|
||||
00232 XL772-CON-SECURED-CNT DTSBX772
|
||||
00233 XL772-CON-RESOLVED-CNT DTSBX772
|
||||
00234 XL772-REIMB-TIMELY-CNT DTSBX772
|
||||
00235 XL772-REIMB-SECURED-CNT DTSBX772
|
||||
00236 XL772-REIMB-RESOLVED-CNT DTSBX772
|
||||
00237 XL772-OUTSTANDING-QTR-CNT. DTSBX772
|
||||
00238 DTSBX772
|
||||
00239 DISPLAY 'X770 QTR1 ' X770-QTR1 ' X770 DUE ' DTSBX772
|
||||
00240 X770-QTR1-DUE-DATE. DTSBX772
|
||||
00241 DISPLAY 'X770 QTR2 ' X770-QTR2 ' X770 DUE ' DTSBX772
|
||||
00242 X770-QTR2-DUE-DATE. DTSBX772
|
||||
00243 I0000-EXIT. DTSBX772
|
||||
00244 EXIT. DTSBX772
|
||||
00245 EJECT DTSBX772
|
||||
00246 P0000-PROCESS. DTSBX772
|
||||
00247 DTSBX772
|
||||
00248 MOVE RSKL-REC TO Y772-REC. DTSBX772
|
||||
00249 DTSBX772
|
||||
00250 IF Y772-RPT-581-ONLY-88 DTSBX772
|
||||
00251 ADD +1 TO WRK-581-SECURED-CNT DTSBX772
|
||||
00252 PERFORM P2100-SECURED THRU P2100-EXIT DTSBX772
|
||||
00253 ELSE DTSBX772
|
||||
00254 PERFORM P1000-WRITE-OUTPUT THRU P1000-EXIT DTSBX772
|
||||
00255 END-IF. DTSBX772
|
||||
00256 DTSBX772
|
||||
00257 P0000-EXIT. DTSBX772
|
||||
00258 EXIT. DTSBX772
|
||||
00259 DTSBX772
|
||||
00260 P1000-WRITE-OUTPUT. DTSBX772
|
||||
00261 DTSBX772
|
||||
00262 INITIALIZE X772-REC. DTSBX772
|
||||
00263 DTSBX772
|
||||
00264 EVALUATE TRUE DTSBX772
|
||||
00265 WHEN Y772-CLASS-RATED-88 DTSBX772
|
||||
00266 SET WRK-DV-EMP-CLASS-CONTRIB-88 TO TRUE DTSBX772
|
||||
00267 SET WRK-MPRF-EMP-CLASS-CONTRIB-88 TO TRUE DTSBX772
|
||||
00268 MOVE WRK-EMP-CLASS TO X772-EMP-TYPE DTSBX772
|
||||
00269 DTSBX772
|
||||
00270 WHEN Y772-CLASS-SELF-INS-88 DTSBX772
|
||||
00271 SET WRK-DV-EMP-CLASS-REIMB-88 TO TRUE DTSBX772
|
||||
00272 SET WRK-MPRF-EMP-CLASS-REIMB-88 TO TRUE DTSBX772
|
||||
00273 MOVE WRK-EMP-CLASS TO X772-EMP-TYPE DTSBX772
|
||||
00274 DTSBX772
|
||||
00275 END-EVALUATE. DTSBX772
|
||||
00276 DTSBX772
|
||||
00277 ADD +1 TO WRK-OBS-NBR. DTSBX772
|
||||
00278 DTSBX772
|
||||
00279 MOVE WRK-OBS-NBR TO X772-OBS-NBR. DTSBX772
|
||||
00280 MOVE Y772-EMP-NO TO X772-EMP-NO. DTSBX772
|
||||
00281 DTSBX772
|
||||
00282 MOVE Y772-RPT-YRQ TO L004-QTR-5-9. DTSBX772
|
||||
00283 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBX772
|
||||
00284 MOVE L004-SLASH-5-QTR TO WRK-RPT-QTR-AREA. DTSBX772
|
||||
00285 MOVE '0' TO WRK-RPT-QTR-SLASH. DTSBX772
|
||||
00286 MOVE WRK-RPT-QTR-9 TO X772-RPT-QTR. DTSBX772
|
||||
00287 DTSBX772
|
||||
00288 MOVE SPACES TO X772-SUSPEND-QTR. DTSBX772
|
||||
00289 DTSBX772
|
||||
00290 IF Y772-RECEIVED-DATE > ZERO DTSBX772
|
||||
00291 MOVE Y772-RECEIVED-DATE TO L001-FED-8-DATE-9 DTSBX772
|
||||
00292 PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSBX772
|
||||
00293 MOVE L001-SLASH-8-DATE TO X772-RECVD-DATE DTSBX772
|
||||
00294 ELSE DTSBX772
|
||||
00295 MOVE SPACES TO X772-RECVD-DATE. DTSBX772
|
||||
00296 DTSBX772
|
||||
00297 IF Y772-FINAL-ASSESS-DATE > ZERO DTSBX772
|
||||
00298 MOVE Y772-FINAL-ASSESS-DATE TO L001-FED-8-DATE-9 DTSBX772
|
||||
00299 PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSBX772
|
||||
00300 MOVE L001-SLASH-8-DATE TO X772-FINAL-ASSESS-DATE DTSBX772
|
||||
00301 ELSE DTSBX772
|
||||
00302 MOVE SPACES TO X772-FINAL-ASSESS-DATE. DTSBX772
|
||||
00303 DTSBX772
|
||||
00304 IF Y772-LIAB-DATE > ZERO DTSBX772
|
||||
00305 MOVE Y772-LIAB-DATE TO L001-FED-8-DATE-9 DTSBX772
|
||||
00306 PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSBX772
|
||||
00307 MOVE L001-SLASH-8-DATE TO X772-LIAB-DATE DTSBX772
|
||||
00308 X772-LIAB-ESTB-DATE DTSBX772
|
||||
00309 ELSE DTSBX772
|
||||
00310 MOVE SPACES TO X772-LIAB-DATE DTSBX772
|
||||
00311 X772-LIAB-ESTB-DATE. DTSBX772
|
||||
00312 DTSBX772
|
||||
00313 IF Y772-INACTIVE-DATE > ZERO DTSBX772
|
||||
00314 MOVE Y772-INACTIVE-DATE TO L001-FED-8-DATE-9 DTSBX772
|
||||
00315 PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSBX772
|
||||
00316 MOVE L001-SLASH-8-DATE TO X772-INACTIVE-DATE DTSBX772
|
||||
00317 ELSE DTSBX772
|
||||
00318 MOVE SPACES TO X772-INACTIVE-DATE. DTSBX772
|
||||
00319 DTSBX772
|
||||
00320 IF Y772-INACT-PROCESS-DATE > ZERO DTSBX772
|
||||
00321 MOVE Y772-INACT-PROCESS-DATE TO L001-FED-8-DATE-9 DTSBX772
|
||||
00322 PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSBX772
|
||||
00323 MOVE L001-SLASH-8-DATE TO X772-INACT-PROCESS-DATE DTSBX772
|
||||
00324 ELSE DTSBX772
|
||||
00325 MOVE SPACES TO X772-INACT-PROCESS-DATE. DTSBX772
|
||||
00326 DTSBX772
|
||||
00327 EVALUATE TRUE DTSBX772
|
||||
00328 WHEN Y772-RPT-RCVD-88 DTSBX772
|
||||
00329 PERFORM P1100-WRITE-RCVD-REC THRU P1100-EXIT DTSBX772
|
||||
00330 DTSBX772
|
||||
00331 WHEN Y772-RPT-ESTIM-88 DTSBX772
|
||||
00332 PERFORM P1200-WRITE-ESTIM-REC THRU P1200-EXIT DTSBX772
|
||||
00333 DTSBX772
|
||||
00334 WHEN Y772-RPT-LIAB-88 DTSBX772
|
||||
00335 PERFORM P1300-WRITE-LIAB-REC THRU P1300-EXIT DTSBX772
|
||||
00336 DTSBX772
|
||||
00337 WHEN OTHER DTSBX772
|
||||
00338 PERFORM P1400-WRITE-INAC-WD-REC THRU P1400-EXIT DTSBX772
|
||||
00339 DTSBX772
|
||||
00340 END-EVALUATE. DTSBX772
|
||||
00341 PERFORM P2000-XL772-LINK-CNT THRU P2000-EXIT. DTSBX772
|
||||
00342 DTSBX772
|
||||
00343 P1000-EXIT. DTSBX772
|
||||
00344 EXIT. DTSBX772
|
||||
00345 DTSBX772
|
||||
00346 P1100-WRITE-RCVD-REC. DTSBX772
|
||||
00347 MOVE SPACES TO WRK-REC-AREA. DTSBX772
|
||||
00348 DTSBX772
|
||||
00349 STRING DTSBX772
|
||||
00350 X772-OBS-NBR ',' DTSBX772
|
||||
00351 X772-EMP-NO ',' DTSBX772
|
||||
00352 X772-RPT-QTR ',' DTSBX772
|
||||
00353 X772-EMP-TYPE ',' DTSBX772
|
||||
00354 X772-RECVD-DATE ',' ',' DTSBX772
|
||||
00355 X772-LIAB-DATE ',' DTSBX772
|
||||
00356 X772-LIAB-ESTB-DATE ',' ',' ',' ',' DTSBX772
|
||||
00357 WRK-FILLER2 DTSBX772
|
||||
00358 DELIMITED BY SIZE DTSBX772
|
||||
00359 INTO WRK-REC-AREA DTSBX772
|
||||
00360 DTSBX772
|
||||
00361 END-STRING. DTSBX772
|
||||
00362 DTSBX772
|
||||
00363 MOVE WRK-REC-AREA (1:WRK-LEN) TO DTSBX772
|
||||
00364 REPORT-FILING-REC (1:WRK-LEN). DTSBX772
|
||||
00365 DTSBX772
|
||||
00366 WRITE REPORT-FILING-REC. DTSBX772
|
||||
00367 DTSBX772
|
||||
00368 IF NOT X772-FILE-OK-88 DTSBX772
|
||||
00369 DISPLAY 'FILE STATUS IS : ' X772-STATUS DTSBX772
|
||||
00370 MOVE 'WRITE OUTPUT RECORD ERROR ' TO ABEND-MSG DTSBX772
|
||||
00371 PERFORM S999-ABEND THRU S999-EXIT DTSBX772
|
||||
00372 ELSE DTSBX772
|
||||
00373 ADD +1 TO WRK-RECS-WRITTEN-CNT. DTSBX772
|
||||
00374 DTSBX772
|
||||
00375 P1100-EXIT. DTSBX772
|
||||
00376 EXIT. DTSBX772
|
||||
00377 DTSBX772
|
||||
00378 P1200-WRITE-ESTIM-REC. DTSBX772
|
||||
00379 MOVE SPACES TO WRK-REC-AREA. DTSBX772
|
||||
00380 DTSBX772
|
||||
00381 STRING DTSBX772
|
||||
00382 X772-OBS-NBR ',' DTSBX772
|
||||
00383 X772-EMP-NO ',' DTSBX772
|
||||
00384 X772-RPT-QTR ',' DTSBX772
|
||||
00385 X772-EMP-TYPE ',' ',' DTSBX772
|
||||
00386 X772-FINAL-ASSESS-DATE ',' DTSBX772
|
||||
00387 X772-LIAB-DATE ',' DTSBX772
|
||||
00388 X772-LIAB-ESTB-DATE ',' ',' ',' ',' DTSBX772
|
||||
00389 WRK-FILLER2 DTSBX772
|
||||
00390 DELIMITED BY SIZE DTSBX772
|
||||
00391 INTO WRK-REC-AREA DTSBX772
|
||||
00392 DTSBX772
|
||||
00393 END-STRING. DTSBX772
|
||||
00394 DTSBX772
|
||||
00395 MOVE WRK-REC-AREA (1:WRK-LEN) TO DTSBX772
|
||||
00396 REPORT-FILING-REC (1:WRK-LEN). DTSBX772
|
||||
00397 DTSBX772
|
||||
00398 WRITE REPORT-FILING-REC. DTSBX772
|
||||
00399 DTSBX772
|
||||
00400 IF NOT X772-FILE-OK-88 DTSBX772
|
||||
00401 DISPLAY 'FILE STATUS IS : ' X772-STATUS DTSBX772
|
||||
00402 MOVE 'WRITE OUTPUT RECORD ERROR ' TO ABEND-MSG DTSBX772
|
||||
00403 PERFORM S999-ABEND THRU S999-EXIT DTSBX772
|
||||
00404 ELSE DTSBX772
|
||||
00405 ADD +1 TO WRK-RECS-WRITTEN-CNT. DTSBX772
|
||||
00406 DTSBX772
|
||||
00407 P1200-EXIT. DTSBX772
|
||||
00408 EXIT. DTSBX772
|
||||
00409 DTSBX772
|
||||
00410 P1300-WRITE-LIAB-REC. DTSBX772
|
||||
00411 MOVE SPACES TO WRK-REC-AREA. DTSBX772
|
||||
00412 DTSBX772
|
||||
00413 STRING DTSBX772
|
||||
00414 X772-OBS-NBR ',' DTSBX772
|
||||
00415 X772-EMP-NO ',' DTSBX772
|
||||
00416 X772-RPT-QTR ',' DTSBX772
|
||||
00417 X772-EMP-TYPE ',' ',' ',' DTSBX772
|
||||
00418 X772-LIAB-DATE ',' DTSBX772
|
||||
00419 X772-LIAB-ESTB-DATE ',' ',' ',' ',' DTSBX772
|
||||
00420 WRK-FILLER3 DTSBX772
|
||||
00421 DELIMITED BY SIZE DTSBX772
|
||||
00422 INTO WRK-REC-AREA DTSBX772
|
||||
00423 DTSBX772
|
||||
00424 END-STRING. DTSBX772
|
||||
00425 DTSBX772
|
||||
00426 MOVE WRK-REC-AREA (1:WRK-LEN) TO DTSBX772
|
||||
00427 REPORT-FILING-REC (1:WRK-LEN). DTSBX772
|
||||
00428 DTSBX772
|
||||
00429 WRITE REPORT-FILING-REC. DTSBX772
|
||||
00430 DTSBX772
|
||||
00431 IF NOT X772-FILE-OK-88 DTSBX772
|
||||
00432 DISPLAY 'FILE STATUS IS : ' X772-STATUS DTSBX772
|
||||
00433 MOVE 'WRITE OUTPUT RECORD ERROR ' TO ABEND-MSG DTSBX772
|
||||
00434 PERFORM S999-ABEND THRU S999-EXIT DTSBX772
|
||||
00435 ELSE DTSBX772
|
||||
00436 ADD +1 TO WRK-RECS-WRITTEN-CNT. DTSBX772
|
||||
00437 DTSBX772
|
||||
00438 P1300-EXIT. DTSBX772
|
||||
00439 EXIT. DTSBX772
|
||||
00440 DTSBX772
|
||||
00441 P1400-WRITE-INAC-WD-REC. DTSBX772
|
||||
00442 MOVE SPACES TO WRK-REC-AREA. DTSBX772
|
||||
00443 DTSBX772
|
||||
00444 STRING DTSBX772
|
||||
00445 X772-OBS-NBR ',' DTSBX772
|
||||
00446 X772-EMP-NO ',' DTSBX772
|
||||
00447 X772-RPT-QTR ',' DTSBX772
|
||||
00448 X772-EMP-TYPE ',' ',' ',' DTSBX772
|
||||
00449 X772-LIAB-DATE ',' DTSBX772
|
||||
00450 X772-LIAB-ESTB-DATE ',' DTSBX772
|
||||
00451 X772-INACTIVE-DATE ',' ',' DTSBX772
|
||||
00452 X772-INACT-PROCESS-DATE ',' DTSBX772
|
||||
00453 WRK-FILLER1 DTSBX772
|
||||
00454 DELIMITED BY SIZE DTSBX772
|
||||
00455 INTO WRK-REC-AREA DTSBX772
|
||||
00456 DTSBX772
|
||||
00457 END-STRING. DTSBX772
|
||||
00458 DTSBX772
|
||||
00459 MOVE WRK-REC-AREA (1:WRK-LEN) TO DTSBX772
|
||||
00460 REPORT-FILING-REC (1:WRK-LEN). DTSBX772
|
||||
00461 DTSBX772
|
||||
00462 WRITE REPORT-FILING-REC. DTSBX772
|
||||
00463 DTSBX772
|
||||
00464 IF NOT X772-FILE-OK-88 DTSBX772
|
||||
00465 DISPLAY 'FILE STATUS IS : ' X772-STATUS DTSBX772
|
||||
00466 MOVE 'WRITE OUTPUT RECORD ERROR ' TO ABEND-MSG DTSBX772
|
||||
00467 PERFORM S999-ABEND THRU S999-EXIT DTSBX772
|
||||
00468 ELSE DTSBX772
|
||||
00469 ADD +1 TO WRK-RECS-WRITTEN-CNT. DTSBX772
|
||||
00470 DTSBX772
|
||||
00471 P1400-EXIT. DTSBX772
|
||||
00472 EXIT. DTSBX772
|
||||
00473 DTSBX772
|
||||
00474 P2000-XL772-LINK-CNT. DTSBX772
|
||||
00475 EVALUATE TRUE DTSBX772
|
||||
00476 WHEN Y772-RPT-RESOLVED-88 DTSBX772
|
||||
00477 IF Y772-CLASS-RATED-88 DTSBX772
|
||||
00478 ADD +1 TO WRK-CON-RESOLVED-CNT DTSBX772
|
||||
00479 ADD +1 TO WRK-CNT1 DTSBX772
|
||||
00480 ELSE DTSBX772
|
||||
00481 ADD +1 TO WRK-REIMB-RESOLVED-CNT DTSBX772
|
||||
00482 END-IF DTSBX772
|
||||
00483 DTSBX772
|
||||
00484 WHEN Y772-RPT-RCVD-88 DTSBX772
|
||||
00485 IF Y772-CLASS-RATED-88 DTSBX772
|
||||
00486 ADD +1 TO WRK-CNT2 DTSBX772
|
||||
00487 END-IF DTSBX772
|
||||
00488 IF Y772-RECEIVED-DATE > X770-QTR1-END DTSBX772
|
||||
00489 PERFORM P2200-RESOLVED THRU P2200-EXIT DTSBX772
|
||||
00490 ELSE DTSBX772
|
||||
00491 PERFORM P2300-DV-SECURED THRU P2300-EXIT DTSBX772
|
||||
00492 END-IF DTSBX772
|
||||
00493 DTSBX772
|
||||
00494 END-EVALUATE. DTSBX772
|
||||
00495 DTSBX772
|
||||
00496 DTSBX772
|
||||
00497 P2000-EXIT. DTSBX772
|
||||
00498 EXIT. DTSBX772
|
||||
00499 DTSBX772
|
||||
00500 P2100-SECURED. DTSBX772
|
||||
00501 IF Y772-CLASS-RATED-88 DTSBX772
|
||||
00502 ADD +1 TO WRK-CON-SECURED-CNT DTSBX772
|
||||
00503 IF Y772-RECEIVED-DATE <= X770-QTR1-DUE-DATE DTSBX772
|
||||
00504 ADD +1 TO WRK-CON-TIMELY-CNT DTSBX772
|
||||
00505 END-IF DTSBX772
|
||||
00506 ELSE DTSBX772
|
||||
00507 ADD +1 TO WRK-REIMB-SECURED-CNT DTSBX772
|
||||
00508 IF Y772-RECEIVED-DATE <= X770-QTR1-DUE-DATE DTSBX772
|
||||
00509 ADD +1 TO WRK-REIMB-TIMELY-CNT DTSBX772
|
||||
00510 END-IF DTSBX772
|
||||
00511 END-IF. DTSBX772
|
||||
00512 DTSBX772
|
||||
00513 P2100-EXIT. DTSBX772
|
||||
00514 EXIT. DTSBX772
|
||||
00515 DTSBX772
|
||||
00516 P2200-RESOLVED. DTSBX772
|
||||
00517 IF Y772-CLASS-RATED-88 DTSBX772
|
||||
00518 ADD +1 TO WRK-CON-RESOLVED-CNT DTSBX772
|
||||
00519 ADD +1 TO WRK-CNT3 DTSBX772
|
||||
00520 ELSE DTSBX772
|
||||
00521 ADD +1 TO WRK-REIMB-RESOLVED-CNT DTSBX772
|
||||
00522 END-IF. DTSBX772
|
||||
00523 DTSBX772
|
||||
00524 P2200-EXIT. DTSBX772
|
||||
00525 EXIT. DTSBX772
|
||||
00526 DTSBX772
|
||||
00527 P2300-DV-SECURED. DTSBX772
|
||||
00528 IF Y772-CLASS-RATED-88 DTSBX772
|
||||
00529 ADD +1 TO WRK-DV-CON-SECURED-CNT DTSBX772
|
||||
00530 IF Y772-RECEIVED-DATE <= X770-QTR2-DUE-DATE DTSBX772
|
||||
00531 ADD +1 TO WRK-DV-CON-TIMELY-CNT DTSBX772
|
||||
00532 END-IF DTSBX772
|
||||
00533 ELSE DTSBX772
|
||||
00534 ADD +1 TO WRK-DV-REIMB-SECURED-CNT DTSBX772
|
||||
00535 IF Y772-RECEIVED-DATE <= X770-QTR2-DUE-DATE DTSBX772
|
||||
00536 ADD +1 TO WRK-DV-REIMB-TIMELY-CNT DTSBX772
|
||||
00537 END-IF DTSBX772
|
||||
00538 END-IF. DTSBX772
|
||||
00539 DTSBX772
|
||||
00540 P2300-EXIT. DTSBX772
|
||||
00541 EXIT. DTSBX772
|
||||
00542 DTSBX772
|
||||
00543 T0000-TERMINATE. DTSBX772
|
||||
00544 DTSBX772
|
||||
00545 PERFORM T1000-UPDATE-LINK THRU T1000-EXIT. DTSBX772
|
||||
00546 DTSBX772
|
||||
00547 DISPLAY ' '. DTSBX772
|
||||
00548 DTSBX772
|
||||
00549 DISPLAY '*** DTSBX772 TERMINATION STATISTICS ***'. DTSBX772
|
||||
00550 DTSBX772
|
||||
00551 DISPLAY ' '. DTSBX772
|
||||
00552 MOVE WRK-RECS-WRITTEN-CNT TO DISPLAY-CNT. DTSBX772
|
||||
00553 DISPLAY 'RECONSTRUCTION FILE RECORDS WRITTEN : ' DTSBX772
|
||||
00554 DISPLAY-CNT. DTSBX772
|
||||
00555 DTSBX772
|
||||
00556 DISPLAY ' '. DTSBX772
|
||||
00557 MOVE WRK-CON-TIMELY-CNT TO DISPLAY-CNT. DTSBX772
|
||||
00558 DISPLAY 'CONTRIBUTORY TIMELY COUNT : ' DTSBX772
|
||||
00559 DISPLAY-CNT. DTSBX772
|
||||
00560 DTSBX772
|
||||
00561 MOVE WRK-CON-SECURED-CNT TO DISPLAY-CNT. DTSBX772
|
||||
00562 DISPLAY 'CONTRIBUTORY SECURED COUNT : ' DTSBX772
|
||||
00563 DISPLAY-CNT. DTSBX772
|
||||
00564 DTSBX772
|
||||
00565 MOVE WRK-CON-RESOLVED-CNT TO DISPLAY-CNT. DTSBX772
|
||||
00566 DISPLAY 'CONTRIBUTORY RESOLVED COUNT : ' DTSBX772
|
||||
00567 DISPLAY-CNT. DTSBX772
|
||||
00568 DTSBX772
|
||||
00569 MOVE WRK-REIMB-TIMELY-CNT TO DISPLAY-CNT. DTSBX772
|
||||
00570 DISPLAY 'REIMBURSABLE TIMELY COUNT : ' DTSBX772
|
||||
00571 DISPLAY-CNT. DTSBX772
|
||||
00572 DTSBX772
|
||||
00573 MOVE WRK-REIMB-SECURED-CNT TO DISPLAY-CNT. DTSBX772
|
||||
00574 DISPLAY 'REIMBURSABLE SECURED COUNT : ' DTSBX772
|
||||
00575 DISPLAY-CNT. DTSBX772
|
||||
00576 DTSBX772
|
||||
00577 MOVE WRK-REIMB-RESOLVED-CNT TO DISPLAY-CNT. DTSBX772
|
||||
00578 DISPLAY 'REIMBURSABLE RESOLVED COUNT : ' DTSBX772
|
||||
00579 DISPLAY-CNT. DTSBX772
|
||||
00580 DTSBX772
|
||||
00581 MOVE WRK-OUTSTANDING-QTR-CNT TO DISPLAY-CNT. DTSBX772
|
||||
00582 DISPLAY 'OUTSTANDING QTR COUNT : ' DTSBX772
|
||||
00583 DISPLAY-CNT. DTSBX772
|
||||
00584 DTSBX772
|
||||
00585 MOVE WRK-581-SECURED-CNT TO DISPLAY-CNT DTSBX772
|
||||
00586 DISPLAY 'ETA581 SECURED COUNT : ' DTSBX772
|
||||
00587 DISPLAY-CNT. DTSBX772
|
||||
00588 DTSBX772
|
||||
00589 DISPLAY ' '. DTSBX772
|
||||
00590 MOVE WRK-DV-CON-TIMELY-CNT TO DISPLAY-CNT. DTSBX772
|
||||
00591 DISPLAY 'DV CONTRIBUTORY TIMELY COUNT : ' DTSBX772
|
||||
00592 DISPLAY-CNT. DTSBX772
|
||||
00593 DTSBX772
|
||||
00594 MOVE WRK-DV-CON-SECURED-CNT TO DISPLAY-CNT. DTSBX772
|
||||
00595 DISPLAY 'DV CONTRIBUTORY SECURED COUNT : ' DTSBX772
|
||||
00596 DISPLAY-CNT. DTSBX772
|
||||
00597 DTSBX772
|
||||
00598 MOVE WRK-DV-REIMB-TIMELY-CNT TO DISPLAY-CNT. DTSBX772
|
||||
00599 DISPLAY 'DV REIMBURSABLE TIMELY COUNT : ' DTSBX772
|
||||
00600 DISPLAY-CNT. DTSBX772
|
||||
00601 DTSBX772
|
||||
00602 MOVE WRK-DV-REIMB-SECURED-CNT TO DISPLAY-CNT. DTSBX772
|
||||
00603 DISPLAY 'DV REIMBURSABLE SECURED COUNT : ' DTSBX772
|
||||
00604 DISPLAY-CNT. DTSBX772
|
||||
00605 DTSBX772
|
||||
00606 DISPLAY 'RESOLVED : ' DTSBX772
|
||||
00607 WRK-CNT1. DTSBX772
|
||||
00608 DTSBX772
|
||||
00609 DISPLAY 'TOTAL RECEIVED : ' DTSBX772
|
||||
00610 WRK-CNT2. DTSBX772
|
||||
00611 DTSBX772
|
||||
00612 DISPLAY 'RECEIVED DURING SUBJECT QTR : ' DTSBX772
|
||||
00613 WRK-CNT3. DTSBX772
|
||||
00614 DTSBX772
|
||||
00615 DISPLAY ' '. DTSBX772
|
||||
00616 DTSBX772
|
||||
00617 CLOSE REPORT-FILING. DTSBX772
|
||||
00618 DTSBX772
|
||||
00619 T0000-EXIT. DTSBX772
|
||||
00620 EXIT. DTSBX772
|
||||
00621 EJECT DTSBX772
|
||||
00622 DTSBX772
|
||||
00623 T1000-UPDATE-LINK. DTSBX772
|
||||
00624 DTSBX772
|
||||
00625 MOVE WRK-CON-TIMELY-CNT TO XL772-CON-TIMELY-CNT. DTSBX772
|
||||
00626 MOVE WRK-CON-SECURED-CNT TO XL772-CON-SECURED-CNT. DTSBX772
|
||||
00627 COMPUTE XL772-CON-RESOLVED-CNT = DTSBX772
|
||||
00628 (WRK-CON-RESOLVED-CNT + WRK-DV-CON-SECURED-CNT). DTSBX772
|
||||
00629 MOVE WRK-REIMB-TIMELY-CNT TO XL772-REIMB-TIMELY-CNT. DTSBX772
|
||||
00630 MOVE WRK-REIMB-SECURED-CNT TO XL772-REIMB-SECURED-CNT. DTSBX772
|
||||
00631 COMPUTE XL772-REIMB-RESOLVED-CNT = DTSBX772
|
||||
00632 (WRK-REIMB-RESOLVED-CNT + WRK-DV-REIMB-SECURED-CNT). DTSBX772
|
||||
00633 MOVE WRK-OUTSTANDING-QTR-CNT TO XL772-OUTSTANDING-QTR-CNT. DTSBX772
|
||||
00634 DTSBX772
|
||||
00635 DISPLAY '**********************************************'. DTSBX772
|
||||
00636 DISPLAY '* BX772 REPORTS ' DTSBX772
|
||||
00637 DISPLAY SPACE. DTSBX772
|
||||
00638 DISPLAY '* CONTRIBUTORY COUNTS: '. DTSBX772
|
||||
00639 DISPLAY '* TIMELY: ' XL772-CON-TIMELY-CNT. DTSBX772
|
||||
00640 DISPLAY '* SECURED: ' XL772-CON-SECURED-CNT. DTSBX772
|
||||
00641 DISPLAY '* RESOLVED: ' XL772-CON-RESOLVED-CNT. DTSBX772
|
||||
00642 DISPLAY SPACE. DTSBX772
|
||||
00643 DISPLAY '* REIMBURSABLE COUNTS: '. DTSBX772
|
||||
00644 DISPLAY '* TIMELY: ' XL772-REIMB-TIMELY-CNT. DTSBX772
|
||||
00645 DISPLAY '* SECURED: ' XL772-REIMB-SECURED-CNT. DTSBX772
|
||||
00646 DISPLAY '* RESOLVED: ' XL772-REIMB-RESOLVED-CNT. DTSBX772
|
||||
00647 DISPLAY SPACE. DTSBX772
|
||||
00648 DISPLAY '**********************************************'. DTSBX772
|
||||
00649 T1000-EXIT. DTSBX772
|
||||
00650 EXIT. DTSBX772
|
||||
00651 DTSBX772
|
||||
00652 S001-FROM-FED-8. DTSBX772
|
||||
00653 SET L001-FROM-FED-8 TO TRUE. DTSBX772
|
||||
00654 GO TO S001-DATE. DTSBX772
|
||||
00655 DTSBX772
|
||||
00656 S001-FROM-ABS-DAY. DTSBX772
|
||||
00657 SET L001-FROM-ABS-DAY TO TRUE. DTSBX772
|
||||
00658 GO TO S001-DATE. DTSBX772
|
||||
00659 DTSBX772
|
||||
00660 S001-FROM-CAL-6. DTSBX772
|
||||
00661 SET L001-FROM-CAL-6 TO TRUE. DTSBX772
|
||||
00662 GO TO S001-DATE. DTSBX772
|
||||
00663 DTSBX772
|
||||
00664 S001-DATE. DTSBX772
|
||||
00665 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBX772
|
||||
00666 S001-EXIT. DTSBX772
|
||||
00667 EXIT. DTSBX772
|
||||
00668 SKIP3 DTSBX772
|
||||
00669 S004-FROM-5. DTSBX772
|
||||
00670 SET L004-FROM-5 TO TRUE. DTSBX772
|
||||
00671 GO TO S004-QTR. DTSBX772
|
||||
00672 DTSBX772
|
||||
00673 S004-FROM-ABS. DTSBX772
|
||||
00674 SET L004-FROM-ABS TO TRUE. DTSBX772
|
||||
00675 GO TO S004-QTR. DTSBX772
|
||||
00676 DTSBX772
|
||||
00677 S004-FROM-3. DTSBX772
|
||||
00678 SET L004-FROM-3 TO TRUE. DTSBX772
|
||||
00679 GO TO S004-QTR. DTSBX772
|
||||
00680 DTSBX772
|
||||
00681 S004-FROM-DATE. DTSBX772
|
||||
00682 SET L004-FROM-DATE TO TRUE. DTSBX772
|
||||
00683 GO TO S004-QTR. DTSBX772
|
||||
00684 DTSBX772
|
||||
00685 S004-QTR. DTSBX772
|
||||
00686 DTSBX772
|
||||
00687 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBX772
|
||||
00688 DTSBX772
|
||||
00689 S004-EXIT. DTSBX772
|
||||
00690 EXIT. DTSBX772
|
||||
00691 SKIP3 DTSBX772
|
||||
00692 S005-FROM-ABSTIME. DTSBX772
|
||||
00693 SET L005-FROM-ABSTIME TO TRUE. DTSBX772
|
||||
00694 GO TO S005-ABSTIME. DTSBX772
|
||||
00695 DTSBX772
|
||||
00696 S005-FROM-DATE-TIME. DTSBX772
|
||||
00697 SET L005-FROM-DATE-TIME TO TRUE. DTSBX772
|
||||
00698 GO TO S005-ABSTIME. DTSBX772
|
||||
00699 DTSBX772
|
||||
00700 S005-ABSTIME. DTSBX772
|
||||
00701 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBX772
|
||||
00702 S005-EXIT. DTSBX772
|
||||
00703 EXIT. DTSBX772
|
||||
00704 SKIP3 DTSBX772
|
||||
00705 S999-ABEND. DTSBX772
|
||||
00706 DISPLAY '*** DTSBE772 ABENDING. ' DTSBX772
|
||||
00707 ABEND-MSG. DTSBX772
|
||||
00708 DTSBX772
|
||||
00709 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBX772
|
||||
00710 S999-EXIT. DTSBX772
|
||||
00711 EXIT. DTSBX772
|
||||
Reference in New Issue
Block a user