410 lines
32 KiB
COBOL
410 lines
32 KiB
COBOL
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
|