DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
409
Copybook/LPFNCL01.cpy
Normal file
409
Copybook/LPFNCL01.cpy
Normal file
@ -0,0 +1,409 @@
|
||||
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
|
||||
Reference in New Issue
Block a user