1070 lines
85 KiB
COBOL
1070 lines
85 KiB
COBOL
00001 IDENTIFICATION DIVISION. 03/24/08
|
|
00002 PROGRAM-ID. DTSBR910. DTSBR910
|
|
00003 AUTHOR. TRW. LV007
|
|
00004 DATE-WRITTEN. NOVEMBER 2001. DTSBR910
|
|
00005 DATE-COMPILED. DTSBR910
|
|
00006 SKIP3 DTSBR910
|
|
00007 ***** DTSBR910
|
|
00008 * PRODUCED DAILY THROUGH REGISTRATION PROCESS AND IN DTSBR910
|
|
00009 * ANNUAL MASS MAILING. DTSBR910
|
|
00010 * DTSBR910
|
|
00011 * CALLING SEQUENCE: DTSBD400 CALLS DTSBR910
|
|
00012 * DTSBE352 WHICH UPDATES DTSIR910 DTSBR910
|
|
00013 * DTSBR910 READS DTSIR910 RECORDS. DTSBR910
|
|
00014 * DTSBR910
|
|
00015 * FUNCTION: PRINT ANNUAL CONTRIBUTION AND WAGE REPORTS UC-30H DTSBR910
|
|
00016 * DTSBR910
|
|
00017 * DTSBR910
|
|
00018 * MODIFICATION HISTORY: DTSBR910
|
|
00019 * DTSBR910
|
|
00020 * 11-10-2001 MODIFIED FROM DTSBR902 DTSBR910
|
|
00021 * REFERENCE RFP HOUSEHOLD AUTHOR OF CHANGE - GD DTSBR910
|
|
00022 * DTSBR910
|
|
00023 * DTSBR910
|
|
00024 * 04-13-06 MODIFIED TO PRINT UC30 ON A RPT910R2 FILE IF THE DTSBR910
|
|
00025 * DAILY INPUT YEAR-QUARTER IS EQUAL OR GREATER THAN DTSBR910
|
|
00026 * 1ST JANUARY 2006. THE UC30 FORM LINE 6 CONTAIN A DTSBR910
|
|
00027 * NEW ADMINISTRATIVE ASSESSMENT DUE INSTRUCTION TO DTSBR910
|
|
00028 * CALCULATE THE ADMINISTRATION FEE MULTIPLY TAXABLE DTSBR910
|
|
00029 * WAGES PAID BY 0.02%. DTSBR910
|
|
00030 * REFERENCE RFP ## PROGRAMMER: RW1 DTSBR910
|
|
00031 * DTSBR910
|
|
00032 * DTSBR910
|
|
00033 * 03-24-2008 FIXED BUG TO PRINT THE CORRECT UC30H FORM DTSBR910
|
|
00034 * REFERENCE RFP HOUSEHOLD AUTHOR OF CHANGE - ZL1DTSBR910
|
|
00035 * DTSBR910
|
|
00036 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXDTSBR910
|
|
00037 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXDTSBR910
|
|
00038 * REFERENCE RFP #**** PROGRAMMER: XXXDTSBR910
|
|
00039 * DTSBR910
|
|
00040 * DTSBR910
|
|
00041 * DESCRIPTION: DTSBR910
|
|
00042 * DTSBR910
|
|
00043 * THIS MODULE PRINTS THE ANNUAL WAGE REPORT, BOTH FROM DTSBR910
|
|
00044 * DAILY BATCH PROCESSES AND THE ANNUAL MASS MAILING, DTSBR910
|
|
00045 * FOR HOUSEHOLD EMPLOYERS FILING ANNUALLY. DTSBR910
|
|
00046 * DTSBR910
|
|
00047 * RECORDS READ: DTSBR910
|
|
00048 * DTSBR910
|
|
00049 * NONE. DTSBR910
|
|
00050 * DTSBR910
|
|
00051 * DTSBR910
|
|
00052 * PRINTED OUTPUTS: DTSBR910
|
|
00053 * DTSBR910
|
|
00054 * 910R1 ANNUAL WAGE REPORT (UC-30H) DTSBR910
|
|
00055 * 910R2 ANNUAL WAGE REPORT (UC-30H) AFTER 01/01/2006 DTSBR910
|
|
00056 * DTSBR910
|
|
00057 * DTSBR910
|
|
00058 * RECORDS WRITTEN: DTSBR910
|
|
00059 * DTSBR910
|
|
00060 * NONE. DTSBR910
|
|
00061 * DTSBR910
|
|
00062 * DTSBR910
|
|
00063 * MODULES CALLED: DTSBR910
|
|
00064 * DTSBR910
|
|
00065 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBR910
|
|
00066 * DTSBU002 DATE EDIT/CONVERSION MODULE DTSBR910
|
|
00067 * DTSBU004 DATE EDIT/CONVERSION MODULE DTSBR910
|
|
00068 * DTSBU008 QUARTER ALPHA CONVERSION MODULE DTSBR910
|
|
00069 * DTSBU009 TRANSLATE TO UPPER CASE MODULE DTSBR910
|
|
00070 * DTSBU056 RATE DISPLAY MODULE DTSBR910
|
|
00071 * DTSBU071 NAME EDIT/CONVERSION MODULE DTSBR910
|
|
00072 * DTSBU082 OPERATOR ID EDIT/LOOKUP MODULE DTSBR910
|
|
00073 * DTSBU109 AFT RATE LOOKUP MODULE DTSBR910
|
|
00074 * DTSBU119 AGENCY FACTS MODULE DTSBR910
|
|
00075 * DTSBU143 CHARACTER STRING BUILDING MODULE DTSBR910
|
|
00076 * DTSBR910
|
|
00077 * DTSBR910
|
|
00078 ***** DTSBR910
|
|
00079 EJECT DTSBR910
|
|
00080 ENVIRONMENT DIVISION. DTSBR910
|
|
00081 DTSBR910
|
|
00082 CONFIGURATION SECTION. DTSBR910
|
|
00083 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR910
|
|
00084 DTSBR910
|
|
00085 INPUT-OUTPUT SECTION. DTSBR910
|
|
00086 DTSBR910
|
|
00087 FILE-CONTROL. DTSBR910
|
|
00088 SELECT PRT-FILE1 ASSIGN TO DTS910F1. DTSBR910
|
|
00089 SELECT PRT-FILE2 ASSIGN TO RPT910R1. DTSBR910
|
|
00090 SELECT PRT-FILE3 ASSIGN TO RPT910R2. DTSBR910
|
|
00091 DTSBR910
|
|
00092 DATA DIVISION. DTSBR910
|
|
00093 DTSBR910
|
|
00094 FILE SECTION. DTSBR910
|
|
00095 DTSBR910
|
|
00096 FD PRT-FILE1 DTSBR910
|
|
00097 RECORDING MODE IS F. DTSBR910
|
|
00098 01 UC30H-DATA PIC X(490). DTSBR910
|
|
00099 DTSBR910
|
|
00100 FD PRT-FILE2 DTSBR910
|
|
00101 RECORDING MODE IS F. DTSBR910
|
|
00102 01 UC30H-REPORT PIC X(140). DTSBR910
|
|
00103 DTSBR910
|
|
00104 FD PRT-FILE3 DTSBR910
|
|
00105 RECORDING MODE IS F. DTSBR910
|
|
00106 01 UC30H-REPORT3 PIC X(140). DTSBR910
|
|
00107 DTSBR910
|
|
00108 WORKING-STORAGE SECTION. DTSBR910
|
|
001085 77 PAN-VALET PICTURE X(24) VALUE '007DTSBR910 03/24/08'. DTSBR910
|
|
00109 01 WRK-TABLE-AREA. DTSBR910
|
|
00110 05 TBL-SUB PIC S9(04) COMP. DTSBR910
|
|
00111 05 TBL-CNT PIC S9(04) COMP VALUE +0. DTSBR910
|
|
00112 05 SSN-SUB PIC S9(04) COMP. DTSBR910
|
|
00113 DTSBR910
|
|
00114 01 WRK-SSN-TABLE. DTSBR910
|
|
00115 05 WRK-SSN OCCURS 250 TIMES PIC S9(09) COMP-3. DTSBR910
|
|
00116 DTSBR910
|
|
00117 01 WRK-AREA. DTSBR910
|
|
00118 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +910.DTSBR910
|
|
00119 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR910
|
|
00120 05 WS-DAILY-OP-ID-HOLD PIC X(08) VALUE SPACES.DTSBR910
|
|
00121 *RW1 DTSBR910
|
|
00122 05 FIRST-TIME-LESS-2006-IND PIC X(01) VALUE 'Y'. DTSBR910
|
|
00123 05 FIRST-TIME-NOT-LESS-2006-IND PIC X(01) VALUE 'Y'. DTSBR910
|
|
00124 05 WS-DAILY-OP-ID-HOLD1 PIC X(08) VALUE SPACES.DTSBR910
|
|
00125 05 UC30-NEW-YEAR PIC 9(04) VALUE 2006. DTSBR910
|
|
00126 *RW2 DTSBR910
|
|
00127 05 WS-BLANK-LINE PIC X(133) VALUE SPACES.DTSBR910
|
|
00128 05 WS-YRQ-UNPACK PIC 9(05) VALUE ZEROS. DTSBR910
|
|
00129 05 FILLER REDEFINES WS-YRQ-UNPACK. DTSBR910
|
|
00130 10 WS-YEAR PIC 9(04). DTSBR910
|
|
00131 10 WS-QTR PIC 9(01). DTSBR910
|
|
00132 05 WS-WRK-SSN PIC 9(09) VALUE ZEROS. DTSBR910
|
|
00133 05 WS-WRK-SSNX REDEFINES WS-WRK-SSN. DTSBR910
|
|
00134 10 WS-SSN1 PIC 9(03). DTSBR910
|
|
00135 10 WS-SSN2 PIC 9(02). DTSBR910
|
|
00136 10 WS-SSN3 PIC 9(04). DTSBR910
|
|
00137 05 WS-RPT-SSN. DTSBR910
|
|
00138 10 RPT-SSN1 PIC 9(03). DTSBR910
|
|
00139 10 FILLER PIC X VALUE '-'. DTSBR910
|
|
00140 10 RPT-SSN2 PIC 9(02). DTSBR910
|
|
00141 10 FILLER PIC X VALUE '-'. DTSBR910
|
|
00142 10 RPT-SSN3 PIC 9(04). DTSBR910
|
|
00143 05 WS-BREAK-LINE1 PIC X(40) VALUE DTSBR910
|
|
00144 '********************************* '. DTSBR910
|
|
00145 05 WS-BREAK-LINE2 PIC X(40) VALUE DTSBR910
|
|
00146 '* ROUTE FOLLOWING FORMS TO: * '. DTSBR910
|
|
00147 DTSBR910
|
|
00148 05 WRK-OPR-NAME. DTSBR910
|
|
00149 10 FILLER PIC X(02) VALUE '* '. DTSBR910
|
|
00150 10 WS-OPR-NAME PIC X(30). DTSBR910
|
|
00151 10 FILLER PIC X(01) VALUE '*'. DTSBR910
|
|
00152 05 WRK-OPR-UNIT-NAME. DTSBR910
|
|
00153 10 FILLER PIC X(02) VALUE '* '. DTSBR910
|
|
00154 10 WS-OPR-UNIT-NAME PIC X(30). DTSBR910
|
|
00155 10 FILLER PIC X(01) VALUE '*'. DTSBR910
|
|
00156 DTSBR910
|
|
00157 05 WS-WAIVER-MSG-INIT PIC X(115) VALUE SPACES.DTSBR910
|
|
00158 05 WS-WAIVER-MSG-TBL REDEFINES WS-WAIVER-MSG-INIT. DTSBR910
|
|
00159 10 WS-WAIVER-MSG-LINE OCCURS 5 TIMES PIC X(23). DTSBR910
|
|
00160 05 WS-SNGL-WAIVER-MSG-INIT. DTSBR910
|
|
00161 10 FILLER PIC X(23) DTSBR910
|
|
00162 VALUE 'REPORT AND PAYMENT FOR '. DTSBR910
|
|
00163 10 WS-SNGL-WAIVER-YRQ-DISP PIC 99/9. DTSBR910
|
|
00164 10 FILLER PIC X(22) DTSBR910
|
|
00165 VALUE ' MUST BE RETURNED BY '. DTSBR910
|
|
00166 10 WS-SNGL-WAIVER-DATE-DISP PIC X(08). DTSBR910
|
|
00167 10 FILLER PIC X(32) DTSBR910
|
|
00168 VALUE ' TO AVOID PENALTY AND INTEREST'. DTSBR910
|
|
00169 10 FILLER PIC X(11) DTSBR910
|
|
00170 VALUE ' CHARGES.'. DTSBR910
|
|
00171 10 FILLER PIC X(15) DTSBR910
|
|
00172 VALUE SPACES. DTSBR910
|
|
00173 05 WS-MLTPL-WAIVER-MSG-INIT. DTSBR910
|
|
00174 10 FILLER PIC X(27) DTSBR910
|
|
00175 VALUE 'REPORTS AND PAYMENTS FOR '. DTSBR910
|
|
00176 10 WS-MLTPL-WAIVER-YRQ1-DISP DTSBR910
|
|
00177 PIC 99/9. DTSBR910
|
|
00178 10 FILLER PIC X(03) DTSBR910
|
|
00179 VALUE ' - '. DTSBR910
|
|
00180 10 WS-MLTPL-WAIVER-YRQ2-DISP DTSBR910
|
|
00181 PIC 99/9. DTSBR910
|
|
00182 10 FILLER PIC X(23) DTSBR910
|
|
00183 VALUE ' MUST BE RETURNED BY '. DTSBR910
|
|
00184 10 WS-MLTPL-WAIVER-DATE-DISP DTSBR910
|
|
00185 PIC X(08). DTSBR910
|
|
00186 10 FILLER PIC X(40) DTSBR910
|
|
00187 VALUE 'TO AVOID PENALTY AND INTEREST CHARGES.'. DTSBR910
|
|
00188 10 FILLER PIC X(06) DTSBR910
|
|
00189 VALUE SPACES. DTSBR910
|
|
00190 DTSBR910
|
|
00191 05 TEMP-EMP-NO PIC 9(06). DTSBR910
|
|
00192 88 TEMP-EMP-PRINT-88 VALUE 153333 DTSBR910
|
|
00193 136679 DTSBR910
|
|
00194 063302 DTSBR910
|
|
00195 153001 DTSBR910
|
|
00196 200100 DTSBR910
|
|
00197 076805 DTSBR910
|
|
00198 148664 DTSBR910
|
|
00199 000001 THRU 010000 DTSBR910
|
|
00200 089000 THRU 100000. DTSBR910
|
|
00201 EJECT DTSBR910
|
|
00202 **+INCLUDE DTSX910W DTSBR910
|
|
00203 ++INCLUDE DTSXL910 DTSBR910
|
|
00204 EJECT DTSBR910
|
|
00205 01 L001-LINK-AREA. DTSBR910
|
|
00206 ++INCLUDE DTSIL001 DTSBR910
|
|
00207 EJECT DTSBR910
|
|
00208 01 L002-LINK-AREA. DTSBR910
|
|
00209 ++INCLUDE DTSIL002 DTSBR910
|
|
00210 EJECT DTSBR910
|
|
00211 01 L004-LINK-AREA. DTSBR910
|
|
00212 ++INCLUDE DTSIL004 DTSBR910
|
|
00213 EJECT DTSBR910
|
|
00214 01 L008-LINK-AREA. DTSBR910
|
|
00215 ++INCLUDE DTSIL008 DTSBR910
|
|
00216 EJECT DTSBR910
|
|
00217 01 L009-LINK-AREA. DTSBR910
|
|
00218 ++INCLUDE DTSIL009 DTSBR910
|
|
00219 EJECT DTSBR910
|
|
00220 01 L056-LINK-AREA. DTSBR910
|
|
00221 ++INCLUDE DTSIL056 DTSBR910
|
|
00222 EJECT DTSBR910
|
|
00223 01 L071-LINK-AREA. DTSBR910
|
|
00224 ++INCLUDE DTSIL071 DTSBR910
|
|
00225 EJECT DTSBR910
|
|
00226 01 L082-LINK-AREA. DTSBR910
|
|
00227 ++INCLUDE DTSIL082 DTSBR910
|
|
00228 EJECT DTSBR910
|
|
00229 01 L119-LINK-AREA. DTSBR910
|
|
00230 ++INCLUDE DTSIL119 DTSBR910
|
|
00231 EJECT DTSBR910
|
|
00232 01 L143-LINK-AREA. DTSBR910
|
|
00233 ++INCLUDE DTSIL143 DTSBR910
|
|
00234 EJECT DTSBR910
|
|
00235 DTSBR910
|
|
00236 01 ROUTE-INFO-AREA. DTSBR910
|
|
00237 05 RTE-LINE-1. DTSBR910
|
|
00238 10 FILLER PIC X(27) VALUE SPACES. DTSBR910
|
|
00239 10 FILLER PIC X(33) DTSBR910
|
|
00240 VALUE '************ DTS910R1 **********'. DTSBR910
|
|
00241 05 RTE-LINE-1A. DTSBR910
|
|
00242 10 FILLER PIC X(27) VALUE SPACES. DTSBR910
|
|
00243 10 FILLER PIC X(33) DTSBR910
|
|
00244 VALUE '************ DTS910R2 **********'. DTSBR910
|
|
00245 05 RTE-LINE-2. DTSBR910
|
|
00246 10 FILLER PIC X(27) VALUE SPACES. DTSBR910
|
|
00247 10 FILLER PIC X(13) DTSBR910
|
|
00248 VALUE '** '. DTSBR910
|
|
00249 10 RTE-SYS-DATE PIC X(08) VALUE SPACES. DTSBR910
|
|
00250 10 FILLER PIC X(13) DTSBR910
|
|
00251 VALUE ' ** '. DTSBR910
|
|
00252 05 RTE-LINE-3. DTSBR910
|
|
00253 10 FILLER PIC X(27) VALUE SPACES. DTSBR910
|
|
00254 10 FILLER PIC X(33) DTSBR910
|
|
00255 VALUE '************ UC30-OLD ***********'. DTSBR910
|
|
00256 05 RTE-LINE-4. DTSBR910
|
|
00257 10 FILLER PIC X(27) VALUE SPACES. DTSBR910
|
|
00258 10 FILLER PIC X(33) DTSBR910
|
|
00259 VALUE '************ UC30-NEW ***********'. DTSBR910
|
|
00260 DTSBR910
|
|
00261 01 UC30H-REPORT-DETAIL1. DTSBR910
|
|
00262 05 U30H-LINE-1. DTSBR910
|
|
00263 10 FILLER PIC X(04) VALUE SPACES. DTSBR910
|
|
00264 10 U30H-EMP-NO PIC 999B999. DTSBR910
|
|
00265 10 FILLER PIC X(08) VALUE SPACES. DTSBR910
|
|
00266 10 U30H-PRI-NAME-FIRST4 PIC X(4) VALUE SPACES. DTSBR910
|
|
00267 10 FILLER PIC X(04) VALUE SPACES. DTSBR910
|
|
00268 10 U30H-FMT-LINE-1 PIC X(40) VALUE SPACES. DTSBR910
|
|
00269 10 FILLER PIC X(01) VALUE SPACES. DTSBR910
|
|
00270 10 U30H-FEIN-DISP PIC 99B9999999. DTSBR910
|
|
00271 10 U30H-FEIN-DISP-X DTSBR910
|
|
00272 REDEFINES U30H-FEIN-DISP PIC X(10). DTSBR910
|
|
00273 10 FILLER PIC X(05) VALUE SPACES. DTSBR910
|
|
00274 DTSBR910
|
|
00275 05 U30H-LINE-2. DTSBR910
|
|
00276 10 FILLER PIC X(27) VALUE SPACES. DTSBR910
|
|
00277 10 U30H-FMT-LINE-2 PIC X(40) VALUE SPACES. DTSBR910
|
|
00278 DTSBR910
|
|
00279 05 U30H-LINE-3. DTSBR910
|
|
00280 10 FILLER PIC X(10) VALUE SPACES. DTSBR910
|
|
00281 10 U30H-UI-RATE PIC X(06) VALUE SPACES. DTSBR910
|
|
00282 10 U30H-PCENT PIC X(03) VALUE ' %'. DTSBR910
|
|
00283 10 FILLER PIC X(08) VALUE SPACES. DTSBR910
|
|
00284 10 U30H-FMT-LINE-3 PIC X(40) VALUE SPACES. DTSBR910
|
|
00285 10 FILLER PIC X(01) VALUE SPACES. DTSBR910
|
|
00286 10 U30H-RPT-QTR-END-DISP PIC X(18). DTSBR910
|
|
00287 10 FILLER PIC X(05) VALUE SPACES. DTSBR910
|
|
00288 DTSBR910
|
|
00289 05 U30H-LINE-4. DTSBR910
|
|
00290 10 FILLER PIC X(27) VALUE SPACES. DTSBR910
|
|
00291 10 U30H-FMT-LINE-4 PIC X(40). DTSBR910
|
|
00292 DTSBR910
|
|
00293 05 U30H-LINE-5. DTSBR910
|
|
00294 10 FILLER PIC X(08) VALUE SPACES. DTSBR910
|
|
00295 10 U30H-TAX-WAGE-BASE PIC ZZZZZZ9.99. DTSBR910
|
|
00296 10 U30H-TAX-WAGE-BASE-X REDEFINES DTSBR910
|
|
00297 U30H-TAX-WAGE-BASE PIC X(10). DTSBR910
|
|
00298 10 FILLER PIC X(09) VALUE SPACES. DTSBR910
|
|
00299 10 U30H-FMT-LINE-5 PIC X(40). DTSBR910
|
|
00300 10 FILLER PIC X(01) VALUE SPACES. DTSBR910
|
|
00301 10 U30H-RPT-DUE-DATE-DISP PIC X(18). DTSBR910
|
|
00302 10 FILLER PIC X(05) VALUE SPACES. DTSBR910
|
|
00303 DTSBR910
|
|
00304 05 U30H-LINE-5A1. DTSBR910
|
|
00305 10 FILLER PIC X(53) VALUE SPACES. DTSBR910
|
|
00306 10 U30H-YEAR PIC X(04). DTSBR910
|
|
00307 DTSBR910
|
|
00308 05 U30H-LINE-5A. DTSBR910
|
|
00309 10 FILLER PIC X(01) VALUE SPACES. DTSBR910
|
|
00310 10 U30H-SSN-1 PIC X(11). DTSBR910
|
|
00311 DTSBR910
|
|
00312 05 U30H-LINE-5B. DTSBR910
|
|
00313 10 FILLER PIC X(01) VALUE SPACES. DTSBR910
|
|
00314 10 U30H-SSN-2 PIC X(11). DTSBR910
|
|
00315 DTSBR910
|
|
00316 05 U30H-LINE-5C. DTSBR910
|
|
00317 10 FILLER PIC X(01) VALUE SPACES. DTSBR910
|
|
00318 10 U30H-SSN-3 PIC X(11). DTSBR910
|
|
00319 DTSBR910
|
|
00320 05 U30H-LINE-5D. DTSBR910
|
|
00321 10 FILLER PIC X(01) VALUE SPACES. DTSBR910
|
|
00322 10 U30H-SSN-4 PIC X(11). DTSBR910
|
|
00323 DTSBR910
|
|
00324 05 U30H-LINE-5E. DTSBR910
|
|
00325 10 FILLER PIC X(01) VALUE SPACES. DTSBR910
|
|
00326 10 U30H-SSN-5 PIC X(11). DTSBR910
|
|
00327 DTSBR910
|
|
00328 05 U30H-LINE-5F. DTSBR910
|
|
00329 10 FILLER PIC X(01) VALUE SPACES. DTSBR910
|
|
00330 10 U30H-SSN-6 PIC X(11). DTSBR910
|
|
00331 DTSBR910
|
|
00332 05 U30H-LINE-5G. DTSBR910
|
|
00333 10 FILLER PIC X(01) VALUE SPACES. DTSBR910
|
|
00334 10 U30H-SSN-7 PIC X(11). DTSBR910
|
|
00335 DTSBR910
|
|
00336 05 U30H-LINE-5H. DTSBR910
|
|
00337 10 FILLER PIC X(01) VALUE SPACES. DTSBR910
|
|
00338 10 U30H-SSN-8 PIC X(11). DTSBR910
|
|
00339 DTSBR910
|
|
00340 05 U30H-LINE-5I. DTSBR910
|
|
00341 10 FILLER PIC X(01) VALUE SPACES. DTSBR910
|
|
00342 10 U30H-SSN-9 PIC X(11). DTSBR910
|
|
00343 DTSBR910
|
|
00344 05 U30H-LINE-5J. DTSBR910
|
|
00345 10 FILLER PIC X(01) VALUE SPACES. DTSBR910
|
|
00346 10 U30H-SSN-10 PIC X(11). DTSBR910
|
|
00347 DTSBR910
|
|
00348 05 U30H-LINE-6. DTSBR910
|
|
00349 10 FILLER PIC X(75) VALUE SPACES. DTSBR910
|
|
00350 10 U30H-NONTAX-WAGE PIC ZZZ,ZZZ,ZZ9.99. DTSBR910
|
|
00351 DTSBR910
|
|
00352 05 U30H-LINE-7. DTSBR910
|
|
00353 10 FILLER PIC X(75) VALUE SPACES. DTSBR910
|
|
00354 10 U30H-TAX-WAGE PIC ZZZ,ZZZ,ZZ9.99. DTSBR910
|
|
00355 DTSBR910
|
|
00356 05 U30H-LINE-8. DTSBR910
|
|
00357 10 FILLER PIC X(38) VALUE SPACES. DTSBR910
|
|
00358 10 U30H-UI-TAX-RATE-SI PIC X(6) VALUE SPACES. DTSBR910
|
|
00359 10 FILLER PIC X(14) VALUE SPACES. DTSBR910
|
|
00360 10 U30H-CONTRIB-DUE PIC ZZZ,ZZZ,ZZ9.99. DTSBR910
|
|
00361 DTSBR910
|
|
00362 05 U30H-LINE-8R. DTSBR910
|
|
00363 10 FILLER PIC X(37) VALUE SPACES. DTSBR910
|
|
00364 10 U30H-UI-TAX-RATE-RATED PIC X(6) VALUE SPACES. DTSBR910
|
|
00365 DTSBR910
|
|
00366 05 U30H-LINE-9. DTSBR910
|
|
00367 10 FILLER PIC X(58) VALUE SPACES. DTSBR910
|
|
00368 10 U30H-INTREST-DUE PIC ZZZ,ZZZ,ZZ9.99. DTSBR910
|
|
00369 DTSBR910
|
|
00370 05 U30H-LINE-10. DTSBR910
|
|
00371 10 FILLER PIC X(58) VALUE SPACES. DTSBR910
|
|
00372 10 U30H-PENALTY-DUE PIC ZZZ,ZZZ,ZZ9.99. DTSBR910
|
|
00373 DTSBR910
|
|
00374 05 U30H-LINE-11. DTSBR910
|
|
00375 10 FILLER PIC X(50) VALUE SPACES. DTSBR910
|
|
00376 10 U30H-CREDIT-AMT PIC ZZZ,ZZZ,ZZ9.99. DTSBR910
|
|
00377 DTSBR910
|
|
00378 05 U30H-LINE-12. DTSBR910
|
|
00379 10 FILLER PIC X(75) VALUE SPACES. DTSBR910
|
|
00380 10 U30H-TOTAL-AMT PIC ZZZ,ZZZ,ZZ9.99. DTSBR910
|
|
00381 DTSBR910
|
|
00382 DTSBR910
|
|
00383 01 UC30H-DATA-FILE. DTSBR910
|
|
00384 10 FILLER PIC X(04) VALUE SPACES. DTSBR910
|
|
00385 10 FILLER PIC X(01) VALUE ';'. DTSBR910
|
|
00386 10 Q30-EMP-NO PIC 999B999. DTSBR910
|
|
00387 10 FILLER PIC X(01) VALUE ';'. DTSBR910
|
|
00388 10 Q30-PRI-NAME-FIRST4 PIC X(4) VALUE SPACES. DTSBR910
|
|
00389 10 FILLER PIC X(01) VALUE ';'. DTSBR910
|
|
00390 10 Q30-FMT-LINE-1 PIC X(36) VALUE SPACES. DTSBR910
|
|
00391 10 FILLER PIC X(01) VALUE ';'. DTSBR910
|
|
00392 10 Q30-FEIN-DISP PIC 99B9999999. DTSBR910
|
|
00393 10 Q30-FEIN-DISP-X DTSBR910
|
|
00394 REDEFINES Q30-FEIN-DISP PIC X(10). DTSBR910
|
|
00395 10 FILLER PIC X(01) VALUE ';'. DTSBR910
|
|
00396 10 Q30-FMT-LINE-2 PIC X(36) VALUE SPACES. DTSBR910
|
|
00397 10 FILLER PIC X(01) VALUE ';'. DTSBR910
|
|
00398 10 Q30-UI-RATE PIC X(06) VALUE SPACES. DTSBR910
|
|
00399 10 Q30-PCENT PIC X(03) VALUE ' %'. DTSBR910
|
|
00400 10 FILLER PIC X(01) VALUE ';'. DTSBR910
|
|
00401 10 Q30-FMT-LINE-3 PIC X(36) VALUE SPACES. DTSBR910
|
|
00402 10 FILLER PIC X(01) VALUE ';'. DTSBR910
|
|
00403 10 Q30-RPT-QTR-END-DISP PIC X(18). DTSBR910
|
|
00404 10 FILLER PIC X(01) VALUE ';'. DTSBR910
|
|
00405 10 Q30-FMT-LINE-4 PIC X(36). DTSBR910
|
|
00406 10 FILLER PIC X(01) VALUE ';'. DTSBR910
|
|
00407 10 Q30-TAX-WAGE-BASE PIC ZZZZZZ9.99. DTSBR910
|
|
00408 10 Q30-TAX-WAGE-BASE-X REDEFINES DTSBR910
|
|
00409 Q30-TAX-WAGE-BASE PIC X(10). DTSBR910
|
|
00410 10 FILLER PIC X(01) VALUE ';'. DTSBR910
|
|
00411 10 Q30-FMT-LINE-5 PIC X(36). DTSBR910
|
|
00412 10 FILLER PIC X(01) VALUE ';'. DTSBR910
|
|
00413 10 Q30-RPT-DUE-DATE-DISP PIC X(18). DTSBR910
|
|
00414 10 FILLER PIC X(01) VALUE ';'. DTSBR910
|
|
00415 10 Q30-NONTAX-WAGE PIC ZZZ,ZZZ,ZZ9.99. DTSBR910
|
|
00416 10 FILLER PIC X(01) VALUE ';'. DTSBR910
|
|
00417 10 Q30-TAX-WAGE PIC ZZZ,ZZZ,ZZ9.99. DTSBR910
|
|
00418 10 FILLER PIC X(01) VALUE ';'. DTSBR910
|
|
00419 10 Q30-UI-TAX-RATE-SI PIC X(6) VALUE SPACES. DTSBR910
|
|
00420 10 FILLER PIC X(01) VALUE ';'. DTSBR910
|
|
00421 10 Q30-CONTRIB-DUE PIC ZZZ,ZZZ,ZZ9.99. DTSBR910
|
|
00422 10 FILLER PIC X(01) VALUE ';'. DTSBR910
|
|
00423 10 Q30-INTREST-DUE PIC ZZZ,ZZZ,ZZ9.99. DTSBR910
|
|
00424 10 FILLER PIC X(01) VALUE ';'. DTSBR910
|
|
00425 10 Q30-PENALTY-DUE PIC ZZZ,ZZZ,ZZ9.99. DTSBR910
|
|
00426 10 FILLER PIC X(01) VALUE ';'. DTSBR910
|
|
00427 10 Q30-CREDIT-AMT PIC ZZZ,ZZZ,ZZ9.99. DTSBR910
|
|
00428 10 FILLER PIC X(01) VALUE ';'. DTSBR910
|
|
00429 10 Q30-TOTAL-AMT PIC ZZZ,ZZZ,ZZ9.99. DTSBR910
|
|
00430 10 FILLER PIC X(01) VALUE ';'. DTSBR910
|
|
00431 10 Q30-YEAR PIC X(04). DTSBR910
|
|
00432 10 FILLER PIC X(01) VALUE ';'. DTSBR910
|
|
00433 10 Q30-SSN-1 PIC 9(09) BLANK WHEN ZERO. DTSBR910
|
|
00434 10 FILLER PIC X(01) VALUE ';'. DTSBR910
|
|
00435 10 Q30-SSN-2 PIC 9(09) BLANK WHEN ZERO. DTSBR910
|
|
00436 10 FILLER PIC X(01) VALUE ';'. DTSBR910
|
|
00437 10 Q30-SSN-3 PIC 9(09) BLANK WHEN ZERO. DTSBR910
|
|
00438 10 FILLER PIC X(01) VALUE ';'. DTSBR910
|
|
00439 10 Q30-SSN-4 PIC 9(09) BLANK WHEN ZERO. DTSBR910
|
|
00440 10 FILLER PIC X(01) VALUE ';'. DTSBR910
|
|
00441 10 Q30-SSN-5 PIC 9(09) BLANK WHEN ZERO. DTSBR910
|
|
00442 10 FILLER PIC X(01) VALUE ';'. DTSBR910
|
|
00443 10 Q30-SSN-6 PIC 9(09) BLANK WHEN ZERO. DTSBR910
|
|
00444 10 FILLER PIC X(01) VALUE ';'. DTSBR910
|
|
00445 10 Q30-SSN-7 PIC 9(09) BLANK WHEN ZERO. DTSBR910
|
|
00446 10 FILLER PIC X(01) VALUE ';'. DTSBR910
|
|
00447 10 Q30-SSN-8 PIC 9(09) BLANK WHEN ZERO. DTSBR910
|
|
00448 10 FILLER PIC X(01) VALUE ';'. DTSBR910
|
|
00449 10 Q30-SSN-9 PIC 9(09) BLANK WHEN ZERO. DTSBR910
|
|
00450 10 FILLER PIC X(01) VALUE ';'. DTSBR910
|
|
00451 10 Q30-SSN-10 PIC 9(09) BLANK WHEN ZERO. DTSBR910
|
|
00452 10 FILLER PIC X(01) VALUE ';'. DTSBR910
|
|
00453 DTSBR910
|
|
00454 EJECT DTSBR910
|
|
00455 LINKAGE SECTION. DTSBR910
|
|
00456 DTSBR910
|
|
00457 01 LRCM-LINK-AREA. DTSBR910
|
|
00458 ++INCLUDE DTSILRCM DTSBR910
|
|
00459 EJECT DTSBR910
|
|
00460 01 R910-REC. DTSBR910
|
|
00461 ++INCLUDE DTSIR910 DTSBR910
|
|
00462 EJECT DTSBR910
|
|
00463 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR910
|
|
00464 R910-REC. DTSBR910
|
|
00465 DTSBR910
|
|
00466 IF FIRST-TIME-IND = 'Y' DTSBR910
|
|
00467 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR910
|
|
00468 MOVE 'N' TO FIRST-TIME-IND. DTSBR910
|
|
00469 * DTSBR910
|
|
00470 ****** I1100 BLANK FORMS WILL PRINT BLANK COPIES OF THE DTSBR910
|
|
00471 * HOUSEHOLD EMPLOYER WORKSHEET UC30HW. DTSBR910
|
|
00472 * DTSBR910
|
|
00473 * DTSBR910
|
|
00474 * PERFORM I1100-BLANK-FORMS THRU I1100-EXIT 3000 TIMES. DTSBR910
|
|
00475 * CLOSE PRT-FILE1 PRT-FILE2. DTSBR910
|
|
00476 * GOBACK. DTSBR910
|
|
00477 * DTSBR910
|
|
00478 IF LRCM-EOR-88 DTSBR910
|
|
00479 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR910
|
|
00480 ELSE DTSBR910
|
|
00481 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR910
|
|
00482 DTSBR910
|
|
00483 GOBACK. DTSBR910
|
|
00484 EJECT DTSBR910
|
|
00485 I1000-INITIATE. DTSBR910
|
|
00486 DTSBR910
|
|
00487 OPEN OUTPUT PRT-FILE1 DTSBR910
|
|
00488 PRT-FILE2 DTSBR910
|
|
00489 PRT-FILE3. DTSBR910
|
|
00490 MOVE SPACES TO UC30H-DATA DTSBR910
|
|
00491 UC30H-REPORT DTSBR910
|
|
00492 UC30H-REPORT3. DTSBR910
|
|
00493 MOVE SPACES TO WS-DAILY-OP-ID-HOLD. DTSBR910
|
|
00494 MOVE SPACES TO WS-DAILY-OP-ID-HOLD1. DTSBR910
|
|
00495 MOVE LRCM-SYS-DATE TO RTE-SYS-DATE. DTSBR910
|
|
00496 DTSBR910
|
|
00497 I1000-EXIT. DTSBR910
|
|
00498 EXIT. DTSBR910
|
|
00499 *R1 DTSBR910
|
|
00500 I1100-INITIATE-XEROX-CNTL. DTSBR910
|
|
00501 WRITE UC30H-REPORT FROM XEROX-CNTL-LINE2 AFTER TOP-OF-PAGE. DTSBR910
|
|
00502 WRITE UC30H-REPORT FROM XEROX-CNTL-LINE1 AFTER 1. DTSBR910
|
|
00503 WRITE UC30H-REPORT FROM WS-BLANK-LINE AFTER 6. DTSBR910
|
|
00504 WRITE UC30H-REPORT FROM RTE-LINE-1 AFTER 9. DTSBR910
|
|
00505 WRITE UC30H-REPORT FROM RTE-LINE-2 AFTER 1. DTSBR910
|
|
00506 WRITE UC30H-REPORT FROM RTE-LINE-3 AFTER 1. DTSBR910
|
|
00507 DTSBR910
|
|
00508 I1100-EXIT. DTSBR910
|
|
00509 EXIT. DTSBR910
|
|
00510 DTSBR910
|
|
00511 *R2 DTSBR910
|
|
00512 I1200-INITIATE-XEROX-CNTL. DTSBR910
|
|
00513 WRITE UC30H-REPORT3 FROM XEROX-CNTL-LINE AFTER TOP-OF-PAGE. DTSBR910
|
|
00514 WRITE UC30H-REPORT3 FROM XEROX-CNTL-LINE1 AFTER 1. DTSBR910
|
|
00515 WRITE UC30H-REPORT3 FROM WS-BLANK-LINE AFTER 6. DTSBR910
|
|
00516 WRITE UC30H-REPORT3 FROM RTE-LINE-1A AFTER 9. DTSBR910
|
|
00517 WRITE UC30H-REPORT3 FROM RTE-LINE-2 AFTER 1. DTSBR910
|
|
00518 WRITE UC30H-REPORT3 FROM RTE-LINE-4 AFTER 1. DTSBR910
|
|
00519 DTSBR910
|
|
00520 I1200-EXIT. DTSBR910
|
|
00521 EXIT. DTSBR910
|
|
00522 DTSBR910
|
|
00523 *I1100-BLANK-FORMS. DTSBR910
|
|
00524 * WRITE UC30H-REPORT3 FROM WS-BLANK-LINE AFTER TOP-OF-PAGE. DTSBR910
|
|
00525 *I1100-EXIT. DTSBR910
|
|
00526 * EXIT. DTSBR910
|
|
00527 DTSBR910
|
|
00528 P1000-PROCESS. DTSBR910
|
|
00529 DTSBR910
|
|
00530 IF R910-SORT-TYPE-ANN-88 DTSBR910
|
|
00531 PERFORM P2000-UC30H-ANNUAL-FILE THRU P2000-EXIT DTSBR910
|
|
00532 ELSE DTSBR910
|
|
00533 IF R910-DAILY-YR < 2006 DTSBR910
|
|
00534 IF FIRST-TIME-LESS-2006-IND = 'Y' DTSBR910
|
|
00535 PERFORM I1100-INITIATE-XEROX-CNTL THRU I1100-EXIT DTSBR910
|
|
00536 MOVE 'N' TO FIRST-TIME-LESS-2006-IND DTSBR910
|
|
00537 END-IF DTSBR910
|
|
00538 PERFORM P3010-BREAK-USERID THRU P3010-EXIT DTSBR910
|
|
00539 PERFORM P3000-UC30H-DAILY-RPT THRU P3000-EXIT DTSBR910
|
|
00540 ELSE DTSBR910
|
|
00541 IF FIRST-TIME-NOT-LESS-2006-IND = 'Y' DTSBR910
|
|
00542 PERFORM I1200-INITIATE-XEROX-CNTL THRU I1200-EXIT DTSBR910
|
|
00543 MOVE 'N' TO FIRST-TIME-NOT-LESS-2006-IND DTSBR910
|
|
00544 END-IF DTSBR910
|
|
00545 PERFORM P4010-BREAK-USERID THRU P4010-EXIT DTSBR910
|
|
00546 PERFORM P4000-UC30H-NEW-DAILY-RPT THRU P4000-EXIT DTSBR910
|
|
00547 END-IF DTSBR910
|
|
00548 END-IF. DTSBR910
|
|
00549 DTSBR910
|
|
00550 P1000-EXIT. DTSBR910
|
|
00551 EXIT. DTSBR910
|
|
00552 DTSBR910
|
|
00553 P2000-UC30H-ANNUAL-FILE. DTSBR910
|
|
00554 MOVE R910-ANNUAL-EMP-NO TO Q30-EMP-NO. DTSBR910
|
|
00555 DTSBR910
|
|
00556 IF R910-ANN-CR-AMT > +0 DTSBR910
|
|
00557 MOVE R910-ANN-CR-AMT TO Q30-CREDIT-AMT DTSBR910
|
|
00558 ELSE DTSBR910
|
|
00559 MOVE ZEROS TO Q30-CREDIT-AMT DTSBR910
|
|
00560 END-IF. DTSBR910
|
|
00561 DTSBR910
|
|
00562 DTSBR910
|
|
00563 MOVE R910-ANNUAL-YR TO WS-YEAR. DTSBR910
|
|
00564 MOVE WS-YEAR TO Q30-YEAR. DTSBR910
|
|
00565 MOVE 4 TO WS-QTR. DTSBR910
|
|
00566 *& DTSBR910
|
|
00567 *& DTSBR910
|
|
00568 SET L004-FROM-5 TO TRUE. DTSBR910
|
|
00569 MOVE WS-YRQ-UNPACK TO L004-QTR-5-AREA. DTSBR910
|
|
00570 PERFORM S004-DATE THRU S004-EXIT. DTSBR910
|
|
00571 DTSBR910
|
|
00572 DTSBR910
|
|
00573 MOVE L004-QTR-END-DATE TO L002-DATE. DTSBR910
|
|
00574 SET L002-UPPER-CASE TO TRUE. DTSBR910
|
|
00575 PERFORM S002-DATE THRU S002-EXIT. DTSBR910
|
|
00576 MOVE L002-LONG-TEXT-AREA TO Q30-RPT-QTR-END-DISP. DTSBR910
|
|
00577 DTSBR910
|
|
00578 MOVE R910-RPT-DUE-DATE TO L002-DATE. DTSBR910
|
|
00579 SET L002-UPPER-CASE TO TRUE. DTSBR910
|
|
00580 PERFORM S002-DATE THRU S002-EXIT. DTSBR910
|
|
00581 MOVE L002-LONG-TEXT-AREA TO Q30-RPT-DUE-DATE-DISP. DTSBR910
|
|
00582 DTSBR910
|
|
00583 MOVE R910-PRI-NAME-FIRST4 TO Q30-PRI-NAME-FIRST4. DTSBR910
|
|
00584 DTSBR910
|
|
00585 IF R910-FEIN = ZEROES DTSBR910
|
|
00586 MOVE SPACES TO Q30-FEIN-DISP-X DTSBR910
|
|
00587 ELSE DTSBR910
|
|
00588 MOVE R910-FEIN TO Q30-FEIN-DISP. DTSBR910
|
|
00589 DTSBR910
|
|
00590 MOVE R910-TAX-WAGE-BASE TO Q30-TAX-WAGE-BASE. DTSBR910
|
|
00591 MOVE R910-UI-RATE TO L056-RATE. DTSBR910
|
|
00592 SET L056-DISP1-RIGHT-PCT-88 TO TRUE. DTSBR910
|
|
00593 PERFORM S056-RATE-DISPLAY THRU S056-EXIT. DTSBR910
|
|
00594 MOVE L056-DISP-RATE TO Q30-UI-RATE DTSBR910
|
|
00595 Q30-UI-TAX-RATE-SI. DTSBR910
|
|
00596 MOVE ' %' TO Q30-PCENT. DTSBR910
|
|
00597 DTSBR910
|
|
00598 MOVE R910-FMT-LINE (1) TO Q30-FMT-LINE-1. DTSBR910
|
|
00599 MOVE R910-FMT-LINE (2) TO Q30-FMT-LINE-2. DTSBR910
|
|
00600 MOVE R910-FMT-LINE (3) TO Q30-FMT-LINE-3. DTSBR910
|
|
00601 MOVE R910-FMT-LINE (4) TO Q30-FMT-LINE-4. DTSBR910
|
|
00602 MOVE R910-FMT-LINE (5) TO Q30-FMT-LINE-5. DTSBR910
|
|
00603 DTSBR910
|
|
00604 IF R910-SSN-LINE-CNT > 10 DTSBR910
|
|
00605 NEXT SENTENCE DTSBR910
|
|
00606 ELSE DTSBR910
|
|
00607 MOVE R910-SSN-LINE (1) TO Q30-SSN-1 DTSBR910
|
|
00608 MOVE R910-SSN-LINE (2) TO Q30-SSN-2 DTSBR910
|
|
00609 MOVE R910-SSN-LINE (3) TO Q30-SSN-3 DTSBR910
|
|
00610 MOVE R910-SSN-LINE (4) TO Q30-SSN-4 DTSBR910
|
|
00611 MOVE R910-SSN-LINE (5) TO Q30-SSN-5 DTSBR910
|
|
00612 MOVE R910-SSN-LINE (6) TO Q30-SSN-6 DTSBR910
|
|
00613 MOVE R910-SSN-LINE (7) TO Q30-SSN-7 DTSBR910
|
|
00614 MOVE R910-SSN-LINE (8) TO Q30-SSN-8 DTSBR910
|
|
00615 MOVE R910-SSN-LINE (9) TO Q30-SSN-9 DTSBR910
|
|
00616 MOVE R910-SSN-LINE (10) TO Q30-SSN-10. DTSBR910
|
|
00617 DTSBR910
|
|
00618 WRITE UC30H-DATA FROM UC30H-DATA-FILE. DTSBR910
|
|
00619 DTSBR910
|
|
00620 P2000-EXIT. DTSBR910
|
|
00621 EXIT. DTSBR910
|
|
00622 DTSBR910
|
|
00623 P3000-UC30H-DAILY-RPT. DTSBR910
|
|
00624 DTSBR910
|
|
00625 MOVE R910-DAILY-EMP-NO TO U30H-EMP-NO. DTSBR910
|
|
00626 DTSBR910
|
|
00627 IF R910-ANN-CR-AMT > +0 DTSBR910
|
|
00628 MOVE R910-ANN-CR-AMT TO U30H-CREDIT-AMT DTSBR910
|
|
00629 ELSE DTSBR910
|
|
00630 MOVE ZEROS TO U30H-CREDIT-AMT DTSBR910
|
|
00631 END-IF. DTSBR910
|
|
00632 DTSBR910
|
|
00633 MOVE R910-DAILY-YR TO WS-YEAR. DTSBR910
|
|
00634 MOVE WS-YEAR TO U30H-YEAR. DTSBR910
|
|
00635 MOVE 4 TO WS-QTR. DTSBR910
|
|
00636 *& DTSBR910
|
|
00637 *& DTSBR910
|
|
00638 SET L004-FROM-5 TO TRUE. DTSBR910
|
|
00639 MOVE WS-YRQ-UNPACK TO L004-QTR-5-AREA. DTSBR910
|
|
00640 PERFORM S004-DATE THRU S004-EXIT. DTSBR910
|
|
00641 DTSBR910
|
|
00642 MOVE L004-QTR-END-DATE TO L002-DATE. DTSBR910
|
|
00643 SET L002-UPPER-CASE TO TRUE. DTSBR910
|
|
00644 PERFORM S002-DATE THRU S002-EXIT. DTSBR910
|
|
00645 MOVE L002-LONG-TEXT-AREA TO U30H-RPT-QTR-END-DISP. DTSBR910
|
|
00646 DTSBR910
|
|
00647 MOVE R910-RPT-DUE-DATE TO L002-DATE. DTSBR910
|
|
00648 SET L002-UPPER-CASE TO TRUE. DTSBR910
|
|
00649 PERFORM S002-DATE THRU S002-EXIT. DTSBR910
|
|
00650 MOVE L002-LONG-TEXT-AREA TO U30H-RPT-DUE-DATE-DISP. DTSBR910
|
|
00651 DTSBR910
|
|
00652 MOVE R910-PRI-NAME-FIRST4 TO U30H-PRI-NAME-FIRST4. DTSBR910
|
|
00653 DTSBR910
|
|
00654 IF R910-FEIN = ZEROES DTSBR910
|
|
00655 MOVE SPACES TO U30H-FEIN-DISP-X DTSBR910
|
|
00656 ELSE DTSBR910
|
|
00657 MOVE R910-FEIN TO U30H-FEIN-DISP. DTSBR910
|
|
00658 DTSBR910
|
|
00659 MOVE R910-TAX-WAGE-BASE TO U30H-TAX-WAGE-BASE. DTSBR910
|
|
00660 MOVE R910-UI-RATE TO L056-RATE. DTSBR910
|
|
00661 SET L056-DISP1-RIGHT-PCT-88 TO TRUE. DTSBR910
|
|
00662 PERFORM S056-RATE-DISPLAY THRU S056-EXIT. DTSBR910
|
|
00663 MOVE L056-DISP-RATE TO U30H-UI-RATE DTSBR910
|
|
00664 U30H-UI-TAX-RATE-RATED. DTSBR910
|
|
00665 MOVE ' %' TO U30H-PCENT. DTSBR910
|
|
00666 DTSBR910
|
|
00667 MOVE R910-FMT-LINE (1) TO U30H-FMT-LINE-1. DTSBR910
|
|
00668 MOVE R910-FMT-LINE (2) TO U30H-FMT-LINE-2. DTSBR910
|
|
00669 MOVE R910-FMT-LINE (3) TO U30H-FMT-LINE-3. DTSBR910
|
|
00670 MOVE R910-FMT-LINE (4) TO U30H-FMT-LINE-4. DTSBR910
|
|
00671 MOVE R910-FMT-LINE (5) TO U30H-FMT-LINE-5. DTSBR910
|
|
00672 DTSBR910
|
|
00673 IF R910-SSN-LINE-CNT = +0 DTSBR910
|
|
00674 NEXT SENTENCE DTSBR910
|
|
00675 ELSE DTSBR910
|
|
00676 PERFORM DTSBR910
|
|
00677 VARYING TBL-SUB FROM +1 BY +1 DTSBR910
|
|
00678 UNTIL TBL-SUB > R910-SSN-LINE-CNT DTSBR910
|
|
00679 MOVE R910-SSN-LINE (TBL-SUB) TO WS-WRK-SSN DTSBR910
|
|
00680 MOVE WS-SSN1 TO RPT-SSN1 DTSBR910
|
|
00681 MOVE WS-SSN2 TO RPT-SSN2 DTSBR910
|
|
00682 MOVE WS-SSN3 TO RPT-SSN3 DTSBR910
|
|
00683 PERFORM P3031-MOVE-SSN THRU P3031-EXIT DTSBR910
|
|
00684 END-PERFORM DTSBR910
|
|
00685 END-IF. DTSBR910
|
|
00686 DTSBR910
|
|
00687 PERFORM P3030-GENERATE-UC30H-REPORT THRU P3030-EXIT. DTSBR910
|
|
00688 DTSBR910
|
|
00689 P3000-EXIT. DTSBR910
|
|
00690 EXIT. DTSBR910
|
|
00691 P3010-BREAK-USERID. DTSBR910
|
|
00692 DTSBR910
|
|
00693 IF R910-DAILY-OP-ID NOT = WS-DAILY-OP-ID-HOLD DTSBR910
|
|
00694 MOVE R910-DAILY-OP-ID TO WS-DAILY-OP-ID-HOLD DTSBR910
|
|
00695 PERFORM P3020-OPID-BREAK THRU P3020-EXIT DTSBR910
|
|
00696 PERFORM P3030-GENERATE-UC30H-REPORT THRU P3030-EXIT DTSBR910
|
|
00697 END-IF. DTSBR910
|
|
00698 DTSBR910
|
|
00699 P3010-EXIT. DTSBR910
|
|
00700 EXIT. DTSBR910
|
|
00701 EJECT DTSBR910
|
|
00702 P3020-OPID-BREAK. DTSBR910
|
|
00703 DTSBR910
|
|
00704 MOVE R910-DAILY-OP-ID TO L082-OP-ID DTSBR910
|
|
00705 DTSBR910
|
|
00706 PERFORM S082-OP-ID-INFO THRU S082-EXIT DTSBR910
|
|
00707 MOVE L082-NAME TO L071-NAM DTSBR910
|
|
00708 MOVE 2 TO L071-NAME-FORMAT DTSBR910
|
|
00709 PERFORM S071-DESLASH-NAME THRU S071-EXIT DTSBR910
|
|
00710 MOVE L071-NAM TO L009-DATA DTSBR910
|
|
00711 DTSBR910
|
|
00712 PERFORM S009-UPPER-CASE-TRANSLATE THRU S009-EXIT DTSBR910
|
|
00713 MOVE L009-DATA TO WS-OPR-NAME DTSBR910
|
|
00714 MOVE L082-UNIT-NAME TO L009-DATA DTSBR910
|
|
00715 DTSBR910
|
|
00716 PERFORM S009-UPPER-CASE-TRANSLATE THRU S009-EXIT DTSBR910
|
|
00717 MOVE L009-DATA TO WS-OPR-UNIT-NAME. DTSBR910
|
|
00718 DTSBR910
|
|
00719 MOVE SPACES TO U30H-LINE-1 DTSBR910
|
|
00720 U30H-LINE-2 DTSBR910
|
|
00721 U30H-LINE-3 DTSBR910
|
|
00722 U30H-LINE-4 DTSBR910
|
|
00723 U30H-LINE-5 DTSBR910
|
|
00724 U30H-LINE-5A1. DTSBR910
|
|
00725 DTSBR910
|
|
00726 MOVE WS-BREAK-LINE1 TO U30H-FMT-LINE-1. DTSBR910
|
|
00727 MOVE WS-BREAK-LINE2 TO U30H-FMT-LINE-2. DTSBR910
|
|
00728 MOVE WRK-OPR-NAME TO U30H-FMT-LINE-3. DTSBR910
|
|
00729 MOVE WRK-OPR-UNIT-NAME TO U30H-FMT-LINE-4. DTSBR910
|
|
00730 MOVE WS-BREAK-LINE1 TO U30H-FMT-LINE-5. DTSBR910
|
|
00731 DTSBR910
|
|
00732 P3020-EXIT. DTSBR910
|
|
00733 EXIT. DTSBR910
|
|
00734 P3030-GENERATE-UC30H-REPORT. DTSBR910
|
|
00735 DTSBR910
|
|
00736 WRITE UC30H-REPORT FROM WS-BLANK-LINE AFTER TOP-OF-PAGE. DTSBR910
|
|
00737 WRITE UC30H-REPORT FROM U30H-LINE-1 AFTER 11. DTSBR910
|
|
00738 WRITE UC30H-REPORT FROM U30H-LINE-2 AFTER 1. DTSBR910
|
|
00739 WRITE UC30H-REPORT FROM U30H-LINE-3 AFTER 1. DTSBR910
|
|
00740 WRITE UC30H-REPORT FROM U30H-LINE-4 AFTER 1. DTSBR910
|
|
00741 WRITE UC30H-REPORT FROM U30H-LINE-5 AFTER 1. DTSBR910
|
|
00742 DTSBR910
|
|
00743 WRITE UC30H-REPORT FROM U30H-LINE-5A1 AFTER 6. DTSBR910
|
|
00744 WRITE UC30H-REPORT FROM U30H-LINE-5A AFTER 3. DTSBR910
|
|
00745 WRITE UC30H-REPORT FROM U30H-LINE-5B AFTER 1. DTSBR910
|
|
00746 WRITE UC30H-REPORT FROM U30H-LINE-5C AFTER 1. DTSBR910
|
|
00747 WRITE UC30H-REPORT FROM U30H-LINE-5D AFTER 1. DTSBR910
|
|
00748 WRITE UC30H-REPORT FROM U30H-LINE-5E AFTER 1. DTSBR910
|
|
00749 WRITE UC30H-REPORT FROM U30H-LINE-5F AFTER 1. DTSBR910
|
|
00750 WRITE UC30H-REPORT FROM U30H-LINE-5G AFTER 1. DTSBR910
|
|
00751 WRITE UC30H-REPORT FROM U30H-LINE-5H AFTER 1. DTSBR910
|
|
00752 WRITE UC30H-REPORT FROM U30H-LINE-5I AFTER 1. DTSBR910
|
|
00753 WRITE UC30H-REPORT FROM U30H-LINE-5J AFTER 1. DTSBR910
|
|
00754 WRITE UC30H-REPORT FROM WS-BLANK-LINE AFTER 1. DTSBR910
|
|
00755 WRITE UC30H-REPORT FROM U30H-LINE-8R AFTER 4. DTSBR910
|
|
00756 DTSBR910
|
|
00757 WRITE UC30H-REPORT FROM U30H-LINE-11 AFTER 5. DTSBR910
|
|
00758 DTSBR910
|
|
00759 P3030-EXIT. DTSBR910
|
|
00760 EXIT. DTSBR910
|
|
00761 DTSBR910
|
|
00762 DTSBR910
|
|
00763 P3031-MOVE-SSN. DTSBR910
|
|
00764 DTSBR910
|
|
00765 IF TBL-SUB = 1 DTSBR910
|
|
00766 MOVE WS-RPT-SSN TO U30H-SSN-1 DTSBR910
|
|
00767 ELSE DTSBR910
|
|
00768 IF TBL-SUB = 2 DTSBR910
|
|
00769 MOVE WS-RPT-SSN TO U30H-SSN-2 DTSBR910
|
|
00770 ELSE DTSBR910
|
|
00771 IF TBL-SUB = 3 DTSBR910
|
|
00772 MOVE WS-RPT-SSN TO U30H-SSN-3 DTSBR910
|
|
00773 ELSE DTSBR910
|
|
00774 IF TBL-SUB = 4 DTSBR910
|
|
00775 MOVE WS-RPT-SSN TO U30H-SSN-4 DTSBR910
|
|
00776 ELSE DTSBR910
|
|
00777 IF TBL-SUB = 5 DTSBR910
|
|
00778 MOVE WS-RPT-SSN TO U30H-SSN-5 DTSBR910
|
|
00779 ELSE DTSBR910
|
|
00780 IF TBL-SUB = 6 DTSBR910
|
|
00781 MOVE WS-RPT-SSN TO U30H-SSN-6 DTSBR910
|
|
00782 ELSE DTSBR910
|
|
00783 IF TBL-SUB = 7 DTSBR910
|
|
00784 MOVE WS-RPT-SSN TO U30H-SSN-7 DTSBR910
|
|
00785 ELSE DTSBR910
|
|
00786 IF TBL-SUB = 8 DTSBR910
|
|
00787 MOVE WS-RPT-SSN TO U30H-SSN-8 DTSBR910
|
|
00788 ELSE DTSBR910
|
|
00789 IF TBL-SUB = 9 DTSBR910
|
|
00790 MOVE WS-RPT-SSN TO U30H-SSN-9 DTSBR910
|
|
00791 ELSE DTSBR910
|
|
00792 IF TBL-SUB = 10 DTSBR910
|
|
00793 MOVE WS-RPT-SSN TO U30H-SSN-10 DTSBR910
|
|
00794 ELSE DTSBR910
|
|
00795 DISPLAY ' SSN LINE CNT GT 10 '. DTSBR910
|
|
00796 DTSBR910
|
|
00797 P3031-EXIT. DTSBR910
|
|
00798 EXIT. DTSBR910
|
|
00799 DTSBR910
|
|
00800 P4000-UC30H-NEW-DAILY-RPT. DTSBR910
|
|
00801 DTSBR910
|
|
00802 MOVE R910-DAILY-EMP-NO TO U30H-EMP-NO. DTSBR910
|
|
00803 DTSBR910
|
|
00804 IF R910-ANN-CR-AMT > +0 DTSBR910
|
|
00805 MOVE R910-ANN-CR-AMT TO U30H-CREDIT-AMT DTSBR910
|
|
00806 ELSE DTSBR910
|
|
00807 MOVE ZEROS TO U30H-CREDIT-AMT DTSBR910
|
|
00808 END-IF. DTSBR910
|
|
00809 DTSBR910
|
|
00810 MOVE R910-DAILY-YR TO WS-YEAR. DTSBR910
|
|
00811 MOVE WS-YEAR TO U30H-YEAR. DTSBR910
|
|
00812 MOVE 4 TO WS-QTR. DTSBR910
|
|
00813 *& DTSBR910
|
|
00814 *& DTSBR910
|
|
00815 SET L004-FROM-5 TO TRUE. DTSBR910
|
|
00816 MOVE WS-YRQ-UNPACK TO L004-QTR-5-AREA. DTSBR910
|
|
00817 PERFORM S004-DATE THRU S004-EXIT. DTSBR910
|
|
00818 DTSBR910
|
|
00819 MOVE L004-QTR-END-DATE TO L002-DATE. DTSBR910
|
|
00820 SET L002-UPPER-CASE TO TRUE. DTSBR910
|
|
00821 PERFORM S002-DATE THRU S002-EXIT. DTSBR910
|
|
00822 MOVE L002-LONG-TEXT-AREA TO U30H-RPT-QTR-END-DISP. DTSBR910
|
|
00823 DTSBR910
|
|
00824 MOVE R910-RPT-DUE-DATE TO L002-DATE. DTSBR910
|
|
00825 SET L002-UPPER-CASE TO TRUE. DTSBR910
|
|
00826 PERFORM S002-DATE THRU S002-EXIT. DTSBR910
|
|
00827 MOVE L002-LONG-TEXT-AREA TO U30H-RPT-DUE-DATE-DISP. DTSBR910
|
|
00828 DTSBR910
|
|
00829 MOVE R910-PRI-NAME-FIRST4 TO U30H-PRI-NAME-FIRST4. DTSBR910
|
|
00830 DTSBR910
|
|
00831 IF R910-FEIN = ZEROES DTSBR910
|
|
00832 MOVE SPACES TO U30H-FEIN-DISP-X DTSBR910
|
|
00833 ELSE DTSBR910
|
|
00834 MOVE R910-FEIN TO U30H-FEIN-DISP. DTSBR910
|
|
00835 DTSBR910
|
|
00836 MOVE R910-TAX-WAGE-BASE TO U30H-TAX-WAGE-BASE. DTSBR910
|
|
00837 MOVE R910-UI-RATE TO L056-RATE. DTSBR910
|
|
00838 SET L056-DISP1-RIGHT-PCT-88 TO TRUE. DTSBR910
|
|
00839 PERFORM S056-RATE-DISPLAY THRU S056-EXIT. DTSBR910
|
|
00840 MOVE L056-DISP-RATE TO U30H-UI-RATE DTSBR910
|
|
00841 U30H-UI-TAX-RATE-RATED. DTSBR910
|
|
00842 MOVE ' %' TO U30H-PCENT. DTSBR910
|
|
00843 DTSBR910
|
|
00844 MOVE R910-FMT-LINE (1) TO U30H-FMT-LINE-1. DTSBR910
|
|
00845 MOVE R910-FMT-LINE (2) TO U30H-FMT-LINE-2. DTSBR910
|
|
00846 MOVE R910-FMT-LINE (3) TO U30H-FMT-LINE-3. DTSBR910
|
|
00847 MOVE R910-FMT-LINE (4) TO U30H-FMT-LINE-4. DTSBR910
|
|
00848 MOVE R910-FMT-LINE (5) TO U30H-FMT-LINE-5. DTSBR910
|
|
00849 DTSBR910
|
|
00850 IF R910-SSN-LINE-CNT = +0 DTSBR910
|
|
00851 NEXT SENTENCE DTSBR910
|
|
00852 ELSE DTSBR910
|
|
00853 PERFORM DTSBR910
|
|
00854 VARYING TBL-SUB FROM +1 BY +1 DTSBR910
|
|
00855 UNTIL TBL-SUB > R910-SSN-LINE-CNT DTSBR910
|
|
00856 MOVE R910-SSN-LINE (TBL-SUB) TO WS-WRK-SSN DTSBR910
|
|
00857 MOVE WS-SSN1 TO RPT-SSN1 DTSBR910
|
|
00858 MOVE WS-SSN2 TO RPT-SSN2 DTSBR910
|
|
00859 MOVE WS-SSN3 TO RPT-SSN3 DTSBR910
|
|
00860 PERFORM P4031-MOVE-SSN THRU P4031-EXIT DTSBR910
|
|
00861 END-PERFORM DTSBR910
|
|
00862 END-IF. DTSBR910
|
|
00863 DTSBR910
|
|
00864 PERFORM P4030-GENERATE-UC30H-REPORT THRU P4030-EXIT. DTSBR910
|
|
00865 DTSBR910
|
|
00866 P4000-EXIT. DTSBR910
|
|
00867 EXIT. DTSBR910
|
|
00868 P4010-BREAK-USERID. DTSBR910
|
|
00869 DTSBR910
|
|
00870 IF R910-DAILY-OP-ID NOT = WS-DAILY-OP-ID-HOLD1 DTSBR910
|
|
00871 MOVE R910-DAILY-OP-ID TO WS-DAILY-OP-ID-HOLD1 DTSBR910
|
|
00872 PERFORM P4020-OPID-BREAK THRU P4020-EXIT DTSBR910
|
|
00873 PERFORM P4030-GENERATE-UC30H-REPORT THRU P4030-EXIT DTSBR910
|
|
00874 END-IF. DTSBR910
|
|
00875 DTSBR910
|
|
00876 P4010-EXIT. DTSBR910
|
|
00877 EXIT. DTSBR910
|
|
00878 EJECT DTSBR910
|
|
00879 P4020-OPID-BREAK. DTSBR910
|
|
00880 DTSBR910
|
|
00881 MOVE R910-DAILY-OP-ID TO L082-OP-ID DTSBR910
|
|
00882 DTSBR910
|
|
00883 PERFORM S082-OP-ID-INFO THRU S082-EXIT DTSBR910
|
|
00884 MOVE L082-NAME TO L071-NAM DTSBR910
|
|
00885 MOVE 2 TO L071-NAME-FORMAT DTSBR910
|
|
00886 PERFORM S071-DESLASH-NAME THRU S071-EXIT DTSBR910
|
|
00887 MOVE L071-NAM TO L009-DATA DTSBR910
|
|
00888 DTSBR910
|
|
00889 PERFORM S009-UPPER-CASE-TRANSLATE THRU S009-EXIT DTSBR910
|
|
00890 MOVE L009-DATA TO WS-OPR-NAME DTSBR910
|
|
00891 MOVE L082-UNIT-NAME TO L009-DATA DTSBR910
|
|
00892 DTSBR910
|
|
00893 PERFORM S009-UPPER-CASE-TRANSLATE THRU S009-EXIT DTSBR910
|
|
00894 MOVE L009-DATA TO WS-OPR-UNIT-NAME. DTSBR910
|
|
00895 DTSBR910
|
|
00896 MOVE SPACES TO U30H-LINE-1 DTSBR910
|
|
00897 U30H-LINE-2 DTSBR910
|
|
00898 U30H-LINE-3 DTSBR910
|
|
00899 U30H-LINE-4 DTSBR910
|
|
00900 U30H-LINE-5 DTSBR910
|
|
00901 U30H-LINE-5A1. DTSBR910
|
|
00902 DTSBR910
|
|
00903 MOVE WS-BREAK-LINE1 TO U30H-FMT-LINE-1. DTSBR910
|
|
00904 MOVE WS-BREAK-LINE2 TO U30H-FMT-LINE-2. DTSBR910
|
|
00905 MOVE WRK-OPR-NAME TO U30H-FMT-LINE-3. DTSBR910
|
|
00906 MOVE WRK-OPR-UNIT-NAME TO U30H-FMT-LINE-4. DTSBR910
|
|
00907 MOVE WS-BREAK-LINE1 TO U30H-FMT-LINE-5. DTSBR910
|
|
00908 DTSBR910
|
|
00909 P4020-EXIT. DTSBR910
|
|
00910 EXIT. DTSBR910
|
|
00911 P4030-GENERATE-UC30H-REPORT. DTSBR910
|
|
00912 DTSBR910
|
|
00913 WRITE UC30H-REPORT3 FROM WS-BLANK-LINE AFTER TOP-OF-PAGE. DTSBR910
|
|
00914 WRITE UC30H-REPORT3 FROM U30H-LINE-1 AFTER 11. DTSBR910
|
|
00915 WRITE UC30H-REPORT3 FROM U30H-LINE-2 AFTER 1. DTSBR910
|
|
00916 WRITE UC30H-REPORT3 FROM U30H-LINE-3 AFTER 1. DTSBR910
|
|
00917 WRITE UC30H-REPORT3 FROM U30H-LINE-4 AFTER 1. DTSBR910
|
|
00918 WRITE UC30H-REPORT3 FROM U30H-LINE-5 AFTER 1. DTSBR910
|
|
00919 DTSBR910
|
|
00920 WRITE UC30H-REPORT3 FROM U30H-LINE-5A1 AFTER 6. DTSBR910
|
|
00921 WRITE UC30H-REPORT3 FROM U30H-LINE-5A AFTER 3. DTSBR910
|
|
00922 WRITE UC30H-REPORT3 FROM U30H-LINE-5B AFTER 1. DTSBR910
|
|
00923 WRITE UC30H-REPORT3 FROM U30H-LINE-5C AFTER 1. DTSBR910
|
|
00924 WRITE UC30H-REPORT3 FROM U30H-LINE-5D AFTER 1. DTSBR910
|
|
00925 WRITE UC30H-REPORT3 FROM U30H-LINE-5E AFTER 1. DTSBR910
|
|
00926 WRITE UC30H-REPORT3 FROM U30H-LINE-5F AFTER 1. DTSBR910
|
|
00927 WRITE UC30H-REPORT3 FROM U30H-LINE-5G AFTER 1. DTSBR910
|
|
00928 WRITE UC30H-REPORT3 FROM U30H-LINE-5H AFTER 1. DTSBR910
|
|
00929 WRITE UC30H-REPORT3 FROM U30H-LINE-5I AFTER 1. DTSBR910
|
|
00930 WRITE UC30H-REPORT3 FROM U30H-LINE-5J AFTER 1. DTSBR910
|
|
00931 WRITE UC30H-REPORT3 FROM U30H-LINE-8R AFTER 4. DTSBR910
|
|
00932 DTSBR910
|
|
00933 WRITE UC30H-REPORT3 FROM WS-BLANK-LINE AFTER 1. DTSBR910
|
|
00934 WRITE UC30H-REPORT3 FROM U30H-LINE-11 AFTER 5. DTSBR910
|
|
00935 DTSBR910
|
|
00936 P4030-EXIT. DTSBR910
|
|
00937 EXIT. DTSBR910
|
|
00938 DTSBR910
|
|
00939 P4031-MOVE-SSN. DTSBR910
|
|
00940 DTSBR910
|
|
00941 IF TBL-SUB = 1 DTSBR910
|
|
00942 MOVE WS-RPT-SSN TO U30H-SSN-1 DTSBR910
|
|
00943 ELSE DTSBR910
|
|
00944 IF TBL-SUB = 2 DTSBR910
|
|
00945 MOVE WS-RPT-SSN TO U30H-SSN-2 DTSBR910
|
|
00946 ELSE DTSBR910
|
|
00947 IF TBL-SUB = 3 DTSBR910
|
|
00948 MOVE WS-RPT-SSN TO U30H-SSN-3 DTSBR910
|
|
00949 ELSE DTSBR910
|
|
00950 IF TBL-SUB = 4 DTSBR910
|
|
00951 MOVE WS-RPT-SSN TO U30H-SSN-4 DTSBR910
|
|
00952 ELSE DTSBR910
|
|
00953 IF TBL-SUB = 5 DTSBR910
|
|
00954 MOVE WS-RPT-SSN TO U30H-SSN-5 DTSBR910
|
|
00955 ELSE DTSBR910
|
|
00956 IF TBL-SUB = 6 DTSBR910
|
|
00957 MOVE WS-RPT-SSN TO U30H-SSN-6 DTSBR910
|
|
00958 ELSE DTSBR910
|
|
00959 IF TBL-SUB = 7 DTSBR910
|
|
00960 MOVE WS-RPT-SSN TO U30H-SSN-7 DTSBR910
|
|
00961 ELSE DTSBR910
|
|
00962 IF TBL-SUB = 8 DTSBR910
|
|
00963 MOVE WS-RPT-SSN TO U30H-SSN-8 DTSBR910
|
|
00964 ELSE DTSBR910
|
|
00965 IF TBL-SUB = 9 DTSBR910
|
|
00966 MOVE WS-RPT-SSN TO U30H-SSN-9 DTSBR910
|
|
00967 ELSE DTSBR910
|
|
00968 IF TBL-SUB = 10 DTSBR910
|
|
00969 MOVE WS-RPT-SSN TO U30H-SSN-10 DTSBR910
|
|
00970 ELSE DTSBR910
|
|
00971 DISPLAY ' SSN LINE CNT GT 10 '. DTSBR910
|
|
00972 DTSBR910
|
|
00973 P4031-EXIT. DTSBR910
|
|
00974 EXIT. DTSBR910
|
|
00975 DTSBR910
|
|
00976 T1000-TERMINATE. DTSBR910
|
|
00977 DTSBR910
|
|
00978 CLOSE PRT-FILE1 DTSBR910
|
|
00979 PRT-FILE2 DTSBR910
|
|
00980 PRT-FILE3. DTSBR910
|
|
00981 DTSBR910
|
|
00982 T1000-EXIT. DTSBR910
|
|
00983 EXIT. DTSBR910
|
|
00984 DTSBR910
|
|
00985 S001-DATE. DTSBR910
|
|
00986 DTSBR910
|
|
00987 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR910
|
|
00988 DTSBR910
|
|
00989 S001-EXIT. DTSBR910
|
|
00990 EXIT. DTSBR910
|
|
00991 DTSBR910
|
|
00992 S002-DATE. DTSBR910
|
|
00993 DTSBR910
|
|
00994 CALL 'DTSBU002' USING L002-LINK-AREA. DTSBR910
|
|
00995 DTSBR910
|
|
00996 S002-EXIT. DTSBR910
|
|
00997 EXIT. DTSBR910
|
|
00998 DTSBR910
|
|
00999 S004-DATE. DTSBR910
|
|
01000 DTSBR910
|
|
01001 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR910
|
|
01002 DTSBR910
|
|
01003 S004-EXIT. DTSBR910
|
|
01004 EXIT. DTSBR910
|
|
01005 DTSBR910
|
|
01006 S008-YRQ-ALPHA. DTSBR910
|
|
01007 DTSBR910
|
|
01008 CALL 'DTSBU008' USING L008-LINK-AREA. DTSBR910
|
|
01009 DTSBR910
|
|
01010 S008-EXIT. DTSBR910
|
|
01011 EXIT. DTSBR910
|
|
01012 DTSBR910
|
|
01013 S009-UPPER-CASE-TRANSLATE. DTSBR910
|
|
01014 DTSBR910
|
|
01015 CALL 'DTSBU009' USING L009-LINK-AREA. DTSBR910
|
|
01016 DTSBR910
|
|
01017 S009-EXIT. DTSBR910
|
|
01018 EXIT. DTSBR910
|
|
01019 DTSBR910
|
|
01020 S056-RATE-DISPLAY. DTSBR910
|
|
01021 DTSBR910
|
|
01022 CALL 'DTSBU056' USING L056-LINK-AREA. DTSBR910
|
|
01023 DTSBR910
|
|
01024 S056-EXIT. DTSBR910
|
|
01025 EXIT. DTSBR910
|
|
01026 DTSBR910
|
|
01027 S071-DESLASH-NAME. DTSBR910
|
|
01028 DTSBR910
|
|
01029 CALL 'DTSBU071' USING L071-LINK-AREA. DTSBR910
|
|
01030 DTSBR910
|
|
01031 S071-EXIT. DTSBR910
|
|
01032 EXIT. DTSBR910
|
|
01033 DTSBR910
|
|
01034 S082-OP-ID-INFO. DTSBR910
|
|
01035 DTSBR910
|
|
01036 CALL 'DTSBU082' USING L082-LINK-AREA. DTSBR910
|
|
01037 DTSBR910
|
|
01038 S082-EXIT. DTSBR910
|
|
01039 EXIT. DTSBR910
|
|
01040 DTSBR910
|
|
01041 *S109-SUR-RATE. DTSBR910
|
|
01042 * DTSBR910
|
|
01043 * CALL 'DTSBU109' USING L109-LINK-AREA. DTSBR910
|
|
01044 * DTSBR910
|
|
01045 *S109-EXIT. DTSBR910
|
|
01046 EXIT. DTSBR910
|
|
01047 DTSBR910
|
|
01048 S119-AGENCY-FACTS. DTSBR910
|
|
01049 DTSBR910
|
|
01050 CALL 'DTSBU119' USING L119-LINK-AREA. DTSBR910
|
|
01051 DTSBR910
|
|
01052 S119-EXIT. DTSBR910
|
|
01053 EXIT. DTSBR910
|
|
01054 DTSBR910
|
|
01055 S143-BUILD-STRING. DTSBR910
|
|
01056 DTSBR910
|
|
01057 CALL 'DTSBU143' USING L143-LINK-AREA. DTSBR910
|
|
01058 DTSBR910
|
|
01059 S143-EXIT. DTSBR910
|
|
01060 EXIT. DTSBR910
|
|
01061 DTSBR910
|
|
01062 *S999-ABEND. DTSBR910
|
|
01063 * DTSBR910
|
|
01064 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR910
|
|
01065 * DTSBR910
|
|
01066 *S999-EXIT. DTSBR910
|
|
01067 * EXIT. DTSBR910
|
|
01068 DTSBR910
|