DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
707
Batch/DTSBR603.cob
Normal file
707
Batch/DTSBR603.cob
Normal file
@ -0,0 +1,707 @@
|
||||
00001 IDENTIFICATION DIVISION. 01/24/01
|
||||
00002 PROGRAM-ID. DTSBR603. DTSBR603
|
||||
00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV128
|
||||
00004 DATE-WRITTEN. OCTOBER 1994. DTSBR603
|
||||
00005 DATE-COMPILED. DTSBR603
|
||||
00006 * DTSBR603
|
||||
00007 * DTSBR603
|
||||
00008 ***** DTSBR603
|
||||
00009 * CALLING SEQUENCE: DTSBD300 CALLS DTSBR603
|
||||
00010 * DTSBD331 WHICH CREATES DTSIR603 DTSBR603
|
||||
00011 * DTSBR603 READS DTSIR603 RECORDS. DTSBR603
|
||||
00012 * DTSBR603
|
||||
00013 * FUNCTION: FIELD ASSIGNMENT REPORT TAX DATA. DTSBR603
|
||||
00014 * DTSBR603
|
||||
00015 * MODIFICATION HISTORY: DTSBR603
|
||||
00016 * DTSBR603
|
||||
00017 * 10-26-94 INITIAL DEVELOPMENT DTSBR603
|
||||
00018 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR603
|
||||
00019 * DTSBR603
|
||||
00020 * 12-14-94 ADD FIELD REP OPID. DTSBR603
|
||||
00021 * REFERENCE RFP #CR024 AUTHOR OF CHANGE - RHC DTSBR603
|
||||
00022 * DTSBR603
|
||||
00023 * 03-16-95 ADD REPORT 603R2 - FIELD ASSIGNMENT EXPORT REPORT. DTSBR603
|
||||
00024 * REFERENCE RFP #CR054 AUTHOR OF CHANGE - RHC DTSBR603
|
||||
00025 * DTSBR603
|
||||
00026 * 04-07-95 RECOMPILED FOR R991-UNIT-DSCR PER CHANGE REQUEST 064 DTSBR603
|
||||
00027 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR603
|
||||
00028 * DTSBR603
|
||||
00029 * 10-22-99 HEADER AND DETAIL LINE CORRECTIONS DTSBR603
|
||||
00030 * CHANGED ZZZ,ZZZ.99 TO ZZZ,ZZ9.99 IN DETAIL-LINE DTSBR603
|
||||
00031 * AND ADDED W-EMP-NO-RE AUTHOR OF CHANGE -**FB DTSBR603
|
||||
00032 * DTSBR603
|
||||
00033 * 10-30-00 FIXED MISHANDLING OF MAIL/PHYS ADDRS & T B D DTSBR603
|
||||
00034 * DTSBR603
|
||||
00035 * AUTHOR OF CHANGE - JHP DTSBR603
|
||||
00036 * DTSBR603
|
||||
00037 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR603
|
||||
00038 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR603
|
||||
00039 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR603
|
||||
00040 * DTSBR603
|
||||
00041 * DTSBR603
|
||||
00042 * DESCRIPTION: DTSBR603
|
||||
00043 * DTSBR603
|
||||
00044 * THIS MODULE BUILDS VARIABLE LENGTH RECORDS FOR DOWNLOAD DTSBR603
|
||||
00045 * TO A PC SPREADSHEET IN AID OF A FIELD ASSIGNMENT. DTSBR603
|
||||
00046 * DTSBR603
|
||||
00047 * THIS IS AN "AT LEAST ONCE" MODULE. DTSBR603
|
||||
00048 * DTSBR603
|
||||
00049 * DTSBR603
|
||||
00050 * RECORDS READ: DTSBR603
|
||||
00051 * DTSBR603
|
||||
00052 * NONE. DTSBR603
|
||||
00053 * DTSBR603
|
||||
00054 * PRINTED OUTPUTS: DTSBR603
|
||||
00055 * DTSBR603
|
||||
00056 * NONE. DTSBR603
|
||||
00057 * DTSBR603
|
||||
00058 * RECORDS WRITTEN: DTSBR603
|
||||
00059 * DTSBR603
|
||||
00060 * 603R1 FIELD ASSIGNMENT REPORT DTSBR603
|
||||
00061 * DTSBR603
|
||||
00062 * MODULES CALLED: DTSBR603
|
||||
00063 * DTSBR603
|
||||
00064 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBR603
|
||||
00065 * DTSBU056 RATE DISPLAY MODULE DTSBR603
|
||||
00066 * DTSBU062 FIELD REP ID EDIT/DESCRIPTION MODULE DTSBR603
|
||||
00067 * DTSBU143 VARIABLE LENGTH RECORD CONSTRUCTION MODULE DTSBR603
|
||||
00068 * DTSBR603
|
||||
00069 * DTSBR603
|
||||
00070 ***** DTSBR603
|
||||
00071 * DTSBR603
|
||||
00072 * DTSBR603
|
||||
00073 ENVIRONMENT DIVISION. DTSBR603
|
||||
00074 CONFIGURATION SECTION. DTSBR603
|
||||
00075 SPECIAL-NAMES. DTSBR603
|
||||
00076 C01 IS TOP-OF-PAGE. DTSBR603
|
||||
00077 SKIP2 DTSBR603
|
||||
00078 INPUT-OUTPUT SECTION. DTSBR603
|
||||
00079 DTSBR603
|
||||
00080 FILE-CONTROL. DTSBR603
|
||||
00081 SELECT PRT-FILE ASSIGN TO RPT603R1. DTSBR603
|
||||
00082 SKIP2 DTSBR603
|
||||
00083 DATA DIVISION. DTSBR603
|
||||
00084 SKIP2 DTSBR603
|
||||
00085 FILE SECTION. DTSBR603
|
||||
00086 SKIP2 DTSBR603
|
||||
00087 FD PRT-FILE DTSBR603
|
||||
00088 RECORDING MODE IS F DTSBR603
|
||||
00089 DATA RECORD IS REPORT-REC. DTSBR603
|
||||
00090 01 REPORT-REC PIC X(133). DTSBR603
|
||||
00091 EJECT DTSBR603
|
||||
00092 WORKING-STORAGE SECTION. DTSBR603
|
||||
000925 77 PAN-VALET PICTURE X(24) VALUE '128DTSBR603 01/24/01'. DTSBR603
|
||||
00093 * DTSBR603
|
||||
00094 01 WRK-AREA. DTSBR603
|
||||
00095 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +603.DTSBR603
|
||||
00096 05 SUB PIC 9(04) VALUE ZERO. DTSBR603
|
||||
00097 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR603
|
||||
00098 DTSBR603
|
||||
00099 05 WS-MISC-DATA PIC X(35) VALUE SPACES. DTSBR603
|
||||
00100 DTSBR603
|
||||
00101 05 WS-FIELD-REP-INFO. DTSBR603
|
||||
00102 10 WS-FIELD-REP-ID-LAST PIC X(02) VALUE SPACE. DTSBR603
|
||||
00103 10 FILLER PIC X(02) VALUE SPACE. DTSBR603
|
||||
00104 10 WS-FIELD-REP-NAME PIC X(32) VALUE SPACE. DTSBR603
|
||||
00105 DTSBR603
|
||||
00106 05 WS-PAGE-COUNT PIC 9(04) VALUE ZERO. DTSBR603
|
||||
00107 05 WS-LINE-COUNT PIC 9(04) VALUE ZERO. DTSBR603
|
||||
00108 05 WS-ASSIGN-NO-OUTPUT PIC 9(07) VALUE ZERO. DTSBR603
|
||||
00109 DTSBR603
|
||||
00110 05 WS-YR-QTR PIC 9(05) VALUE ZERO. DTSBR603
|
||||
00111 05 WS-YR-QTR-R REDEFINES WS-YR-QTR. DTSBR603
|
||||
00112 10 WS-YQTR-CC PIC 99. DTSBR603
|
||||
00113 10 WS-YQTR-YR PIC 99. DTSBR603
|
||||
00114 10 WS-YQTR-MM PIC 9. DTSBR603
|
||||
00115 05 WS-DISPLAY-YQTR. DTSBR603
|
||||
00116 10 WS-DISPLAY-YR PIC X(02) VALUE SPACE. DTSBR603
|
||||
00117 10 FILLER PIC X(01) VALUE '/'. DTSBR603
|
||||
00118 10 WS-DISPLAY-MM PIC X(01) VALUE SPACE. DTSBR603
|
||||
00119 05 WS-VOICE-OUTPUT PIC X(09) VALUE SPACE. DTSBR603
|
||||
00120 05 WS-VOICE-OUTPUT-R. DTSBR603
|
||||
00121 10 WS-VOICE-OUTPUT-EDIT1 PIC X(03) VALUE SPACE. DTSBR603
|
||||
00122 10 FILLER PIC X(01) VALUE '-'. DTSBR603
|
||||
00123 10 WS-VOICE-OUTPUT-EDIT2 PIC X(03) VALUE SPACE. DTSBR603
|
||||
00124 10 FILLER PIC X(01) VALUE '-'. DTSBR603
|
||||
00125 10 WS-VOICE-OUTPUT-EDIT3 PIC X(04) VALUE SPACE. DTSBR603
|
||||
00126 05 WS-START-DATE-OUTPUT PIC X(08) VALUE SPACE. DTSBR603
|
||||
00127 05 WS-AUDIT-START-YRQ-OUTPUT. DTSBR603
|
||||
00128 10 WS-AUDIT-START-YRQ-OUTPUT-R DTSBR603
|
||||
00129 PIC 99/9. DTSBR603
|
||||
00130 05 WS-AUDIT-END-YRQ-OUTPUT. DTSBR603
|
||||
00131 10 WS-AUDIT-END-YRQ-OUTPUT-R DTSBR603
|
||||
00132 PIC 99/9. DTSBR603
|
||||
00133 DTSBR603
|
||||
00134 05 WS-OPO-SSN-UNPACK PIC 9(09) VALUE ZERO. DTSBR603
|
||||
00135 05 WS-OPO-SSN-OUTPUT. DTSBR603
|
||||
00136 10 WS-OPO-SSN-OUTPUT-EDIT1 PIC 9(03) VALUE ZERO. DTSBR603
|
||||
00137 10 FILLER PIC X(01) VALUE '-'. DTSBR603
|
||||
00138 10 WS-OPO-SSN-OUTPUT-EDIT2 PIC 9(02) VALUE ZERO. DTSBR603
|
||||
00139 10 FILLER PIC X(01) VALUE '-'. DTSBR603
|
||||
00140 10 WS-OPO-SSN-OUTPUT-EDIT3 PIC 9(04) VALUE ZERO. DTSBR603
|
||||
00141 DTSBR603
|
||||
00142 EJECT DTSBR603
|
||||
00143 05 WS-HEADER-1. DTSBR603
|
||||
00144 10 FILLER PIC X(01) VALUE SPACE. DTSBR603
|
||||
00145 10 WS-REPORT-TYPE PIC X(05) VALUE DTSBR603
|
||||
00146 '603R1'. DTSBR603
|
||||
00147 10 FILLER PIC X(35) VALUE SPACE. DTSBR603
|
||||
00148 10 WS-LRCM-AGY-NAME-LINE1 PIC X(50) VALUE SPACE. DTSBR603
|
||||
00149 10 FILLER PIC X(28) VALUE SPACE. DTSBR603
|
||||
00150 10 FILLER PIC X(05) DTSBR603
|
||||
00151 VALUE 'DATE:'. DTSBR603
|
||||
00152 10 WS-LRCM-SYS-DATE PIC X(08) VALUE SPACE. DTSBR603
|
||||
00153 05 WS-HEADER-2. DTSBR603
|
||||
00154 10 FILLER PIC X(01) VALUE SPACE. DTSBR603
|
||||
00155 10 FILLER PIC X(40) VALUE SPACE. DTSBR603
|
||||
00156 10 WS-LRCM-AGY-NAME-LINE2 PIC X(50) VALUE SPACE. DTSBR603
|
||||
00157 10 FILLER PIC X(28) VALUE SPACE. DTSBR603
|
||||
00158 10 FILLER PIC X(05) DTSBR603
|
||||
00159 VALUE 'TIME:'. DTSBR603
|
||||
00160 10 WS-LRCM-SYS-TIME PIC X(08) VALUE SPACE. DTSBR603
|
||||
00161 05 WS-HEADER-3. DTSBR603
|
||||
00162 10 FILLER PIC X(01) VALUE SPACE. DTSBR603
|
||||
00163 10 FILLER PIC X(10) VALUE DTSBR603
|
||||
00164 'ROUTE TO: '. DTSBR603
|
||||
00165 10 WS-HEADER-3-UNIT PIC X(20) VALUE SPACE. DTSBR603
|
||||
00166 10 FILLER PIC X(10) VALUE SPACE. DTSBR603
|
||||
00167 10 WS-HEADER-3-TITLE PIC X(50) VALUE SPACE. DTSBR603
|
||||
00168 10 FILLER PIC X(28) VALUE SPACE. DTSBR603
|
||||
00169 10 FILLER PIC X(05) DTSBR603
|
||||
00170 VALUE 'PAGE:'. DTSBR603
|
||||
00171 10 FILLER PIC X(02) VALUE SPACE. DTSBR603
|
||||
00172 10 W-PAGE-CNTR PIC ZZ,ZZ9. DTSBR603
|
||||
00173 DTSBR603
|
||||
00174 05 WS-LINE-01. DTSBR603
|
||||
00175 10 FILLER PIC X(01) VALUE SPACE. DTSBR603
|
||||
00176 10 FILLER PIC X(10) VALUE DTSBR603
|
||||
00177 'ASSIGN NO:'. DTSBR603
|
||||
00178 10 FILLER PIC X(06) VALUE SPACE. DTSBR603
|
||||
00179 10 W-ASSIGN-NO PIC 999B99999. DTSBR603
|
||||
00180 10 FILLER PIC X(45) VALUE SPACE. DTSBR603
|
||||
00181 10 FILLER PIC X(20) VALUE DTSBR603
|
||||
00182 '--------------------'. DTSBR603
|
||||
00183 10 FILLER PIC X(24) VALUE DTSBR603
|
||||
00184 ' OWNER/PARTNER/OFFICERS '. DTSBR603
|
||||
00185 10 FILLER PIC X(20) VALUE DTSBR603
|
||||
00186 '--------------------'. DTSBR603
|
||||
00187 05 WS-LINE-02. DTSBR603
|
||||
00188 10 FILLER PIC X(01) VALUE SPACE. DTSBR603
|
||||
00189 10 FILLER PIC X(10) VALUE DTSBR603
|
||||
00190 'FIELD REP:'. DTSBR603
|
||||
00191 10 FILLER PIC X(06) VALUE SPACE. DTSBR603
|
||||
00192 10 W-FLD-ID PIC X(02) VALUE SPACE. DTSBR603
|
||||
00193 10 FILLER PIC X(02) VALUE SPACE. DTSBR603
|
||||
00194 10 W-FLD-REP-NAME PIC X(35) VALUE SPACE. DTSBR603
|
||||
00195 10 FILLER PIC X(45) VALUE SPACE. DTSBR603
|
||||
00196 10 FILLER PIC X(45) VALUE SPACE. DTSBR603
|
||||
00197 10 FILLER PIC X(20) VALUE DTSBR603
|
||||
00198 ' NAME '. DTSBR603
|
||||
00199 10 FILLER PIC X(24) VALUE DTSBR603
|
||||
00200 ' TITLE '. DTSBR603
|
||||
00201 10 FILLER PIC X(20) VALUE DTSBR603
|
||||
00202 ' SSN '. DTSBR603
|
||||
00203 05 WS-LINE-03. DTSBR603
|
||||
00204 10 FILLER PIC X(01) VALUE SPACE. DTSBR603
|
||||
00205 10 FILLER PIC X(10) VALUE DTSBR603
|
||||
00206 'OPERATOR :'. DTSBR603
|
||||
00207 10 FILLER PIC X(06) VALUE SPACE. DTSBR603
|
||||
00208 10 W-OPER-ID PIC X(08) VALUE SPACE. DTSBR603
|
||||
00209 DTSBR603
|
||||
00210 05 WS-LINE-04. DTSBR603
|
||||
00211 10 FILLER PIC X(01) VALUE SPACE. DTSBR603
|
||||
00212 10 W-LINE-04-TAG PIC X(10) VALUE DTSBR603
|
||||
00213 ' EMP NO:'. DTSBR603
|
||||
00214 10 FILLER PIC X(06) VALUE SPACE. DTSBR603
|
||||
00215 10 W-EMP-NO PIC 999B999. DTSBR603
|
||||
00216 10 W-EMP-NO-RE REDEFINES W-EMP-NO DTSBR603
|
||||
00217 PIC XXXBXXX. DTSBR603
|
||||
00218 10 W-LINE-04-VARIABLE-DATA PIC X(107) VALUE SPACE. DTSBR603
|
||||
00219 05 W-LINE-DATA OCCURS 5 TIMES. DTSBR603
|
||||
00220 15 W-LABEL PIC X(08) VALUE SPACE. DTSBR603
|
||||
00221 15 W-VARIABLE-DATA PIC X(35) VALUE SPACE. DTSBR603
|
||||
00222 15 W-FILLER1 PIC X(04) VALUE SPACE. DTSBR603
|
||||
00223 15 W-OPER-NAME PIC X(20) VALUE SPACE. DTSBR603
|
||||
00224 15 W-FILLER2 PIC X(04) VALUE SPACE. DTSBR603
|
||||
00225 15 W-OPER-TITLE PIC X(15) VALUE SPACE. DTSBR603
|
||||
00226 15 W-FILLER2 PIC X(04) VALUE SPACE. DTSBR603
|
||||
00227 15 W-OPER-SSN PIC X(11) VALUE SPACE. DTSBR603
|
||||
00228 05 WS-LINE-05. DTSBR603
|
||||
00229 10 FILLER PIC X(01) VALUE SPACE. DTSBR603
|
||||
00230 10 FILLER PIC X(31) VALUE SPACES. DTSBR603
|
||||
00231 10 W-PHONE-OUTPUT PIC X(15) VALUE SPACE. DTSBR603
|
||||
00232 05 WS-LINE-06. DTSBR603
|
||||
00233 10 FILLER PIC X(01) VALUE SPACE. DTSBR603
|
||||
00234 10 FILLER PIC X(11) VALUE DTSBR603
|
||||
00235 ' ORG TYPE:'. DTSBR603
|
||||
00236 10 FILLER PIC X(06) VALUE SPACE. DTSBR603
|
||||
00237 10 W-ORG-TYPE PIC X(03) VALUE SPACE. DTSBR603
|
||||
00238 10 FILLER PIC X(10) VALUE SPACE. DTSBR603
|
||||
00239 10 W-ORG-NAME PIC X(35) VALUE SPACE. DTSBR603
|
||||
00240 05 WS-LINE-07. DTSBR603
|
||||
00241 10 FILLER PIC X(01) VALUE SPACE. DTSBR603
|
||||
00242 10 FILLER PIC X(11) VALUE DTSBR603
|
||||
00243 ' FEIN NO:'. DTSBR603
|
||||
00244 10 FILLER PIC X(06) VALUE SPACE. DTSBR603
|
||||
00245 10 W-FEIN-NO PIC 99B9999999. DTSBR603
|
||||
00246 10 FILLER PIC X(09) VALUE SPACE. DTSBR603
|
||||
00247 10 FILLER PIC X(10) VALUE DTSBR603
|
||||
00248 'SIC CODE :'. DTSBR603
|
||||
00249 10 FILLER PIC X(04) VALUE SPACE. DTSBR603
|
||||
00250 10 W-SIC-CD PIC X(04) VALUE SPACE. DTSBR603
|
||||
00251 10 FILLER PIC X(10) VALUE SPACES. DTSBR603
|
||||
00252 10 FILLER PIC X(11) VALUE DTSBR603
|
||||
00253 'NAICS CODE:'. DTSBR603
|
||||
00254 10 FILLER PIC X(06) VALUE SPACES. DTSBR603
|
||||
00255 10 W-NAICS-CD PIC X(06) VALUE SPACE. DTSBR603
|
||||
00256 05 WS-LINE-08. DTSBR603
|
||||
00257 10 FILLER PIC X(01) VALUE SPACE. DTSBR603
|
||||
00258 10 FILLER PIC X(11) VALUE DTSBR603
|
||||
00259 'CREDIT IND:'. DTSBR603
|
||||
00260 10 FILLER PIC X(06) VALUE SPACE. DTSBR603
|
||||
00261 10 W-CREDIT-IND PIC X(01) VALUE SPACE. DTSBR603
|
||||
00262 10 FILLER PIC X(18) VALUE SPACE. DTSBR603
|
||||
00263 10 FILLER PIC X(12) VALUE DTSBR603
|
||||
00264 'START DATE:'. DTSBR603
|
||||
00265 10 FILLER PIC X(03) VALUE SPACES. DTSBR603
|
||||
00266 10 W-START-DATE PIC X(08) VALUE SPACE. DTSBR603
|
||||
00267 05 WS-LINE-09. DTSBR603
|
||||
00268 10 FILLER PIC X(01) VALUE SPACE. DTSBR603
|
||||
00269 10 FILLER PIC X(11) VALUE DTSBR603
|
||||
00270 ' DEBIT IND:'. DTSBR603
|
||||
00271 10 FILLER PIC X(06) VALUE SPACE. DTSBR603
|
||||
00272 10 W-DEBIT-IND PIC X(01) VALUE SPACE. DTSBR603
|
||||
00273 10 FILLER PIC X(18) VALUE SPACE. DTSBR603
|
||||
00274 10 FILLER PIC X(12) VALUE DTSBR603
|
||||
00275 'START QTR :' . DTSBR603
|
||||
00276 10 FILLER PIC X(03) VALUE SPACES. DTSBR603
|
||||
00277 10 W-START-QTR PIC X(04) VALUE SPACE. DTSBR603
|
||||
00278 10 FILLER PIC X(10) VALUE SPACES. DTSBR603
|
||||
00279 10 FILLER PIC X(11) VALUE DTSBR603
|
||||
00280 ' END QTR :'. DTSBR603
|
||||
00281 10 FILLER PIC X(06) VALUE SPACES. DTSBR603
|
||||
00282 10 W-END-QTR PIC X(04) VALUE SPACE. DTSBR603
|
||||
00283 05 WS-LINE-11. DTSBR603
|
||||
00284 10 FILLER PIC X(01) VALUE SPACE. DTSBR603
|
||||
00285 10 FILLER PIC X(132) VALUE ALL '-'. DTSBR603
|
||||
00286 05 WS-LINE-11-HDR. DTSBR603
|
||||
00287 10 FILLER PIC X(01) VALUE SPACE. DTSBR603
|
||||
00288 10 FILLER PIC X(10) VALUE SPACES. DTSBR603
|
||||
00289 10 FILLER PIC X(20) VALUE SPACE. DTSBR603
|
||||
00290 10 FILLER PIC X(10) VALUE SPACE. DTSBR603
|
||||
00291 10 WS-LINE-11-TITLE PIC X(50) VALUE SPACE. DTSBR603
|
||||
00292 10 FILLER PIC X(28) VALUE SPACE. DTSBR603
|
||||
00293 05 WS-LINE-12-HDR. DTSBR603
|
||||
00294 10 FILLER PIC X(01) VALUE SPACE. DTSBR603
|
||||
00295 10 FILLER PIC X(31) VALUE DTSBR603
|
||||
00296 'YEAR REPORT TAX WGE CHG '. DTSBR603
|
||||
00297 10 FILLER PIC X(34) VALUE DTSBR603
|
||||
00298 '------------ WAGES ------------ '. DTSBR603
|
||||
00299 10 FILLER PIC X(32) VALUE DTSBR603
|
||||
00300 '-------- TAXES -------- ------ '. DTSBR603
|
||||
00301 10 FILLER PIC X(35) VALUE DTSBR603
|
||||
00302 'PENALTY ------ ----- INTEREST -----'. DTSBR603
|
||||
00303 05 WS-LINE-13-HDR. DTSBR603
|
||||
00304 10 FILLER PIC X(01) VALUE SPACE. DTSBR603
|
||||
00305 10 FILLER PIC X(31) VALUE DTSBR603
|
||||
00306 ' QTR TYPE RATE DATE '. DTSBR603
|
||||
00307 10 FILLER PIC X(34) VALUE DTSBR603
|
||||
00308 ' TOTAL EXCESS TAXABLE '. DTSBR603
|
||||
00309 10 FILLER PIC X(32) VALUE DTSBR603
|
||||
00310 'CHARGED PAID CHARGED'. DTSBR603
|
||||
00311 10 FILLER PIC X(35) VALUE DTSBR603
|
||||
00312 ' PAID CHARGED PAID'. DTSBR603
|
||||
00313 DTSBR603
|
||||
00314 01 WS-QUARTER-AREA. DTSBR603
|
||||
00315 05 WS-QUARTER-DATA. DTSBR603
|
||||
00316 15 FILLER PIC X(01) VALUE SPACE. DTSBR603
|
||||
00317 15 W-YR-QTR PIC X(04) VALUE SPACE. DTSBR603
|
||||
00318 15 FILLER PIC X(01) VALUE SPACE. DTSBR603
|
||||
00319 15 W-RPT-TYPE PIC X(10) VALUE SPACE. DTSBR603
|
||||
00320 15 FILLER PIC X(01) VALUE SPACE. DTSBR603
|
||||
00321 15 W-UI-RATE PIC X(05) VALUE SPACE. DTSBR603
|
||||
00322 15 FILLER PIC X(01) VALUE SPACE. DTSBR603
|
||||
00323 15 W-WAGE-CHNG-DATE PIC X(08) VALUE SPACE. DTSBR603
|
||||
00324 15 FILLER PIC X(01) VALUE SPACE. DTSBR603
|
||||
00325 15 W-TOTAL-WAGE PIC ZZZZ,ZZ9.99. DTSBR603
|
||||
00326 15 FILLER PIC X(01) VALUE SPACE. DTSBR603
|
||||
00327 15 W-EXCESS-WAGE PIC ZZZZ,ZZ9.99. DTSBR603
|
||||
00328 15 FILLER PIC X(01) VALUE SPACE. DTSBR603
|
||||
00329 15 W-TAXABLE-WAGE PIC ZZZ,ZZ9.99. DTSBR603
|
||||
00330 15 FILLER PIC X(01) VALUE SPACE. DTSBR603
|
||||
00331 15 W-TAXES-CHARGED PIC ZZZ,ZZ9.99. DTSBR603
|
||||
00332 15 FILLER PIC X(01) VALUE SPACE. DTSBR603
|
||||
00333 15 W-TAXES-PAID PIC ZZZ,ZZ9.99. DTSBR603
|
||||
00334 15 W-TAX-ADJ-IND PIC X. DTSBR603
|
||||
00335 15 FILLER PIC X(01) VALUE SPACE. DTSBR603
|
||||
00336 15 W-PENALTY-CHARGED PIC ZZZ,ZZ9.99. DTSBR603
|
||||
00337 15 FILLER PIC X(01) VALUE SPACE. DTSBR603
|
||||
00338 15 W-PENALTY-PAID PIC ZZZ,ZZ9.99. DTSBR603
|
||||
00339 15 W-PEN-ADJ-IND PIC X. DTSBR603
|
||||
00340 15 FILLER PIC X(01) VALUE SPACE. DTSBR603
|
||||
00341 15 W-INTEREST-CHG PIC ZZ,ZZ9.99. DTSBR603
|
||||
00342 15 FILLER PIC X(01) VALUE SPACE. DTSBR603
|
||||
00343 15 W-INTEREST-PAID PIC ZZ,ZZ9.99. DTSBR603
|
||||
00344 15 W-INT-ADJ-IND PIC X. DTSBR603
|
||||
00345 EJECT DTSBR603
|
||||
00346 01 L001-LINK-AREA. DTSBR603
|
||||
00347 ++INCLUDE DTSIL001 DTSBR603
|
||||
00348 EJECT DTSBR603
|
||||
00349 01 L032-LINK-AREA. DTSBR603
|
||||
00350 ++INCLUDE DTSIL032 DTSBR603
|
||||
00351 EJECT DTSBR603
|
||||
00352 01 L056-LINK-AREA. DTSBR603
|
||||
00353 ++INCLUDE DTSIL056 DTSBR603
|
||||
00354 EJECT DTSBR603
|
||||
00355 01 L062-LINK-AREA. DTSBR603
|
||||
00356 ++INCLUDE DTSIL062 DTSBR603
|
||||
00357 EJECT DTSBR603
|
||||
00358 LINKAGE SECTION. DTSBR603
|
||||
00359 SKIP2 DTSBR603
|
||||
00360 01 LRCM-LINK-AREA. DTSBR603
|
||||
00361 ++INCLUDE DTSILRCM DTSBR603
|
||||
00362 EJECT DTSBR603
|
||||
00363 01 R603-REC. DTSBR603
|
||||
00364 ++INCLUDE DTSIR603 DTSBR603
|
||||
00365 EJECT DTSBR603
|
||||
00366 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR603
|
||||
00367 R603-REC. DTSBR603
|
||||
00368 DTSBR603
|
||||
00369 IF FIRST-TIME-IND = 'Y' DTSBR603
|
||||
00370 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR603
|
||||
00371 MOVE 'N' TO FIRST-TIME-IND. DTSBR603
|
||||
00372 DTSBR603
|
||||
00373 IF LRCM-EOR-88 DTSBR603
|
||||
00374 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR603
|
||||
00375 ELSE DTSBR603
|
||||
00376 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR603
|
||||
00377 DTSBR603
|
||||
00378 GOBACK. DTSBR603
|
||||
00379 DTSBR603
|
||||
00380 I1000-INITIATE. DTSBR603
|
||||
00381 DTSBR603
|
||||
00382 MOVE SPACES TO WS-FIELD-REP-INFO. DTSBR603
|
||||
00383 OPEN OUTPUT PRT-FILE. DTSBR603
|
||||
00384 DTSBR603
|
||||
00385 I1000-EXIT. DTSBR603
|
||||
00386 EXIT. DTSBR603
|
||||
00387 DTSBR603
|
||||
00388 T1000-TERMINATE. DTSBR603
|
||||
00389 DTSBR603
|
||||
00390 CLOSE PRT-FILE. DTSBR603
|
||||
00391 DTSBR603
|
||||
00392 T1000-EXIT. DTSBR603
|
||||
00393 EXIT. DTSBR603
|
||||
00394 EJECT DTSBR603
|
||||
00395 P1000-PROCESS. DTSBR603
|
||||
00396 DTSBR603
|
||||
00397 IF R603-ASSIGN-NO = WS-ASSIGN-NO-OUTPUT DTSBR603
|
||||
00398 NEXT SENTENCE DTSBR603
|
||||
00399 ELSE DTSBR603
|
||||
00400 PERFORM P1010-HEADER THRU P1010-EXIT. DTSBR603
|
||||
00401 DTSBR603
|
||||
00402 PERFORM P2000-OUTPUT-EMPLOYER-RECS THRU P2000-EXIT. DTSBR603
|
||||
00403 DTSBR603
|
||||
00404 MOVE WS-LINE-11 TO REPORT-REC. DTSBR603
|
||||
00405 WRITE REPORT-REC AFTER 2 LINES. DTSBR603
|
||||
00406 DTSBR603
|
||||
00407 MOVE 'PRE-AUDIT INFORMATION BY QUARTER' TO WS-LINE-11-TITLE. DTSBR603
|
||||
00408 MOVE WS-LINE-11-HDR TO REPORT-REC. DTSBR603
|
||||
00409 PERFORM S2000-WRITE-RECORD THRU S2000-EXIT. DTSBR603
|
||||
00410 MOVE WS-LINE-12-HDR TO REPORT-REC. DTSBR603
|
||||
00411 PERFORM S2000-WRITE-RECORD THRU S2000-EXIT. DTSBR603
|
||||
00412 MOVE WS-LINE-13-HDR TO REPORT-REC. DTSBR603
|
||||
00413 PERFORM S2000-WRITE-RECORD THRU S2000-EXIT. DTSBR603
|
||||
00414 DTSBR603
|
||||
00415 IF R603-QTR-CNT > +0 DTSBR603
|
||||
00416 PERFORM P3000-OUTPUT-QUARTER-RECS THRU P3000-EXIT DTSBR603
|
||||
00417 VARYING R603-QTR-IDX FROM +1 BY +1 DTSBR603
|
||||
00418 UNTIL R603-QTR-IDX > R603-QTR-CNT DTSBR603
|
||||
00419 ELSE DTSBR603
|
||||
00420 MOVE ' NO QUARTER DATA FOUND ' DTSBR603
|
||||
00421 TO WS-MISC-DATA DTSBR603
|
||||
00422 WRITE REPORT-REC FROM WS-MISC-DATA AFTER 3 DTSBR603
|
||||
00423 END-IF. DTSBR603
|
||||
00424 P1000-EXIT. DTSBR603
|
||||
00425 EXIT. DTSBR603
|
||||
00426 DTSBR603
|
||||
00427 P1010-HEADER. DTSBR603
|
||||
00428 MOVE LRCM-AGY-NAME-LINE1 TO WS-LRCM-AGY-NAME-LINE1 DTSBR603
|
||||
00429 MOVE LRCM-SYS-DATE TO WS-LRCM-SYS-DATE DTSBR603
|
||||
00430 MOVE WS-HEADER-1 TO REPORT-REC DTSBR603
|
||||
00431 WRITE REPORT-REC AFTER TOP-OF-PAGE. DTSBR603
|
||||
00432 DTSBR603
|
||||
00433 MOVE LRCM-AGY-NAME-LINE2 TO WS-LRCM-AGY-NAME-LINE2 DTSBR603
|
||||
00434 MOVE LRCM-SYS-TIME TO WS-LRCM-SYS-TIME DTSBR603
|
||||
00435 MOVE WS-HEADER-2 TO REPORT-REC DTSBR603
|
||||
00436 WRITE REPORT-REC AFTER 1 LINE. DTSBR603
|
||||
00437 DTSBR603
|
||||
00438 MOVE ' FIELD ASSIGNMENT REPORT TAX-DATA ' DTSBR603
|
||||
00439 TO WS-HEADER-3-TITLE DTSBR603
|
||||
00440 MOVE 'ENFORCEMENT UNIT' TO WS-HEADER-3-UNIT DTSBR603
|
||||
00441 ADD 1 TO WS-PAGE-COUNT DTSBR603
|
||||
00442 MOVE WS-PAGE-COUNT TO W-PAGE-CNTR DTSBR603
|
||||
00443 MOVE WS-HEADER-3 TO REPORT-REC DTSBR603
|
||||
00444 WRITE REPORT-REC AFTER 1 LINE. DTSBR603
|
||||
00445 DTSBR603
|
||||
00446 MOVE R603-FIELD-REP-ID TO WS-FIELD-REP-ID-LAST DTSBR603
|
||||
00447 L062-FLD-REP-ID DTSBR603
|
||||
00448 PERFORM S062-FLD-REP-INFO THRU S062-EXIT DTSBR603
|
||||
00449 MOVE L062-NAME TO W-FLD-REP-NAME DTSBR603
|
||||
00450 MOVE R603-ASSIGN-NO TO WS-ASSIGN-NO-OUTPUT. DTSBR603
|
||||
00451 P1010-EXIT. DTSBR603
|
||||
00452 EXIT. DTSBR603
|
||||
00453 EJECT DTSBR603
|
||||
00454 P2000-OUTPUT-EMPLOYER-RECS. DTSBR603
|
||||
00455 MOVE WS-ASSIGN-NO-OUTPUT TO W-ASSIGN-NO. DTSBR603
|
||||
00456 MOVE WS-LINE-01 TO REPORT-REC. DTSBR603
|
||||
00457 PERFORM S2000-WRITE-RECORD THRU S2000-EXIT. DTSBR603
|
||||
00458 DTSBR603
|
||||
00459 MOVE R603-FIELD-REP-ID TO W-FLD-ID. DTSBR603
|
||||
00460 MOVE WS-LINE-02 TO REPORT-REC. DTSBR603
|
||||
00461 PERFORM S2000-WRITE-RECORD THRU S2000-EXIT. DTSBR603
|
||||
00462 DTSBR603
|
||||
00463 MOVE R603-FIELD-REP-OPID TO W-OPER-ID. DTSBR603
|
||||
00464 MOVE WS-LINE-03 TO REPORT-REC. DTSBR603
|
||||
00465 PERFORM S2000-WRITE-RECORD THRU S2000-EXIT. DTSBR603
|
||||
00466 DTSBR603
|
||||
00467 PERFORM P3500-OUTPUT-OPO-RECS THRU P3500-EXIT DTSBR603
|
||||
00468 VARYING R603-OPO-IDX FROM 1 BY 1 DTSBR603
|
||||
00469 UNTIL R603-OPO-IDX > 5. DTSBR603
|
||||
00470 DTSBR603
|
||||
00471 MOVE R603-MAIL-VOICE-1(1:10) TO WS-VOICE-OUTPUT DTSBR603
|
||||
00472 MOVE SPACES TO W-PHONE-OUTPUT. DTSBR603
|
||||
00473 DTSBR603
|
||||
00474 IF WS-VOICE-OUTPUT > SPACES DTSBR603
|
||||
00475 MOVE R603-MAIL-VOICE-1(1:3) TO WS-VOICE-OUTPUT-EDIT1 DTSBR603
|
||||
00476 MOVE R603-MAIL-VOICE-1(4:3) TO WS-VOICE-OUTPUT-EDIT2 DTSBR603
|
||||
00477 MOVE R603-MAIL-VOICE-1(7:4) TO WS-VOICE-OUTPUT-EDIT3 DTSBR603
|
||||
00478 MOVE WS-VOICE-OUTPUT-R TO W-PHONE-OUTPUT DTSBR603
|
||||
00479 MOVE WS-LINE-05 TO REPORT-REC DTSBR603
|
||||
00480 PERFORM S2000-WRITE-RECORD THRU S2000-EXIT. DTSBR603
|
||||
00481 DTSBR603
|
||||
00482 PERFORM S2000-WRITE-RECORD THRU S2000-EXIT. DTSBR603
|
||||
00483 DTSBR603
|
||||
00484 PERFORM P3750-PHYS-ADDR-RTN THRU P3750-EXIT DTSBR603
|
||||
00485 VARYING R603-PHYS-IDX FROM 1 BY 1 DTSBR603
|
||||
00486 UNTIL R603-PHYS-IDX > 5. DTSBR603
|
||||
00487 DTSBR603
|
||||
00488 MOVE R603-PHYS-VOICE-1(1:10) TO WS-VOICE-OUTPUT DTSBR603
|
||||
00489 MOVE SPACES TO W-PHONE-OUTPUT. DTSBR603
|
||||
00490 DTSBR603
|
||||
00491 IF WS-VOICE-OUTPUT > SPACES DTSBR603
|
||||
00492 MOVE R603-PHYS-VOICE-1(1:3) TO WS-VOICE-OUTPUT-EDIT1 DTSBR603
|
||||
00493 MOVE R603-PHYS-VOICE-1(4:3) TO WS-VOICE-OUTPUT-EDIT2 DTSBR603
|
||||
00494 MOVE R603-PHYS-VOICE-1(7:4) TO WS-VOICE-OUTPUT-EDIT3 DTSBR603
|
||||
00495 MOVE WS-VOICE-OUTPUT-R TO W-PHONE-OUTPUT DTSBR603
|
||||
00496 MOVE WS-LINE-05 TO REPORT-REC DTSBR603
|
||||
00497 PERFORM S2000-WRITE-RECORD THRU S2000-EXIT. DTSBR603
|
||||
00498 DTSBR603
|
||||
00499 MOVE R603-ORG-TYPE TO W-ORG-TYPE. DTSBR603
|
||||
00500 MOVE WS-LINE-06 TO REPORT-REC. DTSBR603
|
||||
00501 WRITE REPORT-REC AFTER 2 LINES. DTSBR603
|
||||
00502 DTSBR603
|
||||
00503 MOVE R603-FEIN TO W-FEIN-NO. DTSBR603
|
||||
00504 DTSBR603
|
||||
00505 MOVE R603-SIC-CD TO W-SIC-CD. DTSBR603
|
||||
00506 MOVE R603-NAICS-CD TO W-NAICS-CD. DTSBR603
|
||||
00507 MOVE WS-LINE-07 TO REPORT-REC. DTSBR603
|
||||
00508 PERFORM S2000-WRITE-RECORD THRU S2000-EXIT. DTSBR603
|
||||
00509 DTSBR603
|
||||
00510 MOVE R603-CREDIT-IND TO W-CREDIT-IND. DTSBR603
|
||||
00511 DTSBR603
|
||||
00512 MOVE R603-START-DATE TO L001-FED-8-DATE-9. DTSBR603
|
||||
00513 SET L001-FROM-FED-8 TO TRUE. DTSBR603
|
||||
00514 PERFORM S001-DATE THRU S001-EXIT. DTSBR603
|
||||
00515 MOVE L001-SLASH-DATE TO WS-START-DATE-OUTPUT. DTSBR603
|
||||
00516 MOVE WS-START-DATE-OUTPUT TO W-START-DATE. DTSBR603
|
||||
00517 DTSBR603
|
||||
00518 MOVE WS-LINE-08 TO REPORT-REC. DTSBR603
|
||||
00519 PERFORM S2000-WRITE-RECORD THRU S2000-EXIT. DTSBR603
|
||||
00520 DTSBR603
|
||||
00521 MOVE R603-DEBIT-IND TO W-DEBIT-IND. DTSBR603
|
||||
00522 MOVE R603-AUDIT-START-YRQ DTSBR603
|
||||
00523 TO WS-AUDIT-START-YRQ-OUTPUT-R. DTSBR603
|
||||
00524 MOVE WS-AUDIT-START-YRQ-OUTPUT TO W-START-QTR DTSBR603
|
||||
00525 MOVE R603-AUDIT-END-YRQ DTSBR603
|
||||
00526 TO WS-AUDIT-END-YRQ-OUTPUT-R. DTSBR603
|
||||
00527 MOVE WS-AUDIT-END-YRQ-OUTPUT TO W-END-QTR DTSBR603
|
||||
00528 DTSBR603
|
||||
00529 MOVE WS-LINE-09 TO REPORT-REC. DTSBR603
|
||||
00530 PERFORM S2000-WRITE-RECORD THRU S2000-EXIT. DTSBR603
|
||||
00531 DTSBR603
|
||||
00532 P2000-EXIT. DTSBR603
|
||||
00533 EXIT. DTSBR603
|
||||
00534 EJECT DTSBR603
|
||||
00535 P3000-OUTPUT-QUARTER-RECS. DTSBR603
|
||||
00536 DTSBR603
|
||||
00537 MOVE R603-QTR-YRQ (R603-QTR-IDX) DTSBR603
|
||||
00538 TO WS-YR-QTR. DTSBR603
|
||||
00539 MOVE WS-YQTR-YR TO WS-DISPLAY-YR DTSBR603
|
||||
00540 MOVE WS-YQTR-MM TO WS-DISPLAY-MM DTSBR603
|
||||
00541 MOVE WS-DISPLAY-YQTR TO W-YR-QTR. DTSBR603
|
||||
00542 DTSBR603
|
||||
00543 MOVE R603-QTR-CURR-RPT-TYPE (R603-QTR-IDX) TO L032-CD. DTSBR603
|
||||
00544 SET L032-MQTR-CURR-RPT-TYPE TO TRUE. DTSBR603
|
||||
00545 PERFORM S032-ACCT-DESCRIPTION THRU S032-EXIT DTSBR603
|
||||
00546 MOVE L032-SHORT-DSCR TO W-RPT-TYPE. DTSBR603
|
||||
00547 DTSBR603
|
||||
00548 MOVE R603-QTR-UI-RATE (R603-QTR-IDX) TO L056-RATE. DTSBR603
|
||||
00549 SET L056-DISP3-LEFT-88 TO TRUE. DTSBR603
|
||||
00550 PERFORM S056-RATE-DISPLAY THRU S056-EXIT. DTSBR603
|
||||
00551 MOVE L056-DISP-RATE TO W-UI-RATE. DTSBR603
|
||||
00552 DTSBR603
|
||||
00553 MOVE R603-QTR-WAGE-CHNG-DATE (R603-QTR-IDX) DTSBR603
|
||||
00554 TO L001-FED-8-DATE-9. DTSBR603
|
||||
00555 SET L001-FROM-FED-8 TO TRUE. DTSBR603
|
||||
00556 PERFORM S001-DATE THRU S001-EXIT. DTSBR603
|
||||
00557 MOVE L001-SLASH-DATE TO W-WAGE-CHNG-DATE. DTSBR603
|
||||
00558 DTSBR603
|
||||
00559 MOVE R603-QTR-TOT-WAGE (R603-QTR-IDX) TO W-TOTAL-WAGE. DTSBR603
|
||||
00560 DTSBR603
|
||||
00561 MOVE R603-QTR-EXCESS-WAGE (R603-QTR-IDX) TO W-EXCESS-WAGE. DTSBR603
|
||||
00562 DTSBR603
|
||||
00563 MOVE R603-QTR-TAX-WAGE (R603-QTR-IDX) TO W-TAXABLE-WAGE. DTSBR603
|
||||
00564 DTSBR603
|
||||
00565 MOVE R603-QTR-TAX-CHARGED-AMT (R603-QTR-IDX) DTSBR603
|
||||
00566 TO W-TAXES-CHARGED. DTSBR603
|
||||
00567 DTSBR603
|
||||
00568 MOVE R603-QTR-TAX-PAID-AMT (R603-QTR-IDX) DTSBR603
|
||||
00569 TO W-TAXES-PAID. DTSBR603
|
||||
00570 DTSBR603
|
||||
00571 MOVE R603-QTR-TAX-TOLERATED-IND (R603-QTR-IDX) DTSBR603
|
||||
00572 TO W-TAX-ADJ-IND. DTSBR603
|
||||
00573 DTSBR603
|
||||
00574 MOVE R603-QTR-PEN-CHARGED-AMT (R603-QTR-IDX) DTSBR603
|
||||
00575 TO W-PENALTY-CHARGED. DTSBR603
|
||||
00576 DTSBR603
|
||||
00577 MOVE R603-QTR-PEN-PAID-AMT (R603-QTR-IDX) DTSBR603
|
||||
00578 TO W-PENALTY-PAID. DTSBR603
|
||||
00579 DTSBR603
|
||||
00580 MOVE R603-QTR-PEN-TOLERATED-IND (R603-QTR-IDX) DTSBR603
|
||||
00581 TO W-PEN-ADJ-IND. DTSBR603
|
||||
00582 DTSBR603
|
||||
00583 MOVE R603-QTR-INT-CHARGED-AMT (R603-QTR-IDX) DTSBR603
|
||||
00584 TO W-INTEREST-CHG. DTSBR603
|
||||
00585 DTSBR603
|
||||
00586 MOVE R603-QTR-INT-PAID-AMT (R603-QTR-IDX) DTSBR603
|
||||
00587 TO W-INTEREST-PAID. DTSBR603
|
||||
00588 DTSBR603
|
||||
00589 MOVE R603-QTR-TAX-TOLERATED-IND (R603-QTR-IDX) DTSBR603
|
||||
00590 TO W-INT-ADJ-IND. DTSBR603
|
||||
00591 DTSBR603
|
||||
00592 INITIALIZE REPORT-REC. DTSBR603
|
||||
00593 PERFORM S2000-WRITE-RECORD THRU S2000-EXIT. DTSBR603
|
||||
00594 DTSBR603
|
||||
00595 WRITE REPORT-REC FROM WS-QUARTER-DATA AFTER 1. DTSBR603
|
||||
00596 DTSBR603
|
||||
00597 P3000-EXIT. DTSBR603
|
||||
00598 EXIT. DTSBR603
|
||||
00599 EJECT DTSBR603
|
||||
00600 P3500-OUTPUT-OPO-RECS. DTSBR603
|
||||
00601 SET SUB TO R603-OPO-IDX DTSBR603
|
||||
00602 DTSBR603
|
||||
00603 MOVE R603-OPO-NAME (R603-OPO-IDX) TO DTSBR603
|
||||
00604 W-OPER-NAME (SUB). DTSBR603
|
||||
00605 DTSBR603
|
||||
00606 MOVE R603-OPO-TITLE (R603-OPO-IDX) TO DTSBR603
|
||||
00607 W-OPER-TITLE (SUB). DTSBR603
|
||||
00608 DTSBR603
|
||||
00609 IF R603-OPO-SSN (R603-OPO-IDX) > 0 DTSBR603
|
||||
00610 MOVE R603-OPO-SSN (R603-OPO-IDX) TO WS-OPO-SSN-UNPACK DTSBR603
|
||||
00611 MOVE WS-OPO-SSN-UNPACK (1:3) TO WS-OPO-SSN-OUTPUT-EDIT1 DTSBR603
|
||||
00612 MOVE WS-OPO-SSN-UNPACK (4:2) TO WS-OPO-SSN-OUTPUT-EDIT2 DTSBR603
|
||||
00613 MOVE WS-OPO-SSN-UNPACK (6:4) TO WS-OPO-SSN-OUTPUT-EDIT3 DTSBR603
|
||||
00614 MOVE WS-OPO-SSN-OUTPUT TO W-OPER-SSN (SUB) DTSBR603
|
||||
00615 ELSE DTSBR603
|
||||
00616 MOVE SPACES TO W-OPER-SSN (SUB) DTSBR603
|
||||
00617 END-IF. DTSBR603
|
||||
00618 DTSBR603
|
||||
00619 IF SUB = 1 DTSBR603
|
||||
00620 MOVE R603-EMP-NO TO W-EMP-NO DTSBR603
|
||||
00621 MOVE ' EMP NO:' TO W-LINE-04-TAG DTSBR603
|
||||
00622 MOVE SPACES TO W-LABEL (SUB) DTSBR603
|
||||
00623 MOVE R603-PRIMARY-NAME TO W-VARIABLE-DATA (SUB) DTSBR603
|
||||
00624 ELSE DTSBR603
|
||||
00625 IF SUB = 2 DTSBR603
|
||||
00626 MOVE SPACES TO W-EMP-NO-RE DTSBR603
|
||||
00627 MOVE ' ' TO W-LINE-04-TAG DTSBR603
|
||||
00628 MOVE 'MAIL:' TO W-LABEL (SUB) DTSBR603
|
||||
00629 MOVE R603-MAIL-LINE (SUB - 1) DTSBR603
|
||||
00630 TO W-VARIABLE-DATA (SUB) DTSBR603
|
||||
00631 ELSE DTSBR603
|
||||
00632 MOVE SPACES TO W-LABEL (SUB) DTSBR603
|
||||
00633 MOVE R603-MAIL-LINE (SUB - 1) DTSBR603
|
||||
00634 TO W-VARIABLE-DATA (SUB) DTSBR603
|
||||
00635 END-IF DTSBR603
|
||||
00636 END-IF. DTSBR603
|
||||
00637 DTSBR603
|
||||
00638 IF W-VARIABLE-DATA (SUB) > SPACES OR DTSBR603
|
||||
00639 W-OPER-NAME (SUB) > SPACES DTSBR603
|
||||
00640 MOVE W-LINE-DATA (SUB) TO W-LINE-04-VARIABLE-DATA DTSBR603
|
||||
00641 MOVE WS-LINE-04 TO REPORT-REC DTSBR603
|
||||
00642 PERFORM S2000-WRITE-RECORD THRU S2000-EXIT DTSBR603
|
||||
00643 END-IF. DTSBR603
|
||||
00644 DTSBR603
|
||||
00645 MOVE SPACES TO W-LINE-04-VARIABLE-DATA. DTSBR603
|
||||
00646 DTSBR603
|
||||
00647 P3500-EXIT. DTSBR603
|
||||
00648 EXIT. DTSBR603
|
||||
00649 DTSBR603
|
||||
00650 P3750-PHYS-ADDR-RTN. DTSBR603
|
||||
00651 SET SUB TO R603-PHYS-IDX. DTSBR603
|
||||
00652 INITIALIZE W-LINE-DATA (SUB). DTSBR603
|
||||
00653 MOVE R603-PHYS-LINE (R603-PHYS-IDX) TO DTSBR603
|
||||
00654 W-VARIABLE-DATA (SUB). DTSBR603
|
||||
00655 DISPLAY 'W-PHYSICAL-DATA ' W-VARIABLE-DATA (SUB). DTSBR603
|
||||
00656 DISPLAY ' SUBSCRIPT ' SUB. DTSBR603
|
||||
00657 DTSBR603
|
||||
00658 IF SUB = 1 DTSBR603
|
||||
00659 MOVE 'PHYS:' TO W-LABEL(SUB) DTSBR603
|
||||
00660 ELSE DTSBR603
|
||||
00661 MOVE ' ' TO W-LABEL(SUB) DTSBR603
|
||||
00662 END-IF. DTSBR603
|
||||
00663 DTSBR603
|
||||
00664 IF W-VARIABLE-DATA (SUB) > SPACES DTSBR603
|
||||
00665 MOVE W-LINE-DATA (SUB) TO W-LINE-04-VARIABLE-DATA DTSBR603
|
||||
00666 MOVE WS-LINE-04 TO REPORT-REC DTSBR603
|
||||
00667 PERFORM S2000-WRITE-RECORD THRU S2000-EXIT DTSBR603
|
||||
00668 END-IF. DTSBR603
|
||||
00669 P3750-EXIT. DTSBR603
|
||||
00670 EXIT. DTSBR603
|
||||
00671 EJECT DTSBR603
|
||||
00672 S001-DATE. DTSBR603
|
||||
00673 DTSBR603
|
||||
00674 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR603
|
||||
00675 DTSBR603
|
||||
00676 S001-EXIT. DTSBR603
|
||||
00677 EXIT. DTSBR603
|
||||
00678 DTSBR603
|
||||
00679 S032-ACCT-DESCRIPTION. DTSBR603
|
||||
00680 DTSBR603
|
||||
00681 CALL 'DTSBU032' USING L032-LINK-AREA. DTSBR603
|
||||
00682 DTSBR603
|
||||
00683 S032-EXIT. DTSBR603
|
||||
00684 EXIT. DTSBR603
|
||||
00685 DTSBR603
|
||||
00686 S056-RATE-DISPLAY. DTSBR603
|
||||
00687 DTSBR603
|
||||
00688 CALL 'DTSBU056' USING L056-LINK-AREA. DTSBR603
|
||||
00689 DTSBR603
|
||||
00690 S056-EXIT. DTSBR603
|
||||
00691 EXIT. DTSBR603
|
||||
00692 DTSBR603
|
||||
00693 S062-FLD-REP-INFO. DTSBR603
|
||||
00694 DTSBR603
|
||||
00695 CALL 'DTSBU062' USING L062-LINK-AREA. DTSBR603
|
||||
00696 DTSBR603
|
||||
00697 S062-EXIT. DTSBR603
|
||||
00698 EXIT. DTSBR603
|
||||
00699 DTSBR603
|
||||
00700 S2000-WRITE-RECORD. DTSBR603
|
||||
00701 WRITE REPORT-REC AFTER 1 LINE. DTSBR603
|
||||
00702 ADD 1 TO WS-LINE-COUNT. DTSBR603
|
||||
00703 INITIALIZE REPORT-REC. DTSBR603
|
||||
00704 S2000-EXIT. DTSBR603
|
||||
00705 EXIT. DTSBR603
|
||||
00706 **** DTSBR603
|
||||
Reference in New Issue
Block a user