80 lines
6.2 KiB
COBOL
80 lines
6.2 KiB
COBOL
00001 ***** 05/24/00
|
|
00002 * DTSIC075
|
|
00003 * DTSIC075 STATE POSTAL CODE / STATE FIPS CODE TABLE. LV001
|
|
00004 * MOST COMMONLY USED ABBREVIATIONS AT THE TOP. DTSIC075
|
|
00005 * DTSIC075
|
|
00006 ***** DTSIC075
|
|
00007 SKIP1 DTSIC075
|
|
00008 05 C075-LITERALS. DTSIC075
|
|
00009 10 FILLER PIC X(04) VALUE 'DE10'. DTSIC075
|
|
00010 10 FILLER PIC X(04) VALUE 'MD24'. DTSIC075
|
|
00011 10 FILLER PIC X(04) VALUE 'NJ34'. DTSIC075
|
|
00012 10 FILLER PIC X(04) VALUE 'PA42'. DTSIC075
|
|
00013 10 FILLER PIC X(04) VALUE 'VA51'. DTSIC075
|
|
00014 10 FILLER PIC X(04) VALUE 'WV54'. DTSIC075
|
|
00015 SKIP1 DTSIC075
|
|
00016 10 FILLER PIC X(04) VALUE 'AL01'. DTSIC075
|
|
00017 10 FILLER PIC X(04) VALUE 'AK02'. DTSIC075
|
|
00018 10 FILLER PIC X(04) VALUE 'AZ04'. DTSIC075
|
|
00019 10 FILLER PIC X(04) VALUE 'AR05'. DTSIC075
|
|
00020 10 FILLER PIC X(04) VALUE 'CA06'. DTSIC075
|
|
00021 10 FILLER PIC X(04) VALUE 'CO08'. DTSIC075
|
|
00022 10 FILLER PIC X(04) VALUE 'CT09'. DTSIC075
|
|
00023 10 FILLER PIC X(04) VALUE 'DC11'. DTSIC075
|
|
00024 10 FILLER PIC X(04) VALUE 'FL12'. DTSIC075
|
|
00025 10 FILLER PIC X(04) VALUE 'GA13'. DTSIC075
|
|
00026 10 FILLER PIC X(04) VALUE 'HI15'. DTSIC075
|
|
00027 10 FILLER PIC X(04) VALUE 'ID16'. DTSIC075
|
|
00028 10 FILLER PIC X(04) VALUE 'IL17'. DTSIC075
|
|
00029 10 FILLER PIC X(04) VALUE 'IN18'. DTSIC075
|
|
00030 10 FILLER PIC X(04) VALUE 'IA19'. DTSIC075
|
|
00031 10 FILLER PIC X(04) VALUE 'KS20'. DTSIC075
|
|
00032 10 FILLER PIC X(04) VALUE 'KY21'. DTSIC075
|
|
00033 10 FILLER PIC X(04) VALUE 'LA22'. DTSIC075
|
|
00034 10 FILLER PIC X(04) VALUE 'ME23'. DTSIC075
|
|
00035 10 FILLER PIC X(04) VALUE 'MA25'. DTSIC075
|
|
00036 10 FILLER PIC X(04) VALUE 'MI26'. DTSIC075
|
|
00037 10 FILLER PIC X(04) VALUE 'MN27'. DTSIC075
|
|
00038 10 FILLER PIC X(04) VALUE 'MS28'. DTSIC075
|
|
00039 10 FILLER PIC X(04) VALUE 'MO29'. DTSIC075
|
|
00040 10 FILLER PIC X(04) VALUE 'MT30'. DTSIC075
|
|
00041 10 FILLER PIC X(04) VALUE 'NE31'. DTSIC075
|
|
00042 10 FILLER PIC X(04) VALUE 'NV32'. DTSIC075
|
|
00043 10 FILLER PIC X(04) VALUE 'NH33'. DTSIC075
|
|
00044 10 FILLER PIC X(04) VALUE 'NM35'. DTSIC075
|
|
00045 10 FILLER PIC X(04) VALUE 'NY36'. DTSIC075
|
|
00046 10 FILLER PIC X(04) VALUE 'NC37'. DTSIC075
|
|
00047 10 FILLER PIC X(04) VALUE 'ND38'. DTSIC075
|
|
00048 10 FILLER PIC X(04) VALUE 'OH39'. DTSIC075
|
|
00049 10 FILLER PIC X(04) VALUE 'OK40'. DTSIC075
|
|
00050 10 FILLER PIC X(04) VALUE 'OR41'. DTSIC075
|
|
00051 10 FILLER PIC X(04) VALUE 'PR43'. DTSIC075
|
|
00052 10 FILLER PIC X(04) VALUE 'RI44'. DTSIC075
|
|
00053 10 FILLER PIC X(04) VALUE 'SC45'. DTSIC075
|
|
00054 10 FILLER PIC X(04) VALUE 'SD46'. DTSIC075
|
|
00055 10 FILLER PIC X(04) VALUE 'TN47'. DTSIC075
|
|
00056 10 FILLER PIC X(04) VALUE 'TX48'. DTSIC075
|
|
00057 10 FILLER PIC X(04) VALUE 'UT49'. DTSIC075
|
|
00058 10 FILLER PIC X(04) VALUE 'VT50'. DTSIC075
|
|
00059 10 FILLER PIC X(04) VALUE 'VI52'. DTSIC075
|
|
00060 10 FILLER PIC X(04) VALUE 'WA53'. DTSIC075
|
|
00061 10 FILLER PIC X(04) VALUE 'WI55'. DTSIC075
|
|
00062 10 FILLER PIC X(04) VALUE 'WY56'. DTSIC075
|
|
00063 10 FILLER PIC X(04) VALUE 'AB07'. DTSIC075
|
|
00064 10 FILLER PIC X(04) VALUE 'BC07'. DTSIC075
|
|
00065 10 FILLER PIC X(04) VALUE 'MB07'. DTSIC075
|
|
00066 10 FILLER PIC X(04) VALUE 'NB07'. DTSIC075
|
|
00067 10 FILLER PIC X(04) VALUE 'NF07'. DTSIC075
|
|
00068 10 FILLER PIC X(04) VALUE 'NT07'. DTSIC075
|
|
00069 10 FILLER PIC X(04) VALUE 'NS07'. DTSIC075
|
|
00070 10 FILLER PIC X(04) VALUE 'ON07'. DTSIC075
|
|
00071 10 FILLER PIC X(04) VALUE 'PQ07'. DTSIC075
|
|
00072 10 FILLER PIC X(04) VALUE 'SK07'. DTSIC075
|
|
00073 10 FILLER PIC X(04) VALUE 'YT07'. DTSIC075
|
|
00074 SKIP1 DTSIC075
|
|
00075 05 FILLER REDEFINES C075-LITERALS. DTSIC075
|
|
00076 10 C075-LITERAL-GROUP OCCURS 64 TIMES DTSIC075
|
|
00077 INDEXED BY C075-IDX. DTSIC075
|
|
00078 15 C075-POSTAL-ST PIC X(02). DTSIC075
|
|
00079 15 C075-FIPS-ST PIC X(02). DTSIC075
|