649 lines
51 KiB
COBOL
649 lines
51 KiB
COBOL
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
|