giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

79
Copybook/DTSIC075.cpy Normal file
View File

@ -0,0 +1,79 @@
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