MP Batchs, copybooks, jcls, Procs
This commit is contained in:
@ -1,6 +1,6 @@
|
||||
00001 IDENTIFICATION DIVISION. 12/13/13
|
||||
00001 IDENTIFICATION DIVISION. 08/06/19
|
||||
00002 PROGRAM-ID. DTSBR503. DTSBR503
|
||||
00003 AUTHOR. BDM. LV212
|
||||
00003 AUTHOR. BDM. LV019
|
||||
00004 DTSBR503
|
||||
00005 ***** DTSBR503
|
||||
00006 * DTSBR503
|
||||
@ -26,420 +26,489 @@
|
||||
00026 * 04-16-08 MODIFIED TO INCLUDE MINUS SIGN ON COMPENSATION. DTSBR503
|
||||
00027 * REFERENCE AUTHOR OF CHANGE - ZL1. DTSBR503
|
||||
00028 * DTSBR503
|
||||
00029 * XX-XX-XXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR503
|
||||
00030 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR503
|
||||
00031 * DTSBR503
|
||||
00032 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR503
|
||||
00033 ***** DTSBR503
|
||||
00034 ENVIRONMENT DIVISION. DTSBR503
|
||||
00035 CONFIGURATION SECTION. DTSBR503
|
||||
00036 SPECIAL-NAMES. DTSBR503
|
||||
00037 C01 IS TOP-OF-PAGE. DTSBR503
|
||||
00038 INPUT-OUTPUT SECTION. DTSBR503
|
||||
00039 FILE-CONTROL. DTSBR503
|
||||
00040 SELECT PRT-FILE1 ASSIGN TO RPT503R1. DTSBR503
|
||||
00041 SELECT PRT-FILE2 ASSIGN TO RPT503R2. DTSBR503
|
||||
00042 DATA DIVISION. DTSBR503
|
||||
00043 FILE SECTION. DTSBR503
|
||||
00044 DTSBR503
|
||||
00045 FD PRT-FILE1 DTSBR503
|
||||
00046 RECORDING MODE IS F DTSBR503
|
||||
00047 LABEL RECORDS ARE OMITTED. DTSBR503
|
||||
00048 DTSBR503
|
||||
00049 01 PRT-R632-REC PIC X(133). DTSBR503
|
||||
00029 * CL*12
|
||||
00030 * 07-11-19 MODIFIED TO CREATE RATE FILE FOR ESSP. CL*12
|
||||
00031 * REFERENCE AUTHOR OF CHANGE - ZL1. CL*12
|
||||
00032 * CL*12
|
||||
00033 * CL**6
|
||||
00034 * XX-XX-XXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR503
|
||||
00035 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR503
|
||||
00036 * DTSBR503
|
||||
00037 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR503
|
||||
00038 ***** DTSBR503
|
||||
00039 ENVIRONMENT DIVISION. DTSBR503
|
||||
00040 CONFIGURATION SECTION. DTSBR503
|
||||
00041 SPECIAL-NAMES. DTSBR503
|
||||
00042 C01 IS TOP-OF-PAGE. DTSBR503
|
||||
00043 INPUT-OUTPUT SECTION. DTSBR503
|
||||
00044 FILE-CONTROL. DTSBR503
|
||||
00045 SELECT PRT-FILE1 ASSIGN TO RPT503R1. DTSBR503
|
||||
00046 SELECT PRT-FILE2 ASSIGN TO RPT503R2. DTSBR503
|
||||
00047 SELECT PRT-FILE3 ASSIGN TO RPT503R3. CL**5
|
||||
00048 DATA DIVISION. DTSBR503
|
||||
00049 FILE SECTION. DTSBR503
|
||||
00050 DTSBR503
|
||||
00051 FD PRT-FILE2 DTSBR503
|
||||
00051 FD PRT-FILE1 DTSBR503
|
||||
00052 RECORDING MODE IS F DTSBR503
|
||||
00053 LABEL RECORDS ARE OMITTED. DTSBR503
|
||||
00054 DTSBR503
|
||||
00055 01 PRT-R632A-REC PIC X(133). DTSBR503
|
||||
00055 01 PRT-R632-REC PIC X(133). DTSBR503
|
||||
00056 DTSBR503
|
||||
00057 WORKING-STORAGE SECTION. DTSBR503
|
||||
000575 77 PAN-VALET PICTURE X(24) VALUE '212DTSBR503 12/13/13'. DTSBR503
|
||||
00058 77 PAN-VALET PICTURE X(24) VALUE '002DTSBR503 12/13/13'. DTSBR503
|
||||
00059 77 PAN-VALET PICTURE X(24) VALUE '210DTSBR503 07/22/12'. DTSBR503
|
||||
00057 FD PRT-FILE2 DTSBR503
|
||||
00058 RECORDING MODE IS F DTSBR503
|
||||
00059 LABEL RECORDS ARE OMITTED. DTSBR503
|
||||
00060 DTSBR503
|
||||
00061 01 VSCA-ADDRESS-LINE. DTSBR503
|
||||
00062 03 VSCA-DATA. DTSBR503
|
||||
00063 05 PRT1 PIC X(132) VALUE SPACES. DTSBR503
|
||||
00064 03 FILLER PIC X VALUE '1'. DTSBR503
|
||||
00065 DTSBR503
|
||||
00066 01 VSCA-LINE PIC X(133) VALUE SPACES. DTSBR503
|
||||
00067 01 WS-REC PIC X(132) VALUE SPACES. DTSBR503
|
||||
00068 01 BLANK-LINE PIC X(133) VALUE SPACES. DTSBR503
|
||||
00069 01 WRK-DATE PIC 9(08) VALUE ZEROS. DTSBR503
|
||||
00070 01 WRK-DATE-Z REDEFINES WRK-DATE. DTSBR503
|
||||
00071 05 WRK-YR PIC 9(04). DTSBR503
|
||||
00072 05 WRK-MM PIC 9(02). DTSBR503
|
||||
00073 05 WRK-DA PIC 9(02). DTSBR503
|
||||
00074 01 WRK-AREA. DTSBR503
|
||||
00075 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR503
|
||||
00076 05 WS-503R2-RECORDS PIC X(01) VALUE 'Y'. DTSBR503
|
||||
00077 88 WS-503R2-RECORDS-88 VALUE 'Y'. DTSBR503
|
||||
00061 01 PRT-R632A-REC PIC X(133). DTSBR503
|
||||
00062 DTSBR503
|
||||
00063 FD PRT-FILE3 CL**4
|
||||
00064 RECORDING MODE IS F CL**4
|
||||
00065 LABEL RECORDS ARE OMITTED. CL**4
|
||||
00066 CL**4
|
||||
00067 01 PRT-X108-REC PIC X(24). CL**6
|
||||
00068 CL**6
|
||||
00069 WORKING-STORAGE SECTION. DTSBR503
|
||||
000695 77 PAN-VALET PICTURE X(24) VALUE '019DTSBR503 08/06/19'. DTSBR503
|
||||
00070 77 PAN-VALET PICTURE X(24) VALUE '212DTSBR503 12/13/13'. DTSBR503
|
||||
00071 77 PAN-VALET PICTURE X(24) VALUE '002DTSBR503 12/13/13'. DTSBR503
|
||||
00072 77 PAN-VALET PICTURE X(24) VALUE '210DTSBR503 07/22/12'. DTSBR503
|
||||
00073 DTSBR503
|
||||
00074 01 VSCA-ADDRESS-LINE. DTSBR503
|
||||
00075 03 VSCA-DATA. DTSBR503
|
||||
00076 05 PRT1 PIC X(132) VALUE SPACES. DTSBR503
|
||||
00077 03 FILLER PIC X VALUE '1'. DTSBR503
|
||||
00078 DTSBR503
|
||||
00079 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +503.DTSBR503
|
||||
00080 05 ABEND-MSG PIC X(60). DTSBR503
|
||||
00081 DTSBR503
|
||||
00082 01 WS-TEMPS. DTSBR503
|
||||
00083 05 WT-RATIO PIC S99V9(05). DTSBR503
|
||||
00084 05 WTC-RATE PIC S9V9999. DTSBR503
|
||||
00085 DTSBR503
|
||||
00086 01 632-DATE-LINE. DTSBR503
|
||||
00087 03 FILLER PIC X(86) VALUE SPACES. DTSBR503
|
||||
00088 03 DATE-632. DTSBR503
|
||||
00089 05 DATE-632-MM PIC 99. DTSBR503
|
||||
00090 05 FILLER PIC X VALUE '/'. DTSBR503
|
||||
00091 05 DATE-632-DA PIC 99. DTSBR503
|
||||
00092 05 FILLER PIC X VALUE '/'. DTSBR503
|
||||
00093 05 DATE-632-YY PIC 9999. DTSBR503
|
||||
00079 01 VSCA-LINE PIC X(133) VALUE SPACES. DTSBR503
|
||||
00080 01 WS-REC PIC X(132) VALUE SPACES. DTSBR503
|
||||
00081 01 BLANK-LINE PIC X(133) VALUE SPACES. DTSBR503
|
||||
00082 01 WRK-DATE PIC 9(08) VALUE ZEROS. DTSBR503
|
||||
00083 01 WRK-DATE-Z REDEFINES WRK-DATE. DTSBR503
|
||||
00084 05 WRK-YR PIC 9(04). DTSBR503
|
||||
00085 05 WRK-MM PIC 9(02). DTSBR503
|
||||
00086 05 WRK-DA PIC 9(02). DTSBR503
|
||||
00087 01 WRK-AREA. DTSBR503
|
||||
00088 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR503
|
||||
00089 05 WS-503R2-RECORDS PIC X(01) VALUE 'Y'. DTSBR503
|
||||
00090 88 WS-503R2-RECORDS-88 VALUE 'Y'. DTSBR503
|
||||
00091 DTSBR503
|
||||
00092 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +503.DTSBR503
|
||||
00093 05 ABEND-MSG PIC X(60). DTSBR503
|
||||
00094 DTSBR503
|
||||
00095 01 632A-DATE-LINE. DTSBR503
|
||||
00096 03 FILLER PIC X(86) VALUE SPACES. DTSBR503
|
||||
00097 03 DATE-632A. DTSBR503
|
||||
00098 05 DATE-632-MMA PIC 99. DTSBR503
|
||||
00099 05 FILLER PIC X VALUE '/'. DTSBR503
|
||||
00100 05 DATE-632-DAA PIC 99. DTSBR503
|
||||
00101 05 FILLER PIC X VALUE '/'. DTSBR503
|
||||
00102 05 DATE-632-YYA PIC 9999. DTSBR503
|
||||
00103 DTSBR503
|
||||
00104 01 632-DETAIL-LINE1. DTSBR503
|
||||
00105 03 FILLER PIC X. DTSBR503
|
||||
00106 03 FILLER PIC X(06) VALUE SPACES. DTSBR503
|
||||
00107 03 ACCOUNT PIC 999B999. DTSBR503
|
||||
00108 03 FILLER PIC X(09) VALUE SPACES. DTSBR503
|
||||
00109 03 RATE1 PIC X(07). DTSBR503
|
||||
00110 03 FILLER PIC X(21) VALUE SPACES. DTSBR503
|
||||
00111 03 ONLY-YR PIC X(4). DTSBR503
|
||||
00112 03 FILLER PIC X(08) VALUE SPACES. DTSBR503
|
||||
00113 03 COMPDTE PIC 99/99/9999. DTSBR503
|
||||
00114 03 FILLER PIC X(1) VALUE SPACES. DTSBR503
|
||||
00115 03 AAPAY PIC $$$,$$$,$$9.99. DTSBR503
|
||||
00116 03 FILLER PIC X(05) VALUE SPACES. DTSBR503
|
||||
00117 03 RESRATIO PIC X(05). DTSBR503
|
||||
00118 03 PER-CENT PIC X(01) VALUE '%'. DTSBR503
|
||||
00119 DTSBR503
|
||||
00120 01 632-DETAIL-LINE2. DTSBR503
|
||||
00121 03 FILLER PIC X(01) VALUE SPACES. DTSBR503
|
||||
00122 03 PREVIOUS PIC $$$$,$$$,$$9.99-. DTSBR503
|
||||
00123 03 FILLER PIC X(5) VALUE SPACES. DTSBR503
|
||||
00124 03 TRUST PIC $$,$$$,$$9.99. DTSBR503
|
||||
00125 03 FILLER PIC X(06) VALUE SPACES. DTSBR503
|
||||
00126 03 CONTRIBUTION PIC $$$,$$$,$$9.99-. DTSBR503
|
||||
00127 03 FILLER PIC X(07) VALUE SPACES. DTSBR503
|
||||
00128 03 BENEFITS PIC $$$$,$$$,$$9.99-. DTSBR503
|
||||
00129 03 FILLER PIC X(06) VALUE SPACES. DTSBR503
|
||||
00130 03 CURRENT-RESV PIC $$$$,$$$,$$9.99-. DTSBR503
|
||||
00131 DTSBR503
|
||||
00132 01 632-DETAIL-LINE3. DTSBR503
|
||||
00133 03 FILLER PIC X(94) VALUE SPACES. DTSBR503
|
||||
00134 03 RPT-TABLE PIC X(5) VALUE SPACES. DTSBR503
|
||||
00135 03 FILLER PIC X(35) VALUE SPACES. DTSBR503
|
||||
00136 DTSBR503
|
||||
00137 01 632A-DETAIL-LINE1. DTSBR503
|
||||
00138 03 FILLER PIC X. DTSBR503
|
||||
00139 03 FILLER PIC X(06) VALUE SPACES. DTSBR503
|
||||
00140 03 UNACCT PIC 999B999. DTSBR503
|
||||
00141 03 FILLER PIC X(15) VALUE SPACES. DTSBR503
|
||||
00142 03 RATE PIC X(07). DTSBR503
|
||||
00143 03 FILLER PIC X(33) VALUE SPACES. DTSBR503
|
||||
00144 03 UNONLY PIC X(4). DTSBR503
|
||||
00145 03 FILLER PIC X(14) VALUE SPACES. DTSBR503
|
||||
00146 03 UNCOMPDTE PIC 99/99/9999. DTSBR503
|
||||
00147 DTSBR503
|
||||
00148 01 632A-DETAIL-LINE2. DTSBR503
|
||||
00149 03 FILLER PIC X(2) VALUE SPACES. DTSBR503
|
||||
00150 03 UNPREV PIC $$$,$$$,$$9.99-. DTSBR503
|
||||
00151 03 FILLER PIC X(5) VALUE SPACES. DTSBR503
|
||||
00152 03 UNTRUST PIC $$$,$$$,$$9.99. DTSBR503
|
||||
00153 03 FILLER PIC X(6) VALUE SPACES. DTSBR503
|
||||
00154 03 UNCONT PIC $$$,$$$,$$9.99-. DTSBR503
|
||||
00155 03 FILLER PIC X(6) VALUE SPACES. DTSBR503
|
||||
00156 03 BCHARGED PIC $$$,$$$,$$9.99-. DTSBR503
|
||||
00157 03 FILLER PIC X(5) VALUE SPACES. DTSBR503
|
||||
00158 03 UNCURR PIC $$$,$$$,$$9.99-. DTSBR503
|
||||
00159 DTSBR503
|
||||
00160 EJECT DTSBR503
|
||||
00161 01 L001-LINK-AREA. DTSBR503
|
||||
00162 ++INCLUDE DTSIL001 DTSBR503
|
||||
00163 EJECT DTSBR503
|
||||
00164 01 L056-LINK-AREA. DTSBR503
|
||||
00165 ++INCLUDE DTSIL056 DTSBR503
|
||||
00166 EJECT DTSBR503
|
||||
00167 DTSBR503
|
||||
00168 01 L057-LINK-AREA. DTSBR503
|
||||
00169 ++INCLUDE DTSIL057 DTSBR503
|
||||
00170 EJECT DTSBR503
|
||||
00171 DTSBR503
|
||||
00172 ++INCLUDE DTSXL503 DTSBR503
|
||||
00173 EJECT DTSBR503
|
||||
00174 *RW1 DTSBR503
|
||||
00175 01 CONVERT-BARCODE-LINE. DTSBR503
|
||||
00176 05 BARC-EMP-NO PIC 9(06) VALUE ZEROS. DTSBR503
|
||||
00177 DTSBR503
|
||||
00178 01 WS-BARC-LINE. DTSBR503
|
||||
00179 05 FILLER PIC X(40) VALUE SPACES. DTSBR503
|
||||
00180 05 CONVERTED-BARCODE PIC X(50). DTSBR503
|
||||
00181 05 FILLER PIC X(30) VALUE SPACES. DTSBR503
|
||||
00182 DTSBR503
|
||||
00183 01 BARI-LINK-AREA. DTSBR503
|
||||
00184 ++INCLUDE BARIL599 DTSBR503
|
||||
00185 EJECT DTSBR503
|
||||
00186 *RW2 DTSBR503
|
||||
00187 LINKAGE SECTION. DTSBR503
|
||||
00188 SKIP3 DTSBR503
|
||||
00189 01 LRCM-LINK-AREA. DTSBR503
|
||||
00190 ++INCLUDE DTSILRCM DTSBR503
|
||||
00095 01 WS-TEMPS. DTSBR503
|
||||
00096 05 WT-RATIO PIC S99V9(05). DTSBR503
|
||||
00097 05 WTC-RATE PIC S9V9999. DTSBR503
|
||||
00098 DTSBR503
|
||||
00099 01 632-DATE-LINE. DTSBR503
|
||||
00100 03 FILLER PIC X(86) VALUE SPACES. DTSBR503
|
||||
00101 03 DATE-632. DTSBR503
|
||||
00102 05 DATE-632-MM PIC 99. DTSBR503
|
||||
00103 05 FILLER PIC X VALUE '/'. DTSBR503
|
||||
00104 05 DATE-632-DA PIC 99. DTSBR503
|
||||
00105 05 FILLER PIC X VALUE '/'. DTSBR503
|
||||
00106 05 DATE-632-YY PIC 9999. DTSBR503
|
||||
00107 DTSBR503
|
||||
00108 01 632A-DATE-LINE. DTSBR503
|
||||
00109 03 FILLER PIC X(86) VALUE SPACES. DTSBR503
|
||||
00110 03 DATE-632A. DTSBR503
|
||||
00111 05 DATE-632-MMA PIC 99. DTSBR503
|
||||
00112 05 FILLER PIC X VALUE '/'. DTSBR503
|
||||
00113 05 DATE-632-DAA PIC 99. DTSBR503
|
||||
00114 05 FILLER PIC X VALUE '/'. DTSBR503
|
||||
00115 05 DATE-632-YYA PIC 9999. DTSBR503
|
||||
00116 DTSBR503
|
||||
00117 01 632-DETAIL-LINE1. DTSBR503
|
||||
00118 03 FILLER PIC X. DTSBR503
|
||||
00119 03 FILLER PIC X(06) VALUE SPACES. DTSBR503
|
||||
00120 03 ACCOUNT PIC 999B999. DTSBR503
|
||||
00121 03 FILLER PIC X(09) VALUE SPACES. DTSBR503
|
||||
00122 03 RATE1 PIC X(07). DTSBR503
|
||||
00123 03 FILLER PIC X(21) VALUE SPACES. DTSBR503
|
||||
00124 03 ONLY-YR PIC X(4). DTSBR503
|
||||
00125 03 FILLER PIC X(08) VALUE SPACES. DTSBR503
|
||||
00126 03 COMPDTE PIC 99/99/9999. DTSBR503
|
||||
00127 03 FILLER PIC X(1) VALUE SPACES. DTSBR503
|
||||
00128 03 AAPAY PIC $$$,$$$,$$9.99. DTSBR503
|
||||
00129 03 FILLER PIC X(05) VALUE SPACES. DTSBR503
|
||||
00130 03 RESRATIO PIC X(05). DTSBR503
|
||||
00131 03 PER-CENT PIC X(01) VALUE '%'. DTSBR503
|
||||
00132 DTSBR503
|
||||
00133 01 632-DETAIL-LINE2. DTSBR503
|
||||
00134 03 FILLER PIC X(01) VALUE SPACES. DTSBR503
|
||||
00135 03 PREVIOUS PIC $$$$,$$$,$$9.99-. DTSBR503
|
||||
00136 03 FILLER PIC X(5) VALUE SPACES. DTSBR503
|
||||
00137 03 TRUST PIC $$,$$$,$$9.99. DTSBR503
|
||||
00138 03 FILLER PIC X(06) VALUE SPACES. DTSBR503
|
||||
00139 03 CONTRIBUTION PIC $$$,$$$,$$9.99-. DTSBR503
|
||||
00140 03 FILLER PIC X(07) VALUE SPACES. DTSBR503
|
||||
00141 03 BENEFITS PIC $$$$,$$$,$$9.99-. DTSBR503
|
||||
00142 03 FILLER PIC X(06) VALUE SPACES. DTSBR503
|
||||
00143 03 CURRENT-RESV PIC $$$$,$$$,$$9.99-. DTSBR503
|
||||
00144 DTSBR503
|
||||
00145 01 632-DETAIL-LINE3. DTSBR503
|
||||
00146 03 FILLER PIC X(94) VALUE SPACES. DTSBR503
|
||||
00147 03 RPT-TABLE PIC X(5) VALUE SPACES. DTSBR503
|
||||
00148 03 FILLER PIC X(35) VALUE SPACES. DTSBR503
|
||||
00149 DTSBR503
|
||||
00150 01 632A-DETAIL-LINE1. DTSBR503
|
||||
00151 03 FILLER PIC X. DTSBR503
|
||||
00152 03 FILLER PIC X(06) VALUE SPACES. DTSBR503
|
||||
00153 03 UNACCT PIC 999B999. DTSBR503
|
||||
00154 03 FILLER PIC X(15) VALUE SPACES. DTSBR503
|
||||
00155 03 RATE PIC X(07). DTSBR503
|
||||
00156 03 FILLER PIC X(33) VALUE SPACES. DTSBR503
|
||||
00157 03 UNONLY PIC X(4). DTSBR503
|
||||
00158 03 FILLER PIC X(14) VALUE SPACES. DTSBR503
|
||||
00159 03 UNCOMPDTE PIC 99/99/9999. DTSBR503
|
||||
00160 DTSBR503
|
||||
00161 01 632A-DETAIL-LINE2. DTSBR503
|
||||
00162 03 FILLER PIC X(2) VALUE SPACES. DTSBR503
|
||||
00163 03 UNPREV PIC $$$,$$$,$$9.99-. DTSBR503
|
||||
00164 03 FILLER PIC X(5) VALUE SPACES. DTSBR503
|
||||
00165 03 UNTRUST PIC $$$,$$$,$$9.99. DTSBR503
|
||||
00166 03 FILLER PIC X(6) VALUE SPACES. DTSBR503
|
||||
00167 03 UNCONT PIC $$$,$$$,$$9.99-. DTSBR503
|
||||
00168 03 FILLER PIC X(6) VALUE SPACES. DTSBR503
|
||||
00169 03 BCHARGED PIC $$$,$$$,$$9.99-. DTSBR503
|
||||
00170 03 FILLER PIC X(5) VALUE SPACES. DTSBR503
|
||||
00171 03 UNCURR PIC $$$,$$$,$$9.99-. DTSBR503
|
||||
00172 DTSBR503
|
||||
00173 01 X108-REC. CL*12
|
||||
00174 ++INCLUDE DTSIX108 CL*12
|
||||
00175 EJECT DTSBR503
|
||||
00176 01 L001-LINK-AREA. DTSBR503
|
||||
00177 ++INCLUDE DTSIL001 DTSBR503
|
||||
00178 EJECT DTSBR503
|
||||
00179 01 L009-LINK-AREA. CL**3
|
||||
00180 ++INCLUDE DTSIL009 CL**3
|
||||
00181 EJECT CL**3
|
||||
00182 01 L056-LINK-AREA. DTSBR503
|
||||
00183 ++INCLUDE DTSIL056 DTSBR503
|
||||
00184 EJECT DTSBR503
|
||||
00185 DTSBR503
|
||||
00186 01 L057-LINK-AREA. DTSBR503
|
||||
00187 ++INCLUDE DTSIL057 DTSBR503
|
||||
00188 EJECT DTSBR503
|
||||
00189 DTSBR503
|
||||
00190 ++INCLUDE DTSXL503 DTSBR503
|
||||
00191 EJECT DTSBR503
|
||||
00192 01 R503-REC. DTSBR503
|
||||
00193 ++INCLUDE DTSIR503 DTSBR503
|
||||
00194 EJECT DTSBR503
|
||||
00195 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR503
|
||||
00196 R503-REC. DTSBR503
|
||||
00197 DTSBR503
|
||||
00198 IF FIRST-TIME-IND = 'Y' DTSBR503
|
||||
00199 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR503
|
||||
00200 MOVE 'N' TO FIRST-TIME-IND. DTSBR503
|
||||
00201 DTSBR503
|
||||
00202 IF LRCM-EOR-88 DTSBR503
|
||||
00203 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR503
|
||||
00204 ELSE DTSBR503
|
||||
00205 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR503
|
||||
00206 GOBACK. DTSBR503
|
||||
00207 DTSBR503
|
||||
00208 EXIT. DTSBR503
|
||||
00192 *RW1 DTSBR503
|
||||
00193 01 CONVERT-BARCODE-LINE. DTSBR503
|
||||
00194 05 BARC-EMP-NO PIC 9(06) VALUE ZEROS. DTSBR503
|
||||
00195 DTSBR503
|
||||
00196 01 WS-BARC-LINE. DTSBR503
|
||||
00197 05 FILLER PIC X(40) VALUE SPACES. DTSBR503
|
||||
00198 05 CONVERTED-BARCODE PIC X(50). DTSBR503
|
||||
00199 05 FILLER PIC X(30) VALUE SPACES. DTSBR503
|
||||
00200 DTSBR503
|
||||
00201 01 BARI-LINK-AREA. DTSBR503
|
||||
00202 ++INCLUDE BARIL599 DTSBR503
|
||||
00203 EJECT DTSBR503
|
||||
00204 *RW2 DTSBR503
|
||||
00205 LINKAGE SECTION. DTSBR503
|
||||
00206 SKIP3 DTSBR503
|
||||
00207 01 LRCM-LINK-AREA. DTSBR503
|
||||
00208 ++INCLUDE DTSILRCM DTSBR503
|
||||
00209 EJECT DTSBR503
|
||||
00210 DTSBR503
|
||||
00211 DTSBR503
|
||||
00212 I1000-INITIATE. DTSBR503
|
||||
00213 OPEN OUTPUT PRT-FILE1 PRT-FILE2. DTSBR503
|
||||
00214 DTSBR503
|
||||
00215 MOVE R503-NOTICE-DATE TO WRK-DATE. DTSBR503
|
||||
00216 MOVE WRK-DA TO DATE-632-DAA DATE-632-DA DTSBR503
|
||||
00217 MOVE WRK-MM TO DATE-632-MMA DATE-632-MM DTSBR503
|
||||
00218 MOVE WRK-YR TO DATE-632-YYA DATE-632-YY. DTSBR503
|
||||
00210 01 R503-REC. DTSBR503
|
||||
00211 ++INCLUDE DTSIR503 DTSBR503
|
||||
00212 EJECT DTSBR503
|
||||
00213 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR503
|
||||
00214 R503-REC. DTSBR503
|
||||
00215 DTSBR503
|
||||
00216 IF FIRST-TIME-IND = 'Y' DTSBR503
|
||||
00217 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR503
|
||||
00218 MOVE 'N' TO FIRST-TIME-IND. DTSBR503
|
||||
00219 DTSBR503
|
||||
00220 MOVE 13 TO DATE-632-DAA DATE-632-DA DTSBR503
|
||||
00221 MOVE 12 TO DATE-632-MMA DATE-632-MM DTSBR503
|
||||
00222 MOVE 2013 TO DATE-632-YYA DATE-632-YY. DTSBR503
|
||||
00223 DTSBR503
|
||||
00224 WRITE PRT-R632-REC FROM BLANK-LINE DTSBR503
|
||||
00225 AFTER ADVANCING TOP-OF-PAGE. DTSBR503
|
||||
00226 DTSBR503
|
||||
00227 WRITE PRT-R632-REC FROM LINE-13 AFTER DTSBR503
|
||||
00228 ADVANCING 15 LINES. DTSBR503
|
||||
00229 WRITE PRT-R632-REC FROM LINE-14 AFTER 1. DTSBR503
|
||||
00230 WRITE PRT-R632-REC FROM LINE-15. DTSBR503
|
||||
00231 WRITE PRT-R632-REC FROM LINE-16. DTSBR503
|
||||
00232 WRITE PRT-R632-REC FROM LINE-17. DTSBR503
|
||||
00233 DTSBR503
|
||||
00234 WRITE PRT-R632-REC FROM BLANK-LINE DTSBR503
|
||||
00235 AFTER ADVANCING PAGE. DTSBR503
|
||||
00236 DTSBR503
|
||||
00237 WRITE PRT-R632A-REC FROM BLANK-LINE DTSBR503
|
||||
00238 AFTER ADVANCING TOP-OF-PAGE. DTSBR503
|
||||
00239 DTSBR503
|
||||
00240 WRITE PRT-R632A-REC FROM LINE-13 AFTER DTSBR503
|
||||
00241 ADVANCING 15 LINES. DTSBR503
|
||||
00242 WRITE PRT-R632A-REC FROM LINE-14 AFTER 1. DTSBR503
|
||||
00243 WRITE PRT-R632A-REC FROM LINE-15. DTSBR503
|
||||
00244 WRITE PRT-R632A-REC FROM LINE-16. DTSBR503
|
||||
00245 WRITE PRT-R632A-REC FROM LINE-17. DTSBR503
|
||||
00246 DTSBR503
|
||||
00247 WRITE PRT-R632A-REC FROM BLANK-LINE DTSBR503
|
||||
00248 AFTER ADVANCING TOP-OF-PAGE. DTSBR503
|
||||
00249 I1000-EXIT. DTSBR503
|
||||
00250 EXIT. DTSBR503
|
||||
00251 P1000-PROCESS. DTSBR503
|
||||
00252 SKIP1 DTSBR503
|
||||
00253 MOVE R503-CURRENT-RESERVE-THRU-DATE TO L001-FED-8-DATE-9. DTSBR503
|
||||
00254 SET L001-FROM-FED-8 TO TRUE. DTSBR503
|
||||
00255 PERFORM S001-DATE THRU S001-EXIT. DTSBR503
|
||||
00256 DTSBR503
|
||||
00257 MOVE R503-UI-RATE TO L056-RATE. DTSBR503
|
||||
00258 SET L056-DISP1-LEFT-PCT-88 TO TRUE. DTSBR503
|
||||
00259 PERFORM S056-RATE-DISPLAY THRU S056-EXIT. DTSBR503
|
||||
00260 DTSBR503
|
||||
00261 DTSBR503
|
||||
00262 MOVE R503-RESERVE-RATIO TO L057-RATIO. DTSBR503
|
||||
00263 PERFORM S057-DISP-RATIO THRU S057-EXIT. DTSBR503
|
||||
00264 *RW1 DTSBR503
|
||||
00265 MOVE R503-EMP-NO TO BARC-EMP-NO. DTSBR503
|
||||
00266 PERFORM S599-BARCODE THRU S599-EXIT. DTSBR503
|
||||
00267 DTSBR503
|
||||
00268 IF L599-SETB-FONT1 DTSBR503
|
||||
00269 MOVE 'MODIFY=TAXSM1,' TO X1-CA-CME XA-CA-CME DTSBR503
|
||||
00270 ELSE DTSBR503
|
||||
00271 IF L599-SETB-FONT2 DTSBR503
|
||||
00272 MOVE 'MODIFY=TAXSM2,' TO X1-CA-CME XA-CA-CME DTSBR503
|
||||
00273 ELSE DTSBR503
|
||||
00274 MOVE 'MODIFY=TAXSM1,' TO X1-CA-CME XA-CA-CME. DTSBR503
|
||||
00275 *RW2 DTSBR503
|
||||
00276 MOVE R503-FMT-LINE(1) TO FMT-ADDR-LINE1. DTSBR503
|
||||
00277 MOVE R503-FMT-LINE(2) TO FMT-ADDR-LINE2. DTSBR503
|
||||
00278 MOVE R503-FMT-LINE(3) TO FMT-ADDR-LINE3. DTSBR503
|
||||
00279 MOVE R503-FMT-LINE(4) TO FMT-ADDR-LINE4. DTSBR503
|
||||
00280 MOVE R503-FMT-LINE(5) TO FMT-ADDR-LINE5. DTSBR503
|
||||
00281 DTSBR503
|
||||
00282 IF R503-CLASSIFIED-88 DTSBR503
|
||||
00283 WRITE PRT-R632-REC FROM XF-CA-CNTL-L632 DTSBR503
|
||||
00284 AFTER ADVANCING TOP-OF-PAGE DTSBR503
|
||||
00285 WRITE PRT-R632-REC FROM X2-CA-CNTL-LINE AFTER 1 DTSBR503
|
||||
00286 WRITE PRT-R632-REC FROM X3-CA-CNTL-LINE AFTER 1 DTSBR503
|
||||
00287 PERFORM P1100-R632 THRU P1100-EXIT DTSBR503
|
||||
00220 IF LRCM-EOR-88 DTSBR503
|
||||
00221 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR503
|
||||
00222 ELSE DTSBR503
|
||||
00223 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR503
|
||||
00224 GOBACK. DTSBR503
|
||||
00225 DTSBR503
|
||||
00226 EXIT. DTSBR503
|
||||
00227 EJECT DTSBR503
|
||||
00228 DTSBR503
|
||||
00229 DTSBR503
|
||||
00230 I1000-INITIATE. DTSBR503
|
||||
00231 OPEN OUTPUT PRT-FILE1 PRT-FILE2 PRT-FILE3. CL*13
|
||||
00232 DTSBR503
|
||||
00233 MOVE R503-NOTICE-DATE TO WRK-DATE. DTSBR503
|
||||
00234 MOVE WRK-DA TO DATE-632-DAA DATE-632-DA DTSBR503
|
||||
00235 MOVE WRK-MM TO DATE-632-MMA DATE-632-MM DTSBR503
|
||||
00236 MOVE WRK-YR TO DATE-632-YYA DATE-632-YY. DTSBR503
|
||||
00237 DTSBR503
|
||||
00238 * MOVE 13 TO DATE-632-DAA DATE-632-DA CL**2
|
||||
00239 * MOVE 12 TO DATE-632-MMA DATE-632-MM CL**2
|
||||
00240 * MOVE 2013 TO DATE-632-YYA DATE-632-YY. CL**2
|
||||
00241 DTSBR503
|
||||
00242 WRITE PRT-R632-REC FROM BLANK-LINE DTSBR503
|
||||
00243 AFTER ADVANCING TOP-OF-PAGE. DTSBR503
|
||||
00244 DTSBR503
|
||||
00245 WRITE PRT-R632-REC FROM LINE-13 AFTER DTSBR503
|
||||
00246 ADVANCING 15 LINES. DTSBR503
|
||||
00247 WRITE PRT-R632-REC FROM LINE-14 AFTER 1. DTSBR503
|
||||
00248 WRITE PRT-R632-REC FROM LINE-15. DTSBR503
|
||||
00249 WRITE PRT-R632-REC FROM LINE-16. DTSBR503
|
||||
00250 WRITE PRT-R632-REC FROM LINE-17. DTSBR503
|
||||
00251 DTSBR503
|
||||
00252 WRITE PRT-R632-REC FROM BLANK-LINE DTSBR503
|
||||
00253 AFTER ADVANCING PAGE. DTSBR503
|
||||
00254 DTSBR503
|
||||
00255 WRITE PRT-R632A-REC FROM BLANK-LINE DTSBR503
|
||||
00256 AFTER ADVANCING TOP-OF-PAGE. DTSBR503
|
||||
00257 DTSBR503
|
||||
00258 WRITE PRT-R632A-REC FROM LINE-13 AFTER DTSBR503
|
||||
00259 ADVANCING 15 LINES. DTSBR503
|
||||
00260 WRITE PRT-R632A-REC FROM LINE-14 AFTER 1. DTSBR503
|
||||
00261 WRITE PRT-R632A-REC FROM LINE-15. DTSBR503
|
||||
00262 WRITE PRT-R632A-REC FROM LINE-16. DTSBR503
|
||||
00263 WRITE PRT-R632A-REC FROM LINE-17. DTSBR503
|
||||
00264 DTSBR503
|
||||
00265 WRITE PRT-R632A-REC FROM BLANK-LINE DTSBR503
|
||||
00266 AFTER ADVANCING TOP-OF-PAGE. DTSBR503
|
||||
00267 I1000-EXIT. DTSBR503
|
||||
00268 EXIT. DTSBR503
|
||||
00269 P1000-PROCESS. DTSBR503
|
||||
00270 SKIP1 DTSBR503
|
||||
00271 MOVE R503-CURRENT-RESERVE-THRU-DATE TO L001-FED-8-DATE-9. DTSBR503
|
||||
00272 SET L001-FROM-FED-8 TO TRUE. DTSBR503
|
||||
00273 PERFORM S001-DATE THRU S001-EXIT. DTSBR503
|
||||
00274 DTSBR503
|
||||
00275 MOVE R503-UI-RATE TO L056-RATE. DTSBR503
|
||||
00276 SET L056-DISP1-LEFT-PCT-88 TO TRUE. DTSBR503
|
||||
00277 PERFORM S056-RATE-DISPLAY THRU S056-EXIT. DTSBR503
|
||||
00278 DTSBR503
|
||||
00279 DTSBR503
|
||||
00280 MOVE R503-RESERVE-RATIO TO L057-RATIO. DTSBR503
|
||||
00281 PERFORM S057-DISP-RATIO THRU S057-EXIT. DTSBR503
|
||||
00282 *RW1 DTSBR503
|
||||
00283 MOVE R503-EMP-NO TO BARC-EMP-NO. DTSBR503
|
||||
00284 PERFORM S599-BARCODE THRU S599-EXIT. DTSBR503
|
||||
00285 DTSBR503
|
||||
00286 IF L599-SETB-FONT1 DTSBR503
|
||||
00287 MOVE 'MODIFY=TAXSM1,' TO X1-CA-CME XA-CA-CME DTSBR503
|
||||
00288 ELSE DTSBR503
|
||||
00289 IF R503-NONCLASSIFIED-88 DTSBR503
|
||||
00290 IF WS-503R2-RECORDS-88 DTSBR503
|
||||
00291 MOVE 'N' TO WS-503R2-RECORDS DTSBR503
|
||||
00292 WRITE PRT-R632A-REC FROM XF-CA-CNTL-L632A DTSBR503
|
||||
00293 AFTER ADVANCING PAGE DTSBR503
|
||||
00294 WRITE PRT-R632A-REC FROM X2-CA-CNTL-LINE DTSBR503
|
||||
00295 WRITE PRT-R632A-REC FROM X3-CA-CNTL-LINE DTSBR503
|
||||
00296 PERFORM P1200-R632A THRU P1200-EXIT DTSBR503
|
||||
00297 ELSE DTSBR503
|
||||
00298 WRITE PRT-R632A-REC FROM X2-CA-CNTL-LINE DTSBR503
|
||||
00299 AFTER ADVANCING PAGE DTSBR503
|
||||
00300 WRITE PRT-R632A-REC FROM X3-CA-CNTL-LINE AFTER 1 DTSBR503
|
||||
00301 PERFORM P1200-R632A THRU P1200-EXIT DTSBR503
|
||||
00302 END-IF DTSBR503
|
||||
00303 ELSE DTSBR503
|
||||
00304 DISPLAY ' INVALID RECORD TYPE ' R503-REC-TYPE DTSBR503
|
||||
00305 DISPLAY ' INVALID EMPLOYER ' R503-EMP-NO. DTSBR503
|
||||
00306 P1000-EXIT. DTSBR503
|
||||
00307 EXIT. DTSBR503
|
||||
00308 EJECT DTSBR503
|
||||
00309 DTSBR503
|
||||
00310 P1100-R632. DTSBR503
|
||||
00311 WRITE PRT-R632-REC FROM 632-DATE-LINE AFTER 11. DTSBR503
|
||||
00312 MOVE R503-EMP-NO TO ACCOUNT. DTSBR503
|
||||
00313 MOVE L056-DISP-RATE TO RATE1. DTSBR503
|
||||
00314 MOVE R503-RATE-YEAR TO ONLY-YR. DTSBR503
|
||||
00315 MOVE L001-CAL-8-DATE-9 TO COMPDTE. DTSBR503
|
||||
00316 MOVE R503-AVG-TAX-WAGE TO AAPAY. DTSBR503
|
||||
00317 MOVE L057-DISP-RATIO TO RESRATIO. DTSBR503
|
||||
00318 MOVE R503-RATE-TABLE TO RPT-TABLE. DTSBR503
|
||||
00319 INSPECT RPT-TABLE REPLACING FIRST ' ' BY '.'. DTSBR503
|
||||
00320 WRITE PRT-R632-REC FROM 632-DETAIL-LINE1 AFTER 5. DTSBR503
|
||||
00321 DTSBR503
|
||||
00322 MOVE R503-PRIOR-RESERVE-AMT TO PREVIOUS. DTSBR503
|
||||
00323 MOVE R503-TRUST-FUND-INTEREST-AMT TO TRUST. DTSBR503
|
||||
00324 MOVE R503-UI-TAX-PAID-AMT TO CONTRIBUTION. DTSBR503
|
||||
00325 MOVE R503-BENEFITS-CHARGED-AMT TO BENEFITS DTSBR503
|
||||
00326 MOVE R503-CURRENT-RESERVE-AMT TO CURRENT-RESV DTSBR503
|
||||
00327 WRITE PRT-R632-REC FROM 632-DETAIL-LINE2 AFTER 7. DTSBR503
|
||||
00328 WRITE PRT-R632-REC FROM 632-DETAIL-LINE3 AFTER 48. DTSBR503
|
||||
00329 *RW1 DTSBR503
|
||||
00330 MOVE L599-BARCODED-DATA TO CONVERTED-BARCODE. DTSBR503
|
||||
00331 DTSBR503
|
||||
00332 MOVE SPACES TO WS-REC. DTSBR503
|
||||
00333 WRITE PRT-R632-REC FROM WS-REC DTSBR503
|
||||
00334 AFTER ADVANCING TOP-OF-PAGE. DTSBR503
|
||||
00335 DTSBR503
|
||||
00336 WRITE PRT-R632-REC FROM WS-BARC-LINE AFTER 04. DTSBR503
|
||||
00337 DTSBR503
|
||||
00338 * WRITE PRT-R632-REC FROM BLANK-LINE DTSBR503
|
||||
00339 * AFTER ADVANCING TOP-OF-PAGE. DTSBR503
|
||||
00340 * WRITE PRT-R632-REC FROM LINE-ADDR-17 AFTER ADVANCING DTSBR503
|
||||
00341 * 24 LINES. DTSBR503
|
||||
00342 WRITE PRT-R632-REC FROM LINE-ADDR-17 AFTER ADVANCING DTSBR503
|
||||
00343 20 LINES. DTSBR503
|
||||
00344 *RW2 DTSBR503
|
||||
00345 WRITE PRT-R632-REC FROM LINE-ADDR-18 AFTER 1. DTSBR503
|
||||
00346 WRITE PRT-R632-REC FROM LINE-ADDR-19 AFTER 1. DTSBR503
|
||||
00347 WRITE PRT-R632-REC FROM LINE-ADDR-20 AFTER 1. DTSBR503
|
||||
00348 WRITE PRT-R632-REC FROM LINE-ADDR-21 AFTER 1. DTSBR503
|
||||
00349 DTSBR503
|
||||
00350 P1100-EXIT. DTSBR503
|
||||
00351 EXIT. DTSBR503
|
||||
00352 EJECT DTSBR503
|
||||
00353 DTSBR503
|
||||
00354 P1200-R632A. DTSBR503
|
||||
00355 WRITE PRT-R632A-REC FROM 632A-DATE-LINE AFTER 12. DTSBR503
|
||||
00356 MOVE R503-EMP-NO TO UNACCT. DTSBR503
|
||||
00357 MOVE L056-DISP-RATE TO RATE. DTSBR503
|
||||
00358 MOVE R503-RATE-YEAR TO UNONLY. DTSBR503
|
||||
00359 MOVE L001-CAL-8-DATE-9 TO UNCOMPDTE. DTSBR503
|
||||
00360 WRITE PRT-R632A-REC FROM 632A-DETAIL-LINE1 AFTER 5. DTSBR503
|
||||
00361 DTSBR503
|
||||
00362 MOVE R503-PRIOR-RESERVE-AMT TO UNPREV. DTSBR503
|
||||
00363 MOVE R503-TRUST-FUND-INTEREST-AMT TO UNTRUST. DTSBR503
|
||||
00364 MOVE R503-UI-TAX-PAID-AMT TO UNCONT. DTSBR503
|
||||
00365 MOVE R503-BENEFITS-CHARGED-AMT TO BCHARGED. DTSBR503
|
||||
00366 MOVE R503-CURRENT-RESERVE-AMT TO UNCURR. DTSBR503
|
||||
00367 WRITE PRT-R632A-REC FROM 632A-DETAIL-LINE2 AFTER 6. DTSBR503
|
||||
00368 *RW1 DTSBR503
|
||||
00369 MOVE L599-BARCODED-DATA TO CONVERTED-BARCODE. DTSBR503
|
||||
00370 DTSBR503
|
||||
00371 MOVE SPACES TO WS-REC. DTSBR503
|
||||
00372 WRITE PRT-R632A-REC FROM WS-REC DTSBR503
|
||||
00373 AFTER ADVANCING TOP-OF-PAGE. DTSBR503
|
||||
00374 DTSBR503
|
||||
00375 WRITE PRT-R632A-REC FROM WS-BARC-LINE AFTER 04. DTSBR503
|
||||
00376 DTSBR503
|
||||
00377 * WRITE PRT-R632A-REC FROM BLANK-LINE DTSBR503
|
||||
00378 * AFTER ADVANCING TOP-OF-PAGE. DTSBR503
|
||||
00379 * WRITE PRT-R632A-REC FROM LINE-ADDR-17 AFTER ADVANCING DTSBR503
|
||||
00380 * 24 LINES. DTSBR503
|
||||
00381 WRITE PRT-R632A-REC FROM LINE-ADDR-17 AFTER ADVANCING DTSBR503
|
||||
00382 20 LINES. DTSBR503
|
||||
00383 *RW2 DTSBR503
|
||||
00384 WRITE PRT-R632A-REC FROM LINE-ADDR-18 AFTER 1. DTSBR503
|
||||
00385 WRITE PRT-R632A-REC FROM LINE-ADDR-19 AFTER 1. DTSBR503
|
||||
00386 WRITE PRT-R632A-REC FROM LINE-ADDR-20 AFTER 1. DTSBR503
|
||||
00387 WRITE PRT-R632A-REC FROM LINE-ADDR-21 AFTER 1. DTSBR503
|
||||
00289 IF L599-SETB-FONT2 DTSBR503
|
||||
00290 MOVE 'MODIFY=TAXSM2,' TO X1-CA-CME XA-CA-CME DTSBR503
|
||||
00291 ELSE DTSBR503
|
||||
00292 MOVE 'MODIFY=TAXSM1,' TO X1-CA-CME XA-CA-CME. DTSBR503
|
||||
00293 CL**3
|
||||
00294 IF R503-FMT-LINE(1) > SPACES CL**3
|
||||
00295 MOVE R503-FMT-LINE(1) TO L009-DATA CL**3
|
||||
00296 PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT CL**3
|
||||
00297 MOVE L009-DATA TO FMT-ADDR-LINE1 CL**3
|
||||
00298 ELSE CL**3
|
||||
00299 MOVE SPACES TO FMT-ADDR-LINE1. CL**3
|
||||
00300 CL**3
|
||||
00301 IF R503-FMT-LINE(2) > SPACES CL**3
|
||||
00302 MOVE R503-FMT-LINE(2) TO L009-DATA CL**3
|
||||
00303 PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT CL**3
|
||||
00304 MOVE L009-DATA TO FMT-ADDR-LINE2 CL**3
|
||||
00305 ELSE CL**3
|
||||
00306 MOVE SPACES TO FMT-ADDR-LINE2. CL**3
|
||||
00307 CL**3
|
||||
00308 IF R503-FMT-LINE(3) > SPACES CL**3
|
||||
00309 MOVE R503-FMT-LINE(3) TO L009-DATA CL**3
|
||||
00310 PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT CL**3
|
||||
00311 MOVE L009-DATA TO FMT-ADDR-LINE3 CL**3
|
||||
00312 ELSE CL**3
|
||||
00313 MOVE SPACES TO FMT-ADDR-LINE3. CL**3
|
||||
00314 CL**3
|
||||
00315 DTSBR503
|
||||
00316 IF R503-FMT-LINE(4) > SPACES CL**3
|
||||
00317 MOVE R503-FMT-LINE(4) TO L009-DATA CL**3
|
||||
00318 PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT CL**3
|
||||
00319 MOVE L009-DATA TO FMT-ADDR-LINE4 CL**3
|
||||
00320 ELSE CL**3
|
||||
00321 MOVE SPACES TO FMT-ADDR-LINE4. CL**3
|
||||
00322 CL**3
|
||||
00323 IF R503-FMT-LINE(5) > SPACES CL**3
|
||||
00324 MOVE R503-FMT-LINE(5) TO L009-DATA CL**3
|
||||
00325 PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT CL**3
|
||||
00326 MOVE L009-DATA TO FMT-ADDR-LINE5 CL**3
|
||||
00327 ELSE CL**3
|
||||
00328 MOVE SPACES TO FMT-ADDR-LINE5. CL**3
|
||||
00329 CL**3
|
||||
00330 IF R503-CLASSIFIED-88 DTSBR503
|
||||
00331 WRITE PRT-R632-REC FROM XF-CA-CNTL-L632 DTSBR503
|
||||
00332 AFTER ADVANCING TOP-OF-PAGE DTSBR503
|
||||
00333 WRITE PRT-R632-REC FROM X2-CA-CNTL-LINE AFTER 1 DTSBR503
|
||||
00334 WRITE PRT-R632-REC FROM X3-CA-CNTL-LINE AFTER 1 DTSBR503
|
||||
00335 PERFORM P1100-R632 THRU P1100-EXIT DTSBR503
|
||||
00336 ELSE DTSBR503
|
||||
00337 IF R503-NONCLASSIFIED-88 DTSBR503
|
||||
00338 IF WS-503R2-RECORDS-88 DTSBR503
|
||||
00339 MOVE 'N' TO WS-503R2-RECORDS DTSBR503
|
||||
00340 WRITE PRT-R632A-REC FROM XF-CA-CNTL-L632A DTSBR503
|
||||
00341 AFTER ADVANCING PAGE DTSBR503
|
||||
00342 WRITE PRT-R632A-REC FROM X2-CA-CNTL-LINE DTSBR503
|
||||
00343 WRITE PRT-R632A-REC FROM X3-CA-CNTL-LINE DTSBR503
|
||||
00344 PERFORM P1200-R632A THRU P1200-EXIT DTSBR503
|
||||
00345 ELSE DTSBR503
|
||||
00346 WRITE PRT-R632A-REC FROM X2-CA-CNTL-LINE DTSBR503
|
||||
00347 AFTER ADVANCING PAGE DTSBR503
|
||||
00348 WRITE PRT-R632A-REC FROM X3-CA-CNTL-LINE AFTER 1 DTSBR503
|
||||
00349 PERFORM P1200-R632A THRU P1200-EXIT DTSBR503
|
||||
00350 END-IF DTSBR503
|
||||
00351 ELSE DTSBR503
|
||||
00352 DISPLAY ' INVALID RECORD TYPE ' R503-REC-TYPE DTSBR503
|
||||
00353 DISPLAY ' INVALID EMPLOYER ' R503-EMP-NO. DTSBR503
|
||||
00354 CL*12
|
||||
00355 PERFORM P1300-ESSP-RATE THRU P1300-EXIT. CL*12
|
||||
00356 CL*12
|
||||
00357 P1000-EXIT. DTSBR503
|
||||
00358 EXIT. DTSBR503
|
||||
00359 EJECT DTSBR503
|
||||
00360 DTSBR503
|
||||
00361 P1100-R632. DTSBR503
|
||||
00362 WRITE PRT-R632-REC FROM 632-DATE-LINE AFTER 11. DTSBR503
|
||||
00363 MOVE R503-EMP-NO TO ACCOUNT. DTSBR503
|
||||
00364 MOVE L056-DISP-RATE TO RATE1. DTSBR503
|
||||
00365 MOVE R503-RATE-YEAR TO ONLY-YR. DTSBR503
|
||||
00366 MOVE L001-CAL-8-DATE-9 TO COMPDTE. DTSBR503
|
||||
00367 MOVE R503-AVG-TAX-WAGE TO AAPAY. DTSBR503
|
||||
00368 MOVE L057-DISP-RATIO TO RESRATIO. DTSBR503
|
||||
00369 MOVE R503-RATE-TABLE TO RPT-TABLE. DTSBR503
|
||||
00370 INSPECT RPT-TABLE REPLACING FIRST ' ' BY '.'. DTSBR503
|
||||
00371 WRITE PRT-R632-REC FROM 632-DETAIL-LINE1 AFTER 5. DTSBR503
|
||||
00372 DTSBR503
|
||||
00373 MOVE R503-PRIOR-RESERVE-AMT TO PREVIOUS. DTSBR503
|
||||
00374 MOVE R503-TRUST-FUND-INTEREST-AMT TO TRUST. DTSBR503
|
||||
00375 MOVE R503-UI-TAX-PAID-AMT TO CONTRIBUTION. DTSBR503
|
||||
00376 MOVE R503-BENEFITS-CHARGED-AMT TO BENEFITS DTSBR503
|
||||
00377 MOVE R503-CURRENT-RESERVE-AMT TO CURRENT-RESV DTSBR503
|
||||
00378 WRITE PRT-R632-REC FROM 632-DETAIL-LINE2 AFTER 7. DTSBR503
|
||||
00379 WRITE PRT-R632-REC FROM 632-DETAIL-LINE3 AFTER 48. DTSBR503
|
||||
00380 *RW1 DTSBR503
|
||||
00381 MOVE L599-BARCODED-DATA TO CONVERTED-BARCODE. DTSBR503
|
||||
00382 DTSBR503
|
||||
00383 MOVE SPACES TO WS-REC. DTSBR503
|
||||
00384 WRITE PRT-R632-REC FROM WS-REC DTSBR503
|
||||
00385 AFTER ADVANCING TOP-OF-PAGE. DTSBR503
|
||||
00386 DTSBR503
|
||||
00387 WRITE PRT-R632-REC FROM WS-BARC-LINE AFTER 04. DTSBR503
|
||||
00388 DTSBR503
|
||||
00389 DTSBR503
|
||||
00390 P1200-EXIT. DTSBR503
|
||||
00391 EXIT. DTSBR503
|
||||
00392 EJECT DTSBR503
|
||||
00393 S001-DATE. DTSBR503
|
||||
00394 DTSBR503
|
||||
00395 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR503
|
||||
00396 DTSBR503
|
||||
00397 S001-EXIT. DTSBR503
|
||||
00398 EXIT. DTSBR503
|
||||
00399 SKIP3 DTSBR503
|
||||
00389 * WRITE PRT-R632-REC FROM BLANK-LINE DTSBR503
|
||||
00390 * AFTER ADVANCING TOP-OF-PAGE. DTSBR503
|
||||
00391 * WRITE PRT-R632-REC FROM LINE-ADDR-17 AFTER ADVANCING DTSBR503
|
||||
00392 * 24 LINES. DTSBR503
|
||||
00393 WRITE PRT-R632-REC FROM LINE-ADDR-17 AFTER ADVANCING DTSBR503
|
||||
00394 20 LINES. DTSBR503
|
||||
00395 *RW2 DTSBR503
|
||||
00396 WRITE PRT-R632-REC FROM LINE-ADDR-18 AFTER 1. DTSBR503
|
||||
00397 WRITE PRT-R632-REC FROM LINE-ADDR-19 AFTER 1. DTSBR503
|
||||
00398 WRITE PRT-R632-REC FROM LINE-ADDR-20 AFTER 1. DTSBR503
|
||||
00399 WRITE PRT-R632-REC FROM LINE-ADDR-21 AFTER 1. DTSBR503
|
||||
00400 DTSBR503
|
||||
00401 S056-RATE-DISPLAY. DTSBR503
|
||||
00402 SKIP1 DTSBR503
|
||||
00403 CALL 'DTSBU056' USING L056-LINK-AREA. DTSBR503
|
||||
00404 SKIP2 DTSBR503
|
||||
00405 S056-EXIT. DTSBR503
|
||||
00406 EXIT. DTSBR503
|
||||
00407 SKIP3 DTSBR503
|
||||
00408 S057-DISP-RATIO. DTSBR503
|
||||
00409 SKIP1 DTSBR503
|
||||
00410 CALL 'DTSBU057' USING L057-LINK-AREA. DTSBR503
|
||||
00411 SKIP2 DTSBR503
|
||||
00412 S057-EXIT. DTSBR503
|
||||
00413 EXIT. DTSBR503
|
||||
00414 SKIP3 DTSBR503
|
||||
00415 S599-BARCODE. DTSBR503
|
||||
00416 MOVE CONVERT-BARCODE-LINE TO L599-INPUT-DATA. DTSBR503
|
||||
00417 MOVE LENGTH OF CONVERT-BARCODE-LINE TO L599-REC-LENGTH. DTSBR503
|
||||
00418 MOVE 'TAX' TO L599-SYSTEM. DTSBR503
|
||||
00419 DTSBR503
|
||||
00420 CALL 'DTSBU599' USING BARI-LINK-AREA. DTSBR503
|
||||
00401 P1100-EXIT. DTSBR503
|
||||
00402 EXIT. DTSBR503
|
||||
00403 EJECT DTSBR503
|
||||
00404 DTSBR503
|
||||
00405 P1200-R632A. DTSBR503
|
||||
00406 WRITE PRT-R632A-REC FROM 632A-DATE-LINE AFTER 12. DTSBR503
|
||||
00407 MOVE R503-EMP-NO TO UNACCT. DTSBR503
|
||||
00408 MOVE L056-DISP-RATE TO RATE. DTSBR503
|
||||
00409 MOVE R503-RATE-YEAR TO UNONLY. DTSBR503
|
||||
00410 MOVE L001-CAL-8-DATE-9 TO UNCOMPDTE. DTSBR503
|
||||
00411 WRITE PRT-R632A-REC FROM 632A-DETAIL-LINE1 AFTER 5. DTSBR503
|
||||
00412 DTSBR503
|
||||
00413 MOVE R503-PRIOR-RESERVE-AMT TO UNPREV. DTSBR503
|
||||
00414 MOVE R503-TRUST-FUND-INTEREST-AMT TO UNTRUST. DTSBR503
|
||||
00415 MOVE R503-UI-TAX-PAID-AMT TO UNCONT. DTSBR503
|
||||
00416 MOVE R503-BENEFITS-CHARGED-AMT TO BCHARGED. DTSBR503
|
||||
00417 MOVE R503-CURRENT-RESERVE-AMT TO UNCURR. DTSBR503
|
||||
00418 WRITE PRT-R632A-REC FROM 632A-DETAIL-LINE2 AFTER 6. DTSBR503
|
||||
00419 *RW1 DTSBR503
|
||||
00420 MOVE L599-BARCODED-DATA TO CONVERTED-BARCODE. DTSBR503
|
||||
00421 DTSBR503
|
||||
00422 IF L599-NOT-CONVERTED DTSBR503
|
||||
00423 MOVE 'BAR CODES CONVERTED FAILED' TO ABEND-MSG DTSBR503
|
||||
00424 PERFORM S999-ABEND THRU S999-EXIT. DTSBR503
|
||||
00422 MOVE SPACES TO WS-REC. DTSBR503
|
||||
00423 WRITE PRT-R632A-REC FROM WS-REC DTSBR503
|
||||
00424 AFTER ADVANCING TOP-OF-PAGE. DTSBR503
|
||||
00425 DTSBR503
|
||||
00426 S599-EXIT. DTSBR503
|
||||
00427 EXIT. DTSBR503
|
||||
00428 SKIP3 DTSBR503
|
||||
00429 T1000-TERMINATE. DTSBR503
|
||||
00430 CLOSE PRT-FILE1 PRT-FILE2. DTSBR503
|
||||
00431 DTSBR503
|
||||
00432 T1000-EXIT. DTSBR503
|
||||
00433 EXIT. DTSBR503
|
||||
00434 SKIP3 DTSBR503
|
||||
00435 S999-ABEND. DTSBR503
|
||||
00436 DISPLAY '***'. DTSBR503
|
||||
00437 DISPLAY '*** ' DTSBR503
|
||||
00438 ABEND-MSG. DTSBR503
|
||||
00439 DISPLAY '***'. DTSBR503
|
||||
00426 WRITE PRT-R632A-REC FROM WS-BARC-LINE AFTER 04. DTSBR503
|
||||
00427 DTSBR503
|
||||
00428 * WRITE PRT-R632A-REC FROM BLANK-LINE DTSBR503
|
||||
00429 * AFTER ADVANCING TOP-OF-PAGE. DTSBR503
|
||||
00430 * WRITE PRT-R632A-REC FROM LINE-ADDR-17 AFTER ADVANCING DTSBR503
|
||||
00431 * 24 LINES. DTSBR503
|
||||
00432 WRITE PRT-R632A-REC FROM LINE-ADDR-17 AFTER ADVANCING DTSBR503
|
||||
00433 20 LINES. DTSBR503
|
||||
00434 *RW2 DTSBR503
|
||||
00435 WRITE PRT-R632A-REC FROM LINE-ADDR-18 AFTER 1. DTSBR503
|
||||
00436 WRITE PRT-R632A-REC FROM LINE-ADDR-19 AFTER 1. DTSBR503
|
||||
00437 WRITE PRT-R632A-REC FROM LINE-ADDR-20 AFTER 1. DTSBR503
|
||||
00438 WRITE PRT-R632A-REC FROM LINE-ADDR-21 AFTER 1. DTSBR503
|
||||
00439 DTSBR503
|
||||
00440 DTSBR503
|
||||
00441 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR503
|
||||
00442 S999-EXIT. DTSBR503
|
||||
00443 EXIT. DTSBR503
|
||||
00444 DTSBR503
|
||||
00441 P1200-EXIT. DTSBR503
|
||||
00442 EXIT. DTSBR503
|
||||
00443 P1300-ESSP-RATE. CL*12
|
||||
00444 MOVE R503-EMP-NO TO X108-EMP-NO. CL*12
|
||||
00445 MOVE R503-UI-RATE TO L056-RATE. CL*18
|
||||
00446 SET L056-DISP1-LEFT-88 TO TRUE. CL*18
|
||||
00447 PERFORM S056-RATE-DISPLAY THRU S056-EXIT. CL*18
|
||||
00448 CL*18
|
||||
00449 MOVE L056-DISP-RATE TO X108-RATE-X. CL*19
|
||||
00450 MOVE R503-RATE-YEAR TO X108-RATE-YR. CL*12
|
||||
00451 WRITE PRT-X108-REC FROM X108-REC. CL*12
|
||||
00452 CL*12
|
||||
00453 P1300-EXIT. CL*12
|
||||
00454 EXIT. CL*12
|
||||
00455 EJECT DTSBR503
|
||||
00456 S001-DATE. DTSBR503
|
||||
00457 DTSBR503
|
||||
00458 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR503
|
||||
00459 DTSBR503
|
||||
00460 S001-EXIT. DTSBR503
|
||||
00461 EXIT. DTSBR503
|
||||
00462 SKIP3 DTSBR503
|
||||
00463 S009-CONVERT-TO-CAPS. CL**3
|
||||
00464 CL**3
|
||||
00465 CALL 'DTSBU009' USING L009-LINK-AREA. CL**3
|
||||
00466 CL**3
|
||||
00467 S009-EXIT. CL**3
|
||||
00468 EXIT. CL**3
|
||||
00469 DTSBR503
|
||||
00470 S056-RATE-DISPLAY. DTSBR503
|
||||
00471 SKIP1 DTSBR503
|
||||
00472 CALL 'DTSBU056' USING L056-LINK-AREA. DTSBR503
|
||||
00473 SKIP2 DTSBR503
|
||||
00474 S056-EXIT. DTSBR503
|
||||
00475 EXIT. DTSBR503
|
||||
00476 SKIP3 DTSBR503
|
||||
00477 S057-DISP-RATIO. DTSBR503
|
||||
00478 SKIP1 DTSBR503
|
||||
00479 CALL 'DTSBU057' USING L057-LINK-AREA. DTSBR503
|
||||
00480 SKIP2 DTSBR503
|
||||
00481 S057-EXIT. DTSBR503
|
||||
00482 EXIT. DTSBR503
|
||||
00483 SKIP3 DTSBR503
|
||||
00484 S599-BARCODE. DTSBR503
|
||||
00485 MOVE CONVERT-BARCODE-LINE TO L599-INPUT-DATA. DTSBR503
|
||||
00486 MOVE LENGTH OF CONVERT-BARCODE-LINE TO L599-REC-LENGTH. DTSBR503
|
||||
00487 MOVE 'TAX' TO L599-SYSTEM. DTSBR503
|
||||
00488 DTSBR503
|
||||
00489 CALL 'DTSBU599' USING BARI-LINK-AREA. DTSBR503
|
||||
00490 DTSBR503
|
||||
00491 IF L599-NOT-CONVERTED DTSBR503
|
||||
00492 MOVE 'BAR CODES CONVERTED FAILED' TO ABEND-MSG DTSBR503
|
||||
00493 PERFORM S999-ABEND THRU S999-EXIT. DTSBR503
|
||||
00494 DTSBR503
|
||||
00495 S599-EXIT. DTSBR503
|
||||
00496 EXIT. DTSBR503
|
||||
00497 SKIP3 DTSBR503
|
||||
00498 T1000-TERMINATE. DTSBR503
|
||||
00499 CLOSE PRT-FILE1 PRT-FILE2 PRT-FILE3. CL*12
|
||||
00500 DTSBR503
|
||||
00501 T1000-EXIT. DTSBR503
|
||||
00502 EXIT. DTSBR503
|
||||
00503 SKIP3 DTSBR503
|
||||
00504 S999-ABEND. DTSBR503
|
||||
00505 DISPLAY '***'. DTSBR503
|
||||
00506 DISPLAY '*** ' DTSBR503
|
||||
00507 ABEND-MSG. DTSBR503
|
||||
00508 DISPLAY '***'. DTSBR503
|
||||
00509 DTSBR503
|
||||
00510 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR503
|
||||
00511 S999-EXIT. DTSBR503
|
||||
00512 EXIT. DTSBR503
|
||||
00513 DTSBR503
|
||||
|
||||
Reference in New Issue
Block a user