MP Batchs, copybooks, jcls, Procs
This commit is contained in:
777
Batch/DTSBX403.cob
Normal file
777
Batch/DTSBX403.cob
Normal file
@ -0,0 +1,777 @@
|
||||
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
|
||||
Reference in New Issue
Block a user