00001  IDENTIFICATION DIVISION.                                         09/25/02
00002  PROGRAM-ID.             DTSBR712.                                DTSBR712
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV013
00004  DATE-WRITTEN.           NOVEMBER 1994.                           DTSBR712
00005  DATE-COMPILED.                                                   DTSBR712
00006      SKIP3                                                        DTSBR712
00007 *****                                                             DTSBR712
00008 *                                                                 DTSBR712
00009 *    FUNCTION:  REQUEST FOR FEDERAL ID LETTER.                    DTSBR712
00010 *                                                                 DTSBR712
00011 *    CALLING SEQUENCE:  DTSBD400 CALLS DTSBE712                   DTSBR712
00012 *                                WHICH CREATES DTSIR712 RECORDS.  DTSBR712
00013 *                       DTSBD800 CALLS DTSBR712                   DTSBR712
00014 *                                WHICH PRODUCES THE FEDERAL ID    DTSBR712
00015 *                                LETTERS.                         DTSBR712
00016 *                                                                 DTSBR712
00017 *    MODIFICATION HISTORY:                                        DTSBR712
00018 *                                                                 DTSBR712
00019 * 11-19-94 INITIAL DEVELOPMENT                                    DTSBR712
00020 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR712
00021 *                                                                 DTSBR712
00022 * 01-31-95 CHANGED PRINT LINES FOR ADDRESS AND THE PRINT LINE     DTSBR712
00023 *          AND COLUMN FOR THE DATE (L002-LONG-TEXT-AREA) FOR      DTSBR712
00024 *          BETTER PLACEMENT ON LETTERHEAD MAILED IN WINDOW        DTSBR712
00025 *          ENVELOPES.                                             DTSBR712
00026 *          REFERENCE RFP #RAP                    PROGRAMMER: MJA  DTSBR712
00027 *                                                                 DTSBR712
00028 * 03-03-95 CHANGED PAGE LIMIT FROM 62 LINES TO 60 LINES.          DTSBR712
00029 *          REFERENCE RFP # RAP                   PROGRAMMER: MJA  DTSBR712
00030 *                                                                 DTSBR712
00031 * 04-03-95 MOVED PRINT LINES DOWN TO ACCOMODATE AGENCY BLUE LETTERDTSBR712
00032 *          HEAD AND MOVED LEFT MARGIN TWO CHARACTERS TO THE LEFT. DTSBR712
00033 *          REFERENCE RFP # TPR 15                PROGRAMMER: MJA  DTSBR712
00034 *                                                                 DTSBR712
00035 * 11/26/97 INCREASE THE LENGTH OF WS-OPR-TITLE.  REQUIRED         DTSBR712
00036 *          TO REFLECT THE JULY 1, 1997 MOVE OF UI TAX FUNCTIONS   DTSBR712
00037 *          FROM DLI TO DOR.                                       DTSBR712
00038 *                                                                 DTSBR712
00039 * 02-25-99 MODIFIED TO MEET DUTAS PROGRAMMING SPECIFIICATIONS.    DTSBR712
00040 *          REFERENCE RFP #****                   PROGRAMMER: DVS  DTSBR712
00041 *                                                                 DTSBR712
00042 * 02-25-99 MODIFIED TO MEET DUTAS LAZER PRINT SPECIFIICATIONS.    DTSBR712
00043 *          REFERENCE RFP #****                   PROGRAMMER: ZL1  DTSBR712
00044 *                                                                 DTSBR712
00045 *                                                                 DTSBR712
00046 * 01-10-02 MODIFIED TO PRINT LETTER ON SELF MAILERS               DTSBR712
00047 *          REFERENCE RFP #****                   PROGRAMMER: ZL1  DTSBR712
00048 *                                                                 DTSBR712
00049 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR712
00050 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR712
00051 *          REFERENCE RFP #****                   PROGRAMMER: XXX  DTSBR712
00052 *                                                                 DTSBR712
00053 *                                                                 DTSBR712
00054 *    DESCRIPTION:                                                 DTSBR712
00055 *                                                                 DTSBR712
00056 *        THIS MODULE PRODUCES A GENERIC LETTER TO EMPLOYERS       DTSBR712
00057 *        REQUESTING THEY PROVIDE AN FEIN ON THEIR NEXT QUARTERLY  DTSBR712
00058 *        WAGE REPORT.                                             DTSBR712
00059 *                                                                 DTSBR712
00060 *                                                                 DTSBR712
00061 *    RECORDS READ:                                                DTSBR712
00062 *                                                                 DTSBR712
00063 *        NONE.                                                    DTSBR712
00064 *                                                                 DTSBR712
00065 *                                                                 DTSBR712
00066 *    PRINTED OUTPUTS:                                             DTSBR712
00067 *                                                                 DTSBR712
00068 *        712R1  REQUEST FOR FEDERAL ID LETTER                     DTSBR712
00069 *                                                                 DTSBR712
00070 *                                                                 DTSBR712
00071 *    RECORDS WRITTEN:                                             DTSBR712
00072 *                                                                 DTSBR712
00073 *        NONE.                                                    DTSBR712
00074 *                                                                 DTSBR712
00075 *                                                                 DTSBR712
00076 *    MODULES CALLED:                                              DTSBR712
00077 *                                                                 DTSBR712
00078 *        DTSBU002  DATE ALPHA CONVERSION MODULE                   DTSBR712
00079 *        DTSBU071  NAME EDIT/CONVERSION MODULE                    DTSBR712
00080 *        DTSBU082  OPERATOR ID EDIT/LOOKUP MODULE                 DTSBR712
00081 *                                                                 DTSBR712
00082 *                                                                 DTSBR712
00083 *****                                                             DTSBR712
00084      EJECT                                                        DTSBR712
00085  ENVIRONMENT DIVISION.                                            DTSBR712
00086      SKIP2                                                        DTSBR712
00087  CONFIGURATION SECTION.                                           DTSBR712
00088  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR712
00089      SKIP1                                                        DTSBR712
00090  INPUT-OUTPUT SECTION.                                            DTSBR712
00091      SKIP1                                                        DTSBR712
00092  FILE-CONTROL.                                                    DTSBR712
00093      SELECT PRT-FILE  ASSIGN TO RPT712R1.                         DTSBR712
00094      SKIP3                                                        DTSBR712
00095  DATA DIVISION.                                                   DTSBR712
00096      SKIP3                                                        DTSBR712
00097  FILE SECTION.                                                    DTSBR712
00098      SKIP2                                                        DTSBR712
00099  FD  PRT-FILE                                                     DTSBR712
00100      RECORDING MODE IS F                                          DTSBR712
00101      BLOCK CONTAINS 0 RECORDS                                     DTSBR712
00102      LABEL RECORDS ARE OMITTED.                                   DTSBR712
00103  01  XEROX-REPORT.                                                DTSBR712
00104      05  FILLER                      PIC X(1).                    DTSBR712
00105      05  XEROX-RPT                   PIC X(132).                  DTSBR712
00106      EJECT                                                        DTSBR712
00107  WORKING-STORAGE SECTION.                                         DTSBR712
001075 77  PAN-VALET PICTURE X(24) VALUE '013DTSBR712  09/25/02'.       DTSBR712
00108      SKIP3                                                        DTSBR712
00109  01  WRK-AREA.                                                    DTSBR712
00110      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +712.DTSBR712
00111      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR712
00112      05  WS-OPR-VOICE.                                            DTSBR712
00113          10  WS-OPR-VOICE-AREA-CODE  PIC X(03)  VALUE SPACES.     DTSBR712
00114          10  WS-OPR-VOICE-1          PIC X(03)  VALUE SPACES.     DTSBR712
00115          10  WS-OPR-VOICE-2          PIC X(04)  VALUE SPACES.     DTSBR712
00116          10  WS-OPR-VOICE-EXT        PIC X(05)  VALUE SPACES.     DTSBR712
00117  01  VSCA-LINE.                                                   DTSBR712
00118      05  VSCA-DATA                   PIC X(133) VALUE SPACES.     DTSBR712
00119      EJECT                                                        DTSBR712
00120  01  L002-LINK-AREA.                                              DTSBR712
00121  ++INCLUDE DTSIL002                                               DTSBR712
00122      EJECT                                                        DTSBR712
00123  01  L071-LINK-AREA.                                              DTSBR712
00124  ++INCLUDE DTSIL071                                               DTSBR712
00125      EJECT                                                        DTSBR712
00126  01  L082-LINK-AREA.                                              DTSBR712
00127  ++INCLUDE DTSIL082                                               DTSBR712
00128      EJECT                                                        DTSBR712
00129  ++INCLUDE DTSXL712                                               DTSBR712
00130      SKIP3                                                        DTSBR712
00131      SKIP2                                                        DTSBR712
00132  01  R712-MAIL-LINE.                                              DTSBR712
00133      05 MAIL-LINE-1.                                              DTSBR712
00134          10  FILLER                  PIC  X(32) VALUE SPACES.     DTSBR712
00135          10  WS-FMT-MAIL-1           PIC  X(40).                  DTSBR712
00136      05 MAIL-LINE-2.                                              DTSBR712
00137          10  FILLER                  PIC  X(32) VALUE SPACES.     DTSBR712
00138          10  WS-FMT-MAIL-2           PIC  X(40).                  DTSBR712
00139      05 MAIL-LINE-3.                                              DTSBR712
00140          10  FILLER                  PIC  X(32) VALUE SPACES.     DTSBR712
00141          10  WS-FMT-MAIL-3           PIC  X(40).                  DTSBR712
00142      05 MAIL-LINE-4.                                              DTSBR712
00143          10  FILLER                  PIC  X(32) VALUE SPACES.     DTSBR712
00144          10  WS-FMT-MAIL-4           PIC  X(40).                  DTSBR712
00145      05 MAIL-LINE-5.                                              DTSBR712
00146          10  FILLER                  PIC  X(32) VALUE SPACES.     DTSBR712
00147          10  WS-FMT-MAIL-5           PIC  X(40).                  DTSBR712
00148  01  R712-REPORT-LINES.                                           DTSBR712
00149      05  RPT-LINE-1.                                              DTSBR712
00150          10  FILLER                  PIC  X(10).                  DTSBR712
00151          10  WS-LONG-TEXT-AREA       PIC  X(18).                  DTSBR712
00152      05  RPT-LINE-2.                                              DTSBR712
00153          10  FILLER                  PIC  X(03) VALUE SPACES.     DTSBR712
00154          10  WS-FMT-LINE-1           PIC  X(40).                  DTSBR712
00155      05  RPT-LINE-3.                                              DTSBR712
00156          10  FILLER                  PIC  X(03) VALUE SPACES.     DTSBR712
00157          10  WS-FMT-LINE-2           PIC  X(40).                  DTSBR712
00158      05  RPT-LINE-4.                                              DTSBR712
00159          10  FILLER                  PIC  X(03) VALUE SPACES.     DTSBR712
00160          10  WS-FMT-LINE-3           PIC  X(40).                  DTSBR712
00161      05  RPT-LINE-5.                                              DTSBR712
00162          10  FILLER                  PIC  X(03) VALUE SPACES.     DTSBR712
00163          10  WS-FMT-LINE-4           PIC  X(40).                  DTSBR712
00164      05  RPT-LINE-6.                                              DTSBR712
00165          10  FILLER                  PIC  X(03) VALUE SPACES.     DTSBR712
00166          10  WS-FMT-LINE-5           PIC  X(40).                  DTSBR712
00167      05  RPT-LINE-7.                                              DTSBR712
00168          10  FILLER                  PIC  X(22) VALUE SPACES.     DTSBR712
00169          10  WS-EMP-NO               PIC  999B999.                DTSBR712
00170      05  RPT-LINE-8.                                              DTSBR712
00171          10  FILLER                  PIC  X(03) VALUE SPACES.     DTSBR712
00172          10  WS-OPR-NAME             PIC  X(40).                  DTSBR712
00173      05  RPT-LINE-9.                                              DTSBR712
00174          10  FILLER                  PIC  X(03) VALUE SPACES.     DTSBR712
00175          10  WS-OPR-TITLE            PIC  X(52).                  DTSBR712
00176      05  RPT-LINE-10.                                             DTSBR712
00177          10  FILLER                  PIC  X(14) VALUE SPACES.     DTSBR712
00178          10  WS-RPT-VOICE-AREA-CD    PIC  X(03).                  DTSBR712
00179          10  FILLER                  PIC  X(01) VALUE '-'.        DTSBR712
00180          10  WS-RPT-VOICE-ONE        PIC  X(03).                  DTSBR712
00181          10  FILLER                  PIC  X(01) VALUE '-'.        DTSBR712
00182          10  WS-RPT-VOICE-TWO        PIC  X(04).                  DTSBR712
00183      SKIP2                                                        DTSBR712
00184  LINKAGE SECTION.                                                 DTSBR712
00185      SKIP3                                                        DTSBR712
00186  01  LRCM-LINK-AREA.                                              DTSBR712
00187  ++INCLUDE DTSILRCM                                               DTSBR712
00188      EJECT                                                        DTSBR712
00189  01  R712-REC.                                                    DTSBR712
00190  ++INCLUDE DTSIR712                                               DTSBR712
00191      EJECT                                                        DTSBR712
00192  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR712
00193                           R712-REC.                               DTSBR712
00194      SKIP2                                                        DTSBR712
00195      IF FIRST-TIME-IND = 'Y'                                      DTSBR712
00196          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR712
00197          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR712
00198      SKIP1                                                        DTSBR712
00199      IF LRCM-EOR-88                                               DTSBR712
00200          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR712
00201      ELSE                                                         DTSBR712
00202          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR712
00203      SKIP2                                                        DTSBR712
00204      GOBACK.                                                      DTSBR712
00205      EJECT                                                        DTSBR712
00206  I1000-INITIATE.                                                  DTSBR712
00207      SKIP1                                                        DTSBR712
00208      OPEN OUTPUT PRT-FILE.                                        DTSBR712
00209      MOVE SPACES TO XEROX-REPORT.                                 DTSBR712
00210      MOVE 'RPT712R1' TO REPORT-NUMBER.                            DTSBR712
00211      WRITE XEROX-REPORT     FROM VSCA-LINE AFTER ADVANCING 15.    DTSBR712
00212      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE1.                DTSBR712
00213      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE2.                DTSBR712
00214      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE3.                DTSBR712
00215      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE4.                DTSBR712
00216      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE5.                DTSBR712
00217      WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE                  DTSBR712
00218          AFTER ADVANCING TOP-OF-PAGE.                             DTSBR712
00219      SKIP2                                                        DTSBR712
00220  I1000-EXIT.                                                      DTSBR712
00221      EXIT.                                                        DTSBR712
00222      EJECT                                                        DTSBR712
00223  P1000-PROCESS.                                                   DTSBR712
00224      SKIP1                                                        DTSBR712
00225      MOVE R712-OP-ID TO L082-OP-ID.                               DTSBR712
00226      PERFORM S082-OP-ID-INFO THRU S082-EXIT.                      DTSBR712
00227      IF L082-NOT-VALID-OP OR L082-INTERNAL-88                     DTSBR712
00228          MOVE SPACES TO WS-OPR-NAME                               DTSBR712
00229          MOVE LRCM-DEFAULT-NAME TO WS-OPR-TITLE                   DTSBR712
00230          MOVE LRCM-DEFAULT-VOICE TO WS-OPR-VOICE                  DTSBR712
00231      ELSE                                                         DTSBR712
00232          MOVE L082-VOICE-1 TO WS-OPR-VOICE                        DTSBR712
00233          MOVE L082-TITLE TO WS-OPR-TITLE                          DTSBR712
00234          MOVE L082-NAME TO L071-NAM                               DTSBR712
00235          MOVE 2 TO L071-NAME-FORMAT                               DTSBR712
00236          PERFORM S071-DESLASH-NAME THRU S071-EXIT                 DTSBR712
00237          MOVE L071-NAM TO WS-OPR-NAME.                            DTSBR712
00238      SKIP1                                                        DTSBR712
00239      MOVE R712-MAIL-DATE TO L002-DATE.                            DTSBR712
00240      SET L002-MIXED-CASE TO TRUE.                                 DTSBR712
00241      PERFORM S002-DATE-ALPHA THRU S002-EXIT.                      DTSBR712
00242      SKIP1                                                        DTSBR712
00243      PERFORM P3000-PRINT-TEXT THRU P3000-EXIT.                    DTSBR712
00244      SKIP2                                                        DTSBR712
00245  P1000-EXIT.                                                      DTSBR712
00246      EXIT.                                                        DTSBR712
00247      EJECT                                                        DTSBR712
00248  P3000-PRINT-TEXT.                                                DTSBR712
00249      MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-AREA.               DTSBR712
00250      MOVE R712-FMT-LINE (1) TO WS-FMT-LINE-1.                     DTSBR712
00251      MOVE R712-FMT-LINE (2) TO WS-FMT-LINE-2.                     DTSBR712
00252      MOVE R712-FMT-LINE (3) TO WS-FMT-LINE-3.                     DTSBR712
00253      MOVE R712-FMT-LINE (4) TO WS-FMT-LINE-4.                     DTSBR712
00254      MOVE R712-FMT-LINE (5) TO WS-FMT-LINE-5.                     DTSBR712
00255      MOVE R712-EMP-NO       TO WS-EMP-NO.                         DTSBR712
00256      WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING TOP-OF-PAGEDTSBR712
00257      WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 7 LINE.    DTSBR712
00258      WRITE XEROX-REPORT FROM RPT-LINE-1 AFTER ADVANCING 1 LINE.   DTSBR712
00259      WRITE XEROX-REPORT FROM RPT-LINE-2 AFTER ADVANCING 3 LINE.   DTSBR712
00260      WRITE XEROX-REPORT FROM RPT-LINE-3 AFTER ADVANCING 1 LINE.   DTSBR712
00261      WRITE XEROX-REPORT FROM RPT-LINE-4 AFTER ADVANCING 1 LINE.   DTSBR712
00262      WRITE XEROX-REPORT FROM RPT-LINE-5 AFTER ADVANCING 1 LINE.   DTSBR712
00263      WRITE XEROX-REPORT FROM RPT-LINE-6 AFTER ADVANCING 1 LINE.   DTSBR712
00264      WRITE XEROX-REPORT FROM RPT-LINE-7 AFTER ADVANCING 3 LINE.   DTSBR712
00265                                                                   DTSBR712
00266      MOVE WS-OPR-VOICE-AREA-CODE TO WS-RPT-VOICE-AREA-CD.         DTSBR712
00267      MOVE WS-OPR-VOICE-1      TO WS-RPT-VOICE-ONE.                DTSBR712
00268      MOVE WS-OPR-VOICE-2      TO WS-RPT-VOICE-TWO.                DTSBR712
00269      WRITE XEROX-REPORT FROM RPT-LINE-8 AFTER ADVANCING 27 LINE.  DTSBR712
00270      WRITE XEROX-REPORT FROM RPT-LINE-9 AFTER ADVANCING 1 LINE.   DTSBR712
00271      WRITE XEROX-REPORT FROM RPT-LINE-10 AFTER ADVANCING 2 LINE.  DTSBR712
00272                                                                   DTSBR712
00273      MOVE R712-FMT-LINE(1) TO WS-FMT-MAIL-1.                      DTSBR712
00274      MOVE R712-FMT-LINE(2) TO WS-FMT-MAIL-2.                      DTSBR712
00275      MOVE R712-FMT-LINE(3) TO WS-FMT-MAIL-3.                      DTSBR712
00276      MOVE R712-FMT-LINE(4) TO WS-FMT-MAIL-4.                      DTSBR712
00277      MOVE R712-FMT-LINE(5) TO WS-FMT-MAIL-5.                      DTSBR712
00278                                                                   DTSBR712
00279      WRITE XEROX-REPORT     FROM VSCA-LINE                        DTSBR712
00280          AFTER ADVANCING TOP-OF-PAGE.                             DTSBR712
00281      WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 14 LINES.  DTSBR712
00282      WRITE XEROX-REPORT FROM MAIL-LINE-1 AFTER ADVANCING 1 LINE.  DTSBR712
00283      WRITE XEROX-REPORT FROM MAIL-LINE-2 AFTER ADVANCING 1 LINE.  DTSBR712
00284      WRITE XEROX-REPORT FROM MAIL-LINE-3 AFTER ADVANCING 1 LINE.  DTSBR712
00285      WRITE XEROX-REPORT FROM MAIL-LINE-4 AFTER ADVANCING 1 LINE.  DTSBR712
00286      WRITE XEROX-REPORT FROM MAIL-LINE-5 AFTER ADVANCING 1 LINE.  DTSBR712
00287                                                                   DTSBR712
00288                                                                   DTSBR712
00289  P3000-EXIT.                                                      DTSBR712
00290      EXIT.                                                        DTSBR712
00291                                                                   DTSBR712
00292                                                                   DTSBR712
00293                                                                   DTSBR712
00294  T1000-TERMINATE.                                                 DTSBR712
00295      SKIP1                                                        DTSBR712
00296      CLOSE PRT-FILE.                                              DTSBR712
00297      SKIP2                                                        DTSBR712
00298  T1000-EXIT.                                                      DTSBR712
00299      EXIT.                                                        DTSBR712
00300      EJECT                                                        DTSBR712
00301  S002-DATE-ALPHA.                                                 DTSBR712
00302      SKIP1                                                        DTSBR712
00303      CALL 'DTSBU002' USING L002-LINK-AREA.                        DTSBR712
00304      SKIP2                                                        DTSBR712
00305  S002-EXIT.                                                       DTSBR712
00306      EXIT.                                                        DTSBR712
00307      SKIP3                                                        DTSBR712
00308  S071-DESLASH-NAME.                                               DTSBR712
00309      SKIP1                                                        DTSBR712
00310      CALL 'DTSBU071' USING L071-LINK-AREA.                        DTSBR712
00311      SKIP2                                                        DTSBR712
00312  S071-EXIT.                                                       DTSBR712
00313      EXIT.                                                        DTSBR712
00314      SKIP3                                                        DTSBR712
00315  S082-OP-ID-INFO.                                                 DTSBR712
00316      SKIP1                                                        DTSBR712
00317      CALL 'DTSBU082' USING L082-LINK-AREA.                        DTSBR712
00318      SKIP2                                                        DTSBR712
00319  S082-EXIT.                                                       DTSBR712
00320      EXIT.                                                        DTSBR712
00321      SKIP3                                                        DTSBR712
00322  S999-ABEND.                                                      DTSBR712
00323      SKIP1                                                        DTSBR712
00324      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR712
00325      SKIP2                                                        DTSBR712
00326  S999-EXIT.                                                       DTSBR712
00327      EXIT.                                                        DTSBR712
