515 lines
41 KiB
COBOL
515 lines
41 KiB
COBOL
00001 IDENTIFICATION DIVISION. 11/02/00
|
|
00002 PROGRAM-ID. DTSBD570. DTSBD570
|
|
00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV004
|
|
00004 DATE-WRITTEN. DECEMBER 1997. DTSBD570
|
|
00005 DATE-COMPILED. DTSBD570
|
|
00006 SKIP3 DTSBD570
|
|
00007 ***** DTSBD570
|
|
00008 * DTSBD570
|
|
00009 * FUNCTION: EDIT/CONVERT ADDRESSES USING FINALIST. DTSBD570
|
|
00010 * DTSBD570
|
|
00011 * DTSBD570
|
|
00012 * MODIFICATION LOG: DTSBD570
|
|
00013 * DTSBD570
|
|
00014 * 12/27/97 INITIAL DEVELOPMENT. DTSBD570
|
|
00015 * WORK ORDER: TCL 214 PROGRAMMER: EHH DTSBD570
|
|
00016 * DTSBD570
|
|
00017 * 02/13/1999 REVIEWED AND MODIFIED FOR DC. DTSBD570
|
|
00018 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSBD570
|
|
00019 * DTSBD570
|
|
00020 * 09/20/2000 RECOMPILED FOR NEW VERSION(R720) OF FINALIST. DTSBD570
|
|
00021 * REFERENCE: DC DEVELOPMENT PROGRAMMER: ZL1 DTSBD570
|
|
00022 * DTSBD570
|
|
00023 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD570
|
|
00024 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD570
|
|
00025 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBD570
|
|
00026 * DTSBD570
|
|
00027 * DTSBD570
|
|
00028 * DESCRIPTION: DTSBD570
|
|
00029 * DTSBD570
|
|
00030 * DTSBD570
|
|
00031 * REPORT RECORDS OUTPUT: DTSBD570
|
|
00032 * DTSBD570
|
|
00033 * 746 BATCH ADDRESS UPDATE ADDRESS ERROR REPORT. DTSBD570
|
|
00034 * 747 BATCH ADDRESS UPDATE ADDRESS MODIFICATION REPORT. DTSBD570
|
|
00035 * DTSBD570
|
|
00036 * DTSBD570
|
|
00037 * TAPES INPUT: DTSBD570
|
|
00038 * DTSBD570
|
|
00039 * NONE. DTSBD570
|
|
00040 * DTSBD570
|
|
00041 * DTSBD570
|
|
00042 * MASTER FILE RECORDS READ: DTSBD570
|
|
00043 * DTSBD570
|
|
00044 * NONE. DTSBD570
|
|
00045 * DTSBD570
|
|
00046 * DTSBD570
|
|
00047 * MASTER FILE RECORDS UPDATED: DTSBD570
|
|
00048 * DTSBD570
|
|
00049 * NONE. DTSBD570
|
|
00050 * DTSBD570
|
|
00051 * DTSBD570
|
|
00052 * RECORDS WRITTEN: DTSBD570
|
|
00053 * DTSBD570
|
|
00054 * XLPC INTERFACE TO FINALIST MODULE. DTSBD570
|
|
00055 * DTSBD570
|
|
00056 * DTSBD570
|
|
00057 * MODULES CALLED: DTSBD570
|
|
00058 * DTSBD570
|
|
00059 * FINAL FINALIST INTERFACE. DTSBD570
|
|
00060 * DTSBD570
|
|
00061 * DTSBD570
|
|
00062 ***** DTSBD570
|
|
00063 SKIP3 DTSBD570
|
|
00064 ENVIRONMENT DIVISION. DTSBD570
|
|
00065 SKIP3 DTSBD570
|
|
00066 INPUT-OUTPUT SECTION. DTSBD570
|
|
00067 SKIP2 DTSBD570
|
|
00068 FILE-CONTROL. DTSBD570
|
|
00069 SELECT LPC-IN-FILE ASSIGN TO DTSLPCI. DTSBD570
|
|
00070 SELECT LPC-OUT-FILE ASSIGN TO DTSLPCO. DTSBD570
|
|
00071 DATA DIVISION. DTSBD570
|
|
00072 SKIP3 DTSBD570
|
|
00073 FILE SECTION. DTSBD570
|
|
00074 SKIP3 DTSBD570
|
|
00075 FD LPC-IN-FILE DTSBD570
|
|
00076 LABEL RECORDS ARE STANDARD DTSBD570
|
|
00077 RECORDING MODE IS F DTSBD570
|
|
00078 BLOCK CONTAINS 0 RECORDS. DTSBD570
|
|
00079 SKIP2 DTSBD570
|
|
00080 01 LPC-IN-REC PIC X(450). DTSBD570
|
|
00081 SKIP3 DTSBD570
|
|
00082 FD LPC-OUT-FILE DTSBD570
|
|
00083 LABEL RECORDS ARE STANDARD DTSBD570
|
|
00084 RECORDING MODE IS F DTSBD570
|
|
00085 BLOCK CONTAINS 0 RECORDS. DTSBD570
|
|
00086 SKIP2 DTSBD570
|
|
00087 01 LPC-OUT-REC PIC X(450). DTSBD570
|
|
00088 EJECT DTSBD570
|
|
00089 WORKING-STORAGE SECTION. DTSBD570
|
|
000895 77 PAN-VALET PICTURE X(24) VALUE '004DTSBD570 11/02/00'. DTSBD570
|
|
00090 SKIP3 DTSBD570
|
|
00091 01 WRK-AREA. DTSBD570
|
|
00092 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +570. DTSBD570
|
|
00093 DTSBD570
|
|
00094 05 ABEND-MSG PIC X(60). DTSBD570
|
|
00095 DTSBD570
|
|
00096 05 WRK-LPC-IN-REC-CNT PIC S9(07) COMP-3. DTSBD570
|
|
00097 DTSBD570
|
|
00098 05 WRK-LPC-OUT-REC-CNT PIC S9(07) COMP-3. DTSBD570
|
|
00099 DTSBD570
|
|
00100 05 LPC-IN-FILE-EOF-IND PIC X(01). DTSBD570
|
|
00101 DTSBD570
|
|
00102 05 WRK-MSG-TEXT PIC X(60). DTSBD570
|
|
00103 EJECT DTSBD570
|
|
00104 01 LPC-REC. DTSBD570
|
|
00105 ++INCLUDE DTSIXLPC DTSBD570
|
|
00106 EJECT DTSBD570
|
|
00107 ++INCLUDE LPFNCL01 DTSBD570
|
|
00108 EJECT DTSBD570
|
|
00109 01 RSKL-REC. DTSBD570
|
|
00110 ++INCLUDE DTSIRSK1 DTSBD570
|
|
00111 EJECT DTSBD570
|
|
00112 01 R746-REC. DTSBD570
|
|
00113 ++INCLUDE DTSIR746 DTSBD570
|
|
00114 EJECT DTSBD570
|
|
00115 01 R747-REC. DTSBD570
|
|
00116 ++INCLUDE DTSIR747 DTSBD570
|
|
00117 EJECT DTSBD570
|
|
00118 01 C072-LITERALS. DTSBD570
|
|
00119 ++INCLUDE DTSIC072 DTSBD570
|
|
00120 EJECT DTSBD570
|
|
00121 PROCEDURE DIVISION. DTSBD570
|
|
00122 DTSBD570
|
|
00123 DTSBD570
|
|
00124 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBD570
|
|
00125 DTSBD570
|
|
00126 DTSBD570
|
|
00127 MOVE 'N' TO LPC-IN-FILE-EOF-IND. DTSBD570
|
|
00128 DTSBD570
|
|
00129 DTSBD570
|
|
00130 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBD570
|
|
00131 UNTIL LPC-IN-FILE-EOF-IND = 'Y'. DTSBD570
|
|
00132 DTSBD570
|
|
00133 DTSBD570
|
|
00134 PERFORM T0000-TERMINATE THRU T0000-EXIT. DTSBD570
|
|
00135 DTSBD570
|
|
00136 DTSBD570
|
|
00137 GOBACK. DTSBD570
|
|
00138 EJECT DTSBD570
|
|
00139 I0000-INITIATE. DTSBD570
|
|
00140 OPEN INPUT LPC-IN-FILE. DTSBD570
|
|
00141 DTSBD570
|
|
00142 OPEN OUTPUT LPC-OUT-FILE. DTSBD570
|
|
00143 DTSBD570
|
|
00144 DTSBD570
|
|
00145 MOVE '0' TO FINAL-FUNCTION-CODE. DTSBD570
|
|
00146 DTSBD570
|
|
00147 MOVE 'CNFIGAAR' TO FINAL-CNFIG-ID. DTSBD570
|
|
00148 DTSBD570
|
|
00149 PERFORM S1000-CALL-FINAL THRU S1000-EXIT. DTSBD570
|
|
00150 DTSBD570
|
|
00151 DTSBD570
|
|
00152 MOVE +0 TO WRK-LPC-IN-REC-CNT DTSBD570
|
|
00153 WRK-LPC-OUT-REC-CNT. DTSBD570
|
|
00154 I0000-EXIT. DTSBD570
|
|
00155 EXIT. DTSBD570
|
|
00156 EJECT DTSBD570
|
|
00157 P0000-PROCESS. DTSBD570
|
|
00158 READ LPC-IN-FILE DTSBD570
|
|
00159 AT END DTSBD570
|
|
00160 MOVE 'Y' TO LPC-IN-FILE-EOF-IND DTSBD570
|
|
00161 GO TO P0000-EXIT. DTSBD570
|
|
00162 DTSBD570
|
|
00163 ADD +1 TO WRK-LPC-IN-REC-CNT. DTSBD570
|
|
00164 DTSBD570
|
|
00165 MOVE LPC-IN-REC TO LPC-REC. DTSBD570
|
|
00166 DTSBD570
|
|
00167 MOVE XLPC-PRE-ADDRESS TO XLPC-POST-ADDRESS. DTSBD570
|
|
00168 DTSBD570
|
|
00169 DTSBD570
|
|
00170 MOVE SPACES TO R746-DATA-AREA. DTSBD570
|
|
00171 DTSBD570
|
|
00172 MOVE +0 TO R746-MSG-CNT. DTSBD570
|
|
00173 DTSBD570
|
|
00174 DTSBD570
|
|
00175 MOVE XLPC-PRE-ST TO C072-ST. DTSBD570
|
|
00176 DTSBD570
|
|
00177 IF C072-US-88 DTSBD570
|
|
00178 PERFORM P1000-PROCESS-ADDRESS THRU P1000-EXIT DTSBD570
|
|
00179 ELSE DTSBD570
|
|
00180 MOVE 'INVALID STATE CODE ENCOUNTERED' TO WRK-MSG-TEXT DTSBD570
|
|
00181 PERFORM S2000-MSG-TEXT THRU S2000-EXIT. DTSBD570
|
|
00182 DTSBD570
|
|
00183 DTSBD570
|
|
00184 IF R746-MSG-CNT > +0 DTSBD570
|
|
00185 MOVE XLPC-KEY-EMP-NO TO R746-EMP-NO DTSBD570
|
|
00186 MOVE XLPC-KEY-REC-TYPE TO R746-MSTR-REC-TYPE DTSBD570
|
|
00187 MOVE XLPC-KEY-ADDR-ID-NO TO R746-ADDR-ID-NO DTSBD570
|
|
00188 MOVE XLPC-PRIMARY-NAME TO R746-PRIMARY-NAME DTSBD570
|
|
00189 MOVE XLPC-ADDR-TYPE TO R746-ADDR-TYPE DTSBD570
|
|
00190 MOVE XLPC-PRE-ADDRESS TO R746-PRE-ADDRESS DTSBD570
|
|
00191 PERFORM S946-WRITE-R746 THRU S946-EXIT DTSBD570
|
|
00192 GO TO P0000-EXIT. DTSBD570
|
|
00193 DTSBD570
|
|
00194 DTSBD570
|
|
00195 IF (XLPC-PRE-ATTN-LINE = XLPC-POST-ATTN-LINE) DTSBD570
|
|
00196 AND DTSBD570
|
|
00197 (XLPC-PRE-DELIV-LINE-1 = XLPC-POST-DELIV-LINE-1) DTSBD570
|
|
00198 AND DTSBD570
|
|
00199 (XLPC-PRE-DELIV-LINE-2 = XLPC-POST-DELIV-LINE-2) DTSBD570
|
|
00200 AND DTSBD570
|
|
00201 (XLPC-PRE-CITY = XLPC-POST-CITY) DTSBD570
|
|
00202 AND DTSBD570
|
|
00203 (XLPC-PRE-ST = XLPC-POST-ST) DTSBD570
|
|
00204 AND DTSBD570
|
|
00205 (XLPC-PRE-ZIP (1:5) = XLPC-POST-ZIP (1:5)) DTSBD570
|
|
00206 CONTINUE DTSBD570
|
|
00207 ELSE DTSBD570
|
|
00208 MOVE XLPC-PRE-ZIP TO R747-SORT-ZIP DTSBD570
|
|
00209 MOVE XLPC-KEY-EMP-NO TO R747-EMP-NO DTSBD570
|
|
00210 MOVE XLPC-KEY-REC-TYPE TO R747-MSTR-REC-TYPE DTSBD570
|
|
00211 MOVE XLPC-KEY-ADDR-ID-NO TO R747-ADDR-ID-NO DTSBD570
|
|
00212 MOVE XLPC-MASTER-UPDATE-IND TO R747-MASTER-UPDATE-IND DTSBD570
|
|
00213 MOVE XLPC-PRIMARY-NAME TO R747-PRIMARY-NAME DTSBD570
|
|
00214 MOVE XLPC-ADDR-TYPE TO R747-ADDR-TYPE DTSBD570
|
|
00215 MOVE XLPC-PRE-ADDRESS TO R747-PRE-ADDRESS DTSBD570
|
|
00216 MOVE XLPC-POST-ADDRESS TO R747-POST-ADDRESS DTSBD570
|
|
00217 PERFORM S946-WRITE-R747 THRU S946-EXIT. DTSBD570
|
|
00218 DTSBD570
|
|
00219 DTSBD570
|
|
00220 *****IF XLPC-PRE-ADDRESS = XLPC-POST-ADDRESS DTSBD570
|
|
00221 *********CONTINUE DTSBD570
|
|
00222 *****ELSE DTSBD570
|
|
00223 *********PERFORM P0100-DISPLAY THRU P0100-EXIT. DTSBD570
|
|
00224 DTSBD570
|
|
00225 DTSBD570
|
|
00226 IF (XLPC-MASTER-UPDATE-NO-88) DTSBD570
|
|
00227 OR DTSBD570
|
|
00228 (XLPC-PRE-ADDRESS = XLPC-POST-ADDRESS) DTSBD570
|
|
00229 CONTINUE DTSBD570
|
|
00230 ELSE DTSBD570
|
|
00231 MOVE LPC-REC TO LPC-OUT-REC DTSBD570
|
|
00232 WRITE LPC-OUT-REC DTSBD570
|
|
00233 ADD +1 TO WRK-LPC-OUT-REC-CNT. DTSBD570
|
|
00234 P0000-EXIT. DTSBD570
|
|
00235 EXIT. DTSBD570
|
|
00236 SKIP3 DTSBD570
|
|
00237 *P0100-DISPLAY. DTSBD570
|
|
00238 *****IF XLPC-PRE-ATTN-IND = XLPC-POST-ATTN-IND DTSBD570
|
|
00239 *********CONTINUE DTSBD570
|
|
00240 *****ELSE DTSBD570
|
|
00241 *********DISPLAY ' ' DTSBD570
|
|
00242 *********DISPLAY XLPC-KEY-EMP-NO DTSBD570
|
|
00243 *****************' ' DTSBD570
|
|
00244 *****************XLPC-ADDR-TYPE DTSBD570
|
|
00245 *****************' ' DTSBD570
|
|
00246 *****************XLPC-KEY-ADDR-ID-NO DTSBD570
|
|
00247 *****************' XLPC-PRE-ATTN-IND: ' DTSBD570
|
|
00248 *****************XLPC-PRE-ATTN-IND DTSBD570
|
|
00249 *********DISPLAY ' ' DTSBD570
|
|
00250 *****************' XLPC-POST-ATTN-IND: ' DTSBD570
|
|
00251 *****************XLPC-POST-ATTN-IND. DTSBD570
|
|
00252 DTSBD570
|
|
00253 *****IF XLPC-PRE-ATTN-LINE = XLPC-POST-ATTN-LINE DTSBD570
|
|
00254 *********CONTINUE DTSBD570
|
|
00255 *****ELSE DTSBD570
|
|
00256 *********DISPLAY ' ' DTSBD570
|
|
00257 *********DISPLAY XLPC-KEY-EMP-NO DTSBD570
|
|
00258 *****************' ' DTSBD570
|
|
00259 *****************XLPC-ADDR-TYPE DTSBD570
|
|
00260 *****************' ' DTSBD570
|
|
00261 *****************XLPC-KEY-ADDR-ID-NO DTSBD570
|
|
00262 *****************' XLPC-PRE-ATTN-LINE: ' DTSBD570
|
|
00263 *****************XLPC-PRE-ATTN-LINE DTSBD570
|
|
00264 *********DISPLAY ' ' DTSBD570
|
|
00265 *****************' XLPC-POST-ATTN-LINE: ' DTSBD570
|
|
00266 *****************XLPC-POST-ATTN-LINE. DTSBD570
|
|
00267 DTSBD570
|
|
00268 *****IF XLPC-PRE-DELIV-LINE = XLPC-POST-DELIV-LINE DTSBD570
|
|
00269 *********CONTINUE DTSBD570
|
|
00270 *****ELSE DTSBD570
|
|
00271 *********DISPLAY ' ' DTSBD570
|
|
00272 *********DISPLAY XLPC-KEY-EMP-NO DTSBD570
|
|
00273 *****************' ' DTSBD570
|
|
00274 *****************XLPC-ADDR-TYPE DTSBD570
|
|
00275 *****************' ' DTSBD570
|
|
00276 *****************XLPC-KEY-ADDR-ID-NO DTSBD570
|
|
00277 *****************' XLPC-PRE-DELIV-LINE: ' DTSBD570
|
|
00278 *****************XLPC-PRE-DELIV-LINE DTSBD570
|
|
00279 *********DISPLAY ' ' DTSBD570
|
|
00280 *****************' XLPC-POST-DELIV-LINE: ' DTSBD570
|
|
00281 *****************XLPC-POST-DELIV-LINE. DTSBD570
|
|
00282 DTSBD570
|
|
00283 *****IF XLPC-PRE-CITY = XLPC-POST-CITY DTSBD570
|
|
00284 *********CONTINUE DTSBD570
|
|
00285 *****ELSE DTSBD570
|
|
00286 *********DISPLAY ' ' DTSBD570
|
|
00287 *********DISPLAY XLPC-KEY-EMP-NO DTSBD570
|
|
00288 *****************' ' DTSBD570
|
|
00289 *****************XLPC-ADDR-TYPE DTSBD570
|
|
00290 *****************' ' DTSBD570
|
|
00291 *****************XLPC-KEY-ADDR-ID-NO DTSBD570
|
|
00292 *****************' XLPC-PRE-CITY: ' DTSBD570
|
|
00293 *****************XLPC-PRE-CITY DTSBD570
|
|
00294 *********DISPLAY ' ' DTSBD570
|
|
00295 *****************' XLPC-POST-CITY: ' DTSBD570
|
|
00296 *****************XLPC-POST-CITY. DTSBD570
|
|
00297 DTSBD570
|
|
00298 *****IF XLPC-PRE-ST = XLPC-POST-ST DTSBD570
|
|
00299 *********CONTINUE DTSBD570
|
|
00300 *****ELSE DTSBD570
|
|
00301 *********DISPLAY ' ' DTSBD570
|
|
00302 *********DISPLAY XLPC-KEY-EMP-NO DTSBD570
|
|
00303 *****************' ' DTSBD570
|
|
00304 *****************XLPC-ADDR-TYPE DTSBD570
|
|
00305 *****************' ' DTSBD570
|
|
00306 *****************XLPC-KEY-ADDR-ID-NO DTSBD570
|
|
00307 *****************' XLPC-PRE-ST: ' DTSBD570
|
|
00308 *****************XLPC-PRE-ST DTSBD570
|
|
00309 *********DISPLAY ' ' DTSBD570
|
|
00310 *****************' XLPC-POST-ST: ' DTSBD570
|
|
00311 *****************XLPC-POST-ST. DTSBD570
|
|
00312 DTSBD570
|
|
00313 *****IF XLPC-PRE-ZIP (1:5) = XLPC-POST-ZIP (1:5) DTSBD570
|
|
00314 *********CONTINUE DTSBD570
|
|
00315 *****ELSE DTSBD570
|
|
00316 *********DISPLAY ' ' DTSBD570
|
|
00317 *********DISPLAY XLPC-KEY-EMP-NO DTSBD570
|
|
00318 *****************' ' DTSBD570
|
|
00319 *****************XLPC-ADDR-TYPE DTSBD570
|
|
00320 *****************' ' DTSBD570
|
|
00321 *****************XLPC-KEY-ADDR-ID-NO DTSBD570
|
|
00322 *****************' XLPC-PRE-ZIP (1:5): ' DTSBD570
|
|
00323 *****************XLPC-PRE-ZIP (1:5) DTSBD570
|
|
00324 *********DISPLAY ' ' DTSBD570
|
|
00325 *****************' XLPC-POST-ZIP (1:5): ' DTSBD570
|
|
00326 *****************XLPC-POST-ZIP (1:5). DTSBD570
|
|
00327 DTSBD570
|
|
00328 *****IF XLPC-PRE-ZIP (7:4) = XLPC-POST-ZIP (7:4) DTSBD570
|
|
00329 *********CONTINUE DTSBD570
|
|
00330 *****ELSE DTSBD570
|
|
00331 *********DISPLAY ' ' DTSBD570
|
|
00332 *********DISPLAY XLPC-KEY-EMP-NO DTSBD570
|
|
00333 *****************' ' DTSBD570
|
|
00334 *****************XLPC-ADDR-TYPE DTSBD570
|
|
00335 *****************' ' DTSBD570
|
|
00336 *****************XLPC-KEY-ADDR-ID-NO DTSBD570
|
|
00337 *****************' XLPC-PRE-ZIP (7:4): ' DTSBD570
|
|
00338 *****************XLPC-PRE-ZIP (7:4) DTSBD570
|
|
00339 *********DISPLAY ' ' DTSBD570
|
|
00340 *****************' XLPC-POST-ZIP (7:4): ' DTSBD570
|
|
00341 *****************XLPC-POST-ZIP (7:4). DTSBD570
|
|
00342 DTSBD570
|
|
00343 *****IF XLPC-PRE-DELIV-POINT = XLPC-POST-DELIV-POINT DTSBD570
|
|
00344 *********CONTINUE DTSBD570
|
|
00345 *****ELSE DTSBD570
|
|
00346 *********DISPLAY ' ' DTSBD570
|
|
00347 *********DISPLAY XLPC-KEY-EMP-NO DTSBD570
|
|
00348 *****************' ' DTSBD570
|
|
00349 *****************XLPC-ADDR-TYPE DTSBD570
|
|
00350 *****************' ' DTSBD570
|
|
00351 *****************XLPC-KEY-ADDR-ID-NO DTSBD570
|
|
00352 *****************' XLPC-PRE-DELIV-POINT: ' DTSBD570
|
|
00353 *****************XLPC-PRE-DELIV-POINT DTSBD570
|
|
00354 *********DISPLAY ' ' DTSBD570
|
|
00355 *****************' XLPC-POST-DELIV-POINT: ' DTSBD570
|
|
00356 *****************XLPC-POST-DELIV-POINT. DTSBD570
|
|
00357 DTSBD570
|
|
00358 *****IF XLPC-PRE-CHECK-DIGIT = XLPC-POST-CHECK-DIGIT DTSBD570
|
|
00359 *********CONTINUE DTSBD570
|
|
00360 *****ELSE DTSBD570
|
|
00361 *********DISPLAY ' ' DTSBD570
|
|
00362 *********DISPLAY XLPC-KEY-EMP-NO DTSBD570
|
|
00363 *****************' ' DTSBD570
|
|
00364 *****************XLPC-ADDR-TYPE DTSBD570
|
|
00365 *****************' ' DTSBD570
|
|
00366 *****************XLPC-KEY-ADDR-ID-NO DTSBD570
|
|
00367 *****************' XLPC-PRE-CHECK-DIGIT: ' DTSBD570
|
|
00368 *****************XLPC-PRE-CHECK-DIGIT DTSBD570
|
|
00369 *********DISPLAY ' ' DTSBD570
|
|
00370 *****************' XLPC-POST-CHECK-DIGIT: ' DTSBD570
|
|
00371 *****************XLPC-POST-CHECK-DIGIT. DTSBD570
|
|
00372 DTSBD570
|
|
00373 *P0100-EXIT. DTSBD570
|
|
00374 *****EXIT. DTSBD570
|
|
00375 EJECT DTSBD570
|
|
00376 P1000-PROCESS-ADDRESS. DTSBD570
|
|
00377 MOVE SPACES TO FINAL-ORIGINAL-RETURN-AREA DTSBD570
|
|
00378 FINAL-EXPANDED-RETURN-AREA. DTSBD570
|
|
00379 DTSBD570
|
|
00380 MOVE '5' TO FINAL-FUNCTION-CODE. DTSBD570
|
|
00381 DTSBD570
|
|
00382 MOVE 'X' TO FINAL-FUNCTION-OPTION. DTSBD570
|
|
00383 DTSBD570
|
|
00384 DTSBD570
|
|
00385 MOVE SPACES TO FINAL-INPUT-ADDR-AREA. DTSBD570
|
|
00386 DTSBD570
|
|
00387 MOVE XLPC-PRE-DELIV-LINE-1 TO USER-INPUT-ADDRESS-1. DTSBD570
|
|
00388 DTSBD570
|
|
00389 MOVE XLPC-PRE-DELIV-LINE-2 TO USER-INPUT-ADDRESS-2. DTSBD570
|
|
00390 DTSBD570
|
|
00391 MOVE SPACES TO USER-INPUT-CSZ-AREA. DTSBD570
|
|
00392 DTSBD570
|
|
00393 MOVE XLPC-PRE-CITY TO USER-INPUT-CITY-STATE (1:25). DTSBD570
|
|
00394 DTSBD570
|
|
00395 MOVE XLPC-PRE-ST TO USER-INPUT-CITY-STATE (28:2). DTSBD570
|
|
00396 DTSBD570
|
|
00397 MOVE XLPC-PRE-ZIP TO USER-INPUT-ZIP. DTSBD570
|
|
00398 DTSBD570
|
|
00399 MOVE XLPC-PRE-ZIP (7:4) TO USER-INPUT-SEC-SEG. DTSBD570
|
|
00400 DTSBD570
|
|
00401 DTSBD570
|
|
00402 PERFORM S1000-CALL-FINAL THRU S1000-EXIT. DTSBD570
|
|
00403 DTSBD570
|
|
00404 DTSBD570
|
|
00405 IF (FINAL-OUTSEL-BAD-YES) DTSBD570
|
|
00406 AND DTSBD570
|
|
00407 (XLPC-PRE-ZIP (7:4) = SPACES) DTSBD570
|
|
00408 GO TO P1000-EXIT. DTSBD570
|
|
00409 DTSBD570
|
|
00410 DTSBD570
|
|
00411 IF FINAL-OUTSEL-BAD-YES DTSBD570
|
|
00412 MOVE 'ZIP+4 NOT ASSIGNED' TO WRK-MSG-TEXT DTSBD570
|
|
00413 PERFORM S2000-MSG-TEXT THRU S2000-EXIT DTSBD570
|
|
00414 GO TO P1000-EXIT. DTSBD570
|
|
00415 DTSBD570
|
|
00416 DTSBD570
|
|
00417 IF FINAL-LABEL-LENGTH1 > 40 DTSBD570
|
|
00418 MOVE 'ADDRESS LINE 1 LENGTH GREATER THAN 40 RETURNED' DTSBD570
|
|
00419 TO WRK-MSG-TEXT DTSBD570
|
|
00420 PERFORM S2000-MSG-TEXT THRU S2000-EXIT DTSBD570
|
|
00421 ELSE DTSBD570
|
|
00422 IF FINAL-LABEL-LENGTH1 > 0 DTSBD570
|
|
00423 MOVE FINAL-LABEL-LINE1 TO XLPC-POST-DELIV-LINE-1 DTSBD570
|
|
00424 ELSE DTSBD570
|
|
00425 MOVE SPACES TO XLPC-POST-DELIV-LINE-1. DTSBD570
|
|
00426 DTSBD570
|
|
00427 IF FINAL-LABEL-LENGTH2 > 40 DTSBD570
|
|
00428 MOVE 'ADDRESS LINE 2 LENGTH GREATER THAN 40 RETURNED' DTSBD570
|
|
00429 TO WRK-MSG-TEXT DTSBD570
|
|
00430 PERFORM S2000-MSG-TEXT THRU S2000-EXIT DTSBD570
|
|
00431 ELSE DTSBD570
|
|
00432 IF FINAL-LABEL-LENGTH2 > 0 DTSBD570
|
|
00433 MOVE FINAL-LABEL-LINE2 TO XLPC-POST-DELIV-LINE-2 DTSBD570
|
|
00434 ELSE DTSBD570
|
|
00435 MOVE SPACES TO XLPC-POST-DELIV-LINE-2. DTSBD570
|
|
00436 DTSBD570
|
|
00437 MOVE FINAL-FULL-CITY-NAME TO XLPC-POST-CITY. DTSBD570
|
|
00438 DTSBD570
|
|
00439 MOVE FINAL-STATE TO XLPC-POST-ST. DTSBD570
|
|
00440 DTSBD570
|
|
00441 MOVE FINAL-ZIP TO XLPC-POST-ZIP (1:5). DTSBD570
|
|
00442 DTSBD570
|
|
00443 IF FINAL-SEC-SEG = SPACE DTSBD570
|
|
00444 MOVE SPACE TO XLPC-POST-ZIP (6:5) DTSBD570
|
|
00445 ELSE DTSBD570
|
|
00446 MOVE '-' TO XLPC-POST-ZIP (6:1) DTSBD570
|
|
00447 MOVE FINAL-SEC-SEG TO XLPC-POST-ZIP (7:4). DTSBD570
|
|
00448 DTSBD570
|
|
00449 MOVE FINAL-ADVANCED-BARCODE TO XLPC-POST-ADVANCED-BARCODE. DTSBD570
|
|
00450 P1000-EXIT. DTSBD570
|
|
00451 EXIT. DTSBD570
|
|
00452 EJECT DTSBD570
|
|
00453 T0000-TERMINATE. DTSBD570
|
|
00454 DISPLAY DTSBD570
|
|
00455 '*** DTSBD570 TERMINATION STATISTICS'. DTSBD570
|
|
00456 DTSBD570
|
|
00457 DISPLAY ' '. DTSBD570
|
|
00458 DTSBD570
|
|
00459 DISPLAY DTSBD570
|
|
00460 '*** NUMBER OF XLPC RECORDS INPUT: ' DTSBD570
|
|
00461 WRK-LPC-IN-REC-CNT. DTSBD570
|
|
00462 DTSBD570
|
|
00463 DISPLAY DTSBD570
|
|
00464 '*** NUMBER OF XLPC RECORDS OUTPUT: ' DTSBD570
|
|
00465 WRK-LPC-OUT-REC-CNT. DTSBD570
|
|
00466 DTSBD570
|
|
00467 CLOSE LPC-IN-FILE DTSBD570
|
|
00468 LPC-OUT-FILE. DTSBD570
|
|
00469 DTSBD570
|
|
00470 DTSBD570
|
|
00471 MOVE -1 TO RSK1-LENGTH. DTSBD570
|
|
00472 DTSBD570
|
|
00473 PERFORM S946-WRITE-RSKL THRU S946-EXIT. DTSBD570
|
|
00474 DTSBD570
|
|
00475 DTSBD570
|
|
00476 MOVE '9' TO FINAL-FUNCTION-CODE. DTSBD570
|
|
00477 DTSBD570
|
|
00478 PERFORM S1000-CALL-FINAL THRU S1000-EXIT. DTSBD570
|
|
00479 T0000-EXIT. DTSBD570
|
|
00480 EXIT. DTSBD570
|
|
00481 EJECT DTSBD570
|
|
00482 S1000-CALL-FINAL. DTSBD570
|
|
00483 CALL 'FINAL' USING FINAL-CALL-AREA. DTSBD570
|
|
00484 S1000-EXIT. DTSBD570
|
|
00485 EXIT. DTSBD570
|
|
00486 DTSBD570
|
|
00487 DTSBD570
|
|
00488 DTSBD570
|
|
00489 S2000-MSG-TEXT. DTSBD570
|
|
00490 IF R746-MSG-CNT < +3 DTSBD570
|
|
00491 ADD +1 TO R746-MSG-CNT DTSBD570
|
|
00492 MOVE WRK-MSG-TEXT TO R746-MSG-TEXT (R746-MSG-CNT). DTSBD570
|
|
00493 S2000-EXIT. DTSBD570
|
|
00494 EXIT. DTSBD570
|
|
00495 DTSBD570
|
|
00496 DTSBD570
|
|
00497 DTSBD570
|
|
00498 S946-WRITE-RSKL. DTSBD570
|
|
00499 CALL 'DTSBU946' USING RSKL-REC. DTSBD570
|
|
00500 GO TO S946-EXIT. DTSBD570
|
|
00501 DTSBD570
|
|
00502 S946-WRITE-R746. DTSBD570
|
|
00503 MOVE LENGTH OF R746-REC TO R746-LENGTH. DTSBD570
|
|
00504 CALL 'DTSBU946' USING R746-REC. DTSBD570
|
|
00505 GO TO S946-EXIT. DTSBD570
|
|
00506 DTSBD570
|
|
00507 S946-WRITE-R747. DTSBD570
|
|
00508 MOVE LENGTH OF R747-REC TO R747-LENGTH. DTSBD570
|
|
00509 CALL 'DTSBU946' USING R747-REC. DTSBD570
|
|
00510 GO TO S946-EXIT. DTSBD570
|
|
00511 DTSBD570
|
|
00512 S946-EXIT. DTSBD570
|
|
00513 EXIT. DTSBD570
|