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
