00001 IDENTIFICATION DIVISION. 11/20/01 00002 PROGRAM-ID. DTSBR310. DTSBR310 00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV009 00004 DATE-WRITTEN. NOVEMBER 1994. DTSBR310 00005 DATE-COMPILED. DTSBR310 00006 SKIP3 DTSBR310 00007 ***** DTSBR310 00008 * DTSBR310 00009 * CALLING SEQUENCE: DTSBE309 CREATES DTSIR310 RECORDS. DTSBR310 00010 * DTSBD800 CALLS DTSBR310 WHICH DTSBR310 00011 * PRODUCES THE CONTROL REPORT. DTSBR310 00012 * DTSBR310 00013 * FUNCTION: STATEMENT OF ACCOUNT CONTROL REPORT - CREDITS. DTSBR310 00014 * DTSBR310 00015 * DTSBR310 00016 * MODIFICATION HISTORY: DTSBR310 00017 * DTSBR310 00018 * 11-13-94 INITIAL DEVELOPMENT DTSBR310 00019 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR310 00020 * DTSBR310 00021 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR310 00022 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR310 00023 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR310 00024 * DTSBR310 00025 * DTSBR310 00026 * DESCRIPTION: DTSBR310 00027 * DTSBR310 00028 * THIS MODULE PRODUCES A COUNT OF ALL EMPLOYERS WHO DTSBR310 00029 * RECEIVED A CREDIT STATEMENT OF ACCOUNT. DTSBR310 00030 * DTSBR310 00031 * DTSBR310 00032 * RECORDS READ: DTSBR310 00033 * DTSBR310 00034 * NONE. DTSBR310 00035 * DTSBR310 00036 * DTSBR310 00037 * PRINTED OUTPUTS: DTSBR310 00038 * DTSBR310 00039 * 310R1 STATEMENT OF ACCOUNT CONTROL REPORT - CREDITS DTSBR310 00040 * DTSBR310 00041 * DTSBR310 00042 * RECORDS WRITTEN: DTSBR310 00043 * DTSBR310 00044 * NONE. DTSBR310 00045 * DTSBR310 00046 * DTSBR310 00047 * MODULES CALLED: DTSBR310 00048 * DTSBR310 00049 * NONE. DTSBR310 00050 * DTSBR310 00051 * DTSBR310 00052 ***** DTSBR310 00053 EJECT DTSBR310 00054 ENVIRONMENT DIVISION. DTSBR310 00055 DTSBR310 00056 CONFIGURATION SECTION. DTSBR310 00057 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR310 00058 DTSBR310 00059 INPUT-OUTPUT SECTION. DTSBR310 00060 DTSBR310 00061 FILE-CONTROL. DTSBR310 00062 SELECT PRT-FILE ASSIGN TO RPT310R1. DTSBR310 00063 DTSBR310 00064 DATA DIVISION. DTSBR310 00065 SKIP3 DTSBR310 00066 FILE SECTION. DTSBR310 00067 DTSBR310 00068 FD PRT-FILE DTSBR310 00069 RECORDING MODE IS F. DTSBR310 00070 01 PRT-RECORD PIC X(133). DTSBR310 00071 EJECT DTSBR310 00072 WORKING-STORAGE SECTION. DTSBR310 000725 77 PAN-VALET PICTURE X(24) VALUE '009DTSBR310 11/20/01'. DTSBR310 00073 SKIP3 DTSBR310 00074 01 WRK-AREA. DTSBR310 00075 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +310.DTSBR310 00076 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR310 00077 05 WS-EMP-COUNTER PIC S9(07) COMP-3. DTSBR310 00078 DTSBR310 00079 05 WS-NUMBER-ONE PIC S9(03) COMP-3 VALUE +0. DTSBR310 00080 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR310 00081 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR310 00082 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBR310 00083 EJECT DTSBR310 00084 01 PAGE-HEADING. DTSBR310 00085 05 HEADER-1. DTSBR310 00086 10 FILLER PIC X(01) VALUE SPACE. DTSBR310 00087 10 FILLER PIC X(05) DTSBR310 00088 VALUE '310R1'. DTSBR310 00089 10 FILLER PIC X(34) VALUE SPACES. DTSBR310 00090 10 WS-AGY-NAME-LINE1 PIC X(50). DTSBR310 00091 10 FILLER PIC X(28) VALUE SPACES. DTSBR310 00092 10 FILLER PIC X(05) DTSBR310 00093 VALUE 'DATE:'. DTSBR310 00094 10 FILLER PIC X(01) VALUE SPACE. DTSBR310 00095 10 WS-SYS-DATE PIC X(08). DTSBR310 00096 05 HEADER-2. DTSBR310 00097 10 FILLER PIC X(40) VALUE SPACES. DTSBR310 00098 10 WS-AGY-NAME-LINE2 PIC X(50). DTSBR310 00099 10 FILLER PIC X(28) VALUE SPACES. DTSBR310 00100 10 FILLER PIC X(05) DTSBR310 00101 VALUE 'TIME:'. DTSBR310 00102 10 FILLER PIC X(01) VALUE SPACE. DTSBR310 00103 10 WS-SYS-TIME PIC X(08). DTSBR310 00104 05 HEADER-3. DTSBR310 00105 10 FILLER PIC X(01) VALUE SPACE. DTSBR310 00106 10 FILLER PIC X(26) DTSBR310 00107 VALUE 'ROUTE TO: TAX ACCOUNTING'. DTSBR310 00108 10 FILLER PIC X(91) VALUE SPACES. DTSBR310 00109 10 FILLER PIC X(05) DTSBR310 00110 VALUE 'PAGE:'. DTSBR310 00111 10 FILLER PIC X(03) VALUE SPACES. DTSBR310 00112 10 HDR3-PAGE-CNT PIC ZZ,ZZ9. DTSBR310 00113 05 HEADER-4. DTSBR310 00114 10 FILLER PIC X(44) VALUE SPACES. DTSBR310 00115 10 FILLER PIC X(40) DTSBR310 00116 VALUE 'STATEMENT OF CREDIT ACCOUNTS -- CONTROL '. DTSBR310 00117 10 FILLER PIC X(06) DTSBR310 00118 VALUE 'REPORT'. DTSBR310 00119 DTSBR310 00120 05 HEADER-10. DTSBR310 00121 10 FILLER PIC X(57) VALUE SPACES. DTSBR310 00122 10 FILLER PIC X(18) DTSBR310 00123 VALUE 'NUMBER OF ACCOUNTS'. DTSBR310 00124 SKIP2 DTSBR310 00125 01 DETAIL-LINE. DTSBR310 00126 05 DTL-LINE-4. DTSBR310 00127 10 FILLER PIC X(49) VALUE SPACES. DTSBR310 00128 10 DTL-EMP-COUNTER PIC ZZZZ,ZZZ. DTSBR310 00129 10 FILLER PIC X(01) VALUE SPACE. DTSBR310 00130 10 FILLER PIC X(17) DTSBR310 00131 VALUE 'EMPLOYER ACCOUNTS'. DTSBR310 00132 EJECT DTSBR310 00133 LINKAGE SECTION. DTSBR310 00134 SKIP3 DTSBR310 00135 01 LRCM-LINK-AREA. DTSBR310 00136 ++INCLUDE DTSILRCM DTSBR310 00137 EJECT DTSBR310 00138 01 R310-REC. DTSBR310 00139 ++INCLUDE DTSIR310 DTSBR310 00140 EJECT DTSBR310 00141 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR310 00142 R310-REC. DTSBR310 00143 SKIP2 DTSBR310 00144 IF FIRST-TIME-IND = 'Y' DTSBR310 00145 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR310 00146 MOVE 'N' TO FIRST-TIME-IND. DTSBR310 00147 SKIP1 DTSBR310 00148 IF LRCM-EOR-88 DTSBR310 00149 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR310 00150 ELSE DTSBR310 00151 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR310 00152 SKIP2 DTSBR310 00153 GOBACK. DTSBR310 00154 EJECT DTSBR310 00155 I1000-INITIATE. DTSBR310 00156 DTSBR310 00157 OPEN OUTPUT PRT-FILE. DTSBR310 00158 MOVE LRCM-SYS-DATE TO WS-SYS-DATE. DTSBR310 00159 MOVE LRCM-SYS-TIME TO WS-SYS-TIME. DTSBR310 00160 MOVE LRCM-AGY-NAME-LINE1 TO WS-AGY-NAME-LINE1. DTSBR310 00161 MOVE LRCM-AGY-NAME-LINE2 TO WS-AGY-NAME-LINE2. DTSBR310 00162 MOVE SPACES TO PRT-RECORD. DTSBR310 00163 DTSBR310 00164 MOVE +0 TO WS-EMP-COUNTER. DTSBR310 00165 DTSBR310 00166 I1000-EXIT. DTSBR310 00167 EXIT. DTSBR310 00168 EJECT DTSBR310 00169 P1000-PROCESS. DTSBR310 00170 SKIP1 DTSBR310 00171 ADD +1 TO WS-EMP-COUNTER. DTSBR310 00172 SKIP2 DTSBR310 00173 P1000-EXIT. DTSBR310 00174 EXIT. DTSBR310 00175 EJECT DTSBR310 00176 DTSBR310 00177 P2000-PRINT-HEADER. DTSBR310 00178 IF WS-LINE-CNT GREATER 58 OR DTSBR310 00179 WS-LINE-CNT2 GREATER 58 DTSBR310 00180 MOVE +0 TO WS-LINE-CNT DTSBR310 00181 MOVE +0 TO WS-LINE-CNT2 DTSBR310 00182 ADD +1 TO WS-PAGE-CNT DTSBR310 00183 MOVE WS-PAGE-CNT TO HDR3-PAGE-CNT DTSBR310 00184 WRITE PRT-RECORD FROM HEADER-1 AFTER TOP-OF-PAGE DTSBR310 00185 WRITE PRT-RECORD FROM HEADER-2 AFTER 1 DTSBR310 00186 WRITE PRT-RECORD FROM HEADER-3 AFTER 1 DTSBR310 00187 WRITE PRT-RECORD FROM HEADER-4 AFTER 1 DTSBR310 00188 WRITE PRT-RECORD FROM HEADER-10 AFTER 6 DTSBR310 00189 ADD +10 TO WS-LINE-CNT2. DTSBR310 00190 P2000-EXIT. DTSBR310 00191 EXIT. DTSBR310 00192 T1000-TERMINATE. DTSBR310 00193 DTSBR310 00194 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBR310 00195 MOVE WS-EMP-COUNTER TO DTL-EMP-COUNTER. DTSBR310 00196 WRITE PRT-RECORD FROM DTL-LINE-4 AFTER 4. DTSBR310 00197 ADD 4 TO WS-LINE-CNT2. DTSBR310 00198 CLOSE PRT-FILE. DTSBR310 00199 DTSBR310 00200 T1000-EXIT. DTSBR310 00201 EXIT. DTSBR310 00202 EJECT DTSBR310 00203 *S999-ABEND. DTSBR310 00204 * SKIP1 DTSBR310 00205 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR310 00206 * SKIP2 DTSBR310 00207 *S999-EXIT. DTSBR310 00208 * EXIT. DTSBR310 00209 DTSBR310