00001  IDENTIFICATION DIVISION.                                         11/09/00
00002  PROGRAM-ID.             DTSBR909.                                DTSBR909
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV001
00004  DATE-WRITTEN.           OCTOBER 1994.                            DTSBR909
00005  DATE-COMPILED.                                                   DTSBR909
00006      SKIP3                                                        DTSBR909
00007 *****                                                             DTSBR909
00008 *                                                                 DTSBR909
00009 *                                                                 DTSBR909
00010 *   CALLING SEQUENCE:  DTSBD800 CALLS                             DTSBR909
00011 *                      DTSBR909 READS DTSIR909 RECORDS.           DTSBR909
00012 *                                                                 DTSBR909
00013 *    FUNCTION:  GENERATE MISSING SIC/NAIC CODE LETTERS.           DTSBR909
00014 *                                                                 DTSBR909
00015 *                                                                 DTSBR909
00016 *    MODIFICATION HISTORY:                                        DTSBR909
00017 *                                                                 DTSBR909
00018 * 11/07/2000  MODIFIED FOR DC REQUIREMENTS AND LAZER PRINTING.    DTSBR909
00019 *             REFERENCE:                         PROGRAMMER: ZL1  DTSBR909
00020 *                                                                 DTSBR909
00021 * MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR909
00022 *             XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR909
00023 *             REFERENCE: XXXXXXXXXXXXXXXX        PROGRAMMER: XXX  DTSBR909
00024 *                                                                 DTSBR909
00025 *                                                                 DTSBR909
00026 *    DESCRIPTION:                                                 DTSBR909
00027 *                                                                 DTSBR909
00028 *        THIS MODULE GENERATES LETTERS TO EMPLOYERS MISSING       DTSBR909
00029 *        SIC/NAIC CODES.                                          DTSBR909
00030 *                                                                 DTSBR909
00031 *                                                                 DTSBR909
00032 *    RECORDS READ:                                                DTSBR909
00033 *                                                                 DTSBR909
00034 *        NONE.                                                    DTSBR909
00035 *                                                                 DTSBR909
00036 *                                                                 DTSBR909
00037 *    PRINTED OUTPUTS:                                             DTSBR909
00038 *                                                                 DTSBR909
00039 *        909R1  SELF MAILER LETTERS                               DTSBR909
00040 *                                                                 DTSBR909
00041 *                                                                 DTSBR909
00042 *    RECORDS WRITTEN:                                             DTSBR909
00043 *                                                                 DTSBR909
00044 *        NONE.                                                    DTSBR909
00045 *                                                                 DTSBR909
00046 *                                                                 DTSBR909
00047 *    MODULES CALLED:                                              DTSBR909
00048 *                                                                 DTSBR909
00049 *        DTSBU009 CONVERSION TO CAPS MODULE                       DTSBR909
00050 *        DTSBU062 FIELD REP ID EDIT/DESCRIPTION MODULE            DTSBR909
00051 *        DTSBU071 NAME EDIT/CONVERSION MODULE                     DTSBR909
00052 *        DTSBU082 OPERATOR ID EDIT/LOOKUP MODULE                  DTSBR909
00053 *        DTSBU119 AGENCY FACTS MODULE                             DTSBR909
00054 *                                                                 DTSBR909
00055 *****                                                             DTSBR909
00056      EJECT                                                        DTSBR909
00057  ENVIRONMENT DIVISION.                                            DTSBR909
00058                                                                   DTSBR909
00059  CONFIGURATION SECTION.                                           DTSBR909
00060  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR909
00061                                                                   DTSBR909
00062  INPUT-OUTPUT SECTION.                                            DTSBR909
00063                                                                   DTSBR909
00064  FILE-CONTROL.                                                    DTSBR909
00065      SELECT PRT-FILE ASSIGN TO RPT909R1.                          DTSBR909
00066                                                                   DTSBR909
00067  DATA DIVISION.                                                   DTSBR909
00068                                                                   DTSBR909
00069  FILE SECTION.                                                    DTSBR909
00070                                                                   DTSBR909
00071  FD  PRT-FILE                                                     DTSBR909
00072      RECORDING MODE IS F                                          DTSBR909
00073      BLOCK CONTAINS 0 RECORDS                                     DTSBR909
00074      LABEL RECORDS ARE OMITTED.                                   DTSBR909
00075  01  XEROX-REPORT.                                                DTSBR909
00076      05  FILLER                      PIC X(1).                    DTSBR909
00077      05  XEROX-RPT                   PIC X(132).                  DTSBR909
00078                                                                   DTSBR909
00079      EJECT                                                        DTSBR909
00080  WORKING-STORAGE SECTION.                                         DTSBR909
000805 77  PAN-VALET PICTURE X(24) VALUE '001DTSBR909  11/09/00'.       DTSBR909
00081                                                                   DTSBR909
00082  01  WRK-AREA.                                                    DTSBR909
00083      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +909.DTSBR909
00084      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR909
00085                                                                   DTSBR909
00086      05  WS-OP-ID-HOLD               PIC  X(08)  VALUE SPACE.     DTSBR909
00087      05  WS-FIELD-NAME-FIRST-MI      PIC  X(40)  VALUE SPACE.     DTSBR909
00088      05  WS-FIELD-NAME-LAST          PIC  X(40)  VALUE SPACE.     DTSBR909
00089      05  WS-ADDR-FMT-AREA            PIC  X(200) VALUE SPACE.     DTSBR909
00090      05  WS-ADDR-FMT-AREA-X REDEFINES WS-ADDR-FMT-AREA.           DTSBR909
00091          10  ADDR-FMT-LINE OCCURS 5 TIMES PIC X(40).              DTSBR909
00092                                                                   DTSBR909
00093  01  MAIL-LINE.                                                   DTSBR909
00094      05  MAIL-DATA                   PIC X(133) VALUE SPACES.     DTSBR909
00095                                                                   DTSBR909
00096      EJECT                                                        DTSBR909
00097  01  L009-LINK-AREA.                                              DTSBR909
00098  ++INCLUDE DTSIL009                                               DTSBR909
00099      EJECT                                                        DTSBR909
00100  01  L119-LINK-AREA.                                              DTSBR909
00101  ++INCLUDE DTSIL119                                               DTSBR909
00102      EJECT                                                        DTSBR909
00103  ++INCLUDE DTSXL909                                               DTSBR909
00104                                                                   DTSBR909
00105  01  SURVEY-CARD.                                                 DTSBR909
00106      05  DTL-LINE-1.                                              DTSBR909
00107          10  FILLER                  PIC  X(50)  VALUE SPACES.    DTSBR909
00108          10  DTL-EMP-NO              PIC  999B999.                DTSBR909
00109      05  DTL-LINE-2.                                              DTSBR909
00110          10  FILLER                  PIC  X(50)  VALUE SPACES.    DTSBR909
00111          10  DTL-EMP-FEIN            PIC  X(09)  VALUE SPACES.    DTSBR909
00112      EJECT                                                        DTSBR909
00113  LINKAGE SECTION.                                                 DTSBR909
00114                                                                   DTSBR909
00115  01  LRCM-LINK-AREA.                                              DTSBR909
00116  ++INCLUDE DTSILRCM                                               DTSBR909
00117      EJECT                                                        DTSBR909
00118  01  R909-REC.                                                    DTSBR909
00119  ++INCLUDE DTSIR909                                               DTSBR909
00120      EJECT                                                        DTSBR909
00121  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR909
00122                           R909-REC.                               DTSBR909
00123      IF FIRST-TIME-IND = 'Y'                                      DTSBR909
00124          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR909
00125          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR909
00126                                                                   DTSBR909
00127      IF LRCM-EOR-88                                               DTSBR909
00128          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR909
00129      ELSE                                                         DTSBR909
00130          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR909
00131                                                                   DTSBR909
00132      GOBACK.                                                      DTSBR909
00133      EJECT                                                        DTSBR909
00134  I1000-INITIATE.                                                  DTSBR909
00135                                                                   DTSBR909
00136      OPEN OUTPUT PRT-FILE.                                        DTSBR909
00137      SET L119-REQ-MIXED-88 TO TRUE.                               DTSBR909
00138      SET L119-REQ-COLLECTIONS-88 TO TRUE.                         DTSBR909
00139      PERFORM S119-AGY-FACTS THRU S119-EXIT.                       DTSBR909
00140 *    MOVE L119-UNIT-CHIEF-NAME        TO WS-OPR-NAME              DTSBR909
00141 *    MOVE L119-UNIT-CHIEF-TITLE       TO WS-OPR-UNIT-NAME         DTSBR909
00142                                                                   DTSBR909
00143      MOVE SPACES TO XEROX-REPORT.                                 DTSBR909
00144                                                                   DTSBR909
00145      WRITE XEROX-REPORT     FROM MAIL-LINE                        DTSBR909
00146          AFTER ADVANCING TOP-OF-PAGE.                             DTSBR909
00147      WRITE XEROX-REPORT     FROM MAIL-LINE AFTER ADVANCING 13.    DTSBR909
00148      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE1 AFTER 1.        DTSBR909
00149      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE2 AFTER 1.        DTSBR909
00150      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE3 AFTER 1         DTSBR909
00151      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE4 AFTER 1.        DTSBR909
00152      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE5 AFTER 1.        DTSBR909
00153      WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE  AFTER 1.        DTSBR909
00154                                                                   DTSBR909
00155  I1000-EXIT.                                                      DTSBR909
00156      EXIT.                                                        DTSBR909
00157                                                                   DTSBR909
00158  P1000-PROCESS.                                                   DTSBR909
00159                                                                   DTSBR909
00160      MOVE R909-EMP-NO          TO DTL-EMP-NO.                     DTSBR909
00161      MOVE R909-FEIN            TO DTL-EMP-FEIN.                   DTSBR909
00162      PERFORM P2000-PRINT-DETAIL THRU P2000-EXIT.                  DTSBR909
00163      PERFORM P1500-SELF-MAILER-RTN THRU P1500-EXIT.               DTSBR909
00164                                                                   DTSBR909
00165  P1000-EXIT.                                                      DTSBR909
00166      EXIT.                                                        DTSBR909
00167                                                                   DTSBR909
00168  P1500-SELF-MAILER-RTN.                                           DTSBR909
00169                                                                   DTSBR909
00170      MOVE R909-FMT-LINE(1) TO WS-ADDR-FMT-LINE-1.                 DTSBR909
00171      MOVE R909-FMT-LINE(2) TO WS-ADDR-FMT-LINE-2.                 DTSBR909
00172      MOVE R909-FMT-LINE(3) TO WS-ADDR-FMT-LINE-3.                 DTSBR909
00173      MOVE R909-FMT-LINE(4) TO WS-ADDR-FMT-LINE-4.                 DTSBR909
00174      MOVE R909-FMT-LINE(5) TO WS-ADDR-FMT-LINE-5.                 DTSBR909
00175      PERFORM P3000-PRINT-MAIL-ADDR THRU P3000-EXIT.               DTSBR909
00176                                                                   DTSBR909
00177  P1500-EXIT.                                                      DTSBR909
00178      EXIT.                                                        DTSBR909
00179                                                                   DTSBR909
00180  P2000-PRINT-DETAIL.                                              DTSBR909
00181      WRITE XEROX-REPORT FROM MAIL-LINE AFTER ADVANCING TOP-OF-PAGEDTSBR909
00182      WRITE XEROX-REPORT FROM MAIL-LINE AFTER ADVANCING 33 LINE.   DTSBR909
00183      WRITE XEROX-REPORT FROM DTL-LINE-1  AFTER ADVANCING 1 LINE.  DTSBR909
00184      WRITE XEROX-REPORT FROM DTL-LINE-2  AFTER ADVANCING 2 LINES. DTSBR909
00185                                                                   DTSBR909
00186  P2000-EXIT.                                                      DTSBR909
00187      EXIT.                                                        DTSBR909
00188                                                                   DTSBR909
00189  P3000-PRINT-MAIL-ADDR.                                           DTSBR909
00190      WRITE XEROX-REPORT     FROM MAIL-LINE                        DTSBR909
00191          AFTER ADVANCING TOP-OF-PAGE.                             DTSBR909
00192      WRITE XEROX-REPORT FROM MAIL-LINE AFTER ADVANCING 17 LINES.  DTSBR909
00193      WRITE XEROX-REPORT FROM MAIL-ADDR-LINE-1                     DTSBR909
00194              AFTER ADVANCING 1 LINE.                              DTSBR909
00195      WRITE XEROX-REPORT FROM MAIL-ADDR-LINE-2                     DTSBR909
00196              AFTER ADVANCING 1 LINE.                              DTSBR909
00197      WRITE XEROX-REPORT FROM MAIL-ADDR-LINE-3                     DTSBR909
00198              AFTER ADVANCING 1 LINE.                              DTSBR909
00199      WRITE XEROX-REPORT FROM MAIL-ADDR-LINE-4                     DTSBR909
00200              AFTER ADVANCING 1 LINE.                              DTSBR909
00201      WRITE XEROX-REPORT FROM MAIL-ADDR-LINE-5                     DTSBR909
00202              AFTER ADVANCING 1 LINE.                              DTSBR909
00203                                                                   DTSBR909
00204  P3000-EXIT.                                                      DTSBR909
00205      EXIT.                                                        DTSBR909
00206  T1000-TERMINATE.                                                 DTSBR909
00207                                                                   DTSBR909
00208      CLOSE PRT-FILE.                                              DTSBR909
00209                                                                   DTSBR909
00210  T1000-EXIT.                                                      DTSBR909
00211      EXIT.                                                        DTSBR909
00212                                                                   DTSBR909
00213  S119-AGY-FACTS.                                                  DTSBR909
00214                                                                   DTSBR909
00215      CALL 'DTSBU119' USING L119-LINK-AREA.                        DTSBR909
00216                                                                   DTSBR909
00217  S119-EXIT.                                                       DTSBR909
00218      EXIT.                                                        DTSBR909
00219                                                                   DTSBR909
00220 *S999-ABEND.                                                      DTSBR909
00221 *                                                                 DTSBR909
00222 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR909
00223 *                                                                 DTSBR909
00224 *S999-EXIT.                                                       DTSBR909
00225 *    EXIT.                                                        DTSBR909
00226                                                                   DTSBR909
