00001 IDENTIFICATION DIVISION. 01/29/01 00002 PROGRAM-ID. DTSBR313. DTSBR313 00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV014 00004 MODIFIED BY TRW S&ITG. DTSBR313 00005 DATE-WRITTEN. NOVEMBER 1994. DTSBR313 00006 DATE-COMPILED. DTSBR313 00007 SKIP3 DTSBR313 00008 ***** DTSBR313 00009 * DTSBR313 00010 * FUNCTION: REIMBURSABLE EMPLOYER PAST DUE LIST. DTSBR313 00011 * DTSBR313 00012 * DTSBR313 00013 * MODIFICATION HISTORY: DTSBR313 00014 * DTSBR313 00015 * 11-14-94 INITIAL DEVELOPMENT DTSBR313 00016 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR313 00017 * DTSBR313 00018 * 05-22-95 ADD UI TAX BALANCE TO THE REPORT. DTSBR313 00019 * REFERENCE RFP #CR088 AUTHOR OF CHANGE - RHC DTSBR313 00020 * DTSBR313 00021 * 07-16-97 ADD A "REPORT TOTAL" SUMMARY LINE TO REPORT. DTSBR313 00022 * REFERENCE RFP #TCL205 AUTHOR OF CHANGE - FLS DTSBR313 00023 * DTSBR313 00024 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR313 00025 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR313 00026 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR313 00027 * DTSBR313 00028 * DTSBR313 00029 * DESCRIPTION: DTSBR313 00030 * DTSBR313 00031 * THIS MODULE PRODUCES A LIST OF REIMBURSABLE EMPLOYERS DTSBR313 00032 * WITH, FOR A PARAMETER SPECIFIED PERIOD OF TIME, PAST DUE DTSBR313 00033 * PAYMENTS IN LIEU OF CONTRIBUTIONS. DTSBR313 00034 * DTSBR313 00035 * DTSBR313 00036 * RECORDS READ: DTSBR313 00037 * DTSBR313 00038 * NONE. DTSBR313 00039 * DTSBR313 00040 * DTSBR313 00041 * PRINTED OUTPUTS: DTSBR313 00042 * DTSBR313 00043 * 313R1 REIMBURSABLE EMPLOYER PAST DUE LIST DTSBR313 00044 * DTSBR313 00045 * DTSBR313 00046 * RECORDS WRITTEN: DTSBR313 00047 * DTSBR313 00048 * NONE. DTSBR313 00049 * DTSBR313 00050 * DTSBR313 00051 * MODULES CALLED: DTSBR313 00052 * DTSBR313 00053 * NONE. DTSBR313 00054 * DTSBR313 00055 * DTSBR313 00056 ***** DTSBR313 00057 DTSBR313 00058 ENVIRONMENT DIVISION. DTSBR313 00059 DTSBR313 00060 CONFIGURATION SECTION. DTSBR313 00061 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR313 00062 DTSBR313 00063 INPUT-OUTPUT SECTION. DTSBR313 00064 DTSBR313 00065 FILE-CONTROL. DTSBR313 00066 SELECT PRT-FILE ASSIGN TO RPT313R1. DTSBR313 00067 DTSBR313 00068 DATA DIVISION. DTSBR313 00069 DTSBR313 00070 FILE SECTION. DTSBR313 00071 DTSBR313 00072 FD PRT-FILE DTSBR313 00073 RECORDING MODE IS F. DTSBR313 00074 01 PRT-RECORD PIC X(133). DTSBR313 00075 DTSBR313 00076 EJECT DTSBR313 00077 WORKING-STORAGE SECTION. DTSBR313 000775 77 PAN-VALET PICTURE X(24) VALUE '014DTSBR313 01/29/01'. DTSBR313 00078 DTSBR313 00079 01 WRK-AREA. DTSBR313 00080 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +313.DTSBR313 00081 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR313 00082 05 WS-YRQ-UNPACK PIC 9(05) VALUE ZEROS. DTSBR313 00083 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR313 00084 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR313 00085 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBR313 00086 DTSBR313 00087 EJECT DTSBR313 00088 01 L004-LINK-AREA. DTSBR313 00089 ++INCLUDE DTSIL004 DTSBR313 00090 EJECT DTSBR313 00091 01 PAGE-HEADING. DTSBR313 00092 05 HDR-LINE-1. DTSBR313 00093 10 FILLER PIC X(01) VALUE SPACE. DTSBR313 00094 10 FILLER PIC X(05) DTSBR313 00095 VALUE '313R1'. DTSBR313 00096 10 FILLER PIC X(34) VALUE SPACES. DTSBR313 00097 10 HDR-AGY-NAME-LINE1 PIC X(50). DTSBR313 00098 10 FILLER PIC X(28) VALUE SPACES. DTSBR313 00099 10 FILLER PIC X(05) DTSBR313 00100 VALUE 'DATE:'. DTSBR313 00101 10 FILLER PIC X(01) VALUE SPACE. DTSBR313 00102 10 HDR-SYS-DATE PIC X(08). DTSBR313 00103 05 HDR-LINE-2. DTSBR313 00104 10 FILLER PIC X(40) VALUE SPACES. DTSBR313 00105 10 HDR-AGY-NAME-LINE2 PIC X(50). DTSBR313 00106 10 FILLER PIC X(28) VALUE SPACES. DTSBR313 00107 10 FILLER PIC X(05) DTSBR313 00108 VALUE 'TIME:'. DTSBR313 00109 10 FILLER PIC X(01) VALUE SPACE. DTSBR313 00110 10 HDR-SYS-TIME PIC X(08). DTSBR313 00111 05 HDR-LINE-3. DTSBR313 00112 10 FILLER PIC X(01) VALUE SPACE. DTSBR313 00113 10 FILLER PIC X(28) DTSBR313 00114 VALUE 'ROUTE TO: ENFORCEMENT UNIT'. DTSBR313 00115 10 FILLER PIC X(89) VALUE SPACES. DTSBR313 00116 10 FILLER PIC X(05) DTSBR313 00117 VALUE 'PAGE:'. DTSBR313 00118 10 FILLER PIC X(03) VALUE SPACES. DTSBR313 00119 10 HDR-PAGE-CNT PIC ZZ,ZZ9. DTSBR313 00120 05 HDR-LINE-4. DTSBR313 00121 10 FILLER PIC X(37) VALUE SPACES. DTSBR313 00122 10 FILLER PIC X(34) DTSBR313 00123 VALUE 'SELF INSURED EMPLOYER WITH UI PAST'. DTSBR313 00124 10 FILLER PIC X(02) VALUE SPACES. DTSBR313 00125 10 FILLER PIC X(20) DTSBR313 00126 VALUE 'DUE IN SUBJECT QTR'. DTSBR313 00127 05 HDR-LINE-5. DTSBR313 00128 10 FILLER PIC X(01) VALUE SPACE. DTSBR313 00129 10 FILLER PIC X(14) DTSBR313 00130 VALUE 'SUBJECT QTR: '. DTSBR313 00131 10 WS-YRQ PIC X(04). DTSBR313 00132 05 HDR-LINE-6 PIC X(133) VALUE SPACES. DTSBR313 00133 05 HDR-LINE-7. DTSBR313 00134 10 FILLER PIC X(30) VALUE SPACES. DTSBR313 00135 10 FILLER PIC X(30) DTSBR313 00136 VALUE 'EMP NO PRIMARY NAME '. DTSBR313 00137 10 FILLER PIC X(36) VALUE SPACES. DTSBR313 00138 10 FILLER PIC X(14) DTSBR313 00139 VALUE 'UI TAX BALANCE'. DTSBR313 00140 DTSBR313 00141 01 DETAIL-LINE. DTSBR313 00142 05 DTL-LINE-2. DTSBR313 00143 10 FILLER PIC X(30) VALUE SPACES. DTSBR313 00144 10 DTL-EMP-NO PIC 999B999. DTSBR313 00145 10 FILLER PIC X(10) VALUE SPACES. DTSBR313 00146 10 DTL-PRIMARY-NAME PIC X(40). DTSBR313 00147 10 FILLER PIC X(04) VALUE SPACES. DTSBR313 00148 10 DTL-UI-TAX-BAL PIC ZZZ,ZZZ,ZZZ.99. DTSBR313 00149 DTSBR313 00150 EJECT DTSBR313 00151 LINKAGE SECTION. DTSBR313 00152 SKIP3 DTSBR313 00153 01 LRCM-LINK-AREA. DTSBR313 00154 ++INCLUDE DTSILRCM DTSBR313 00155 EJECT DTSBR313 00156 01 R313-REC. DTSBR313 00157 ++INCLUDE DTSIR313 DTSBR313 00158 EJECT DTSBR313 00159 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR313 00160 R313-REC. DTSBR313 00161 SKIP2 DTSBR313 00162 IF FIRST-TIME-IND = 'Y' DTSBR313 00163 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR313 00164 MOVE 'N' TO FIRST-TIME-IND. DTSBR313 00165 SKIP1 DTSBR313 00166 IF LRCM-EOR-88 DTSBR313 00167 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR313 00168 ELSE DTSBR313 00169 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR313 00170 SKIP2 DTSBR313 00171 GOBACK. DTSBR313 00172 EJECT DTSBR313 00173 I1000-INITIATE. DTSBR313 00174 DTSBR313 00175 OPEN OUTPUT PRT-FILE. DTSBR313 00176 MOVE LRCM-SYS-DATE TO HDR-SYS-DATE. DTSBR313 00177 MOVE LRCM-SYS-TIME TO HDR-SYS-TIME. DTSBR313 00178 MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1. DTSBR313 00179 MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2. DTSBR313 00180 MOVE SPACES TO PRT-RECORD. DTSBR313 00181 DTSBR313 00182 PERFORM I1100-PICKUP-YRQ THRU I1100-EXIT. DTSBR313 00183 DTSBR313 00184 I1000-EXIT. DTSBR313 00185 EXIT. DTSBR313 00186 DTSBR313 00187 I1100-PICKUP-YRQ. DTSBR313 00188 IF LRCM-PICKUP-YRQ = R313-YRQ DTSBR313 00189 MOVE 'PU ' TO WS-YRQ DTSBR313 00190 ELSE DTSBR313 00191 MOVE R313-YRQ TO L004-QTR-5-9 DTSBR313 00192 PERFORM S004-FROM-5 THRU S004-EXIT DTSBR313 00193 MOVE L004-SLASH-QTR TO WS-YRQ. DTSBR313 00194 I1100-EXIT. DTSBR313 00195 EXIT. DTSBR313 00196 DTSBR313 00197 P1000-PROCESS. DTSBR313 00198 DTSBR313 00199 MOVE R313-EMP-NO TO DTL-EMP-NO. DTSBR313 00200 MOVE R313-PRIMARY-NAME TO DTL-PRIMARY-NAME. DTSBR313 00201 MOVE R313-UI-TAX-BAL TO DTL-UI-TAX-BAL. DTSBR313 00202 DTSBR313 00203 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBR313 00204 WRITE PRT-RECORD FROM DTL-LINE-2 AFTER 2. DTSBR313 00205 ADD 2 TO WS-LINE-CNT2. DTSBR313 00206 DTSBR313 00207 P1000-EXIT. DTSBR313 00208 EXIT. DTSBR313 00209 DTSBR313 00210 P2000-PRINT-HEADER. DTSBR313 00211 IF WS-LINE-CNT GREATER 58 OR DTSBR313 00212 WS-LINE-CNT2 GREATER 58 DTSBR313 00213 MOVE +0 TO WS-LINE-CNT DTSBR313 00214 MOVE +0 TO WS-LINE-CNT2 DTSBR313 00215 ADD +1 TO WS-PAGE-CNT DTSBR313 00216 MOVE WS-PAGE-CNT TO HDR-PAGE-CNT DTSBR313 00217 WRITE PRT-RECORD FROM HDR-LINE-1 AFTER TOP-OF-PAGE DTSBR313 00218 WRITE PRT-RECORD FROM HDR-LINE-2 AFTER 1 DTSBR313 00219 WRITE PRT-RECORD FROM HDR-LINE-3 AFTER 1 DTSBR313 00220 WRITE PRT-RECORD FROM HDR-LINE-4 AFTER 1 DTSBR313 00221 WRITE PRT-RECORD FROM HDR-LINE-5 AFTER 1 DTSBR313 00222 WRITE PRT-RECORD FROM HDR-LINE-6 AFTER 1 DTSBR313 00223 WRITE PRT-RECORD FROM HDR-LINE-7 AFTER 1 DTSBR313 00224 ADD +7 TO WS-LINE-CNT2. DTSBR313 00225 P2000-EXIT. DTSBR313 00226 EXIT. DTSBR313 00227 T1000-TERMINATE. DTSBR313 00228 DTSBR313 00229 CLOSE PRT-FILE. DTSBR313 00230 DTSBR313 00231 T1000-EXIT. DTSBR313 00232 EXIT. DTSBR313 00233 DTSBR313 00234 S004-FROM-5. DTSBR313 00235 SET L004-FROM-5 TO TRUE. DTSBR313 00236 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR313 00237 S004-EXIT. DTSBR313 00238 EXIT. DTSBR313 00239 DTSBR313 00240 *S999-ABEND. DTSBR313 00241 * SKIP1 DTSBR313 00242 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR313 00243 * SKIP2 DTSBR313 00244 *S999-EXIT. DTSBR313 00245 * EXIT. DTSBR313 00246 DTSBR313