00001 **==============================================================**05/24/00 00002 * PITNEY BOWES SOFTWARE SYSTEMS *LPFNCL01 00003 * * LV001 00004 * F I N A L I S T *LPFNCL01 00005 * *LPFNCL01 00006 * NAME: LPFNCL01 - COBOL COPYBOOK FOR FINALIST. *LPFNCL01 00007 * *LPFNCL01 00008 * USE : COBOL COPYBOOK FOR FINALIST CALLAREA. PASSED BY USER *LPFNCL01 00009 * DRIVERS WITH CALL TO FINALIST. *LPFNCL01 00010 * *LPFNCL01 00011 * DISTRIBUTED SOURCE MEMBER FOR THE PRODUCT FINALIST FROM *LPFNCL01 00012 * PITNEY BOWES SOFTWARE SYSTEMS. *LPFNCL01 00013 * *LPFNCL01 00014 * *============================================================* *LPFNCL01 00015 * * MAINTENANCE HISTORY: * *LPFNCL01 00016 * *============================================================* *LPFNCL01 00017 * 02/04/97 FINALIST RELEASE 6.80 MODIFICATIONS: *LPFNCL01 00018 * *LPFNCL01 00019 * -REMOVED REFERENCES TO THE ZIP+4 BAR CO *LPFNCL01 00020 * -ADDED LOT FIELDS *LPFNCL01 00021 * -ADDED LACS FIELDS *LPFNCL01 00022 * *LPFNCL01 00023 * 10/01/96 FINALIST RELEASE 6.80 MODIFICATIONS: *LPFNCL01 00024 * *LPFNCL01 00025 * -ADD 88 LEVELS FOR RETURN/REASON/INFO CODES *LPFNCL01 00026 * *LPFNCL01 00027 * 03/10/95 FINALIST RELEASE 6.70 MODIFICATIONS: *LPFNCL01 00028 * *LPFNCL01 00029 * -MODIFIED FOR USE IN FINALIST BATCH, CICS, IMS AND IDMS *LPFNCL01 00030 * ENVIRONMENTS BY ADDING THE FOLLOWING REDEFINITIONS: *LPFNCL01 00031 * CALL-IMS *==>USED WITH FINALIST/IMS OPTION ONLY <==**LPFNCL01 00032 * FINAL-IDMSFLDS *==>USED WITH FINALIST/IDMS OPTION ONLY<==**LPFNCL01 00033 * -ADD Z4-RESERVED USING EXISTING FILLER. *LPFNCL01 00034 * -ADD FINAL-REASON-CODE10 USING EXISTING FILLER. *LPFNCL01 00035 * -ADD FINAL-FRMLBL-OPT USING EXISTING FILLER. *LPFNCL01 00036 * -ADD FINAL-ALT-UNIT-4BYTE. ALTERNATE UNIT DES IS ACTUALLY *LPFNCL01 00037 * A FOUR BYTE FIELD. *LPFNCL01 00038 * -ADD GROUP DEFINITIONS SO LPFNCL01/LPFNCL04 ARE CONSISTENT.*LPFNCL01 00039 * *LPFNCL01 00040 **==============================================================**LPFNCL01 00041 01 FINAL-CALL-AREA. LPFNCL01 00042 05 FINAL-FILLER. LPFNCL01 00043 10 FILLER PIC S9(5) COMP SYNC VALUE -1. LPFNCL01 00044 10 FILLER PIC S9(5) COMP SYNC VALUE -1. LPFNCL01 00045 10 FILLER PIC S9(5) COMP SYNC VALUE -1. LPFNCL01 00046 LPFNCL01 00047 05 FINAL-FUNCTION-AREA. LPFNCL01 00048 10 FINAL-FUNCTION-CODE PIC X(01). LPFNCL01 00049 10 FINAL-FUNCTION-OPTION PIC X(03). LPFNCL01 00050 LPFNCL01 00051 05 CALL-INIT. LPFNCL01 00052 10 INITMOD PIC X(08) VALUE SPACES. LPFNCL01 00053 10 INITBUFF PIC S9(05) COMP SYNC. LPFNCL01 00054 LPFNCL01 00055 05 CALL-CICS REDEFINES CALL-INIT. LPFNCL01 00056 10 CAMODNAM PIC X(08). LPFNCL01 00057 10 CAEXCPSW PIC X(01). LPFNCL01 00058 10 FILLER PIC X(03). LPFNCL01 00059 LPFNCL01 00060 05 CALL-IMS REDEFINES CALL-INIT. LPFNCL01 00061 10 IMS-INITMOD PIC X(08). LPFNCL01 00062 10 FILLER REDEFINES IMS-INITMOD. LPFNCL01 00063 15 IMS-INITDAT PIC S9(05) COMP SYNC. LPFNCL01 00064 15 IMS-INITCITY PIC S9(05) COMP SYNC. LPFNCL01 00065 10 IMS-ALT-BLKSIZE PIC S9(05) COMP SYNC. LPFNCL01 00066 LPFNCL01 00067 05 FINAL-CNFIG-ID PIC X(08). LPFNCL01 00068 05 FINAL-INIT-CITY REDEFINES FINAL-CNFIG-ID. LPFNCL01 00069 10 INITCITY PIC X(01). LPFNCL01 00070 10 FILLER PIC X(07). LPFNCL01 00071 05 FINAL-TAILOR-OPTS REDEFINES FINAL-CNFIG-ID. LPFNCL01 00072 10 FINAL-UNIQUE-OPT PIC X(01). LPFNCL01 00073 10 FINAL-STRTPHON-OPT PIC X(01). LPFNCL01 00074 10 FINAL-FIRMCORR-OPT PIC X(01). LPFNCL01 00075 10 FINAL-CITYPHON-OPT PIC X(01). LPFNCL01 00076 10 FINAL-WEIGHT-OPT PIC X(01). LPFNCL01 00077 10 FINAL-ZIPCORR-OPT PIC X(01). LPFNCL01 00078 10 FINAL-CITYCORR-OPT PIC X(01). LPFNCL01 00079 10 FINAL-STRCOSM-OPT PIC X(01). LPFNCL01 00080 05 FINAL-FRMPRS-OPT PIC X(01). LPFNCL01 00081 05 FINAL-UNITDES-OPT PIC X(01). LPFNCL01 00082 05 FINAL-CTYLONG-OPT PIC X(01). LPFNCL01 00083 05 FINAL-ALSLBL-OPT PIC X(01). LPFNCL01 00084 05 SYS-NUMBER-REPORTS. LPFNCL01 00085 10 FINAL-VSE1-PRT PIC X(03) VALUE '021'. LPFNCL01 00086 10 FINAL-VSE2-PRT PIC X(03) VALUE '022'. LPFNCL01 00087 10 FINAL-VSE3-PRT PIC X(03) VALUE '023'. LPFNCL01 00088 10 FINAL-VSE4-PRT PIC X(03) VALUE '024'. LPFNCL01 00089 10 FINAL-VSE5-PRT PIC X(03) VALUE '025'. LPFNCL01 00090 10 FINAL-VSE6-PRT PIC X(03) VALUE '026'. LPFNCL01 00091 10 FINAL-VSE7-PRT PIC X(03) VALUE '027'. LPFNCL01 00092 LPFNCL01 00093 05 FINAL-EXPANDED-INFO. LPFNCL01 00094 10 FINAL-STAT-REPORT-OPTIONS PIC X(08) VALUE 'Y'. LPFNCL01 00095 10 FINAL-REPORT-CALL-AREA. LPFNCL01 00096 15 FINAL-REPORT-SELECT1 PIC X(01) VALUE 'Y'. LPFNCL01 00097 15 FINAL-REPORT-SELECT2 PIC X(01) VALUE 'Y'. LPFNCL01 00098 15 FINAL-REPORT-SELECT3 PIC X(01) VALUE 'Y'. LPFNCL01 00099 15 FINAL-REPORT-SELECT4 PIC X(01) VALUE 'Y'. LPFNCL01 00100 15 FINAL-REPORT-SELECT5 PIC X(01) VALUE 'Y'. LPFNCL01 00101 15 FINAL-REPORT-SELECT6 PIC X(01) VALUE 'Y'. LPFNCL01 00102 15 FINAL-FIRMLBL-OPT PIC X(01) VALUE 'I'. LPFNCL01 00103 15 FINAL-LOT-OPT PIC X(01) VALUE 'N'. LPFNCL01 00104 15 FINAL-REPORT-NTH PIC 9(04). LPFNCL01 00105 15 FINAL-REPORT-TITLE PIC X(35) LPFNCL01 00106 VALUE 'PITNEY BOWES SOFTWARE SYSTEMS'. LPFNCL01 00107 10 FILLER REDEFINES FINAL-REPORT-CALL-AREA. LPFNCL01 00108 15 FILLER PIC X(07). LPFNCL01 00109 15 FINAL-REPORT-KEY PIC X(40). LPFNCL01 00110 10 FINAL-REPORT1-MAX PIC S9(09) COMP SYNC LPFNCL01 00111 VALUE +1000. LPFNCL01 00112 10 FINAL-REPORT2-MAX PIC S9(09) COMP SYNC LPFNCL01 00113 VALUE +1000. LPFNCL01 00114 10 FINAL-REPORT3-MAX PIC S9(09) COMP SYNC LPFNCL01 00115 VALUE +1000. LPFNCL01 00116 10 FINAL-REPORT4-MAX PIC S9(09) COMP SYNC LPFNCL01 00117 VALUE +1000. LPFNCL01 00118 10 FINAL-REPORT5-MAX PIC S9(09) COMP SYNC LPFNCL01 00119 VALUE +1000. LPFNCL01 00120 10 FINAL-REPORT6-MAX PIC S9(09) COMP SYNC LPFNCL01 00121 VALUE +1000. LPFNCL01 00122 10 FINAL-NUMBER-OF-LINES PIC S9(04) COMP SYNC LPFNCL01 00123 VALUE +57. LPFNCL01 00124 10 FINAL-3553-SECTIONS. LPFNCL01 00125 15 FINAL-3553-SECB1 PIC X(26). LPFNCL01 00126 15 FINAL-3553-SECB4 PIC X(26). LPFNCL01 00127 15 FINAL-3553-SECB5 PIC X(23). LPFNCL01 00128 15 FINAL-3553-SECD2A PIC X(38). LPFNCL01 00129 15 FINAL-3553-SECD2B PIC X(38). LPFNCL01 00130 15 FINAL-3553-SECD2C PIC X(38). LPFNCL01 00131 15 FINAL-3553-SECD2D PIC X(38). LPFNCL01 00132 15 FINAL-3553-SECD2E PIC X(38). LPFNCL01 00133 15 FINAL-3553-SECD2F PIC X(38). LPFNCL01 00134 10 FINAL-INPUT-ADDR-AREA REDEFINES FINAL-3553-SECTIONS. LPFNCL01 00135 15 USER-INPUT-FIRM-LINE PIC X(70). LPFNCL01 00136 15 USER-INPUT-ADDRESS-1 PIC X(70). LPFNCL01 00137 15 USER-INPUT-ADDRESS-2 PIC X(70). LPFNCL01 00138 15 USER-INPUT-CSZ-AREA. LPFNCL01 00139 20 USER-INPUT-CITY-STATE PIC X(70). LPFNCL01 00140 20 USER-INPUT-ZIP PIC X(05). LPFNCL01 00141 20 USER-INPUT-SEC-SEG PIC X(04). LPFNCL01 00142 20 USER-INPUT-CR PIC X(05). LPFNCL01 00143 15 FILLER PIC X(09). LPFNCL01 00144 10 Z4-RESERVED PIC X(120). LPFNCL01 00145 10 FILLER PIC X(83). LPFNCL01 00146 LPFNCL01 00147 05 FINAL-ORIGINAL-RETURN-AREA. LPFNCL01 00148 10 FINAL-ONLINE-RETURN-CODE PIC X(01). LPFNCL01 00149 10 FINAL-OLD-RETURN-CODE2 PIC X(01). LPFNCL01 00150 10 FINAL-OLD-RETURN-CODE3 PIC X(01). LPFNCL01 00151 10 FINAL-ISOL PIC X(01). LPFNCL01 00152 10 FINAL-RECORD-NUMBER PIC S9(09) COMP-3. LPFNCL01 00153 10 FINAL-ZIP. LPFNCL01 00154 15 FINAL-SCF PIC X(03). LPFNCL01 00155 15 FINAL-ZONE PIC X(02). LPFNCL01 00156 10 FINAL-SEC-SEG PIC X(04). LPFNCL01 00157 10 FINAL-CR-RTE PIC X(05). LPFNCL01 00158 10 FINAL-STATE PIC X(02). LPFNCL01 00159 10 FINAL-CITY PIC X(13). LPFNCL01 00160 10 FINAL-COUNTY PIC X(05). LPFNCL01 00161 10 FINAL-DIRECTION-1. LPFNCL01 00162 15 FINAL-DIR11 PIC X(02). LPFNCL01 00163 15 FINAL-SFX11 PIC X(04). LPFNCL01 00164 15 FINAL-SFX12 PIC X(04). LPFNCL01 00165 15 FINAL-PDIR1 PIC X(02). LPFNCL01 00166 10 FINAL-DIRECTION-2. LPFNCL01 00167 15 FINAL-DIR21 PIC X(02). LPFNCL01 00168 15 FINAL-SFX21 PIC X(04). LPFNCL01 00169 15 FINAL-SFX22 PIC X(04). LPFNCL01 00170 15 FINAL-PDIR2 PIC X(02). LPFNCL01 00171 10 FINAL-DIRECTION-3. LPFNCL01 00172 15 FINAL-DIR31 PIC X(02). LPFNCL01 00173 15 FINAL-SFX31 PIC X(04). LPFNCL01 00174 15 FINAL-SFX32 PIC X(04). LPFNCL01 00175 15 FINAL-PDIR3 PIC X(02). LPFNCL01 00176 10 FILLER PIC X(04). LPFNCL01 00177 10 FINAL-HOUSE-NUM PIC X(10). LPFNCL01 00178 10 FINAL-PRE-DIR PIC X(02). LPFNCL01 00179 10 FINAL-STREET-NAME PIC X(28). LPFNCL01 00180 10 FINAL-CICS-ERROR REDEFINES FINAL-STREET-NAME. LPFNCL01 00181 15 CAERRMOD PIC X(08). LPFNCL01 00182 15 CAERRSRC PIC X(08). LPFNCL01 00183 15 CAERRDSC PIC X(09). LPFNCL01 00184 15 FILLER PIC X(03). LPFNCL01 00185 10 FINAL-POST-DIR PIC X(02). LPFNCL01 00186 10 FINAL-SFX1 PIC X(04). LPFNCL01 00187 10 FINAL-SFX2 PIC X(04). LPFNCL01 00188 10 FINAL-APT-NUM PIC X(10). LPFNCL01 00189 10 FINAL-EXTRA PIC X(09). LPFNCL01 00190 10 ORIG-ZIP. LPFNCL01 00191 15 ORIG-SCF PIC X(03). LPFNCL01 00192 15 ORIG-ZONE PIC X(02). LPFNCL01 00193 10 ORIG-SEC-SEG PIC X(04). LPFNCL01 00194 10 ORIG-CR-RTE PIC X(05). LPFNCL01 00195 10 ORIG-STATE PIC X(02). LPFNCL01 00196 10 ORIG-CITY PIC X(28). LPFNCL01 00197 10 ORIG-ZIPP PIC S9(05) COMP-3. LPFNCL01 00198 10 ORIG-SECSEGP PIC S9(05) COMP-3. LPFNCL01 00199 10 FINAL-STATE-SCF-VER PIC X(01). LPFNCL01 00200 10 FINAL-RETSCF PIC X(03). LPFNCL01 00201 10 FILLER PIC X(24). LPFNCL01 00202 10 FINAL-UNITDES PIC X(04). LPFNCL01 00203 10 FILLER PIC X(03). LPFNCL01 00204 LPFNCL01 00205 05 FINAL-EXPANDED-RETURN-AREA. LPFNCL01 00206 10 FINAL-OUTPUT-SELECT. LPFNCL01 00207 15 FINAL-OUTSEL-GOOD PIC X(01). LPFNCL01 00208 88 FINAL-OUTSEL-GOOD-YES VALUE 'Y'. LPFNCL01 00209 15 FINAL-OUTSEL-BAD PIC X(01). LPFNCL01 00210 88 FINAL-OUTSEL-BAD-YES VALUE 'Y'. LPFNCL01 00211 15 FINAL-OUTSEL-CHANGE PIC X(01). LPFNCL01 00212 88 FINAL-OUTSEL-CHANGE-YES VALUE 'Y'. LPFNCL01 00213 10 FINAL-RETURN-CODES. LPFNCL01 00214 15 FINAL-RETURN-CODE1 PIC X(01). LPFNCL01 00215 88 FINAL-ZIP-CARRT-ZIP4-ASSIGNED VALUE '0'. LPFNCL01 00216 88 FINAL-ZIP-CARRT-ASSIGNED VALUE '1'. LPFNCL01 00217 88 FINAL-ZIP-ASSIGNED VALUE '2'. LPFNCL01 00218 88 FINAL-NO-ZIP4-ASSIGNED VALUE '1' '2'. LPFNCL01 00219 88 FINAL-NO-CODES-ASSIGNED VALUE '9'. LPFNCL01 00220 15 FILLER PIC X(01). LPFNCL01 00221 10 FINAL-REASON-CODES. LPFNCL01 00222 15 FINAL-REASON-CODE1 PIC X(01). LPFNCL01 00223 88 FINAL-ZIP-VERIFIED VALUE '0'. LPFNCL01 00224 88 FINAL-ZIP-RETURNED VALUE '1'. LPFNCL01 00225 88 FINAL-ZIP-UNIQUE-UNCHANGED VALUE '2'. LPFNCL01 00226 88 FINAL-ZIP-NOCORR-UNCHANGED VALUE '3'. LPFNCL01 00227 88 FINAL-ZIP-MULT-CHOICE VALUE '4'. LPFNCL01 00228 88 FINAL-ZIP-UNIQUE-CHANGED VALUE '5'. LPFNCL01 00229 88 FINAL-ZIP-LAST2-CHANGED VALUE '6'. LPFNCL01 00230 88 FINAL-ZIP-FIRST3-CHANGED VALUE '7'. LPFNCL01 00231 88 FINAL-ZIP-CHANGED VALUE '5' LPFNCL01 00232 THRU '7'. LPFNCL01 00233 88 FINAL-ZIP-NOT-DETERMINED VALUE '9'. LPFNCL01 00234 15 FINAL-REASON-CODE2 PIC X(01). LPFNCL01 00235 88 FINAL-CITY-VERIFIED VALUE '0'. LPFNCL01 00236 88 FINAL-CITY-RETURNED VALUE '1'. LPFNCL01 00237 88 FINAL-CITY-STANDARDIZED VALUE '2'. LPFNCL01 00238 88 FINAL-CITY-PREFERRED VALUE '3'. LPFNCL01 00239 88 FINAL-CITY-UNCHANGED VALUE '4'. LPFNCL01 00240 88 FINAL-CITY-CORRECTED VALUE '5'. LPFNCL01 00241 88 FINAL-CITY-DUP-IN-STATE VALUE '6'. LPFNCL01 00242 88 FINAL-CITY-NONMAILING-NAME VALUE '7'. LPFNCL01 00243 88 FINAL-CITY-NOT-DETERMINED VALUE '9'. LPFNCL01 00244 15 FINAL-REASON-CODE3 PIC X(01). LPFNCL01 00245 88 FINAL-CARRT-VERIFIED VALUE '0'. LPFNCL01 00246 88 FINAL-CARRT-RETURNED VALUE '1'. LPFNCL01 00247 88 FINAL-CARRT-MULT-CHOICE VALUE '2'. LPFNCL01 00248 88 FINAL-CARRT-CHANGED VALUE '3'. LPFNCL01 00249 88 FINAL-CARRT-MIL-DEFAULT VALUE '4'. LPFNCL01 00250 88 FINAL-CARRT-WEIGHTED VALUE '5'. LPFNCL01 00251 88 FINAL-CARRT-DEFAULT VALUE '6'. LPFNCL01 00252 88 FINAL-CARRT-NDEL VALUE '7'. LPFNCL01 00253 88 FINAL-CARRT-NOT-DETERMINED VALUE '9'. LPFNCL01 00254 15 FINAL-REASON-CODE4 PIC X(01). LPFNCL01 00255 88 FINAL-ZIP4-VERIFIED VALUE '0'. LPFNCL01 00256 88 FINAL-ZIP4-RETURNED VALUE '1'. LPFNCL01 00257 88 FINAL-ZIP4-MULT-CHOICE VALUE '2'. LPFNCL01 00258 88 FINAL-ZIP4-CHANGED VALUE '3'. LPFNCL01 00259 88 FINAL-ZIP4-WEIGHTED VALUE '5'. LPFNCL01 00260 88 FINAL-ZIP4-DEFAULT VALUE '6'. LPFNCL01 00261 88 FINAL-ZIP4-NDEL VALUE '7'. LPFNCL01 00262 88 FINAL-ZIP4-NOT-DETERMINED VALUE '9'. LPFNCL01 00263 15 FINAL-REASON-CODE5 PIC X(01). LPFNCL01 00264 88 FINAL-STREET-VERIFIED VALUE '0'. LPFNCL01 00265 88 FINAL-STREET-STANDARDIZED VALUE '1'. LPFNCL01 00266 88 FINAL-STREET-EXCPTN-TABLE VALUE '2'. LPFNCL01 00267 88 FINAL-STREET-PHONETIC-MATCH VALUE '3'. LPFNCL01 00268 88 FINAL-STREET-CHAR-VAR VALUE '4'. LPFNCL01 00269 88 FINAL-STREET-SEC-ISOL VALUE '6'. LPFNCL01 00270 88 FINAL-STREET-NOT-DETERMINED VALUE '9'. LPFNCL01 00271 15 FINAL-REASON-CODE6 PIC X(01). LPFNCL01 00272 88 FINAL-RANGE-VERIFIED VALUE '0'. LPFNCL01 00273 88 FINAL-RANGE-NO-ALPHA-MATCH VALUE '1'. LPFNCL01 00274 88 FINAL-RANGE-NO-INPUT VALUE '2'. LPFNCL01 00275 88 FINAL-RANGE-OUT-OF-RANGE VALUE '3'. LPFNCL01 00276 88 FINAL-RANGE-MULT-CHOICE VALUE '4'. LPFNCL01 00277 88 FINAL-RANGE-NOT-DETERMINED VALUE '9'. LPFNCL01 00278 15 FINAL-REASON-CODE7 PIC X(01). LPFNCL01 00279 88 FINAL-SUF-DIR-VERIFIED VALUE '0'. LPFNCL01 00280 88 FINAL-SUF-MISSING-BAD VALUE '1'. LPFNCL01 00281 88 FINAL-DIR-MISSING-BAD VALUE '2'. LPFNCL01 00282 88 FINAL-SUF-DIR-BAD VALUE '3'. LPFNCL01 00283 88 FINAL-SUF-DIR-MULT-CHOICE VALUE '4'. LPFNCL01 00284 88 FINAL-SUF-DIR-NOT-DETERMINED VALUE '9'. LPFNCL01 00285 15 FINAL-REASON-CODE8 PIC X(01). LPFNCL01 00286 88 FINAL-ALIAS-NOT-INPUT VALUE '0'. LPFNCL01 00287 88 FINAL-ALIAS-PREFERRED VALUE '1'. LPFNCL01 00288 88 FINAL-ALIAS-NICKNAME VALUE '2'. LPFNCL01 00289 88 FINAL-ALIAS-MULT-CHOICE VALUE '4'. LPFNCL01 00290 88 FINAL-ALIAS-NOT-DETERMINED VALUE '9'. LPFNCL01 00291 15 FINAL-REASON-CODE9 PIC X(01). LPFNCL01 00292 88 FINAL-FIRM-VERIFIED VALUE '0'. LPFNCL01 00293 88 FINAL-FIRM-CORRECTED VALUE '1'. LPFNCL01 00294 88 FINAL-FIRM-MATCHED-NOCHG VALUE '2'. LPFNCL01 00295 88 FINAL-FIRM-NOT-DETERMINED VALUE '9'. LPFNCL01 00296 15 FINAL-REASON-CODE10 PIC X(01). LPFNCL01 00297 15 FILLER PIC X(02). LPFNCL01 00298 10 FINAL-ADDRESS-INFO-CODES. LPFNCL01 00299 15 FINAL-INFO-CODE1 PIC X(01). LPFNCL01 00300 88 FINAL-CTYTYP-SINGLE-ZIP VALUE '0'. LPFNCL01 00301 88 FINAL-CTYTYP-MULTI-ZIP VALUE '1'. LPFNCL01 00302 88 FINAL-CTYTYP-NOT-DETERMINED VALUE '9'. LPFNCL01 00303 15 FINAL-INFO-CODE2 PIC X(01). LPFNCL01 00304 88 FINAL-ADDRTYP-CONVENTIONAL VALUE '0'. LPFNCL01 00305 88 FINAL-ADDRTYP-POBOX VALUE '1'. LPFNCL01 00306 88 FINAL-ADDRTYP-RURAL-ROUTE VALUE '2'. LPFNCL01 00307 88 FINAL-ADDRTYP-HC-ROUTE VALUE '3'. LPFNCL01 00308 88 FINAL-ADDRTYP-GENDEL VALUE '4'. LPFNCL01 00309 88 FINAL-ADDRTYP-FIRM VALUE '5'. LPFNCL01 00310 88 FINAL-ADDRTYP-PREDIR VALUE '6'. LPFNCL01 00311 88 FINAL-ADDRTYP-POSTDIR VALUE '7'. LPFNCL01 00312 88 FINAL-ADDRTYP-POSTMASTER VALUE '8'. LPFNCL01 00313 88 FINAL-ADDRTYP-NOT-DETERMINED VALUE '9'. LPFNCL01 00314 15 FINAL-INFO-CODE3 PIC X(01). LPFNCL01 00315 88 FINAL-DELVTYP-CITY VALUE '0'. LPFNCL01 00316 88 FINAL-DELVTYP-CITY-DEFAULT VALUE '1'. LPFNCL01 00317 88 FINAL-DELVTYP-POBOX VALUE '2'. LPFNCL01 00318 88 FINAL-DELVTYP-RR-HC VALUE '3'. LPFNCL01 00319 88 FINAL-DELVTYP-GENDEL VALUE '4'. LPFNCL01 00320 88 FINAL-DELVTYP-NOT-DETERMINED VALUE '9'. LPFNCL01 00321 15 FINAL-INFO-CODE4 PIC X(01). LPFNCL01 00322 88 FINAL-INPADDR-FIRM-LINE12 VALUE '0'. LPFNCL01 00323 88 FINAL-INPADDR-LINE1 VALUE '1'. LPFNCL01 00324 88 FINAL-INPADDR-LINE2 VALUE '2'. LPFNCL01 00325 88 FINAL-INPADDR-LINE12 VALUE '3'. LPFNCL01 00326 88 FINAL-INPADDR-FIRM-NOLINE12 VALUE '4'. LPFNCL01 00327 88 FINAL-INPADDR-FIRML1-NOADDR VALUE '5'. LPFNCL01 00328 88 FINAL-INPADDR-FIRML2-NOADDR VALUE '6'. LPFNCL01 00329 88 FINAL-INPADDR-FIRM-LINE1 VALUE '7'. LPFNCL01 00330 88 FINAL-INPADDR-FIRM-LINE2 VALUE '8'. LPFNCL01 00331 88 FINAL-INPADDR-NOT-DETERMINED VALUE '9'. LPFNCL01 00332 15 FINAL-INFO-CODE5 PIC X(01). LPFNCL01 00333 88 FINAL-LOOKUP-PRIMARY VALUE '1'. LPFNCL01 00334 88 FINAL-LOOKUP-BACKTRACK VALUE '2'. LPFNCL01 00335 15 FINAL-INFO-CODE678. LPFNCL01 00336 88 FINAL-UNIT-NOT-DETERMINED VALUE '000'. LPFNCL01 00337 88 FINAL-UNIT-MFDU-MISSING VALUE '051' LPFNCL01 00338 THRU '058'. LPFNCL01 00339 88 FINAL-UNIT-NDEL VALUE '060'. LPFNCL01 00340 88 FINAL-UNIT-MFDU-PRESENT VALUE '101' LPFNCL01 00341 THRU '108'. LPFNCL01 00342 88 FINAL-UNIT-FIRM-BLDG VALUE '200'. LPFNCL01 00343 88 FINAL-UNIT-SFDU VALUE '300'. LPFNCL01 00344 88 FINAL-UNIT-INPUT-UNAVAIL VALUE '400'. LPFNCL01 00345 88 FINAL-UNIT-INFO-UNAVAIL VALUE '999'. LPFNCL01 00346 20 FINAL-INFO-CODE6 PIC X(01). LPFNCL01 00347 20 FINAL-INFO-CODE7 PIC X(01). LPFNCL01 00348 20 FINAL-INFO-CODE8 PIC X(01). LPFNCL01 00349 15 FILLER PIC X(02). LPFNCL01 00350 10 FINAL-5D-BARCODE. LPFNCL01 00351 15 FINAL-5D-BEG PIC X(01). LPFNCL01 00352 15 FINAL-5D-ZIP PIC X(05). LPFNCL01 00353 15 FINAL-5D-CKDIGIT PIC X(01). LPFNCL01 00354 15 FINAL-5D-END PIC X(01). LPFNCL01 00355 10 FINAL-LINE-OF-TRAVEL. LPFNCL01 00356 15 FINAL-LOT-CODE PIC X(04). LPFNCL01 00357 15 FINAL-LOT-ASCDSC PIC X(01). LPFNCL01 00358 10 FINAL-LACS-FLAG PIC X(01). LPFNCL01 00359 10 FILLER PIC X(06). LPFNCL01 00360 10 FINAL-ADVANCED-BARCODE. LPFNCL01 00361 15 FINAL-ABC-BEG PIC X(01). LPFNCL01 00362 15 FINAL-ABC-ZIP PIC X(05). LPFNCL01 00363 15 FINAL-ABC-ZIP4 PIC X(04). LPFNCL01 00364 15 FINAL-ABC-WSEQ PIC X(02). LPFNCL01 00365 15 FINAL-ABC-CKDIGIT PIC X(01). LPFNCL01 00366 15 FINAL-ABC-END PIC X(01). LPFNCL01 00367 10 FINAL-ALT-ISOLATION. LPFNCL01 00368 15 FINAL-ALT-RANGE PIC X(10). LPFNCL01 00369 15 FINAL-ALT-PRE-DIR PIC X(02). LPFNCL01 00370 15 FINAL-ALT-STREET PIC X(25). LPFNCL01 00371 15 FINAL-ALT-SUFFIX PIC X(04). LPFNCL01 00372 15 FINAL-ALT-POST-DIR PIC X(02). LPFNCL01 00373 15 FINAL-ALT-UNIT PIC X(06). LPFNCL01 00374 15 FILLER REDEFINES FINAL-ALT-UNIT. LPFNCL01 00375 20 FILLER PIC X(02). LPFNCL01 00376 20 FINAL-ALT-UNIT-4BYTE PIC X(04). LPFNCL01 00377 15 FINAL-ALT-RANGE2 PIC X(10). LPFNCL01 00378 10 FINAL-FULL-CITY-NAME PIC X(25). LPFNCL01 00379 10 FINAL-LABEL-RETURN-AREA. LPFNCL01 00380 15 FINAL-LABEL-RC PIC X(01). LPFNCL01 00381 15 FILLER PIC X(01). LPFNCL01 00382 15 FINAL-FIRM-LENGTH1 PIC 9(02). LPFNCL01 00383 15 FINAL-FIRM-LINE1 PIC X(70). LPFNCL01 00384 15 FILLER PIC X(01). LPFNCL01 00385 15 FINAL-LABEL-LENGTH1 PIC 9(02). LPFNCL01 00386 15 FINAL-LABEL-LINE1 PIC X(70). LPFNCL01 00387 15 FILLER PIC X(01). LPFNCL01 00388 15 FINAL-LABEL-LENGTH2 PIC 9(02). LPFNCL01 00389 15 FINAL-LABEL-LINE2 PIC X(70). LPFNCL01 00390 15 FILLER PIC X(01). LPFNCL01 00391 15 FINAL-LABEL-LENGTH3 PIC 9(02). LPFNCL01 00392 15 FINAL-LABEL-LINE3 PIC X(70). LPFNCL01 00393 15 FILLER PIC X(01). LPFNCL01 00394 15 FINAL-ALT-LABEL-LENGTH2 PIC 9(02). LPFNCL01 00395 15 FINAL-ALT-LABEL-LINE2 PIC X(70). LPFNCL01 00396 10 FINAL-MAIL-FIRM-NAME PIC X(40). LPFNCL01 00397 10 FINAL-CITY-VANITY-NAME PIC X(13). LPFNCL01 00398 10 FINAL-JOB-INFO. LPFNCL01 00399 15 FINAL-TIME-STAMP PIC X(08). LPFNCL01 00400 15 FINAL-DATE-STAMP PIC X(08). LPFNCL01 00401 15 FINAL-DATA-FILE-VER PIC X(04). LPFNCL01 00402 15 FINAL-DATA-FILE-UPDATE PIC X(08). LPFNCL01 00403 15 FINAL-CITY-FILE-VER PIC X(04). LPFNCL01 00404 15 FINAL-CITY-FILE-UPDATE PIC X(08). LPFNCL01 00405 15 FINAL-PRODUCT-VERSION PIC X(03). LPFNCL01 00406 10 FINAL-BATCH-FILLER PIC X(42). LPFNCL01 00407 10 FINAL-IDMSFLDS REDEFINES FINAL-BATCH-FILLER. LPFNCL01 00408 15 FINAL-IDMSMSG PIC X(34). LPFNCL01 00409 15 FINAL-IDMSERMD PIC X(08). LPFNCL01