778 lines
62 KiB
COBOL
778 lines
62 KiB
COBOL
00001 IDENTIFICATION DIVISION. 02/13/25
|
|
00002 PROGRAM-ID. DTSBX403. DTSBX403
|
|
00003 AUTHOR. SC. LV081
|
|
00004 DATE-WRITTEN. JAN 2025. CL*49
|
|
00005 *DATE-MODIFIED. DTSBX403
|
|
00006 DATE-COMPILED. DTSBX403
|
|
00007 DTSBX403
|
|
00008 ***** DTSBX403
|
|
00009 * FUNCTION: EXTRACT R403 RECORDS CL*13
|
|
00010 * DTSBX403
|
|
00011 * MODIFICATION HISTORY: DTSBX403
|
|
00012 * DTSBX403
|
|
00013 * 01-09-2025 INITIAL DEVELOPMENT. CL*13
|
|
00014 * AUTHOR OF CHANGE - SC CL*13
|
|
00015 * DTSBX403
|
|
00016 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBX403
|
|
00017 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBX403
|
|
00018 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBX403
|
|
00019 * RECORDS READ: DTSBX403
|
|
00020 * DTSBX403
|
|
00021 * EXTRACT R403 RECORDS FROM THE VARIABLE PACKED FILE AND CL*13
|
|
00022 * CONVERT TO UNPACKED FIXED FILE. CL*13
|
|
00023 * CL*13
|
|
00024 * MODULES CALLED: DTSBX403
|
|
00025 * DTSBX403
|
|
00026 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBX403
|
|
00027 * DTSBU005 DATE EDIT/CONVERSION MODULE DTSBX403
|
|
00028 * DTSBU941 VARIABLE LENGTH RECORD READ DTSBX403
|
|
00029 * DTSBX403
|
|
00030 ***** DTSBX403
|
|
00031 DTSBX403
|
|
00032 ENVIRONMENT DIVISION. DTSBX403
|
|
00033 DTSBX403
|
|
00034 CONFIGURATION SECTION. DTSBX403
|
|
00035 DTSBX403
|
|
00036 INPUT-OUTPUT SECTION. DTSBX403
|
|
00037 DTSBX403
|
|
00038 FILE-CONTROL. DTSBX403
|
|
00039 SELECT DTS-LN-OUT1 ASSIGN TO DTSLN403 CL*28
|
|
00040 FILE STATUS IS DTSLN-OUT1-STATUS. CL*34
|
|
00041 DTSBX403
|
|
00042 SELECT DTS-LN-OUT2 ASSIGN TO DTSLN405 CL*28
|
|
00043 FILE STATUS IS DTSLN-OUT2-STATUS. CL*34
|
|
00044 CL*28
|
|
00045 DATA DIVISION. DTSBX403
|
|
00046 DTSBX403
|
|
00047 FILE SECTION. DTSBX403
|
|
00048 DTSBX403
|
|
00049 FD DTS-LN-OUT1 CL*28
|
|
00050 RECORDING MODE IS F DTSBX403
|
|
00051 BLOCK CONTAINS 0 RECORDS DTSBX403
|
|
00052 LABEL RECORDS ARE OMITTED. DTSBX403
|
|
00053 DTSBX403
|
|
00054 *01 LEIN-OUTREC1 PIC X(1640). CL*70
|
|
00055 *01 LEIN-OUTREC1 PIC X(1721). CL*75
|
|
00056 01 LEIN-OUTREC1 PIC X(1732). CL*75
|
|
00057 DTSBX403
|
|
00058 FD DTS-LN-OUT2 CL*28
|
|
00059 RECORDING MODE IS F CL*28
|
|
00060 BLOCK CONTAINS 0 RECORDS CL*28
|
|
00061 LABEL RECORDS ARE OMITTED. CL*28
|
|
00062 CL*28
|
|
00063 *01 LEIN-OUTREC2 PIC X(312). CL*75
|
|
00064 01 LEIN-OUTREC2 PIC X(323). CL*75
|
|
00065 CL*28
|
|
00066 WORKING-STORAGE SECTION. DTSBX403
|
|
000665 77 PAN-VALET PICTURE X(24) VALUE '081DTSBX403 02/13/25'. DTSBX403
|
|
00067 77 PAN-VALET PICTURE X(24) VALUE '017DTSBS403 05/08/09'. CL*15
|
|
00068 01 WRK-AREA. DTSBX403
|
|
00069 05 FILE-STATUS PIC 9(02) VALUE ZEROS. DTSBX403
|
|
00070 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBS403'. CL*15
|
|
00071 DTSBX403
|
|
00072 05 WRK-ERROR-IND PIC X(01) VALUE 'N'. DTSBX403
|
|
00073 88 WRK-ERROR-YES-88 VALUE 'Y'. DTSBX403
|
|
00074 88 WRK-ERROR-NO-88 VALUE 'N'. DTSBX403
|
|
00075 DTSBX403
|
|
00076 05 DTSLN-OUT1-STATUS PIC X(02). CL*32
|
|
00077 88 LEIN-OUT1-OK-88 VALUE '00'. CL*32
|
|
00078 CL*15
|
|
00079 05 DTSLN-OUT2-STATUS PIC X(02). CL*32
|
|
00080 88 LEIN-OUT2-OK-88 VALUE '00'. CL*32
|
|
00081 CL*32
|
|
00082 05 W-LEIN-403-IN-CNT PIC S9(07) COMP-3 VALUE +0. CL*18
|
|
00083 05 W-LEIN-405-IN-CNT PIC S9(07) COMP-3 VALUE +0. CL*24
|
|
00084 05 W-LEIN-403-OUT-CNT PIC S9(07) COMP-3 VALUE +0. CL*18
|
|
00085 05 W-LEIN-405-OUT-CNT PIC S9(07) COMP-3 VALUE +0. CL*29
|
|
00086 CL*18
|
|
00087 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +310.DTSBX403
|
|
00088 05 WRK-PRIOR-RUN-DATE PIC S9(09) COMP-3. DTSBX403
|
|
00089 05 WRK-CURR-RUN-DATE PIC S9(09) COMP-3. DTSBX403
|
|
00090 05 WRK-X215-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX403
|
|
00091 05 WRK-X220-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX403
|
|
00092 05 WRK-DEPOSIT-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX403
|
|
00093 DTSBX403
|
|
00094 05 WRK-906-OPID PIC X(08). DTSBX403
|
|
00095 05 WRK-906-EMP PIC S9(07) COMP-3. DTSBX403
|
|
00096 05 WRK-906-SCREEN PIC X(02). DTSBX403
|
|
00097 05 WRK-906-DATE PIC S9(09) COMP-3. DTSBX403
|
|
00098 05 WRK-906-TIME PIC S9(07) COMP-3. DTSBX403
|
|
00099 DTSBX403
|
|
00100 05 DISP-REMIT PIC --,---,---,--9.99. DTSBX403
|
|
00101 05 DISP-WRK-READ-CNT PIC ZZ,ZZZ,ZZ9. DTSBX403
|
|
00102 05 DISP-WRK-WRITE-CNT PIC ZZ,ZZZ,ZZ9. DTSBX403
|
|
00103 DTSBX403
|
|
00104 05 WORK-HOLD-DATE PIC X(10) VALUE SPACE. CL*72
|
|
00105 CL*72
|
|
00106 05 WRK-INACT-SLASH-DT. CL*72
|
|
00107 15 WRK-INACT-MM PIC X(02) VALUE SPACE. CL*72
|
|
00108 15 FILLER PIC X(01) VALUE '/'. CL*72
|
|
00109 15 WRK-INACT-DD PIC X(02) VALUE SPACE. CL*72
|
|
00110 15 FILLER PIC X(01) VALUE '/'. CL*72
|
|
00111 15 WRK-INACT-YYYY PIC X(04) VALUE SPACE. CL*72
|
|
00112 CL*72
|
|
00113 01 L062-LINK-AREA. DTSBX403
|
|
00114 ++INCLUDE DTSIL062 DTSBX403
|
|
00115 DTSBX403
|
|
00116 01 L001-LINK-AREA. DTSBX403
|
|
00117 ++INCLUDE DTSIL001 DTSBX403
|
|
00118 DTSBX403
|
|
00119 01 L005-LINK-AREA. DTSBX403
|
|
00120 ++INCLUDE DTSIL005 DTSBX403
|
|
00121 DTSBX403
|
|
00122 01 L910-LINK-AREA. DTSBX403
|
|
00123 ++INCLUDE DTSIL910 DTSBX403
|
|
00124 DTSBX403
|
|
00125 01 MSKL-REC. DTSBX403
|
|
00126 ++INCLUDE DTSIMSKL DTSBX403
|
|
00127 DTSBX403
|
|
00128 01 MHDR-REC. DTSBX403
|
|
00129 ++INCLUDE DTSIMHDR DTSBX403
|
|
00130 DTSBX403
|
|
00131 01 MPRF-REC. DTSBX403
|
|
00132 ++INCLUDE DTSIMPRF DTSBX403
|
|
00133 DTSBX403
|
|
00134 01 MFAS-REC. DTSBX403
|
|
00135 ++INCLUDE DTSIMFAS DTSBX403
|
|
00136 DTSBX403
|
|
00137 01 MEVL-REC. DTSBX403
|
|
00138 ++INCLUDE DTSIMEVL DTSBX403
|
|
00139 DTSBX403
|
|
00140 01 MRPT-REC. DTSBX403
|
|
00141 ++INCLUDE DTSIMRPT DTSBX403
|
|
00142 DTSBX403
|
|
00143 01 L941-LINK-AREA. DTSBX403
|
|
00144 ++INCLUDE DTSIL941 DTSBX403
|
|
00145 DTSBX403
|
|
00146 01 RSK3-REC. DTSBX403
|
|
00147 ++INCLUDE DTSIRSK3 DTSBX403
|
|
00148 DTSBX403
|
|
00149 01 R403-REC. CL*16
|
|
00150 ++INCLUDE DTSIR403 CL*16
|
|
00151 DTSBX403
|
|
00152 01 W403-REC. CL*16
|
|
00153 ++INCLUDE DTSIW403 CL*16
|
|
00154 DTSBX403
|
|
00155 01 R405-REC. CL*28
|
|
00156 ++INCLUDE DTSIR405 CL*28
|
|
00157 CL*28
|
|
00158 01 W405-REC. CL*28
|
|
00159 ++INCLUDE DTSIW405 CL*28
|
|
00160 CL*28
|
|
00161 PROCEDURE DIVISION. DTSBX403
|
|
00162 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBX403
|
|
00163 IF WRK-ERROR-NO-88 DTSBX403
|
|
00164 PERFORM P0000-PROCESS THRU P0000-EXIT CL*72
|
|
00165 PERFORM T0000-TERMINATE THRU T0000-EXIT CL*72
|
|
00166 END-IF. DTSBX403
|
|
00167 DTSBX403
|
|
00168 GOBACK. DTSBX403
|
|
00169 DTSBX403
|
|
00170 I0000-INITIATE. DTSBX403
|
|
00171 PERFORM I2000-OPEN-FILES THRU I2000-EXIT. CL*72
|
|
00172 PERFORM I3000-GET-MHDR THRU I3000-EXIT. CL*72
|
|
00173 PERFORM I3500-MOVE-CURRDT THRU I3500-EXIT. CL*72
|
|
00174 DTSBX403
|
|
00175 I0000-EXIT. DTSBX403
|
|
00176 EXIT. DTSBX403
|
|
00177 DTSBX403
|
|
00178 I2000-OPEN-FILES. DTSBX403
|
|
00179 CL*16
|
|
00180 OPEN OUTPUT DTS-LN-OUT1. CL*28
|
|
00181 IF LEIN-OUT1-OK-88 CL*28
|
|
00182 NEXT SENTENCE DTSBX403
|
|
00183 ELSE DTSBX403
|
|
00184 SET WRK-ERROR-YES-88 TO TRUE DTSBX403
|
|
00185 DISPLAY 'CANNOT OPEN LEIN 403 FILE ' DTSLN-OUT1-STATUS CL*28
|
|
00186 GO TO I2000-EXIT DTSBX403
|
|
00187 END-IF. DTSBX403
|
|
00188 DTSBX403
|
|
00189 OPEN OUTPUT DTS-LN-OUT2. CL*28
|
|
00190 IF LEIN-OUT2-OK-88 CL*28
|
|
00191 NEXT SENTENCE CL*28
|
|
00192 ELSE CL*28
|
|
00193 SET WRK-ERROR-YES-88 TO TRUE CL*28
|
|
00194 DISPLAY 'CANNOT OPEN LEIN 405 FILE ' DTSLN-OUT2-STATUS CL*64
|
|
00195 GO TO I2000-EXIT CL*28
|
|
00196 END-IF. CL*28
|
|
00197 CL*28
|
|
00198 DTSBX403
|
|
00199 MOVE 'N' TO L910-TRACE-IND DTSBX403
|
|
00200 L941-TRACE-IND. DTSBX403
|
|
00201 MOVE WRK-MOD-NAME TO L910-MOD-NAME DTSBX403
|
|
00202 L941-MOD-NAME. DTSBX403
|
|
00203 DTSBX403
|
|
00204 PERFORM S910-OPEN-READ THRU S910-EXIT. CL*79
|
|
00205 PERFORM S941-OPEN THRU S941-EXIT. DTSBX403
|
|
00206 DTSBX403
|
|
00207 I2000-EXIT. DTSBX403
|
|
00208 EXIT. DTSBX403
|
|
00209 DTSBX403
|
|
00210 I3000-GET-MHDR. CL*72
|
|
00211 MOVE LOW-VALUES TO MSKL-REC. CL*72
|
|
00212 MOVE +0 TO MSKL-EMP-NO. CL*72
|
|
00213 SET MSKL-HDR-88 TO TRUE. CL*72
|
|
00214 CL*72
|
|
00215 PERFORM S910-READ THRU S910-EXIT. CL*72
|
|
00216 IF L910-NO-REC-88 CL*72
|
|
00217 DISPLAY 'DTSBS403: MHDR RECORD IS MISSING' CL*72
|
|
00218 SET WRK-ERROR-YES-88 TO TRUE CL*77
|
|
00219 GO TO I3000-EXIT CL*72
|
|
00220 ELSE CL*72
|
|
00221 MOVE MSKL-REC TO MHDR-REC CL*72
|
|
00222 * MOVE MHDR-CURR-RUN-DATE TO WORK-HOLD-DATE CL*80
|
|
00223 MOVE MHDR-PRIOR-RUN-DATE TO WORK-HOLD-DATE CL*80
|
|
00224 DISPLAY 'MHDR-CURR-RUN-DATE' MHDR-CURR-RUN-DATE CL*72
|
|
00225 END-IF. CL*72
|
|
00226 CL*72
|
|
00227 I3000-EXIT. CL*72
|
|
00228 EXIT. CL*72
|
|
00229 CL*72
|
|
00230 I3500-MOVE-CURRDT. CL*72
|
|
00231 CL*72
|
|
00232 MOVE WORK-HOLD-DATE(2:4) TO WRK-INACT-YYYY CL*73
|
|
00233 MOVE WORK-HOLD-DATE(6:2) TO WRK-INACT-MM CL*73
|
|
00234 MOVE WORK-HOLD-DATE(8:2) TO WRK-INACT-DD CL*73
|
|
00235 MOVE WRK-INACT-SLASH-DT TO W403-CURR-DATE CL*73
|
|
00236 W405-CURR-DATE. CL*76
|
|
00237 CL*72
|
|
00238 I3500-EXIT. CL*72
|
|
00239 EXIT. CL*72
|
|
00240 CL*72
|
|
00241 P0000-PROCESS. DTSBX403
|
|
00242 PERFORM P1000-FROM-RPTS THRU P1000-EXIT. DTSBX403
|
|
00243 DTSBX403
|
|
00244 P0000-EXIT. DTSBX403
|
|
00245 EXIT. DTSBX403
|
|
00246 DTSBX403
|
|
00247 P1000-FROM-RPTS. DTSBX403
|
|
00248 PERFORM S941-READ-NEXT THRU S941-EXIT. DTSBX403
|
|
00249 DTSBX403
|
|
00250 PERFORM UNTIL L941-NO-REC-88 DTSBX403
|
|
00251 EVALUATE RSK3-REC-TYPE DTSBX403
|
|
00252 WHEN '403' CL*16
|
|
00253 ADD +1 TO W-LEIN-403-IN-CNT CL*19
|
|
00254 MOVE RSK3-REC TO R403-REC CL*16
|
|
00255 PERFORM P1100-PROCESS-R403 THRU P1100-EXIT CL*16
|
|
00256 DTSBX403
|
|
00257 WHEN '405' CL*18
|
|
00258 ADD +1 TO W-LEIN-405-IN-CNT CL*22
|
|
00259 MOVE RSK3-REC TO R405-REC CL*28
|
|
00260 PERFORM P1200-PROCESS-R405 THRU P1200-EXIT CL*28
|
|
00261 END-EVALUATE DTSBX403
|
|
00262 PERFORM S941-READ-NEXT THRU S941-EXIT DTSBX403
|
|
00263 END-PERFORM. DTSBX403
|
|
00264 DTSBX403
|
|
00265 P1000-EXIT. DTSBX403
|
|
00266 EXIT. DTSBX403
|
|
00267 DTSBX403
|
|
00268 P1100-PROCESS-R403. CL*18
|
|
00269 DTSBX403
|
|
00270 MOVE R403-LENGTH TO W403-LENGTH CL*39
|
|
00271 MOVE R403-REC-TYPE TO W403-REC-TYPE CL*39
|
|
00272 MOVE R403-OP-ID TO W403-OP-ID CL*39
|
|
00273 MOVE R403-EMP-NO TO W403-EMP-NO CL*39
|
|
00274 MOVE R403-CERTIFICATE-NO CL*38
|
|
00275 TO W403-CERTIFICATE-NO CL*39
|
|
00276 MOVE R403-CERTIFICATE-DATE TO L001-FED-8-DATE-9. CL*55
|
|
00277 PERFORM S001-FROM-FED-8 THRU S001-EXIT. CL*55
|
|
00278 MOVE L001-SLASH-8-DATE TO W403-CERTIFICATE-DATE. CL*55
|
|
00279 CL*55
|
|
00280 MOVE R403-EMP-STATUS TO W403-EMP-STATUS CL*39
|
|
00281 CL*55
|
|
00282 MOVE R403-STMT-DATE TO L001-FED-8-DATE-9. CL*55
|
|
00283 PERFORM S001-FROM-FED-8 THRU S001-EXIT. CL*55
|
|
00284 MOVE L001-SLASH-8-DATE TO W403-STMT-DATE. CL*55
|
|
00285 CL*55
|
|
00286 MOVE R403-PRIMARY-NAME TO W403-PRIMARY-NAME CL*39
|
|
00287 MOVE R403-FMT-LINE(01) TO W403-FMT-LINE1 CL*61
|
|
00288 MOVE R403-FMT-LINE(02) TO W403-FMT-LINE2 CL*61
|
|
00289 MOVE R403-FMT-LINE(03) TO W403-FMT-LINE3 CL*61
|
|
00290 MOVE R403-FMT-LINE(04) TO W403-FMT-LINE4 CL*61
|
|
00291 MOVE R403-FMT-LINE(05) TO W403-FMT-LINE5 CL*61
|
|
00292 MOVE R403-ZIP TO W403-ZIP CL*39
|
|
00293 MOVE R403-ADVANCED-BARCODE CL*38
|
|
00294 TO W403-ADVANCED-BARCODE CL*39
|
|
00295 CL*55
|
|
00296 MOVE R403-FORM-COMP-DATE TO L001-FED-8-DATE-9. CL*55
|
|
00297 PERFORM S001-FROM-FED-8 THRU S001-EXIT. CL*55
|
|
00298 MOVE L001-SLASH-8-DATE TO W403-FORM-COMP-DATE. CL*55
|
|
00299 CL*55
|
|
00300 MOVE R403-FORM-QTR-CNT TO W403-FORM-QTR-CNT CL*39
|
|
00301 CL*38
|
|
00302 MOVE R403-LETTER-LICENSE-IND CL*67
|
|
00303 TO W403-LETTER-LICENSE-IND CL*67
|
|
00304 MOVE R403-LETTER-TOTAL-AMT CL*67
|
|
00305 TO W403-LETTER-TOTAL-AMT CL*67
|
|
00306 CL*67
|
|
00307 MOVE R403-FORM-QTR(01) CL*38
|
|
00308 TO W403-FORM-QTR1 CL*57
|
|
00309 MOVE R403-FORM-TAX-BALANCE-AMT(01) CL*38
|
|
00310 TO W403-FORM-TAX-BALANCE-AMT1 CL*57
|
|
00311 MOVE R403-FORM-INT-BALANCE-AMT(01) CL*38
|
|
00312 TO W403-FORM-INT-BALANCE-AMT1 CL*57
|
|
00313 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(01) CL*38
|
|
00314 TO W403-FORM-LP-NP-MP-BLNCE-AMT1 CL*62
|
|
00315 MOVE R403-FORM-LEGAL-IND(01) CL*38
|
|
00316 TO W403-FORM-LEGAL-IND1 CL*57
|
|
00317 MOVE R403-FORM-ESTIMATED-IND(01) CL*38
|
|
00318 TO W403-FORM-ESTIMATED-IND1 CL*57
|
|
00319 MOVE R403-FORM-UNUSED-IND(01) CL*38
|
|
00320 TO W403-FORM-UNUSED-IND1 CL*57
|
|
00321 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(01) CL*38
|
|
00322 TO W403-FORM-SUR-TAX-BLNCE-AMT1 CL*62
|
|
00323 CL*38
|
|
00324 MOVE R403-FORM-QTR(02) CL*42
|
|
00325 TO W403-FORM-QTR2 CL*57
|
|
00326 MOVE R403-FORM-TAX-BALANCE-AMT(02) CL*42
|
|
00327 TO W403-FORM-TAX-BALANCE-AMT2 CL*57
|
|
00328 MOVE R403-FORM-INT-BALANCE-AMT(02) CL*42
|
|
00329 TO W403-FORM-INT-BALANCE-AMT2 CL*57
|
|
00330 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(02) CL*42
|
|
00331 TO W403-FORM-LP-NP-MP-BLNCE-AMT2 CL*62
|
|
00332 MOVE R403-FORM-LEGAL-IND(02) CL*42
|
|
00333 TO W403-FORM-LEGAL-IND2 CL*57
|
|
00334 MOVE R403-FORM-ESTIMATED-IND(02) CL*42
|
|
00335 TO W403-FORM-ESTIMATED-IND2 CL*57
|
|
00336 MOVE R403-FORM-UNUSED-IND(02) CL*42
|
|
00337 TO W403-FORM-UNUSED-IND2 CL*57
|
|
00338 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(02) CL*42
|
|
00339 TO W403-FORM-SUR-TAX-BLNCE-AMT2 CL*62
|
|
00340 CL*42
|
|
00341 MOVE R403-FORM-QTR(03) CL*42
|
|
00342 TO W403-FORM-QTR3 CL*57
|
|
00343 MOVE R403-FORM-TAX-BALANCE-AMT(03) CL*42
|
|
00344 TO W403-FORM-TAX-BALANCE-AMT3 CL*57
|
|
00345 MOVE R403-FORM-INT-BALANCE-AMT(03) CL*42
|
|
00346 TO W403-FORM-INT-BALANCE-AMT3 CL*57
|
|
00347 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(03) CL*42
|
|
00348 TO W403-FORM-LP-NP-MP-BLNCE-AMT3 CL*62
|
|
00349 MOVE R403-FORM-LEGAL-IND(03) CL*42
|
|
00350 TO W403-FORM-LEGAL-IND3 CL*57
|
|
00351 MOVE R403-FORM-ESTIMATED-IND(03) CL*42
|
|
00352 TO W403-FORM-ESTIMATED-IND3 CL*57
|
|
00353 MOVE R403-FORM-UNUSED-IND(03) CL*42
|
|
00354 TO W403-FORM-UNUSED-IND3 CL*57
|
|
00355 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(03) CL*42
|
|
00356 TO W403-FORM-SUR-TAX-BLNCE-AMT3 CL*62
|
|
00357 CL*42
|
|
00358 MOVE R403-FORM-QTR(04) CL*42
|
|
00359 TO W403-FORM-QTR4 CL*57
|
|
00360 MOVE R403-FORM-TAX-BALANCE-AMT(04) CL*42
|
|
00361 TO W403-FORM-TAX-BALANCE-AMT4 CL*57
|
|
00362 MOVE R403-FORM-INT-BALANCE-AMT(04) CL*42
|
|
00363 TO W403-FORM-INT-BALANCE-AMT4 CL*57
|
|
00364 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(04) CL*42
|
|
00365 TO W403-FORM-LP-NP-MP-BLNCE-AMT4 CL*62
|
|
00366 MOVE R403-FORM-LEGAL-IND(04) CL*42
|
|
00367 TO W403-FORM-LEGAL-IND4 CL*57
|
|
00368 MOVE R403-FORM-ESTIMATED-IND(04) CL*42
|
|
00369 TO W403-FORM-ESTIMATED-IND4 CL*57
|
|
00370 MOVE R403-FORM-UNUSED-IND(04) CL*42
|
|
00371 TO W403-FORM-UNUSED-IND4 CL*57
|
|
00372 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(04) CL*42
|
|
00373 TO W403-FORM-SUR-TAX-BLNCE-AMT4 CL*62
|
|
00374 CL*42
|
|
00375 MOVE R403-FORM-QTR(05) CL*42
|
|
00376 TO W403-FORM-QTR5 CL*57
|
|
00377 MOVE R403-FORM-TAX-BALANCE-AMT(05) CL*42
|
|
00378 TO W403-FORM-TAX-BALANCE-AMT5 CL*57
|
|
00379 MOVE R403-FORM-INT-BALANCE-AMT(05) CL*42
|
|
00380 TO W403-FORM-INT-BALANCE-AMT5 CL*57
|
|
00381 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(05) CL*42
|
|
00382 TO W403-FORM-LP-NP-MP-BLNCE-AMT5 CL*62
|
|
00383 MOVE R403-FORM-LEGAL-IND(05) CL*42
|
|
00384 TO W403-FORM-LEGAL-IND5 CL*57
|
|
00385 MOVE R403-FORM-ESTIMATED-IND(05) CL*42
|
|
00386 TO W403-FORM-ESTIMATED-IND5 CL*57
|
|
00387 MOVE R403-FORM-UNUSED-IND(05) CL*42
|
|
00388 TO W403-FORM-UNUSED-IND5 CL*57
|
|
00389 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(05) CL*42
|
|
00390 TO W403-FORM-SUR-TAX-BLNCE-AMT5 CL*62
|
|
00391 CL*42
|
|
00392 MOVE R403-FORM-QTR(06) CL*42
|
|
00393 TO W403-FORM-QTR6 CL*57
|
|
00394 MOVE R403-FORM-TAX-BALANCE-AMT(06) CL*42
|
|
00395 TO W403-FORM-TAX-BALANCE-AMT6 CL*57
|
|
00396 MOVE R403-FORM-INT-BALANCE-AMT(06) CL*42
|
|
00397 TO W403-FORM-INT-BALANCE-AMT6 CL*57
|
|
00398 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(06) CL*42
|
|
00399 TO W403-FORM-LP-NP-MP-BLNCE-AMT6 CL*62
|
|
00400 MOVE R403-FORM-LEGAL-IND(06) CL*42
|
|
00401 TO W403-FORM-LEGAL-IND6 CL*57
|
|
00402 MOVE R403-FORM-ESTIMATED-IND(06) CL*42
|
|
00403 TO W403-FORM-ESTIMATED-IND6 CL*57
|
|
00404 MOVE R403-FORM-UNUSED-IND(06) CL*42
|
|
00405 TO W403-FORM-UNUSED-IND6 CL*57
|
|
00406 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(06) CL*42
|
|
00407 TO W403-FORM-SUR-TAX-BLNCE-AMT6 CL*62
|
|
00408 CL*42
|
|
00409 MOVE R403-FORM-QTR(07) CL*42
|
|
00410 TO W403-FORM-QTR7 CL*57
|
|
00411 MOVE R403-FORM-TAX-BALANCE-AMT(07) CL*42
|
|
00412 TO W403-FORM-TAX-BALANCE-AMT7 CL*57
|
|
00413 MOVE R403-FORM-INT-BALANCE-AMT(07) CL*42
|
|
00414 TO W403-FORM-INT-BALANCE-AMT7 CL*57
|
|
00415 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(07) CL*42
|
|
00416 TO W403-FORM-LP-NP-MP-BLNCE-AMT7 CL*62
|
|
00417 MOVE R403-FORM-LEGAL-IND(07) CL*42
|
|
00418 TO W403-FORM-LEGAL-IND7 CL*57
|
|
00419 MOVE R403-FORM-ESTIMATED-IND(07) CL*42
|
|
00420 TO W403-FORM-ESTIMATED-IND7 CL*57
|
|
00421 MOVE R403-FORM-UNUSED-IND(07) CL*42
|
|
00422 TO W403-FORM-UNUSED-IND7 CL*57
|
|
00423 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(07) CL*42
|
|
00424 TO W403-FORM-SUR-TAX-BLNCE-AMT7 CL*62
|
|
00425 CL*42
|
|
00426 MOVE R403-FORM-QTR(08) CL*42
|
|
00427 TO W403-FORM-QTR8 CL*57
|
|
00428 MOVE R403-FORM-TAX-BALANCE-AMT(08) CL*42
|
|
00429 TO W403-FORM-TAX-BALANCE-AMT8 CL*57
|
|
00430 MOVE R403-FORM-INT-BALANCE-AMT(08) CL*42
|
|
00431 TO W403-FORM-INT-BALANCE-AMT8 CL*57
|
|
00432 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(08) CL*42
|
|
00433 TO W403-FORM-LP-NP-MP-BLNCE-AMT8 CL*62
|
|
00434 MOVE R403-FORM-LEGAL-IND(08) CL*42
|
|
00435 TO W403-FORM-LEGAL-IND8 CL*57
|
|
00436 MOVE R403-FORM-ESTIMATED-IND(08) CL*42
|
|
00437 TO W403-FORM-ESTIMATED-IND8 CL*57
|
|
00438 MOVE R403-FORM-UNUSED-IND(08) CL*42
|
|
00439 TO W403-FORM-UNUSED-IND8 CL*57
|
|
00440 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(08) CL*63
|
|
00441 TO W403-FORM-SUR-TAX-BLNCE-AMT8 CL*62
|
|
00442 CL*42
|
|
00443 MOVE R403-FORM-QTR(09) CL*42
|
|
00444 TO W403-FORM-QTR9 CL*57
|
|
00445 MOVE R403-FORM-TAX-BALANCE-AMT(09) CL*42
|
|
00446 TO W403-FORM-TAX-BALANCE-AMT9 CL*57
|
|
00447 MOVE R403-FORM-INT-BALANCE-AMT(09) CL*42
|
|
00448 TO W403-FORM-INT-BALANCE-AMT9 CL*57
|
|
00449 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(09) CL*42
|
|
00450 TO W403-FORM-LP-NP-MP-BLNCE-AMT9 CL*62
|
|
00451 MOVE R403-FORM-LEGAL-IND(09) CL*42
|
|
00452 TO W403-FORM-LEGAL-IND9 CL*57
|
|
00453 MOVE R403-FORM-ESTIMATED-IND(09) CL*42
|
|
00454 TO W403-FORM-ESTIMATED-IND9 CL*57
|
|
00455 MOVE R403-FORM-UNUSED-IND(09) CL*42
|
|
00456 TO W403-FORM-UNUSED-IND9 CL*57
|
|
00457 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(09) CL*42
|
|
00458 TO W403-FORM-SUR-TAX-BLNCE-AMT9 CL*62
|
|
00459 CL*42
|
|
00460 MOVE R403-FORM-QTR(10) CL*42
|
|
00461 TO W403-FORM-QTR10 CL*57
|
|
00462 MOVE R403-FORM-TAX-BALANCE-AMT(10) CL*42
|
|
00463 TO W403-FORM-TAX-BALANCE-AMT10 CL*57
|
|
00464 MOVE R403-FORM-INT-BALANCE-AMT(10) CL*42
|
|
00465 TO W403-FORM-INT-BALANCE-AMT10 CL*57
|
|
00466 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(10) CL*42
|
|
00467 TO W403-FORM-LP-NP-MP-BLNCE-AMT10 CL*62
|
|
00468 MOVE R403-FORM-LEGAL-IND(10) CL*42
|
|
00469 TO W403-FORM-LEGAL-IND10 CL*57
|
|
00470 MOVE R403-FORM-ESTIMATED-IND(10) CL*42
|
|
00471 TO W403-FORM-ESTIMATED-IND10 CL*57
|
|
00472 MOVE R403-FORM-UNUSED-IND(10) CL*42
|
|
00473 TO W403-FORM-UNUSED-IND10 CL*57
|
|
00474 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(10) CL*42
|
|
00475 TO W403-FORM-SUR-TAX-BLNCE-AMT10 CL*62
|
|
00476 CL*42
|
|
00477 MOVE R403-FORM-QTR(11) CL*42
|
|
00478 TO W403-FORM-QTR11 CL*57
|
|
00479 MOVE R403-FORM-TAX-BALANCE-AMT(11) CL*42
|
|
00480 TO W403-FORM-TAX-BALANCE-AMT11 CL*57
|
|
00481 MOVE R403-FORM-INT-BALANCE-AMT(11) CL*42
|
|
00482 TO W403-FORM-INT-BALANCE-AMT11 CL*57
|
|
00483 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(11) CL*42
|
|
00484 TO W403-FORM-LP-NP-MP-BLNCE-AMT11 CL*62
|
|
00485 MOVE R403-FORM-LEGAL-IND(11) CL*42
|
|
00486 TO W403-FORM-LEGAL-IND11 CL*57
|
|
00487 MOVE R403-FORM-ESTIMATED-IND(11) CL*42
|
|
00488 TO W403-FORM-ESTIMATED-IND11 CL*58
|
|
00489 MOVE R403-FORM-UNUSED-IND(11) CL*42
|
|
00490 TO W403-FORM-UNUSED-IND11 CL*58
|
|
00491 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(11) CL*42
|
|
00492 TO W403-FORM-SUR-TAX-BLNCE-AMT11 CL*62
|
|
00493 CL*42
|
|
00494 MOVE R403-FORM-QTR(12) CL*42
|
|
00495 TO W403-FORM-QTR12 CL*59
|
|
00496 MOVE R403-FORM-TAX-BALANCE-AMT(12) CL*42
|
|
00497 TO W403-FORM-TAX-BALANCE-AMT12 CL*59
|
|
00498 MOVE R403-FORM-INT-BALANCE-AMT(12) CL*42
|
|
00499 TO W403-FORM-INT-BALANCE-AMT12 CL*59
|
|
00500 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(12) CL*42
|
|
00501 TO W403-FORM-LP-NP-MP-BLNCE-AMT12 CL*62
|
|
00502 MOVE R403-FORM-LEGAL-IND(12) CL*42
|
|
00503 TO W403-FORM-LEGAL-IND12 CL*59
|
|
00504 MOVE R403-FORM-ESTIMATED-IND(12) CL*42
|
|
00505 TO W403-FORM-ESTIMATED-IND12 CL*59
|
|
00506 MOVE R403-FORM-UNUSED-IND(12) CL*42
|
|
00507 TO W403-FORM-UNUSED-IND12 CL*59
|
|
00508 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(12) CL*42
|
|
00509 TO W403-FORM-SUR-TAX-BLNCE-AMT12 CL*62
|
|
00510 CL*42
|
|
00511 MOVE R403-FORM-QTR(13) CL*43
|
|
00512 TO W403-FORM-QTR13 CL*59
|
|
00513 MOVE R403-FORM-TAX-BALANCE-AMT(13) CL*43
|
|
00514 TO W403-FORM-TAX-BALANCE-AMT13 CL*59
|
|
00515 MOVE R403-FORM-INT-BALANCE-AMT(13) CL*43
|
|
00516 TO W403-FORM-INT-BALANCE-AMT13 CL*59
|
|
00517 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(13) CL*43
|
|
00518 TO W403-FORM-LP-NP-MP-BLNCE-AMT13 CL*62
|
|
00519 MOVE R403-FORM-LEGAL-IND(13) CL*43
|
|
00520 TO W403-FORM-LEGAL-IND13 CL*59
|
|
00521 MOVE R403-FORM-ESTIMATED-IND(13) CL*43
|
|
00522 TO W403-FORM-ESTIMATED-IND13 CL*59
|
|
00523 MOVE R403-FORM-UNUSED-IND(13) CL*43
|
|
00524 TO W403-FORM-UNUSED-IND13 CL*59
|
|
00525 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(13) CL*43
|
|
00526 TO W403-FORM-SUR-TAX-BLNCE-AMT13 CL*62
|
|
00527 CL*42
|
|
00528 MOVE R403-FORM-QTR(14) CL*43
|
|
00529 TO W403-FORM-QTR14 CL*59
|
|
00530 MOVE R403-FORM-TAX-BALANCE-AMT(14) CL*43
|
|
00531 TO W403-FORM-TAX-BALANCE-AMT14 CL*59
|
|
00532 MOVE R403-FORM-INT-BALANCE-AMT(14) CL*43
|
|
00533 TO W403-FORM-INT-BALANCE-AMT14 CL*59
|
|
00534 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(14) CL*43
|
|
00535 TO W403-FORM-LP-NP-MP-BLNCE-AMT14 CL*62
|
|
00536 MOVE R403-FORM-LEGAL-IND(14) CL*43
|
|
00537 TO W403-FORM-LEGAL-IND14 CL*59
|
|
00538 MOVE R403-FORM-ESTIMATED-IND(14) CL*43
|
|
00539 TO W403-FORM-ESTIMATED-IND14 CL*59
|
|
00540 MOVE R403-FORM-UNUSED-IND(14) CL*43
|
|
00541 TO W403-FORM-UNUSED-IND14 CL*59
|
|
00542 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(14) CL*43
|
|
00543 TO W403-FORM-SUR-TAX-BLNCE-AMT14 CL*62
|
|
00544 CL*43
|
|
00545 MOVE R403-FORM-QTR(15) CL*43
|
|
00546 TO W403-FORM-QTR15 CL*59
|
|
00547 MOVE R403-FORM-TAX-BALANCE-AMT(15) CL*43
|
|
00548 TO W403-FORM-TAX-BALANCE-AMT15 CL*59
|
|
00549 MOVE R403-FORM-INT-BALANCE-AMT(15) CL*43
|
|
00550 TO W403-FORM-INT-BALANCE-AMT15 CL*59
|
|
00551 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(15) CL*43
|
|
00552 TO W403-FORM-LP-NP-MP-BLNCE-AMT15 CL*62
|
|
00553 MOVE R403-FORM-LEGAL-IND(15) CL*43
|
|
00554 TO W403-FORM-LEGAL-IND15 CL*59
|
|
00555 MOVE R403-FORM-ESTIMATED-IND(15) CL*43
|
|
00556 TO W403-FORM-ESTIMATED-IND15 CL*59
|
|
00557 MOVE R403-FORM-UNUSED-IND(15) CL*43
|
|
00558 TO W403-FORM-UNUSED-IND15 CL*59
|
|
00559 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(15) CL*43
|
|
00560 TO W403-FORM-SUR-TAX-BLNCE-AMT15 CL*62
|
|
00561 CL*43
|
|
00562 MOVE R403-FORM-QTR(16) CL*43
|
|
00563 TO W403-FORM-QTR16 CL*59
|
|
00564 MOVE R403-FORM-TAX-BALANCE-AMT(16) CL*43
|
|
00565 TO W403-FORM-TAX-BALANCE-AMT16 CL*59
|
|
00566 MOVE R403-FORM-INT-BALANCE-AMT(16) CL*43
|
|
00567 TO W403-FORM-INT-BALANCE-AMT16 CL*59
|
|
00568 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(16) CL*43
|
|
00569 TO W403-FORM-LP-NP-MP-BLNCE-AMT16 CL*62
|
|
00570 MOVE R403-FORM-LEGAL-IND(16) CL*43
|
|
00571 TO W403-FORM-LEGAL-IND16 CL*59
|
|
00572 MOVE R403-FORM-ESTIMATED-IND(16) CL*43
|
|
00573 TO W403-FORM-ESTIMATED-IND16 CL*59
|
|
00574 MOVE R403-FORM-UNUSED-IND(16) CL*43
|
|
00575 TO W403-FORM-UNUSED-IND16 CL*59
|
|
00576 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(16) CL*43
|
|
00577 TO W403-FORM-SUR-TAX-BLNCE-AMT16 CL*62
|
|
00578 CL*43
|
|
00579 MOVE R403-FORM-QTR(17) CL*43
|
|
00580 TO W403-FORM-QTR17 CL*59
|
|
00581 MOVE R403-FORM-TAX-BALANCE-AMT(17) CL*43
|
|
00582 TO W403-FORM-TAX-BALANCE-AMT17 CL*59
|
|
00583 MOVE R403-FORM-INT-BALANCE-AMT(17) CL*43
|
|
00584 TO W403-FORM-INT-BALANCE-AMT17 CL*59
|
|
00585 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(17) CL*43
|
|
00586 TO W403-FORM-LP-NP-MP-BLNCE-AMT17 CL*62
|
|
00587 MOVE R403-FORM-LEGAL-IND(17) CL*43
|
|
00588 TO W403-FORM-LEGAL-IND17 CL*59
|
|
00589 MOVE R403-FORM-ESTIMATED-IND(17) CL*59
|
|
00590 TO W403-FORM-ESTIMATED-IND17 CL*59
|
|
00591 MOVE R403-FORM-UNUSED-IND(17) CL*43
|
|
00592 TO W403-FORM-UNUSED-IND17 CL*59
|
|
00593 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(17) CL*43
|
|
00594 TO W403-FORM-SUR-TAX-BLNCE-AMT17 CL*62
|
|
00595 CL*43
|
|
00596 MOVE R403-FORM-QTR(18) CL*43
|
|
00597 TO W403-FORM-QTR18 CL*59
|
|
00598 MOVE R403-FORM-TAX-BALANCE-AMT(18) CL*43
|
|
00599 TO W403-FORM-TAX-BALANCE-AMT18 CL*59
|
|
00600 MOVE R403-FORM-INT-BALANCE-AMT(18) CL*43
|
|
00601 TO W403-FORM-INT-BALANCE-AMT18 CL*59
|
|
00602 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(18) CL*43
|
|
00603 TO W403-FORM-LP-NP-MP-BLNCE-AMT18 CL*62
|
|
00604 MOVE R403-FORM-LEGAL-IND(18) CL*43
|
|
00605 TO W403-FORM-LEGAL-IND18 CL*59
|
|
00606 MOVE R403-FORM-ESTIMATED-IND(18) CL*43
|
|
00607 TO W403-FORM-ESTIMATED-IND18 CL*59
|
|
00608 MOVE R403-FORM-UNUSED-IND(18) CL*43
|
|
00609 TO W403-FORM-UNUSED-IND18 CL*59
|
|
00610 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(18) CL*43
|
|
00611 TO W403-FORM-SUR-TAX-BLNCE-AMT18 CL*62
|
|
00612 CL*43
|
|
00613 MOVE R403-FORM-QTR(19) CL*43
|
|
00614 TO W403-FORM-QTR19 CL*59
|
|
00615 MOVE R403-FORM-TAX-BALANCE-AMT(19) CL*43
|
|
00616 TO W403-FORM-TAX-BALANCE-AMT19 CL*59
|
|
00617 MOVE R403-FORM-INT-BALANCE-AMT(19) CL*43
|
|
00618 TO W403-FORM-INT-BALANCE-AMT19 CL*59
|
|
00619 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(19) CL*43
|
|
00620 TO W403-FORM-LP-NP-MP-BLNCE-AMT19 CL*62
|
|
00621 MOVE R403-FORM-LEGAL-IND(19) CL*43
|
|
00622 TO W403-FORM-LEGAL-IND19 CL*59
|
|
00623 MOVE R403-FORM-ESTIMATED-IND(19) CL*43
|
|
00624 TO W403-FORM-ESTIMATED-IND19 CL*59
|
|
00625 MOVE R403-FORM-UNUSED-IND(19) CL*43
|
|
00626 TO W403-FORM-UNUSED-IND19 CL*59
|
|
00627 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(19) CL*43
|
|
00628 TO W403-FORM-SUR-TAX-BLNCE-AMT19 CL*62
|
|
00629 CL*43
|
|
00630 MOVE R403-FORM-QTR(20) CL*43
|
|
00631 TO W403-FORM-QTR20 CL*59
|
|
00632 MOVE R403-FORM-TAX-BALANCE-AMT(20) CL*43
|
|
00633 TO W403-FORM-TAX-BALANCE-AMT20 CL*59
|
|
00634 MOVE R403-FORM-INT-BALANCE-AMT(20) CL*43
|
|
00635 TO W403-FORM-INT-BALANCE-AMT20 CL*59
|
|
00636 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(20) CL*43
|
|
00637 TO W403-FORM-LP-NP-MP-BLNCE-AMT20 CL*62
|
|
00638 MOVE R403-FORM-LEGAL-IND(20) CL*43
|
|
00639 TO W403-FORM-LEGAL-IND20 CL*59
|
|
00640 MOVE R403-FORM-ESTIMATED-IND(20) CL*43
|
|
00641 TO W403-FORM-ESTIMATED-IND20 CL*59
|
|
00642 MOVE R403-FORM-UNUSED-IND(20) CL*43
|
|
00643 TO W403-FORM-UNUSED-IND20 CL*59
|
|
00644 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(20) CL*43
|
|
00645 TO W403-FORM-SUR-TAX-BLNCE-AMT20 CL*62
|
|
00646 CL*43
|
|
00647 CL*38
|
|
00648 WRITE LEIN-OUTREC1 FROM W403-REC. CL*29
|
|
00649 ADD +1 TO W-LEIN-403-OUT-CNT. CL*29
|
|
00650 DTSBX403
|
|
00651 P1100-EXIT. DTSBX403
|
|
00652 EXIT. DTSBX403
|
|
00653 DTSBX403
|
|
00654 P1200-PROCESS-R405. CL*28
|
|
00655 CL*28
|
|
00656 MOVE R405-LENGTH TO W405-LENGTH. CL*29
|
|
00657 CL*28
|
|
00658 MOVE R405-REC-TYPE TO W405-REC-TYPE. CL*35
|
|
00659 MOVE R405-OP-ID TO W405-OP-ID. CL*35
|
|
00660 MOVE R405-EMP-NO TO W405-EMP-NO. CL*35
|
|
00661 CL*35
|
|
00662 MOVE R405-PRIMARY-NAME TO W405-PRIMARY-NAME. CL*36
|
|
00663 ** MOVE R405-STMT-DATE TO W405-STMT-DATE. CL*49
|
|
00664 MOVE R405-STMT-DATE TO L001-FED-8-DATE-9. CL*49
|
|
00665 PERFORM S001-FROM-FED-8 THRU S001-EXIT. CL*49
|
|
00666 MOVE L001-SLASH-8-DATE TO W405-STMT-DATE. CL*49
|
|
00667 CL*49
|
|
00668 MOVE R405-CERTIFICATE-NO TO W405-CERTIFICATE-NO. CL*36
|
|
00669 MOVE R405-REC-DEEDS-NO TO W405-REC-DEEDS-NO. CL*36
|
|
00670 ** MOVE R405-CERTIFICATE-DATE TO W405-CERTIFICATE-DATE. CL*49
|
|
00671 MOVE R405-CERTIFICATE-DATE TO L001-FED-8-DATE-9. CL*49
|
|
00672 PERFORM S001-FROM-FED-8 THRU S001-EXIT. CL*49
|
|
00673 MOVE L001-SLASH-8-DATE TO W405-CERTIFICATE-DATE. CL*49
|
|
00674 CL*49
|
|
00675 CL*36
|
|
00676 MOVE R405-FMT-LINE(01) TO W405-FMT-LINE1. CL*51
|
|
00677 MOVE R405-FMT-LINE(02) TO W405-FMT-LINE2. CL*51
|
|
00678 MOVE R405-FMT-LINE(03) TO W405-FMT-LINE3. CL*51
|
|
00679 MOVE R405-FMT-LINE(04) TO W405-FMT-LINE4. CL*51
|
|
00680 MOVE R405-FMT-LINE(05) TO W405-FMT-LINE5. CL*51
|
|
00681 CL*28
|
|
00682 WRITE LEIN-OUTREC2 FROM W405-REC. CL*29
|
|
00683 ADD +1 TO W-LEIN-405-OUT-CNT. CL*29
|
|
00684 CL*28
|
|
00685 P1200-EXIT. CL*29
|
|
00686 EXIT. CL*28
|
|
00687 CL*28
|
|
00688 S001-FROM-FED-8. DTSBX403
|
|
00689 SET L001-FROM-FED-8 TO TRUE. DTSBX403
|
|
00690 GO TO S001-DATE. DTSBX403
|
|
00691 DTSBX403
|
|
00692 S001-DATE. DTSBX403
|
|
00693 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBX403
|
|
00694 S001-EXIT. DTSBX403
|
|
00695 EXIT. DTSBX403
|
|
00696 DTSBX403
|
|
00697 S005-DATE. DTSBX403
|
|
00698 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBX403
|
|
00699 S005-EXIT. DTSBX403
|
|
00700 EXIT. DTSBX403
|
|
00701 DTSBX403
|
|
00702 S062-LOOKUP-FLD-REP. DTSBX403
|
|
00703 CALL 'DTSBU062' USING L062-LINK-AREA. DTSBX403
|
|
00704 S062-EXIT. DTSBX403
|
|
00705 EXIT. DTSBX403
|
|
00706 DTSBX403
|
|
00707 S910-OPEN-READ. DTSBX403
|
|
00708 SET L910-OPEN-READ-88 TO TRUE. DTSBX403
|
|
00709 GO TO S910-MSTR-IO. DTSBX403
|
|
00710 DTSBX403
|
|
00711 S910-READ. DTSBX403
|
|
00712 SET L910-READ-88 TO TRUE. DTSBX403
|
|
00713 GO TO S910-MSTR-IO. DTSBX403
|
|
00714 DTSBX403
|
|
00715 S910-START-BROWSE. DTSBX403
|
|
00716 SET L910-START-BROWSE-88 TO TRUE. DTSBX403
|
|
00717 GO TO S910-MSTR-IO. DTSBX403
|
|
00718 DTSBX403
|
|
00719 S910-READ-NEXT. DTSBX403
|
|
00720 SET L910-READ-NEXT-88 TO TRUE. DTSBX403
|
|
00721 GO TO S910-MSTR-IO. DTSBX403
|
|
00722 DTSBX403
|
|
00723 S910-CLOSE. DTSBX403
|
|
00724 SET L910-CLOSE-88 TO TRUE. DTSBX403
|
|
00725 GO TO S910-MSTR-IO. DTSBX403
|
|
00726 DTSBX403
|
|
00727 S910-MSTR-IO. DTSBX403
|
|
00728 CALL 'DTSBU910' USING L910-LINK-AREA DTSBX403
|
|
00729 MSKL-REC. DTSBX403
|
|
00730 S910-EXIT. DTSBX403
|
|
00731 EXIT. DTSBX403
|
|
00732 DTSBX403
|
|
00733 S941-OPEN. DTSBX403
|
|
00734 SET L941-OPEN-READ-88 TO TRUE. DTSBX403
|
|
00735 GO TO S941-I. DTSBX403
|
|
00736 DTSBX403
|
|
00737 S941-READ-NEXT. DTSBX403
|
|
00738 SET L941-READ-NEXT-88 TO TRUE. DTSBX403
|
|
00739 GO TO S941-I. DTSBX403
|
|
00740 DTSBX403
|
|
00741 S941-CLOSE. DTSBX403
|
|
00742 SET L941-CLOSE-88 TO TRUE. DTSBX403
|
|
00743 GO TO S941-I. DTSBX403
|
|
00744 DTSBX403
|
|
00745 S941-I. DTSBX403
|
|
00746 CALL 'DTSBU941' USING L941-LINK-AREA, DTSBX403
|
|
00747 RSK3-REC. DTSBX403
|
|
00748 S941-EXIT. DTSBX403
|
|
00749 EXIT. DTSBX403
|
|
00750 DTSBX403
|
|
00751 S999-ABEND. DTSBX403
|
|
00752 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBX403
|
|
00753 SKIP2 DTSBX403
|
|
00754 S999-EXIT. DTSBX403
|
|
00755 EXIT. DTSBX403
|
|
00756 DTSBX403
|
|
00757 T0000-TERMINATE. DTSBX403
|
|
00758 DTSBX403
|
|
00759 DISPLAY ' '. DTSBX403
|
|
00760 DISPLAY 'TOTAL R403 RECORDS READ = ' W-LEIN-403-IN-CNT. CL*24
|
|
00761 DTSBX403
|
|
00762 DISPLAY 'TOTAL R405 RECORDS READ = ' W-LEIN-405-IN-CNT. CL*24
|
|
00763 DTSBX403
|
|
00764 DISPLAY 'TOTAL R403 RECORDS WRITTEN ' W-LEIN-403-OUT-CNT. CL*29
|
|
00765 DTSBX403
|
|
00766 DISPLAY 'TOTAL R405 RECORDS WRITTEN ' W-LEIN-405-OUT-CNT CL*29
|
|
00767 PERFORM S910-CLOSE THRU S910-EXIT. CL*79
|
|
00768 PERFORM S941-CLOSE THRU S941-EXIT. DTSBX403
|
|
00769 CL*18
|
|
00770 CLOSE DTS-LN-OUT1 CL*30
|
|
00771 DTS-LN-OUT2. CL*30
|
|
00772 CL*30
|
|
00773 CL*18
|
|
00774 T0000-EXIT. DTSBX403
|
|
00775 EXIT. DTSBX403
|
|
00776 DTSBX403
|