00001 IDENTIFICATION DIVISION. 01/23/01 00002 PROGRAM-ID. DTSBR416. DTSBR416 00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV006 00004 DATE-WRITTEN. NOVEMBER 1994. DTSBR416 00005 DATE-COMPILED. DTSBR416 00006 SKIP3 DTSBR416 00007 ***** DTSBR416 00008 * DTSBR416 00009 * CALLING SEQUENCE: DTSBD400 CALLS DTSBR416 00010 * DTSBE414 WHICH CREATES DTSIR416 RECORDS DTSBR416 00011 * DTSBD800 CALLS DTSBR416 00012 * DTSBR416 WHICH READS DTSIR416 RECORDS DTSBR416 00013 * DTSBR416 00014 * FUNCTION: STATEMENT OF ACCOUNT (UI-17) CONTROL REPORT. DTSBR416 00015 * DTSBR416 00016 * DTSBR416 00017 * MODIFICATION HISTORY: DTSBR416 00018 * DTSBR416 00019 * 12-21-94 INITIAL DEVELOPMENT DTSBR416 00020 * REFERENCE RFP #RAP AUTHOR OF CHANGE - RHC DTSBR416 00021 * DTSBR416 00022 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR416 00023 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR416 00024 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR416 00025 * DTSBR416 00026 * DTSBR416 00027 * DESCRIPTION: DTSBR416 00028 * DTSBR416 00029 * THIS MODULE PRODUCES A COUNT OF ALL EMPLOYERS WHO DTSBR416 00030 * RECEIVED A UC-223. DTSBR416 00031 * DTSBR416 00032 * DTSBR416 00033 * RECORDS READ: DTSBR416 00034 * DTSBR416 00035 * NONE. DTSBR416 00036 * DTSBR416 00037 * DTSBR416 00038 * PRINTED OUTPUTS: DTSBR416 00039 * DTSBR416 00040 * 416R1 STATEMENT OF ACCOUNT (UI-17) CONTROL REPORT DTSBR416 00041 * DTSBR416 00042 * DTSBR416 00043 * RECORDS WRITTEN: DTSBR416 00044 * DTSBR416 00045 * NONE. DTSBR416 00046 * DTSBR416 00047 * DTSBR416 00048 * MODULES CALLED: DTSBR416 00049 * DTSBR416 00050 * DTSBU001 DATE CONVERT. DTSBR416 00051 * DTSBR416 00052 * DTSBR416 00053 ***** DTSBR416 00054 EJECT DTSBR416 00055 ENVIRONMENT DIVISION. DTSBR416 00056 DTSBR416 00057 CONFIGURATION SECTION. DTSBR416 00058 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR416 00059 DTSBR416 00060 INPUT-OUTPUT SECTION. DTSBR416 00061 FILE-CONTROL. DTSBR416 00062 SELECT PRT-FILE ASSIGN TO RPT416R1. DTSBR416 00063 DTSBR416 00064 DATA DIVISION. DTSBR416 00065 FILE SECTION. DTSBR416 00066 DTSBR416 00067 FD PRT-FILE DTSBR416 00068 RECORDING MODE IS F. DTSBR416 00069 01 PRT-RECORD PIC X(133). DTSBR416 00070 DTSBR416 00071 EJECT DTSBR416 00072 WORKING-STORAGE SECTION. DTSBR416 000725 77 PAN-VALET PICTURE X(24) VALUE '006DTSBR416 01/23/01'. DTSBR416 00073 DTSBR416 00074 01 WRK-AREA. DTSBR416 00075 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +416.DTSBR416 00076 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR416 00077 DTSBR416 00078 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR416 00079 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR416 00080 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBR416 00081 DTSBR416 00082 05 WRK-EMP-NO PIC S9(07) COMP-3 VALUE +0. DTSBR416 00083 05 WRK-EMP-CNT PIC S9(07) COMP-3 VALUE +0. DTSBR416 00084 05 WRK-UC223-CNT PIC S9(07) COMP-3 VALUE +0. DTSBR416 00085 DTSBR416 00086 EJECT DTSBR416 00087 01 L001-LINK-AREA. DTSBR416 00088 ++INCLUDE DTSIL001 DTSBR416 00089 EJECT DTSBR416 00090 01 PAGE-HEADING. DTSBR416 00091 05 HDR-LINE-1. DTSBR416 00092 10 FILLER PIC X(01) VALUE SPACE. DTSBR416 00093 10 FILLER PIC X(05) DTSBR416 00094 VALUE '416R1'. DTSBR416 00095 10 FILLER PIC X(34) VALUE SPACES. DTSBR416 00096 10 HDR-AGY-NAME-LINE1 PIC X(50). DTSBR416 00097 10 FILLER PIC X(28) VALUE SPACES. DTSBR416 00098 10 FILLER PIC X(05) DTSBR416 00099 VALUE 'DATE:'. DTSBR416 00100 10 FILLER PIC X(01) VALUE SPACE. DTSBR416 00101 10 HDR-SYS-DATE PIC X(08). DTSBR416 00102 05 HDR-LINE-2. DTSBR416 00103 10 FILLER PIC X(40) VALUE SPACES. DTSBR416 00104 10 HDR-AGY-NAME-LINE2 PIC X(50). DTSBR416 00105 10 FILLER PIC X(28) VALUE SPACES. DTSBR416 00106 10 FILLER PIC X(05) DTSBR416 00107 VALUE 'TIME:'. DTSBR416 00108 10 FILLER PIC X(01) VALUE SPACE. DTSBR416 00109 10 HDR-SYS-TIME PIC X(08). DTSBR416 00110 05 HDR-LINE-3. DTSBR416 00111 10 FILLER PIC X(01) VALUE SPACE. DTSBR416 00112 10 FILLER PIC X(28) DTSBR416 00113 VALUE 'ROUTE TO: ENFORCEMENT UNIT'. DTSBR416 00114 10 FILLER PIC X(89) VALUE SPACES. DTSBR416 00115 10 FILLER PIC X(05) DTSBR416 00116 VALUE 'PAGE:'. DTSBR416 00117 10 FILLER PIC X(03) VALUE SPACES. DTSBR416 00118 10 HDR-PAGE-CNT PIC ZZ,ZZ9. DTSBR416 00119 05 HDR-LINE-4. DTSBR416 00120 10 FILLER PIC X(44) VALUE SPACES. DTSBR416 00121 10 FILLER PIC X(44) DTSBR416 00122 VALUE 'STATEMENT OF ACCOUNT (UC-223) CONTROL REPORT'. DTSBR416 00123 05 HDR-LINE-5. DTSBR416 00124 10 FILLER PIC X(60) VALUE SPACES. DTSBR416 00125 10 FILLER PIC X(11) DTSBR416 00126 VALUE 'COLLECTIONS'. DTSBR416 00127 05 HDR-LINE-6. DTSBR416 00128 10 FILLER PIC X(01) VALUE SPACE. DTSBR416 00129 10 FILLER PIC X(17) DTSBR416 00130 VALUE 'COMPUTATION DATE:'. DTSBR416 00131 10 FILLER PIC X(01) VALUE SPACE. DTSBR416 00132 10 WRK-COMPUTATION-DATE PIC X(08). DTSBR416 00133 SKIP3 DTSBR416 00134 01 DETAIL-LINE. DTSBR416 00135 05 DTL-LINE-2. DTSBR416 00136 10 FILLER PIC X(15) VALUE SPACES. DTSBR416 00137 10 DTL-EMP-CNT PIC ZZ,ZZ9. DTSBR416 00138 10 FILLER PIC X(01) VALUE SPACE. DTSBR416 00139 10 FILLER PIC X(09) DTSBR416 00140 VALUE 'EMPLOYERS'. DTSBR416 00141 10 FILLER PIC X(24) VALUE SPACES. DTSBR416 00142 10 DTL-UC223-CNT PIC ZZ,ZZ9. DTSBR416 00143 10 FILLER PIC X(01) VALUE SPACE. DTSBR416 00144 10 FILLER PIC X(10) DTSBR416 00145 VALUE 'STATEMENTS'. DTSBR416 00146 EJECT DTSBR416 00147 LINKAGE SECTION. DTSBR416 00148 SKIP3 DTSBR416 00149 01 LRCM-LINK-AREA. DTSBR416 00150 ++INCLUDE DTSILRCM DTSBR416 00151 EJECT DTSBR416 00152 01 R416-REC. DTSBR416 00153 ++INCLUDE DTSIR416 DTSBR416 00154 EJECT DTSBR416 00155 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR416 00156 R416-REC. DTSBR416 00157 DTSBR416 00158 IF FIRST-TIME-IND = 'Y' DTSBR416 00159 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR416 00160 MOVE 'N' TO FIRST-TIME-IND. DTSBR416 00161 DTSBR416 00162 IF LRCM-EOR-88 DTSBR416 00163 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR416 00164 ELSE DTSBR416 00165 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR416 00166 SKIP3 DTSBR416 00167 GOBACK. DTSBR416 00168 EJECT DTSBR416 00169 I1000-INITIATE. DTSBR416 00170 MOVE R416-COMP-DATE TO L001-FED-8-DATE-9. DTSBR416 00171 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBR416 00172 MOVE L001-SLASH-DATE TO WRK-COMPUTATION-DATE. DTSBR416 00173 DTSBR416 00174 MOVE +9999999 TO WRK-EMP-NO. DTSBR416 00175 MOVE +0 TO WRK-EMP-CNT DTSBR416 00176 WRK-UC223-CNT. DTSBR416 00177 DTSBR416 00178 OPEN OUTPUT PRT-FILE. DTSBR416 00179 MOVE LRCM-SYS-DATE TO HDR-SYS-DATE. DTSBR416 00180 MOVE LRCM-SYS-TIME TO HDR-SYS-TIME. DTSBR416 00181 MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1. DTSBR416 00182 MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2. DTSBR416 00183 MOVE SPACES TO PRT-RECORD. DTSBR416 00184 DTSBR416 00185 I1000-EXIT. DTSBR416 00186 EXIT. DTSBR416 00187 DTSBR416 00188 P1000-PROCESS. DTSBR416 00189 DTSBR416 00190 IF R416-EMP-NO NOT EQUAL WRK-EMP-NO DTSBR416 00191 MOVE R416-EMP-NO TO WRK-EMP-NO DTSBR416 00192 ADD +1 TO WRK-EMP-CNT. DTSBR416 00193 DTSBR416 00194 ADD +1 TO WRK-UC223-CNT. DTSBR416 00195 DTSBR416 00196 P1000-EXIT. DTSBR416 00197 EXIT. DTSBR416 00198 DTSBR416 00199 P2000-PRINT-HEADER. DTSBR416 00200 IF WS-LINE-CNT GREATER 58 OR DTSBR416 00201 WS-LINE-CNT2 GREATER 58 DTSBR416 00202 MOVE +0 TO WS-LINE-CNT DTSBR416 00203 MOVE +0 TO WS-LINE-CNT2 DTSBR416 00204 ADD +1 TO WS-PAGE-CNT DTSBR416 00205 MOVE WS-PAGE-CNT TO HDR-PAGE-CNT DTSBR416 00206 WRITE PRT-RECORD FROM HDR-LINE-1 AFTER TOP-OF-PAGE DTSBR416 00207 WRITE PRT-RECORD FROM HDR-LINE-2 AFTER 1 DTSBR416 00208 WRITE PRT-RECORD FROM HDR-LINE-3 AFTER 1 DTSBR416 00209 WRITE PRT-RECORD FROM HDR-LINE-4 AFTER 1 DTSBR416 00210 WRITE PRT-RECORD FROM HDR-LINE-5 AFTER 1 DTSBR416 00211 WRITE PRT-RECORD FROM HDR-LINE-6 AFTER 1 DTSBR416 00212 ADD +6 TO WS-LINE-CNT2. DTSBR416 00213 P2000-EXIT. DTSBR416 00214 EXIT. DTSBR416 00215 DTSBR416 00216 T1000-TERMINATE. DTSBR416 00217 DTSBR416 00218 MOVE WRK-EMP-CNT TO DTL-EMP-CNT. DTSBR416 00219 MOVE WRK-UC223-CNT TO DTL-UC223-CNT. DTSBR416 00220 DTSBR416 00221 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBR416 00222 WRITE PRT-RECORD FROM DTL-LINE-2 AFTER 2. DTSBR416 00223 ADD 2 TO WS-LINE-CNT2. DTSBR416 00224 CLOSE PRT-FILE. DTSBR416 00225 DTSBR416 00226 T1000-EXIT. DTSBR416 00227 EXIT. DTSBR416 00228 DTSBR416 00229 S001-FROM-FED-8. DTSBR416 00230 DTSBR416 00231 SET L001-FROM-FED-8 TO TRUE. DTSBR416 00232 DTSBR416 00233 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR416 00234 DTSBR416 00235 S001-EXIT. DTSBR416 00236 EXIT. DTSBR416 00237 DTSBR416 00238 *S999-ABEND. DTSBR416 00239 * DTSBR416 00240 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR416 00241 * DTSBR416 00242 *S999-EXIT. DTSBR416 00243 * EXIT. DTSBR416