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