26 lines
2.0 KiB
COBOL
26 lines
2.0 KiB
COBOL
00001 ***** 10/11/17
|
|
00002 * DTSIC072
|
|
00003 * DTSIC072 STATE POSTAL CODE VALUES. LV008
|
|
00004 * DTSIC072
|
|
00005 * REVIEWED AND MODIFIED FOR DC. 08/11/1998 EHH DTSIC072
|
|
00006 * MODIFIED FOR CANADIAN ADDRESS. 04/30/2002 ZL1 DTSIC072
|
|
00007 * ADDED 'QC' MODIFIED FOR CANADIAN ADDRESS. 10/11/2017 ZL1 CL**8
|
|
00008 * DTSIC072
|
|
00009 ***** DTSIC072
|
|
00010 DTSIC072
|
|
00011 05 C072-ST PIC X(02). DTSIC072
|
|
00012 88 C072-DC-88 VALUE 'DC'. DTSIC072
|
|
00013 88 C072-BORDER-88 VALUE 'MD' 'VA'. DTSIC072
|
|
00014 88 C072-US-88 VALUE DTSIC072
|
|
00015 'AL' 'AK' 'AZ' 'AR' 'CA' 'CO' 'CT' 'DE' 'DC' 'FL' DTSIC072
|
|
00016 'GA' 'HI' 'ID' 'IL' 'IN' 'IA' 'KS' 'KY' 'LA' 'ME' DTSIC072
|
|
00017 'MD' 'MA' 'MI' 'MN' 'MS' 'MO' 'MT' 'NE' 'NV' 'NH' DTSIC072
|
|
00018 'NJ' 'NM' 'NY' 'NC' 'ND' 'OH' 'OK' 'OR' 'PA' 'PR' DTSIC072
|
|
00019 'RI' 'SC' 'SD' 'TN' 'TX' 'UT' 'VT' 'VA' 'VI' 'WA' DTSIC072
|
|
00020 'WV' 'WI' 'WY' 'AA' 'AE' 'AP' 'GU' 'MP'. DTSIC072
|
|
00021 88 C072-CANADA-88 VALUE DTSIC072
|
|
00022 'AB' 'BC' 'CD' 'MB' 'NB' 'NF' 'NT' 'NS' 'ON' 'PQ' DTSIC072
|
|
00023 'QC' 'SK' 'YT'. CL**8
|
|
00024 88 C072-FOREIGN-88 VALUE '**'. DTSIC072
|
|
00025 88 C072-ARMED-FORCES-88 VALUE 'AA' 'AE' 'AP'. DTSIC072
|