394 lines
31 KiB
COBOL
394 lines
31 KiB
COBOL
00001 IDENTIFICATION DIVISION. 11/20/09
|
|
00002 PROGRAM-ID. DTSBR615. DTSBR615
|
|
00003 AUTHOR. NGI. LV016
|
|
00004 DATE-WRITTEN. SEPTEMBER 1909. DTSBR615
|
|
00005 DATE-COMPILED. DTSBR615
|
|
00006 SKIP3 DTSBR615
|
|
00007 ***** DTSBR615
|
|
00008 * DTSBR615
|
|
00009 * DTSBR615
|
|
00010 * CALLING SEQUENCE: DTSBD300 CALLS DTSBR615
|
|
00011 * DTSDB330 WHICH UPDATES DTSIR615 DTSBR615
|
|
00012 * DTSBR615 READS DTSIR615 RECORDS. DTSBR615
|
|
00013 * DTSBR615
|
|
00014 * FUNCTION: EMPLOYER AUDIT NOTIFICATION NOTICE DTSBR615
|
|
00015 * DTSBR615
|
|
00016 * DTSBR615
|
|
00017 * MODIFICATION HISTORY: DTSBR615
|
|
00018 * DTSBR615
|
|
00019 * 09-15-09 INITIAL DEVELOPMENT DTSBR615
|
|
00020 * REFERENCE RFP #RAP AUTHOR OF CHANGE - ZL1 DTSBR615
|
|
00021 * DTSBR615
|
|
00022 * DTSBR615
|
|
00023 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR615
|
|
00024 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR615
|
|
00025 * REFERENCE: XXXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBR615
|
|
00026 * DTSBR615
|
|
00027 * DTSBR615
|
|
00028 * DESCRIPTION: DTSBR615
|
|
00029 * DTSBR615
|
|
00030 * THIS MODULE GENERATES AUDIT NOTICES FOR SELECTED DTSBR615
|
|
00031 * EMPLOYERS. ZL1 DTSBR615
|
|
00032 * DTSBR615
|
|
00033 * DTSBR615
|
|
00034 * RECORDS READ: DTSBR615
|
|
00035 * DTSBR615
|
|
00036 * NONE. DTSBR615
|
|
00037 * DTSBR615
|
|
00038 * DTSBR615
|
|
00039 * PRINTED OUTPUTS: DTSBR615
|
|
00040 * DTSBR615
|
|
00041 * 615R1 AUDIT NOTIFICATION NOTICE DTSBR615
|
|
00042 * DTSBR615
|
|
00043 * DTSBR615
|
|
00044 * RECORDS WRITTEN: DTSBR615
|
|
00045 * DTSBR615
|
|
00046 * NONE. DTSBR615
|
|
00047 * DTSBR615
|
|
00048 * DTSBR615
|
|
00049 * MODULES CALLED: DTSBR615
|
|
00050 * DTSBR615
|
|
00051 * DTSBU009 CONVERSION TO CAPS MODULE DTSBR615
|
|
00052 * DTSBU062 FIELD REP ID EDIT/DESCRIPTION MODULE DTSBR615
|
|
00053 * DTSBU071 NAME EDIT/CONVERSION MODULE DTSBR615
|
|
00054 * DTSBU082 OPERATOR ID EDIT/LOOKUP MODULE DTSBR615
|
|
00055 * DTSBU119 AGENCY FACTS MODULE DTSBR615
|
|
00056 * DTSBR615
|
|
00057 ***** DTSBR615
|
|
00058 EJECT DTSBR615
|
|
00059 ENVIRONMENT DIVISION. DTSBR615
|
|
00060 DTSBR615
|
|
00061 CONFIGURATION SECTION. DTSBR615
|
|
00062 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR615
|
|
00063 DTSBR615
|
|
00064 INPUT-OUTPUT SECTION. DTSBR615
|
|
00065 DTSBR615
|
|
00066 FILE-CONTROL. DTSBR615
|
|
00067 SELECT PRT-FILE ASSIGN TO RPT615R1. DTSBR615
|
|
00068 DTSBR615
|
|
00069 DATA DIVISION. DTSBR615
|
|
00070 DTSBR615
|
|
00071 FILE SECTION. DTSBR615
|
|
00072 DTSBR615
|
|
00073 FD PRT-FILE DTSBR615
|
|
00074 RECORDING MODE IS F DTSBR615
|
|
00075 BLOCK CONTAINS 0 RECORDS DTSBR615
|
|
00076 LABEL RECORDS ARE OMITTED. DTSBR615
|
|
00077 01 XEROX-REPORT. DTSBR615
|
|
00078 05 FILLER PIC X(1). DTSBR615
|
|
00079 05 XEROX-RPT PIC X(132). DTSBR615
|
|
00080 DTSBR615
|
|
00081 EJECT DTSBR615
|
|
00082 WORKING-STORAGE SECTION. DTSBR615
|
|
000825 77 PAN-VALET PICTURE X(24) VALUE '016DTSBR615 11/20/09'. DTSBR615
|
|
00083 DTSBR615
|
|
00084 01 WRK-AREA. DTSBR615
|
|
00085 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +615.DTSBR615
|
|
00086 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR615
|
|
00087 05 WRK-AUDIT-DATE PIC X(10) VALUE ZEROS. DTSBR615
|
|
00088 05 WRK-AUDIT-DATE9 REDEFINES WRK-AUDIT-DATE. DTSBR615
|
|
00089 10 WRK-AUDIT-MM PIC 9(02). DTSBR615
|
|
00090 10 FILLER PIC X. DTSBR615
|
|
00091 10 WRK-AUDIT-DD PIC 9(02). DTSBR615
|
|
00092 10 FILLER PIC X. DTSBR615
|
|
00093 10 WRK-AUDIT-YEAR PIC 9(04). DTSBR615
|
|
00094 DTSBR615
|
|
00095 05 WRK-AUDIT-YRQ PIC 9(5). DTSBR615
|
|
00096 05 WRK-AUDIT-YRQ9 REDEFINES WRK-AUDIT-YRQ. DTSBR615
|
|
00097 10 WRK-AUDIT-YR PIC 9(04). DTSBR615
|
|
00098 10 WRK-AUDIT-Q PIC 9(01). DTSBR615
|
|
00099 DTSBR615
|
|
00100 05 WRK-NOTICE-DATE. DTSBR615
|
|
00101 10 WRK-NOTICE-YEAR PIC 9(04). DTSBR615
|
|
00102 10 WRK-NOTICE-MM PIC 9(02). DTSBR615
|
|
00103 10 WRK-NOTICE-DD PIC 9(02). DTSBR615
|
|
00104 DTSBR615
|
|
00105 05 WRK-NOTICE-DATE9 REDEFINES DTSBR615
|
|
00106 WRK-NOTICE-DATE PIC 9(8). DTSBR615
|
|
00107 DTSBR615
|
|
00108 05 WRK-DISPLAY PIC 9(11). DTSBR615
|
|
00109 05 FILLER REDEFINES WRK-DISPLAY. DTSBR615
|
|
00110 10 FILLER PIC X(04). DTSBR615
|
|
00111 10 WRK-ASSIGN1 PIC X(02). DTSBR615
|
|
00112 10 WRK-ASSIGN2 PIC X(05). DTSBR615
|
|
00113 05 FILLER REDEFINES WRK-DISPLAY. DTSBR615
|
|
00114 10 FILLER PIC X(05). DTSBR615
|
|
00115 10 WRK-DISPLAY-HH PIC X(02). DTSBR615
|
|
00116 10 WRK-DISPLAY-MM PIC X(02). DTSBR615
|
|
00117 10 WRK-DISPLAY-SS PIC X(02). DTSBR615
|
|
00118 DTSBR615
|
|
00119 05 FILLER PIC X(10). DTSBR615
|
|
00120 DTSBR615
|
|
00121 01 VSCA-LINE. DTSBR615
|
|
00122 05 VSCA-DATA PIC X(133) VALUE SPACES. DTSBR615
|
|
00123 DTSBR615
|
|
00124 05 WS-FIELD-NAME-FIRST-MI PIC X(40) VALUE SPACE. DTSBR615
|
|
00125 05 WS-FIELD-NAME-LAST PIC X(40) VALUE SPACE. DTSBR615
|
|
00126 05 WS-ADDR-FMT-AREA PIC X(200) VALUE SPACE. DTSBR615
|
|
00127 05 WS-ADDR-FMT-AREA-X REDEFINES WS-ADDR-FMT-AREA. DTSBR615
|
|
00128 10 ADDR-FMT-LINE OCCURS 5 TIMES PIC X(40). DTSBR615
|
|
00129 DTSBR615
|
|
00130 EJECT DTSBR615
|
|
00131 01 L001-LINK-AREA. DTSBR615
|
|
00132 ++INCLUDE DTSIL001 DTSBR615
|
|
00133 EJECT DTSBR615
|
|
00134 01 L002-LINK-AREA. DTSBR615
|
|
00135 ++INCLUDE DTSIL002 DTSBR615
|
|
00136 EJECT DTSBR615
|
|
00137 01 L004-LINK-AREA. DTSBR615
|
|
00138 ++INCLUDE DTSIL004 DTSBR615
|
|
00139 EJECT DTSBR615
|
|
00140 01 L062-LINK-AREA. DTSBR615
|
|
00141 ++INCLUDE DTSIL062 DTSBR615
|
|
00142 EJECT DTSBR615
|
|
00143 01 L071-LINK-AREA. DTSBR615
|
|
00144 ++INCLUDE DTSIL071 DTSBR615
|
|
00145 EJECT DTSBR615
|
|
00146 ++INCLUDE DTSXL615 DTSBR615
|
|
00147 DTSBR615
|
|
00148 01 XEROX-DETAIL-LINE1. DTSBR615
|
|
00149 10 FILLER PIC X(60) VALUE SPACES.DTSBR615
|
|
00150 10 XRX-DATE PIC X(30) VALUE SPACES.DTSBR615
|
|
00151 10 FILLER PIC X(06) VALUE SPACES.DTSBR615
|
|
00152 DTSBR615
|
|
00153 01 XEROX-DETAIL-LINE2. DTSBR615
|
|
00154 10 FILLER PIC X(05) VALUE SPACES.DTSBR615
|
|
00155 10 XRX-ADDRL1 PIC X(40) VALUE SPACES.DTSBR615
|
|
00156 01 XEROX-DETAIL-LINE3. DTSBR615
|
|
00157 10 FILLER PIC X(05) VALUE SPACES.DTSBR615
|
|
00158 10 XRX-ADDRL2 PIC X(40) VALUE SPACES.DTSBR615
|
|
00159 01 XEROX-DETAIL-LINE4. DTSBR615
|
|
00160 10 FILLER PIC X(05) VALUE SPACES.DTSBR615
|
|
00161 10 XRX-ADDRL3 PIC X(40) VALUE SPACES.DTSBR615
|
|
00162 01 XEROX-DETAIL-LINE5. DTSBR615
|
|
00163 10 FILLER PIC X(05) VALUE SPACES.DTSBR615
|
|
00164 10 XRX-ADDRL4 PIC X(40) VALUE SPACES.DTSBR615
|
|
00165 01 XEROX-DETAIL-LINE6. DTSBR615
|
|
00166 10 FILLER PIC X(05) VALUE SPACES.DTSBR615
|
|
00167 10 XRX-ADDRL5 PIC X(40) VALUE SPACES.DTSBR615
|
|
00168 01 XEROX-DETAIL-LINE7. DTSBR615
|
|
00169 10 FILLER PIC X(25) VALUE SPACES.DTSBR615
|
|
00170 10 XRX-EMP-NO PIC 999B999. DTSBR615
|
|
00171 10 FILLER PIC X(38) VALUE SPACES.DTSBR615
|
|
00172 10 XRX-ASSIGN-NO1 PIC X(02). DTSBR615
|
|
00173 10 FILLER PIC X(01) VALUE SPACES.DTSBR615
|
|
00174 10 XRX-ASSIGN-NO2 PIC X(05). DTSBR615
|
|
00175 01 XEROX-DETAIL-LINE8. DTSBR615
|
|
00176 10 FILLER PIC X(29) VALUE SPACES.DTSBR615
|
|
00177 10 XRX-FLD-EXAM PIC X(32) VALUE SPACES.DTSBR615
|
|
00178 01 XEROX-DETAIL-LINE9. DTSBR615
|
|
00179 10 FILLER PIC X(38) VALUE SPACES.DTSBR615
|
|
00180 10 XRX-START-YR PIC 9999. DTSBR615
|
|
00181 10 FILLER PIC X(22) VALUE SPACES.DTSBR615
|
|
00182 10 XRX-END-YR PIC 9999. DTSBR615
|
|
00183 10 FILLER PIC X(01) VALUE '.'. DTSBR615
|
|
00184 01 XEROX-DETAIL-LINE95. DTSBR615
|
|
00185 10 FILLER PIC X(28) VALUE SPACES.DTSBR615
|
|
00186 10 XRX-SCHED-DATE PIC X(30) VALUE SPACES.DTSBR615
|
|
00187 10 FILLER PIC X(06) VALUE SPACES.DTSBR615
|
|
00188 DTSBR615
|
|
00189 01 XEROX-DETAIL-LINE97. DTSBR615
|
|
00190 10 FILLER PIC X(28) VALUE SPACES.DTSBR615
|
|
00191 10 XRX-SCHED-TIME. DTSBR615
|
|
00192 15 XRX-TIME-HH PIC X(02) VALUE SPACES.DTSBR615
|
|
00193 15 FILLER PIC X(01) VALUE ':'. DTSBR615
|
|
00194 15 XRX-TIME-MM PIC X(02) VALUE SPACES.DTSBR615
|
|
00195 15 FILLER PIC X(01) VALUE ' '. DTSBR615
|
|
00196 15 XRX-TIME-AP PIC X(02) VALUE SPACES.DTSBR615
|
|
00197 10 FILLER PIC X(06) VALUE SPACES.DTSBR615
|
|
00198 DTSBR615
|
|
00199 01 XEROX-DETAIL-LINE96. DTSBR615
|
|
00200 10 FILLER PIC X(28) VALUE SPACES.DTSBR615
|
|
00201 10 XRX-VISIT PIC X(50) VALUE SPACES.DTSBR615
|
|
00202 10 FILLER PIC X(06) VALUE SPACES.DTSBR615
|
|
00203 DTSBR615
|
|
00204 01 XEROX-DETAIL-LINE10. DTSBR615
|
|
00205 10 FILLER PIC X(53) VALUE SPACES.DTSBR615
|
|
00206 10 XRX-FLD-REP PIC X(32) VALUE SPACES.DTSBR615
|
|
00207 01 XEROX-DETAIL-LINE11. DTSBR615
|
|
00208 10 FILLER PIC X(53) VALUE SPACES.DTSBR615
|
|
00209 10 XRX-FLD-REP-AREA PIC X(03) VALUE SPACES.DTSBR615
|
|
00210 10 FILLER PIC X(01) VALUE '.'. DTSBR615
|
|
00211 10 XRX-FLD-REP-DIST PIC X(03) VALUE SPACES.DTSBR615
|
|
00212 10 FILLER PIC X(01) VALUE '.'. DTSBR615
|
|
00213 10 XRX-FLD-REP-PHONE PIC X(04) VALUE SPACES.DTSBR615
|
|
00214 10 FILLER PIC X(09) VALUE SPACES.DTSBR615
|
|
00215 DTSBR615
|
|
00216 EJECT DTSBR615
|
|
00217 LINKAGE SECTION. DTSBR615
|
|
00218 DTSBR615
|
|
00219 01 LRCM-LINK-AREA. DTSBR615
|
|
00220 ++INCLUDE DTSILRCM DTSBR615
|
|
00221 EJECT DTSBR615
|
|
00222 01 R615-REC. DTSBR615
|
|
00223 ++INCLUDE DTSIR615 DTSBR615
|
|
00224 EJECT DTSBR615
|
|
00225 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR615
|
|
00226 R615-REC. DTSBR615
|
|
00227 IF FIRST-TIME-IND = 'Y' DTSBR615
|
|
00228 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR615
|
|
00229 MOVE 'N' TO FIRST-TIME-IND. DTSBR615
|
|
00230 DTSBR615
|
|
00231 IF LRCM-EOR-88 DTSBR615
|
|
00232 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR615
|
|
00233 ELSE DTSBR615
|
|
00234 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR615
|
|
00235 DTSBR615
|
|
00236 GOBACK. DTSBR615
|
|
00237 EJECT DTSBR615
|
|
00238 I1000-INITIATE. DTSBR615
|
|
00239 DTSBR615
|
|
00240 OPEN OUTPUT PRT-FILE. DTSBR615
|
|
00241 MOVE SPACES TO XEROX-REPORT. DTSBR615
|
|
00242 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE18 DTSBR615
|
|
00243 AFTER ADVANCING TOP-OF-PAGE. DTSBR615
|
|
00244 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE19 DTSBR615
|
|
00245 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE20. DTSBR615
|
|
00246 DTSBR615
|
|
00247 DTSBR615
|
|
00248 I1000-EXIT. DTSBR615
|
|
00249 EXIT. DTSBR615
|
|
00250 DTSBR615
|
|
00251 P1000-PROCESS. DTSBR615
|
|
00252 MOVE LRCM-SYS-8-DATE TO WRK-AUDIT-DATE. DTSBR615
|
|
00253 MOVE WRK-AUDIT-YEAR TO WRK-NOTICE-YEAR DTSBR615
|
|
00254 MOVE WRK-AUDIT-MM TO WRK-NOTICE-MM DTSBR615
|
|
00255 MOVE WRK-AUDIT-DD TO WRK-NOTICE-DD DTSBR615
|
|
00256 MOVE WRK-NOTICE-DATE9 TO L002-DATE. DTSBR615
|
|
00257 PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR615
|
|
00258 MOVE L002-LONG-TEXT-AREA TO XRX-DATE. DTSBR615
|
|
00259 DTSBR615
|
|
00260 MOVE R615-AUDIT-SCHED-DATE TO L002-DATE. DTSBR615
|
|
00261 PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR615
|
|
00262 MOVE L002-LONG-TEXT-AREA TO XRX-SCHED-DATE. DTSBR615
|
|
00263 DTSBR615
|
|
00264 MOVE R615-AUDIT-SCHED-TIME TO WRK-DISPLAY. DTSBR615
|
|
00265 DISPLAY 'TIME ' WRK-DISPLAY. DTSBR615
|
|
00266 DTSBR615
|
|
00267 MOVE WRK-DISPLAY-HH TO XRX-TIME-HH. DTSBR615
|
|
00268 MOVE WRK-DISPLAY-MM TO XRX-TIME-MM. DTSBR615
|
|
00269 IF XRX-TIME-HH < '12' DTSBR615
|
|
00270 MOVE 'AM' TO XRX-TIME-AP DTSBR615
|
|
00271 ELSE DTSBR615
|
|
00272 MOVE 'PM' TO XRX-TIME-AP. DTSBR615
|
|
00273 DTSBR615
|
|
00274 MOVE R615-AUDIT-START-YRQ TO WRK-AUDIT-YRQ. DTSBR615
|
|
00275 MOVE WRK-AUDIT-YR TO XRX-START-YR. DTSBR615
|
|
00276 DTSBR615
|
|
00277 MOVE R615-AUDIT-END-YRQ TO WRK-AUDIT-YRQ. DTSBR615
|
|
00278 MOVE WRK-AUDIT-YR TO XRX-END-YR. DTSBR615
|
|
00279 MOVE R615-ASSIGN-NO TO WRK-DISPLAY. DTSBR615
|
|
00280 MOVE WRK-ASSIGN1 TO XRX-ASSIGN-NO1. DTSBR615
|
|
00281 MOVE WRK-ASSIGN2 TO XRX-ASSIGN-NO2. DTSBR615
|
|
00282 MOVE R615-FMT-LINE (1) TO XRX-ADDRL1. DTSBR615
|
|
00283 MOVE R615-FMT-LINE (2) TO XRX-ADDRL2. DTSBR615
|
|
00284 MOVE R615-FMT-LINE (3) TO XRX-ADDRL3. DTSBR615
|
|
00285 MOVE R615-FMT-LINE (4) TO XRX-ADDRL4. DTSBR615
|
|
00286 MOVE R615-FMT-LINE (5) TO XRX-ADDRL5. DTSBR615
|
|
00287 DTSBR615
|
|
00288 STRING DTSBR615
|
|
00289 R615-FMT-LINE(4) DELIMITED BY ' ' DTSBR615
|
|
00290 ', ' DELIMITED BY SIZE DTSBR615
|
|
00291 R615-FMT-LINE(5) DELIMITED BY ' ' DTSBR615
|
|
00292 '.' DELIMITED BY SIZE DTSBR615
|
|
00293 INTO XRX-VISIT. DTSBR615
|
|
00294 DTSBR615
|
|
00295 MOVE R615-EMP-NO TO XRX-EMP-NO. DTSBR615
|
|
00296 MOVE R615-FIELD-REP-ID TO L062-FLD-REP-ID. DTSBR615
|
|
00297 PERFORM S062-FLD-REP-LOOKUP THRU S062-EXIT. DTSBR615
|
|
00298 DTSBR615
|
|
00299 MOVE L062-NAME TO L071-NAM DTSBR615
|
|
00300 SET L071-FROM-LAST-NAME-FIRST TO TRUE DTSBR615
|
|
00301 PERFORM S071-DESLASH-NAME THRU S071-EXIT DTSBR615
|
|
00302 MOVE L071-NAM TO XRX-FLD-REP DTSBR615
|
|
00303 XRX-FLD-EXAM. DTSBR615
|
|
00304 MOVE L062-VOICE-1-AREA-CD TO XRX-FLD-REP-AREA DTSBR615
|
|
00305 MOVE L062-VOICE-1-PREFIX TO XRX-FLD-REP-DIST DTSBR615
|
|
00306 MOVE L062-VOICE-1-SUFFIX TO XRX-FLD-REP-PHONE. DTSBR615
|
|
00307 DTSBR615
|
|
00308 WRITE XEROX-REPORT FROM VSCA-LINE DTSBR615
|
|
00309 AFTER ADVANCING TOP-OF-PAGE DTSBR615
|
|
00310 WRITE XEROX-REPORT DTSBR615
|
|
00311 FROM VSCA-LINE AFTER ADVANCING 06. DTSBR615
|
|
00312 DTSBR615
|
|
00313 WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE1 DTSBR615
|
|
00314 AFTER ADVANCING 7 LINE DTSBR615
|
|
00315 WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE2 DTSBR615
|
|
00316 AFTER ADVANCING 1 LINE DTSBR615
|
|
00317 WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE3 DTSBR615
|
|
00318 AFTER ADVANCING 1 LINE DTSBR615
|
|
00319 WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE4 DTSBR615
|
|
00320 AFTER ADVANCING 1 LINE DTSBR615
|
|
00321 WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE5 DTSBR615
|
|
00322 AFTER ADVANCING 1 LINE DTSBR615
|
|
00323 WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE6 DTSBR615
|
|
00324 AFTER ADVANCING 1 LINE DTSBR615
|
|
00325 WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE7 DTSBR615
|
|
00326 AFTER ADVANCING 3 LINE DTSBR615
|
|
00327 WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE8 DTSBR615
|
|
00328 AFTER ADVANCING 8 LINE DTSBR615
|
|
00329 WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE9 DTSBR615
|
|
00330 AFTER ADVANCING 1 LINE DTSBR615
|
|
00331 WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE95 DTSBR615
|
|
00332 AFTER ADVANCING 1 LINE DTSBR615
|
|
00333 WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE97 DTSBR615
|
|
00334 AFTER ADVANCING 1 LINE DTSBR615
|
|
00335 WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE96 DTSBR615
|
|
00336 AFTER ADVANCING 1 LINE DTSBR615
|
|
00337 WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE10 DTSBR615
|
|
00338 AFTER ADVANCING 22 LINE DTSBR615
|
|
00339 WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE11 DTSBR615
|
|
00340 AFTER ADVANCING 2 LINE. DTSBR615
|
|
00341 DTSBR615
|
|
00342 P1000-EXIT. DTSBR615
|
|
00343 EXIT. DTSBR615
|
|
00344 DTSBR615
|
|
00345 T1000-TERMINATE. DTSBR615
|
|
00346 DTSBR615
|
|
00347 CLOSE PRT-FILE. DTSBR615
|
|
00348 DTSBR615
|
|
00349 T1000-EXIT. DTSBR615
|
|
00350 EXIT. DTSBR615
|
|
00351 DTSBR615
|
|
00352 S001-FROM-FED-8. DTSBR615
|
|
00353 DTSBR615
|
|
00354 SET L001-FROM-FED-8 TO TRUE. DTSBR615
|
|
00355 DTSBR615
|
|
00356 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR615
|
|
00357 DTSBR615
|
|
00358 S001-EXIT. DTSBR615
|
|
00359 EXIT. DTSBR615
|
|
00360 S002-MIXED-CASE. DTSBR615
|
|
00361 SET L002-UPPER-CASE TO TRUE. DTSBR615
|
|
00362 CALL 'DTSBU002' USING L002-LINK-AREA. DTSBR615
|
|
00363 S002-EXIT. DTSBR615
|
|
00364 EXIT. DTSBR615
|
|
00365 SKIP3 DTSBR615
|
|
00366 S004-AUDIT-YRQ. DTSBR615
|
|
00367 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR615
|
|
00368 S004-EXIT. DTSBR615
|
|
00369 EXIT. DTSBR615
|
|
00370 SKIP3 DTSBR615
|
|
00371 DTSBR615
|
|
00372 S062-FLD-REP-LOOKUP. DTSBR615
|
|
00373 DTSBR615
|
|
00374 CALL 'DTSBU062' USING L062-LINK-AREA. DTSBR615
|
|
00375 DTSBR615
|
|
00376 S062-EXIT. DTSBR615
|
|
00377 EXIT. DTSBR615
|
|
00378 DTSBR615
|
|
00379 S071-DESLASH-NAME. DTSBR615
|
|
00380 CALL 'DTSBU071' USING L071-LINK-AREA. DTSBR615
|
|
00381 S071-EXIT. DTSBR615
|
|
00382 EXIT. DTSBR615
|
|
00383 SKIP3 DTSBR615
|
|
00384 DTSBR615
|
|
00385 DTSBR615
|
|
00386 S999-ABEND. DTSBR615
|
|
00387 DTSBR615
|
|
00388 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR615
|
|
00389 DTSBR615
|
|
00390 S999-EXIT. DTSBR615
|
|
00391 EXIT. DTSBR615
|
|
00392 DTSBR615
|