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