00001 IDENTIFICATION DIVISION. 11/09/22 00002 PROGRAM-ID. DTSTOP02. DTSTOP02 00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV033 00004 DATE-WRITTEN. OCTOBER 1994. DTSTOP02 00005 DATE-COMPILED. DTSTOP02 00006 SKIP3 DTSTOP02 00007 ***** DTSTOP02 00008 * DTSTOP02 00009 * DTSTOP02 00010 * CALLING SEQUENCE: DTSBD800 CALLS DTSTOP02 00011 * DTSBR795 READS DTSIXTOP RECORDS. DTSTOP02 00012 * DTSTOP02 00013 * FUNCTION: GENERATE LETTERS TO EMPLOYERS SELECTED. DTSTOP02 00014 * DTSTOP02 00015 * DTSTOP02 00016 * MODIFICATION HISTORY: DTSTOP02 00017 * DTSTOP02 00018 * 11/07/2000 MODIFIED FOR DC REQUIREMENTS AND LAZER PRINTING. DTSTOP02 00019 * REFERENCE: PROGRAMMER: ZL1 DTSTOP02 00020 * DTSTOP02 00021 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSTOP02 00022 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSTOP02 00023 * REFERENCE: XXXXXXXXXXXXXXXX PROGRAMMER: XXX DTSTOP02 00024 * DTSTOP02 00025 * DTSTOP02 00026 * DESCRIPTION: DTSTOP02 00027 * DTSTOP02 00028 * THIS MODULE GENERATES LETTERS TO EMPLOYERS MISSING DTSTOP02 00029 * SIC/NAIC CODES. DTSTOP02 00030 * DTSTOP02 00031 * DTSTOP02 00032 * RECORDS READ: DTSTOP02 00033 * DTSTOP02 00034 * NONE. DTSTOP02 00035 * DTSTOP02 00036 * DTSTOP02 00037 * PRINTED OUTPUTS: DTSTOP02 00038 * DTSTOP02 00039 * 909R1 SELF MAILER LETTERS DTSTOP02 00040 * DTSTOP02 00041 * DTSTOP02 00042 * RECORDS WRITTEN: DTSTOP02 00043 * DTSTOP02 00044 * NONE. DTSTOP02 00045 * DTSTOP02 00046 * DTSTOP02 00047 * MODULES CALLED: DTSTOP02 00048 * DTSTOP02 00049 * DTSBU009 CONVERSION TO CAPS MODULE DTSTOP02 00050 * DTSBU062 FIELD REP ID EDIT/DESCRIPTION MODULE DTSTOP02 00051 * DTSBU071 NAME EDIT/CONVERSION MODULE DTSTOP02 00052 * DTSBU082 OPERATOR ID EDIT/LOOKUP MODULE DTSTOP02 00053 * DTSBU119 AGENCY FACTS MODULE DTSTOP02 00054 * DTSTOP02 00055 ***** DTSTOP02 00056 EJECT DTSTOP02 00057 ENVIRONMENT DIVISION. DTSTOP02 00058 DTSTOP02 00059 CONFIGURATION SECTION. DTSTOP02 00060 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSTOP02 00061 DTSTOP02 00062 INPUT-OUTPUT SECTION. DTSTOP02 00063 DTSTOP02 00064 FILE-CONTROL. DTSTOP02 00065 SELECT TOP-OUTFILE ASSIGN TO DTSFTOP2. DTSTOP02 00066 SELECT TOP-FILE ASSIGN TO DTSFTOP1. DTSTOP02 00067 SELECT PRT-FILE ASSIGN TO RPT909R1. DTSTOP02 00068 SELECT PRT-FILE2 ASSIGN TO RPT909R2. DTSTOP02 00069 SELECT PRT-FILE3 ASSIGN TO RPT909R3. DTSTOP02 00070 SELECT PRT-FILE4 ASSIGN TO RPT909R4. DTSTOP02 00071 SELECT PRT-FILE5 ASSIGN TO RPT909R5. DTSTOP02 00072 SELECT PRT-FILE6 ASSIGN TO RPT909R6. DTSTOP02 00073 SELECT PRT-FILE7 ASSIGN TO RPT909R7. DTSTOP02 00074 DTSTOP02 00075 DATA DIVISION. DTSTOP02 00076 DTSTOP02 00077 FILE SECTION. DTSTOP02 00078 DTSTOP02 00079 FD TOP-FILE DTSTOP02 00080 LABEL RECORDS ARE OMITTED. DTSTOP02 00081 01 TOP-RECORD PIC X(200). CL*32 00082 DTSTOP02 00083 DTSTOP02 00084 FD TOP-OUTFILE DTSTOP02 00085 LABEL RECORDS ARE OMITTED. DTSTOP02 00086 01 TOPOUT-REC PIC X(177). CL*29 00087 CL*29 00088 FD PRT-FILE DTSTOP02 00089 RECORDING MODE IS F DTSTOP02 00090 BLOCK CONTAINS 0 RECORDS DTSTOP02 00091 LABEL RECORDS ARE OMITTED. DTSTOP02 00092 01 XEROX-REPORT. DTSTOP02 00093 * 05 FILLER PIC X(1). DTSTOP02 00094 05 XEROX-RPT PIC X(132). DTSTOP02 00095 DTSTOP02 00096 FD PRT-FILE2 DTSTOP02 00097 RECORDING MODE IS F DTSTOP02 00098 BLOCK CONTAINS 0 RECORDS DTSTOP02 00099 LABEL RECORDS ARE OMITTED. DTSTOP02 00100 01 XEROX-REPORT2. DTSTOP02 00101 * 05 FILLER PIC X(1). DTSTOP02 00102 05 XEROX-RPT2 PIC X(132). DTSTOP02 00103 DTSTOP02 00104 FD PRT-FILE3 DTSTOP02 00105 RECORDING MODE IS F DTSTOP02 00106 BLOCK CONTAINS 0 RECORDS DTSTOP02 00107 LABEL RECORDS ARE OMITTED. DTSTOP02 00108 01 XEROX-REPORT3. DTSTOP02 00109 * 05 FILLER PIC X(1). DTSTOP02 00110 05 XEROX-RPT3 PIC X(132). DTSTOP02 00111 DTSTOP02 00112 FD PRT-FILE4 DTSTOP02 00113 RECORDING MODE IS F DTSTOP02 00114 BLOCK CONTAINS 0 RECORDS DTSTOP02 00115 LABEL RECORDS ARE OMITTED. DTSTOP02 00116 01 XEROX-REPORT4. DTSTOP02 00117 * 05 FILLER PIC X(1). DTSTOP02 00118 05 XEROX-RPT4 PIC X(132). DTSTOP02 00119 DTSTOP02 00120 FD PRT-FILE5 DTSTOP02 00121 RECORDING MODE IS F DTSTOP02 00122 BLOCK CONTAINS 0 RECORDS DTSTOP02 00123 LABEL RECORDS ARE OMITTED. DTSTOP02 00124 01 XEROX-REPORT5. DTSTOP02 00125 * 05 FILLER PIC X(1). DTSTOP02 00126 05 XEROX-RPT5 PIC X(132). DTSTOP02 00127 DTSTOP02 00128 FD PRT-FILE6 DTSTOP02 00129 RECORDING MODE IS F DTSTOP02 00130 BLOCK CONTAINS 0 RECORDS DTSTOP02 00131 LABEL RECORDS ARE OMITTED. DTSTOP02 00132 01 XEROX-REPORT6. DTSTOP02 00133 * 05 FILLER PIC X(1). DTSTOP02 00134 05 XEROX-RPT6 PIC X(132). DTSTOP02 00135 DTSTOP02 00136 FD PRT-FILE7 DTSTOP02 00137 RECORDING MODE IS F DTSTOP02 00138 BLOCK CONTAINS 0 RECORDS DTSTOP02 00139 LABEL RECORDS ARE OMITTED. DTSTOP02 00140 01 XEROX-REPORT7 PIC X(212). DTSTOP02 00141 EJECT DTSTOP02 00142 WORKING-STORAGE SECTION. DTSTOP02 001425 77 PAN-VALET PICTURE X(24) VALUE '033DTSTOP02 11/09/22'. DTSTOP02 00143 77 PAN-VALET PICTURE X(24) VALUE '069DTSBR909 12/21/10'. DTSTOP02 00144 DTSTOP02 00145 01 WRK-AREA. DTSTOP02 00146 05 WRK-EMP-ZIP. DTSTOP02 00147 10 WRK-EMP-ZIPA PIC X(5) VALUE SPACES. DTSTOP02 00148 10 WRK-EMP-ZIPB PIC X(4) VALUE SPACES. DTSTOP02 00149 DTSTOP02 00150 05 WS-AMT PIC 9(10)V99 VALUE 0. CL*25 00151 CL*25 00152 05 WS-AMT-DISP PIC $$$$$$$$99.99. CL*26 00153 CL*25 00154 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +909.DTSTOP02 00155 05 TOP-EOF PIC X(01) VALUE 'N'. DTSTOP02 00156 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSTOP02 00157 * 05 WS-AMT. PIC 9(10)V99. CL*18 00158 05 REC-COUNT PIC 9(7) VALUE ZEROS. CL**8 00159 05 DTL-EMP-NO4 PIC 9(7) VALUE ZEROS. DTSTOP02 00160 05 DTL-EMP-NO4X REDEFINES DTL-EMP-NO4. DTSTOP02 00161 10 EMPNOA PIC 999. DTSTOP02 00162 10 EMPNOB PIC 9. DTSTOP02 00163 10 EMPNOC PIC 999. DTSTOP02 00164 DTSTOP02 00165 05 WS-OP-ID-HOLD PIC X(08) VALUE SPACE. DTSTOP02 00166 05 WS-FIELD-NAME-FIRST-MI PIC X(40) VALUE SPACE. DTSTOP02 00167 05 WS-FIELD-NAME-LAST PIC X(40) VALUE SPACE. DTSTOP02 00168 05 WS-ADDR-FMT-AREA PIC X(200) VALUE SPACE. DTSTOP02 00169 05 WS-ADDR-FMT-AREA-X REDEFINES WS-ADDR-FMT-AREA. DTSTOP02 00170 10 ADDR-FMT-LINE OCCURS 5 TIMES PIC X(40). DTSTOP02 00171 DTSTOP02 00172 01 TOP-LET. CL*32 00173 10 LET-EMP-NO PIC 999999. CL*32 00174 10 FILLER PIC X VALUE ';'. CL*32 00175 10 LET-EMP-FEIN PIC 999999999. CL*32 00176 10 FILLER PIC X VALUE ';'. CL*29 00177 10 LET-EMP-NAME PIC X(40). CL*32 00178 10 FILLER PIC X VALUE ';'. CL*29 00179 10 LET-EMP-ADDR1 PIC X(40). CL*32 00180 10 FILLER PIC X VALUE ';'. CL*29 00181 10 LET-EMP-ADDR2 PIC X(40). CL*32 00182 10 FILLER PIC X VALUE ';'. CL*29 00183 10 LET-EMP-CITZ PIC X(20). CL*32 00184 10 FILLER PIC X VALUE ';'. CL*29 00185 10 LET-EMP-ST PIC X(02). CL*32 00186 10 FILLER PIC X VALUE ';'. CL*29 00187 10 LET-EMP-ZIPP PIC X(10). CL*32 00188 10 FILLER PIC X VALUE ';'. CL*29 00189 10 LET-EMP-AMT PIC 9999999.99. CL*32 00190 01 MAIL-LINE. DTSTOP02 00191 05 MAIL-DATA PIC X(133) VALUE SPACES. DTSTOP02 00192 DTSTOP02 00193 EJECT DTSTOP02 00194 01 L009-LINK-AREA. DTSTOP02 00195 ++INCLUDE DTSIL009 DTSTOP02 00196 EJECT DTSTOP02 00197 01 L119-LINK-AREA. DTSTOP02 00198 ++INCLUDE DTSIL119 DTSTOP02 00199 EJECT DTSTOP02 00200 ++INCLUDE DTSXL909 DTSTOP02 00201 01 CHKLTZ. DTSTOP02 00202 05 DTZ-LINE-2. DTSTOP02 00203 * 10 FILLER PIC X(37) VALUE SPACES. DTSTOP02 00204 * 10 DTZ-EMP-NO PIC 999B999. DTSTOP02 00205 10 FILLER PIC X(07) VALUE SPACES. DTSTOP02 00206 10 DTZ-EMP-NAME PIC X(40) VALUE SPACES. DTSTOP02 00207 05 DTZ-LINE-3. DTSTOP02 00208 10 FILLER PIC X(07) VALUE SPACES. DTSTOP02 00209 10 DTZ-EMP-ADDR1 PIC X(40) VALUE SPACES. DTSTOP02 00210 10 FILLER PIC X(15) VALUE SPACES. DTSTOP02 00211 05 DTZ-LINE-4. DTSTOP02 00212 10 FILLER PIC X(07) VALUE SPACES. DTSTOP02 00213 10 DTZ-EMP-ADDR2 PIC X(40) VALUE SPACES. DTSTOP02 00214 10 FILLER PIC X(15) VALUE SPACES. DTSTOP02 00215 05 DTZ-LINE-5. DTSTOP02 00216 10 FILLER PIC X(07) VALUE SPACES. DTSTOP02 00217 10 DTZ-EMP-CITY PIC X(20) VALUE SPACES. DTSTOP02 00218 10 FILLER PIC X(05) VALUE SPACES. DTSTOP02 00219 10 DTZ-EMP-ST PIC X(02) VALUE SPACES. DTSTOP02 00220 10 FILLER PIC X(05) VALUE SPACES. DTSTOP02 00221 10 DTZ-EMP-ZIP. DTSTOP02 00222 15 DTZ-EMP-ZIPA PIC X(05) VALUE SPACES. DTSTOP02 00223 15 FILLERZ PIC X(01) VALUE '-'. CL*27 00224 15 DTZ-EMP-ZIPB PIC X(04) VALUE SPACES. DTSTOP02 00225 DTSTOP02 00226 05 DTZ-LINE-6. DTSTOP02 00227 10 FILLER PIC X(67) VALUE SPACES. DTSTOP02 00228 10 DTZ-EMP-FEIN PIC 99B9999999. DTSTOP02 00229 10 FILLER PIC X(14) VALUE SPACES. DTSTOP02 00230 DTSTOP02 00231 05 DTZ-LINE-7. DTSTOP02 00232 10 FILLER PIC X(27) VALUE SPACES. DTSTOP02 00233 10 DTZ-EMP-AMT PIC $$$$$$$$99.99. CL*23 00234 10 FILLER PIC X(14) VALUE SPACES. DTSTOP02 00235 01 CHKLTR. DTSTOP02 00236 05 DTL-LINE-1. DTSTOP02 00237 10 FILLER PIC X(60) VALUE SPACES. DTSTOP02 00238 10 DTL-DATE PIC X(10) VALUE SPACES. DTSTOP02 00239 05 DTL-LINE-3. DTSTOP02 00240 10 FILLER PIC X(06) VALUE SPACES. DTSTOP02 00241 10 DTL-EMP-ADDR1 PIC X(40) VALUE SPACES. DTSTOP02 00242 10 FILLER PIC X(15) VALUE SPACES. DTSTOP02 00243 05 DTL-LINE-4. DTSTOP02 00244 10 FILLER PIC X(06) VALUE SPACES. DTSTOP02 00245 10 DTL-EMP-ADDR2 PIC X(40) VALUE SPACES. DTSTOP02 00246 10 FILLER PIC X(15) VALUE SPACES. DTSTOP02 00247 05 DTL-LINE-5. DTSTOP02 00248 10 FILLER PIC X(06) VALUE SPACES. DTSTOP02 00249 10 DTL-EMP-ADDR3 PIC X(40) VALUE SPACES. DTSTOP02 00250 10 FILLER PIC X(15) VALUE SPACES. DTSTOP02 00251 05 DTL-LINE-6. DTSTOP02 00252 10 FILLER PIC X(06) VALUE SPACES. DTSTOP02 00253 10 DTL-EMP-ADDR4 PIC X(40) VALUE SPACES. DTSTOP02 00254 10 FILLER PIC X(15) VALUE SPACES. DTSTOP02 00255 05 DTL-LINE-7. DTSTOP02 00256 10 FILLER PIC X(06) VALUE SPACES. DTSTOP02 00257 10 DTL-EMP-ADDR5 PIC X(40) VALUE SPACES. DTSTOP02 00258 10 FILLER PIC X(15) VALUE SPACES. DTSTOP02 00259 05 DTL-LINE-8. DTSTOP02 00260 10 FILLER PIC X(06) VALUE SPACES. DTSTOP02 00261 10 FILLER PIC X(11) VALUE 'ACCOUNT NO:'. DTSTOP02 00262 10 FILLER PIC X(02) VALUE SPACES. DTSTOP02 00263 10 DTL-EMP-NO2 PIC 999B999. DTSTOP02 00264 10 FILLER PIC X(10) VALUE SPACES. DTSTOP02 00265 * 10 DTL-EMP-NAME PIC X(40) VALUE SPACES. DTSTOP02 00266 * 05 DTL-LINE-9. DTSTOP02 00267 * 10 FILLER PIC X(18) VALUE SPACES. DTSTOP02 00268 * 10 DTL-EMP-NO3 PIC 999B999. DTSTOP02 00269 * 05 DTL-STAPL. DTSTOP02 00270 * 10 FILLER PIC X(126) VALUE SPACES. DTSTOP02 00271 * 10 DTL-EMP-STPL PIC 999. DTSTOP02 00272 EJECT DTSTOP02 00273 01 RPT7-LINE. DTSTOP02 00274 * 05 FILLER PIC X(1). DTSTOP02 00275 05 RPT7-EMP PIC X(07). DTSTOP02 00276 05 FILLER PIC X(1) VALUE ','. DTSTOP02 00277 05 RPT7-ADDR1 PIC X(40). DTSTOP02 00278 05 FILLER PIC X(1) VALUE ','. DTSTOP02 00279 05 RPT7-ADDR2 PIC X(40). DTSTOP02 00280 05 FILLER PIC X(1) VALUE ','. DTSTOP02 00281 05 RPT7-ADDR3 PIC X(40). DTSTOP02 00282 05 FILLER PIC X(1) VALUE ','. DTSTOP02 00283 05 RPT7-ADDR4 PIC X(40). DTSTOP02 00284 05 FILLER PIC X(1) VALUE ','. DTSTOP02 00285 05 RPT7-ADDR5 PIC X(40). DTSTOP02 00286 DTSTOP02 00287 01 R795-REC. DTSTOP02 00288 ++INCLUDE DTSIX795 DTSTOP02 00289 LINKAGE SECTION. DTSTOP02 00290 DTSTOP02 00291 PROCEDURE DIVISION. DTSTOP02 00292 IF FIRST-TIME-IND = 'Y' DTSTOP02 00293 PERFORM I1000-INITIATE THRU I1000-EXIT DTSTOP02 00294 MOVE 'N' TO FIRST-TIME-IND. DTSTOP02 00295 DTSTOP02 00296 PERFORM P1000-PROCESS THRU P1000-EXIT UNTIL TOP-EOF = 'Y'. DTSTOP02 00297 DTSTOP02 00298 PERFORM T1000-TERMINATE THRU T1000-EXIT. DTSTOP02 00299 GOBACK. DTSTOP02 00300 EJECT DTSTOP02 00301 I1000-INITIATE. DTSTOP02 00302 DTSTOP02 00303 OPEN INPUT TOP-FILE DTSTOP02 00304 OPEN OUTPUT PRT-FILE DTSTOP02 00305 TOP-OUTFILE DTSTOP02 00306 PRT-FILE2 DTSTOP02 00307 PRT-FILE3 DTSTOP02 00308 PRT-FILE4 DTSTOP02 00309 PRT-FILE5 DTSTOP02 00310 PRT-FILE6 DTSTOP02 00311 PRT-FILE7. DTSTOP02 00312 * SET L119-REQ-MIXED-88 TO TRUE. DTSTOP02 00313 * SET L119-REQ-COLLECTIONS-88 TO TRUE. DTSTOP02 00314 * PERFORM S119-AGY-FACTS THRU S119-EXIT. DTSTOP02 00315 * MOVE L119-UNIT-CHIEF-NAME TO WS-OPR-NAME DTSTOP02 00316 * MOVE L119-UNIT-CHIEF-TITLE TO WS-OPR-UNIT-NAME DTSTOP02 00317 DTSTOP02 00318 MOVE SPACES TO XEROX-REPORT. DTSTOP02 00319 DTSTOP02 00320 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE DTSTOP02 00321 AFTER ADVANCING TOP-OF-PAGE. DTSTOP02 00322 WRITE XEROX-REPORT FROM MAIL-LINE DTSTOP02 00323 AFTER ADVANCING 1 LINE. DTSTOP02 00324 WRITE XEROX-REPORT FROM MAIL-LINE AFTER ADVANCING 13. DTSTOP02 00325 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE1 AFTER 1. DTSTOP02 00326 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE2 AFTER 1. DTSTOP02 00327 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE3 AFTER 1 DTSTOP02 00328 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE4 AFTER 1. DTSTOP02 00329 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE5 AFTER 1. DTSTOP02 00330 DTSTOP02 00331 WRITE XEROX-REPORT FROM MAIL-LINE DTSTOP02 00332 AFTER ADVANCING TOP-OF-PAGE. DTSTOP02 00333 WRITE XEROX-REPORT FROM MAIL-LINE DTSTOP02 00334 AFTER ADVANCING 1 LINE. DTSTOP02 00335 DTSTOP02 00336 DTSTOP02 00337 GO TO I1000-EXIT. DTSTOP02 00338 DTSTOP02 00339 WRITE XEROX-REPORT2 FROM XEROX-CNTL-LINE3 DTSTOP02 00340 AFTER ADVANCING TOP-OF-PAGE. DTSTOP02 00341 WRITE XEROX-REPORT2 FROM MAIL-LINE DTSTOP02 00342 AFTER ADVANCING 1 LINE. DTSTOP02 00343 WRITE XEROX-REPORT2 FROM MAIL-LINE AFTER ADVANCING 13. DTSTOP02 00344 WRITE XEROX-REPORT2 FROM ROUTE-INFO-LINE1 AFTER 1. DTSTOP02 00345 WRITE XEROX-REPORT2 FROM ROUTE-INFO-LINE2 AFTER 1. DTSTOP02 00346 WRITE XEROX-REPORT2 FROM ROUTE-INFO-LINE3 AFTER 1 DTSTOP02 00347 WRITE XEROX-REPORT2 FROM ROUTE-INFO-LINE4 AFTER 1. DTSTOP02 00348 WRITE XEROX-REPORT2 FROM ROUTE-INFO-LINE5 AFTER 1. DTSTOP02 00349 WRITE XEROX-REPORT2 FROM MAIL-LINE DTSTOP02 00350 AFTER ADVANCING TOP-OF-PAGE. DTSTOP02 00351 WRITE XEROX-REPORT2 FROM MAIL-LINE DTSTOP02 00352 AFTER ADVANCING 1 LINE. DTSTOP02 00353 DTSTOP02 00354 DTSTOP02 00355 WRITE XEROX-REPORT3 FROM XEROX-CNTL-LINE3 DTSTOP02 00356 AFTER ADVANCING TOP-OF-PAGE. DTSTOP02 00357 WRITE XEROX-REPORT3 FROM MAIL-LINE AFTER ADVANCING 13. DTSTOP02 00358 WRITE XEROX-REPORT3 FROM ROUTE-INFO-LINE1 AFTER 1. DTSTOP02 00359 WRITE XEROX-REPORT3 FROM ROUTE-INFO-LINE2 AFTER 1. DTSTOP02 00360 WRITE XEROX-REPORT3 FROM ROUTE-INFO-LINE3 AFTER 1 DTSTOP02 00361 WRITE XEROX-REPORT3 FROM ROUTE-INFO-LINE4 AFTER 1. DTSTOP02 00362 WRITE XEROX-REPORT3 FROM ROUTE-INFO-LINE5 AFTER 1. DTSTOP02 00363 WRITE XEROX-REPORT3 FROM MAIL-LINE DTSTOP02 00364 AFTER ADVANCING TOP-OF-PAGE. DTSTOP02 00365 DTSTOP02 00366 WRITE XEROX-REPORT3 FROM MAIL-LINE DTSTOP02 00367 AFTER ADVANCING 1 LINE. DTSTOP02 00368 WRITE XEROX-REPORT4 FROM XEROX-CNTL-LINE3 DTSTOP02 00369 AFTER ADVANCING TOP-OF-PAGE. DTSTOP02 00370 WRITE XEROX-REPORT4 FROM MAIL-LINE DTSTOP02 00371 AFTER ADVANCING 1 LINE. DTSTOP02 00372 WRITE XEROX-REPORT4 FROM MAIL-LINE AFTER ADVANCING 13. DTSTOP02 00373 WRITE XEROX-REPORT4 FROM ROUTE-INFO-LINE1 AFTER 1. DTSTOP02 00374 WRITE XEROX-REPORT4 FROM ROUTE-INFO-LINE2 AFTER 1. DTSTOP02 00375 WRITE XEROX-REPORT4 FROM ROUTE-INFO-LINE3 AFTER 1 DTSTOP02 00376 WRITE XEROX-REPORT4 FROM ROUTE-INFO-LINE4 AFTER 1. DTSTOP02 00377 WRITE XEROX-REPORT4 FROM ROUTE-INFO-LINE5 AFTER 1. DTSTOP02 00378 WRITE XEROX-REPORT4 FROM MAIL-LINE DTSTOP02 00379 AFTER ADVANCING TOP-OF-PAGE. DTSTOP02 00380 WRITE XEROX-REPORT4 FROM MAIL-LINE DTSTOP02 00381 AFTER ADVANCING 1 LINE. DTSTOP02 00382 DTSTOP02 00383 WRITE XEROX-REPORT5 FROM XEROX-CNTL-LINE3 DTSTOP02 00384 AFTER ADVANCING TOP-OF-PAGE. DTSTOP02 00385 WRITE XEROX-REPORT5 FROM MAIL-LINE AFTER ADVANCING 13. DTSTOP02 00386 WRITE XEROX-REPORT5 FROM ROUTE-INFO-LINE1 AFTER 1. DTSTOP02 00387 WRITE XEROX-REPORT5 FROM ROUTE-INFO-LINE2 AFTER 1. DTSTOP02 00388 WRITE XEROX-REPORT5 FROM ROUTE-INFO-LINE3 AFTER 1 DTSTOP02 00389 WRITE XEROX-REPORT5 FROM ROUTE-INFO-LINE4 AFTER 1. DTSTOP02 00390 WRITE XEROX-REPORT5 FROM ROUTE-INFO-LINE5 AFTER 1. DTSTOP02 00391 WRITE XEROX-REPORT5 FROM MAIL-LINE DTSTOP02 00392 AFTER ADVANCING TOP-OF-PAGE. DTSTOP02 00393 WRITE XEROX-REPORT5 FROM MAIL-LINE DTSTOP02 00394 AFTER ADVANCING 1 LINE. DTSTOP02 00395 DTSTOP02 00396 DTSTOP02 00397 WRITE XEROX-REPORT6 FROM XEROX-CNTL-LINE3 DTSTOP02 00398 AFTER ADVANCING TOP-OF-PAGE. DTSTOP02 00399 WRITE XEROX-REPORT6 FROM MAIL-LINE AFTER ADVANCING 13. DTSTOP02 00400 WRITE XEROX-REPORT6 FROM ROUTE-INFO-LINE1 AFTER 1. DTSTOP02 00401 WRITE XEROX-REPORT6 FROM ROUTE-INFO-LINE2 AFTER 1. DTSTOP02 00402 WRITE XEROX-REPORT6 FROM ROUTE-INFO-LINE3 AFTER 1 DTSTOP02 00403 WRITE XEROX-REPORT6 FROM ROUTE-INFO-LINE4 AFTER 1. DTSTOP02 00404 WRITE XEROX-REPORT6 FROM ROUTE-INFO-LINE5 AFTER 1. DTSTOP02 00405 WRITE XEROX-REPORT6 FROM MAIL-LINE DTSTOP02 00406 AFTER ADVANCING TOP-OF-PAGE. DTSTOP02 00407 WRITE XEROX-REPORT6 FROM MAIL-LINE DTSTOP02 00408 AFTER ADVANCING 1 LINE. DTSTOP02 00409 DTSTOP02 00410 I1000-EXIT. DTSTOP02 00411 EXIT. DTSTOP02 00412 DTSTOP02 00413 P1000-PROCESS. DTSTOP02 00414 READ TOP-FILE INTO TOP-LET AT END MOVE 'Y' TO TOP-EOF CL*32 00415 GO TO P1000-EXIT. DTSTOP02 00416 DTSTOP02 00417 DTSTOP02 00418 * MOVE LRCM-SYS-8-DATE TO DTL-DATE. DTSTOP02 00419 MOVE '10/13/2022' TO DTL-DATE. CL**2 00420 ADD 1 TO REC-COUNT. DTSTOP02 00421 MOVE LET-EMP-NAME TO DTZ-EMP-NAME CL*33 00422 * IF LET-EMP-ADDRESS-2 > SPACES CL*32 00423 MOVE LET-EMP-ADDR1 TO DTZ-EMP-ADDR1 CL*33 00424 MOVE LET-EMP-ADDR2 TO DTZ-EMP-ADDR2 CL*33 00425 * ELSE CL*32 00426 * MOVE TOP-EMP-ADDRESS-1 TO DTZ-EMP-ADDR2 CL*32 00427 * MOVE SPACES TO DTZ-EMP-ADDR1 CL*32 00428 MOVE LET-EMP-CITZ TO DTZ-EMP-CITY CL*33 00429 MOVE LET-EMP-ST TO DTZ-EMP-ST CL*33 00430 MOVE LET-EMP-ZIPP TO WRK-EMP-ZIP CL*33 00431 MOVE WRK-EMP-ZIPA TO DTZ-EMP-ZIPA. DTSTOP02 00432 CL*32 00433 IF WRK-EMP-ZIPB = SPACES CL*27 00434 MOVE SPACES TO FILLERZ CL*27 00435 ELSE CL*27 00436 MOVE '-' TO FILLERZ. CL*27 00437 MOVE WRK-EMP-ZIPB TO DTZ-EMP-ZIPB. CL*27 00438 MOVE LET-EMP-FEIN TO DTZ-EMP-FEIN CL*33 00439 * MOVE TOP-AMOUNT-2 TO DTZ-EMP-AMT TOP-EMP-AMT. CL*20 00440 MOVE LET-EMP-AMT TO WS-AMT CL*33 00441 MOVE WS-AMT TO WS-AMT-DISP. CL*25 00442 MOVE WS-AMT-DISP TO DTZ-EMP-AMT CL*32 00443 DISPLAY 'TAMT: ' TOP-AMOUNT-2 CL**7 00444 DISPLAY 'WAMT: ' WS-AMT CL*25 00445 DISPLAY 'DISP: ' WS-AMT-DISP. CL*25 00446 * DISPLAY 'XAMC: ' WS-AMT-C CL*19 00447 * DISPLAY 'ZAMT: ' WS-AMTZ CL*19 00448 * DISPLAY 'TDTZ: ' DTZ-EMP-AMT CL*19 00449 * DISPLAY 'RAMT: ' DTZ-EMP-AMT CL*19 00450 PERFORM P2000-PRINT-LETTER THRU P2000-EXIT. DTSTOP02 00451 * WRITE TOPOUT-REC FROM TOPOUT. CL*32 00452 * PERFORM P2100-PRINT-APPLIC THRU P2100-EXIT. DTSTOP02 00453 PERFORM P1500-SELF-MAILER-RTN THRU P1500-EXIT. DTSTOP02 00454 DTSTOP02 00455 * IF REC-COUNT > 5 DTSTOP02 00456 * SET LRCM-EOR-88 TO TRUE. DTSTOP02 00457 P1000-EXIT. DTSTOP02 00458 EXIT. DTSTOP02 00459 DTSTOP02 00460 P1500-SELF-MAILER-RTN. DTSTOP02 00461 DTSTOP02 00462 * MOVE R909-FMT-LINE(1) TO WS-ADDR-FMT-LINE-1. DTSTOP02 00463 * MOVE R909-FMT-LINE(2) TO WS-ADDR-FMT-LINE-2. DTSTOP02 00464 * MOVE R909-FMT-LINE(3) TO WS-ADDR-FMT-LINE-3. DTSTOP02 00465 * MOVE R909-FMT-LINE(4) TO WS-ADDR-FMT-LINE-4. DTSTOP02 00466 * MOVE R909-FMT-LINE(5) TO WS-ADDR-FMT-LINE-5. DTSTOP02 00467 PERFORM P3000-PRINT-MAIL-ADDR THRU P3000-EXIT. DTSTOP02 00468 DTSTOP02 00469 P1500-EXIT. DTSTOP02 00470 EXIT. DTSTOP02 00471 DTSTOP02 00472 P2000-PRINT-LETTER. DTSTOP02 00473 * IF REC-COUNT > 0 AND < 59999 DTSTOP02 00474 * IF REC-COUNT > 0 AND < 5000 DTSTOP02 00475 WRITE XEROX-REPORT FROM MAIL-LINE DTSTOP02 00476 AFTER ADVANCING TOP-OF-PAGE DTSTOP02 00477 WRITE XEROX-REPORT FROM MAIL-LINE DTSTOP02 00478 AFTER ADVANCING 5 LINES DTSTOP02 00479 WRITE XEROX-REPORT FROM DTZ-LINE-2 DTSTOP02 00480 AFTER ADVANCING 3 LINE DTSTOP02 00481 WRITE XEROX-REPORT FROM DTZ-LINE-3 DTSTOP02 00482 AFTER ADVANCING 1 LINE DTSTOP02 00483 WRITE XEROX-REPORT FROM DTZ-LINE-4 DTSTOP02 00484 AFTER ADVANCING 1 LINE DTSTOP02 00485 WRITE XEROX-REPORT FROM DTZ-LINE-5 DTSTOP02 00486 AFTER ADVANCING 1 LINE DTSTOP02 00487 WRITE XEROX-REPORT FROM DTZ-LINE-6 DTSTOP02 00488 AFTER ADVANCING 3 LINE DTSTOP02 00489 WRITE XEROX-REPORT FROM DTZ-LINE-7 DTSTOP02 00490 AFTER ADVANCING 2 LINE DTSTOP02 00491 * WRITE XEROX-REPORT FROM DTL-LINE-8 DTSTOP02 00492 * AFTER ADVANCING 1 LINE DTSTOP02 00493 * WRITE XEROX-REPORT7 FROM RPT7-LINE. DTSTOP02 00494 GO TO P2000-EXIT. DTSTOP02 00495 IF REC-COUNT > 4999 AND < 10000 DTSTOP02 00496 WRITE XEROX-REPORT2 FROM MAIL-LINE DTSTOP02 00497 AFTER ADVANCING TOP-OF-PAGE DTSTOP02 00498 WRITE XEROX-REPORT2 FROM MAIL-LINE DTSTOP02 00499 AFTER ADVANCING 1 LINE DTSTOP02 00500 ELSE DTSTOP02 00501 IF REC-COUNT > 9999 AND < 15000 DTSTOP02 00502 WRITE XEROX-REPORT3 FROM MAIL-LINE DTSTOP02 00503 AFTER ADVANCING TOP-OF-PAGE DTSTOP02 00504 WRITE XEROX-REPORT3 FROM MAIL-LINE DTSTOP02 00505 AFTER ADVANCING 1 LINE DTSTOP02 00506 ELSE DTSTOP02 00507 IF REC-COUNT > 14999 AND < 20000 DTSTOP02 00508 WRITE XEROX-REPORT4 FROM MAIL-LINE DTSTOP02 00509 AFTER ADVANCING TOP-OF-PAGE DTSTOP02 00510 WRITE XEROX-REPORT4 FROM MAIL-LINE DTSTOP02 00511 AFTER ADVANCING 1 LINE DTSTOP02 00512 ELSE DTSTOP02 00513 IF REC-COUNT > 19999 AND < 25000 DTSTOP02 00514 WRITE XEROX-REPORT5 FROM MAIL-LINE DTSTOP02 00515 AFTER ADVANCING TOP-OF-PAGE DTSTOP02 00516 WRITE XEROX-REPORT5 FROM MAIL-LINE DTSTOP02 00517 AFTER ADVANCING 1 LINE DTSTOP02 00518 ELSE DTSTOP02 00519 IF REC-COUNT > 24999 AND < 30000 DTSTOP02 00520 WRITE XEROX-REPORT6 FROM MAIL-LINE DTSTOP02 00521 AFTER ADVANCING TOP-OF-PAGE DTSTOP02 00522 WRITE XEROX-REPORT6 FROM MAIL-LINE DTSTOP02 00523 AFTER ADVANCING 1 LINE. DTSTOP02 00524 DTSTOP02 00525 P2000-EXIT. DTSTOP02 00526 EXIT. DTSTOP02 00527 DTSTOP02 00528 P3000-PRINT-MAIL-ADDR. DTSTOP02 00529 WRITE XEROX-REPORT FROM MAIL-LINE DTSTOP02 00530 AFTER ADVANCING TOP-OF-PAGE DTSTOP02 00531 * WRITE XEROX-REPORT FROM MAIL-LINE AFTER ADVANCING 13 LINES DTSTOP02 00532 * WRITE XEROX-REPORT FROM MAIL-ADDR-LINE-1 DTSTOP02 00533 * AFTER ADVANCING 2 LINE DTSTOP02 00534 * WRITE XEROX-REPORT FROM MAIL-ADDR-LINE-2 DTSTOP02 00535 * AFTER ADVANCING 1 LINE DTSTOP02 00536 * WRITE XEROX-REPORT FROM MAIL-ADDR-LINE-3 DTSTOP02 00537 * AFTER ADVANCING 1 LINE DTSTOP02 00538 * WRITE XEROX-REPORT FROM MAIL-ADDR-LINE-4 DTSTOP02 00539 * AFTER ADVANCING 1 LINE DTSTOP02 00540 * WRITE XEROX-REPORT FROM MAIL-ADDR-LINE-5 DTSTOP02 00541 * AFTER ADVANCING 1 LINE DTSTOP02 00542 GO TO P3000-EXIT. DTSTOP02 00543 IF REC-COUNT > 4999 AND < 10000 DTSTOP02 00544 WRITE XEROX-REPORT2 FROM MAIL-LINE DTSTOP02 00545 AFTER ADVANCING TOP-OF-PAGE DTSTOP02 00546 WRITE XEROX-REPORT2 FROM MAIL-LINE AFTER ADVANCING 15 LINES DTSTOP02 00547 WRITE XEROX-REPORT2 FROM MAIL-ADDR-LINE-1 DTSTOP02 00548 AFTER ADVANCING 1 LINE DTSTOP02 00549 WRITE XEROX-REPORT2 FROM MAIL-ADDR-LINE-2 DTSTOP02 00550 AFTER ADVANCING 1 LINE DTSTOP02 00551 WRITE XEROX-REPORT2 FROM MAIL-ADDR-LINE-3 DTSTOP02 00552 AFTER ADVANCING 1 LINE DTSTOP02 00553 WRITE XEROX-REPORT2 FROM MAIL-ADDR-LINE-4 DTSTOP02 00554 AFTER ADVANCING 1 LINE DTSTOP02 00555 WRITE XEROX-REPORT2 FROM MAIL-ADDR-LINE-5 DTSTOP02 00556 AFTER ADVANCING 1 LINE DTSTOP02 00557 ELSE DTSTOP02 00558 IF REC-COUNT > 9999 AND < 15000 DTSTOP02 00559 WRITE XEROX-REPORT3 FROM MAIL-LINE DTSTOP02 00560 AFTER ADVANCING TOP-OF-PAGE DTSTOP02 00561 WRITE XEROX-REPORT3 FROM MAIL-LINE AFTER ADVANCING 15 LINES DTSTOP02 00562 WRITE XEROX-REPORT3 FROM MAIL-ADDR-LINE-1 DTSTOP02 00563 AFTER ADVANCING 1 LINE DTSTOP02 00564 WRITE XEROX-REPORT3 FROM MAIL-ADDR-LINE-2 DTSTOP02 00565 AFTER ADVANCING 1 LINE DTSTOP02 00566 WRITE XEROX-REPORT3 FROM MAIL-ADDR-LINE-3 DTSTOP02 00567 AFTER ADVANCING 1 LINE DTSTOP02 00568 WRITE XEROX-REPORT3 FROM MAIL-ADDR-LINE-4 DTSTOP02 00569 AFTER ADVANCING 1 LINE DTSTOP02 00570 WRITE XEROX-REPORT3 FROM MAIL-ADDR-LINE-5 DTSTOP02 00571 AFTER ADVANCING 1 LINE DTSTOP02 00572 ELSE DTSTOP02 00573 IF REC-COUNT > 14999 AND < 20000 DTSTOP02 00574 WRITE XEROX-REPORT4 FROM MAIL-LINE DTSTOP02 00575 AFTER ADVANCING TOP-OF-PAGE DTSTOP02 00576 WRITE XEROX-REPORT4 FROM MAIL-LINE AFTER ADVANCING 15 LINES DTSTOP02 00577 WRITE XEROX-REPORT4 FROM MAIL-ADDR-LINE-1 DTSTOP02 00578 AFTER ADVANCING 1 LINE DTSTOP02 00579 WRITE XEROX-REPORT4 FROM MAIL-ADDR-LINE-2 DTSTOP02 00580 AFTER ADVANCING 1 LINE DTSTOP02 00581 WRITE XEROX-REPORT4 FROM MAIL-ADDR-LINE-3 DTSTOP02 00582 AFTER ADVANCING 1 LINE DTSTOP02 00583 WRITE XEROX-REPORT4 FROM MAIL-ADDR-LINE-4 DTSTOP02 00584 AFTER ADVANCING 1 LINE DTSTOP02 00585 WRITE XEROX-REPORT4 FROM MAIL-ADDR-LINE-5 DTSTOP02 00586 AFTER ADVANCING 1 LINE DTSTOP02 00587 ELSE DTSTOP02 00588 IF REC-COUNT > 19999 AND < 25000 DTSTOP02 00589 WRITE XEROX-REPORT5 FROM MAIL-LINE DTSTOP02 00590 AFTER ADVANCING TOP-OF-PAGE DTSTOP02 00591 WRITE XEROX-REPORT5 FROM MAIL-LINE AFTER ADVANCING 15 LINES DTSTOP02 00592 WRITE XEROX-REPORT5 FROM MAIL-ADDR-LINE-1 DTSTOP02 00593 AFTER ADVANCING 1 LINE DTSTOP02 00594 WRITE XEROX-REPORT5 FROM MAIL-ADDR-LINE-2 DTSTOP02 00595 AFTER ADVANCING 1 LINE DTSTOP02 00596 WRITE XEROX-REPORT5 FROM MAIL-ADDR-LINE-3 DTSTOP02 00597 AFTER ADVANCING 1 LINE DTSTOP02 00598 WRITE XEROX-REPORT5 FROM MAIL-ADDR-LINE-4 DTSTOP02 00599 AFTER ADVANCING 1 LINE DTSTOP02 00600 WRITE XEROX-REPORT5 FROM MAIL-ADDR-LINE-5 DTSTOP02 00601 AFTER ADVANCING 1 LINE DTSTOP02 00602 ELSE DTSTOP02 00603 IF REC-COUNT > 24999 AND < 30000 DTSTOP02 00604 WRITE XEROX-REPORT6 FROM MAIL-LINE DTSTOP02 00605 AFTER ADVANCING TOP-OF-PAGE DTSTOP02 00606 WRITE XEROX-REPORT6 FROM MAIL-LINE AFTER ADVANCING 15 LINES DTSTOP02 00607 WRITE XEROX-REPORT6 FROM MAIL-ADDR-LINE-1 DTSTOP02 00608 AFTER ADVANCING 1 LINE DTSTOP02 00609 WRITE XEROX-REPORT6 FROM MAIL-ADDR-LINE-2 DTSTOP02 00610 AFTER ADVANCING 1 LINE DTSTOP02 00611 WRITE XEROX-REPORT6 FROM MAIL-ADDR-LINE-3 DTSTOP02 00612 AFTER ADVANCING 1 LINE DTSTOP02 00613 WRITE XEROX-REPORT6 FROM MAIL-ADDR-LINE-4 DTSTOP02 00614 AFTER ADVANCING 1 LINE DTSTOP02 00615 WRITE XEROX-REPORT6 FROM MAIL-ADDR-LINE-5 DTSTOP02 00616 AFTER ADVANCING 1 LINE. DTSTOP02 00617 P3000-EXIT. DTSTOP02 00618 EXIT. DTSTOP02 00619 T1000-TERMINATE. DTSTOP02 00620 DTSTOP02 00621 CLOSE PRT-FILE6 DTSTOP02 00622 PRT-FILE5 DTSTOP02 00623 PRT-FILE4 DTSTOP02 00624 PRT-FILE3 DTSTOP02 00625 PRT-FILE2 DTSTOP02 00626 TOP-OUTFILE DTSTOP02 00627 PRT-FILE7 DTSTOP02 00628 PRT-FILE DTSTOP02 00629 TOP-FILE. DTSTOP02 00630 DTSTOP02 00631 T1000-EXIT. DTSTOP02 00632 EXIT. DTSTOP02 00633 DTSTOP02 00634 S119-AGY-FACTS. DTSTOP02 00635 DTSTOP02 00636 CALL 'DTSBU119' USING L119-LINK-AREA. DTSTOP02 00637 DTSTOP02 00638 S119-EXIT. DTSTOP02 00639 EXIT. DTSTOP02 00640 DTSTOP02 00641 *S999-ABEND. DTSTOP02 00642 * DTSTOP02 00643 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSTOP02 00644 * DTSTOP02 00645 *S999-EXIT. DTSTOP02 00646 * EXIT. DTSTOP02 00647 DTSTOP02