DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
193
Copybook/DTSIC038.cpy
Normal file
193
Copybook/DTSIC038.cpy
Normal file
@ -0,0 +1,193 @@
|
||||
00001 ***** 02/02/99
|
||||
00002 * DTSIC038
|
||||
00003 * DTSIC038 LMI CODES VALUES AND DESCRIPTIONS. LV004
|
||||
00004 * DTSIC038
|
||||
00005 * CL**2
|
||||
00006 * 02/02/1999 REVIEWED AND MODIFIED FOR DC. EHH CL**2
|
||||
00007 * CL**2
|
||||
00008 ***** DTSIC038
|
||||
00009 CL**2
|
||||
00010 CL**2
|
||||
00011 ***** CL**2
|
||||
00012 * OPTION 01 = MPRF-SIC-AUXILIARY-CD CL**2
|
||||
00013 * CL**2
|
||||
00014 * OPTION 02 = MPRF-NAICS-AUXILIARY-CD CL**2
|
||||
00015 ***** CL**2
|
||||
00016 10 C038-01-02-AREA. CL**2
|
||||
00017 15 FILLER PIC X(01) VALUE '0'. CL**2
|
||||
00018 15 FILLER PIC X(10) VALUE 'UNKNOWN'. CL**2
|
||||
00019 15 FILLER PIC X(40) CL**2
|
||||
00020 VALUE 'UNKNOWN'. CL**2
|
||||
00021 15 FILLER PIC X(01) VALUE '1'. CL**2
|
||||
00022 15 FILLER PIC X(10) VALUE 'ADMIN'. CL**2
|
||||
00023 15 FILLER PIC X(40) CL**2
|
||||
00024 VALUE 'CENTRAL ADMINISTRATIVE OFFICE'. CL**2
|
||||
00025 15 FILLER PIC X(01) VALUE '2'. CL**2
|
||||
00026 15 FILLER PIC X(10) VALUE 'RESEARCH'. CL**2
|
||||
00027 15 FILLER PIC X(40) CL**2
|
||||
00028 VALUE 'RESEARCH, DEVELOPMENT, AND TESTING'. CL**2
|
||||
00029 15 FILLER PIC X(01) VALUE '3'. CL**2
|
||||
00030 15 FILLER PIC X(10) VALUE 'WAREHOUSE'. CL**2
|
||||
00031 15 FILLER PIC X(40) CL**2
|
||||
00032 VALUE 'STORAGE (WAREHOUSE)'. CL**2
|
||||
00033 15 FILLER PIC X(01) VALUE '5'. CL**2
|
||||
00034 15 FILLER PIC X(10) VALUE 'OPR ESTBL'. CL**2
|
||||
00035 15 FILLER PIC X(40) CL**2
|
||||
00036 VALUE 'NOT AN AUXILIARY UNIT'. CL**2
|
||||
00037 15 FILLER PIC X(01) VALUE '9'. CL**2
|
||||
00038 15 FILLER PIC X(10) VALUE 'OTHER'. CL**2
|
||||
00039 15 FILLER PIC X(40) CL**2
|
||||
00040 VALUE 'OTHER AUXILIARY'. CL**2
|
||||
00041 CL**2
|
||||
00042 10 FILLER REDEFINES C038-01-02-AREA. CL**2
|
||||
00043 15 C038-01-02-ENTRY OCCURS 6 TIMES CL**2
|
||||
00044 INDEXED BY C038-01-02-IDX. CL**2
|
||||
00045 20 C038-01-02-CD PIC X(01). CL**2
|
||||
00046 20 C038-01-02-SHORT-DSCR PIC X(10). CL**2
|
||||
00047 20 C038-01-02-LONG-DSCR PIC X(40). CL**2
|
||||
00048 CL**2
|
||||
00049 CL**2
|
||||
00050 ***** DTSIC038
|
||||
00051 * OPTION 03 = MPRF-OWN-CD CL**2
|
||||
00052 ***** DTSIC038
|
||||
00053 CL**2
|
||||
00054 10 C038-03-AREA. CL**2
|
||||
00055 15 FILLER PIC X(02) VALUE '10'. CL**2
|
||||
00056 15 FILLER PIC X(10) VALUE 'FED GOV'. CL**2
|
||||
00057 15 FILLER PIC X(40) DTSIC038
|
||||
00058 VALUE 'FEDERAL GOVERNMENT'. CL**2
|
||||
00059 15 FILLER PIC X(02) VALUE '20'. CL**2
|
||||
00060 15 FILLER PIC X(10) VALUE 'STATE GOV'. CL**2
|
||||
00061 15 FILLER PIC X(40) DTSIC038
|
||||
00062 VALUE 'STATE GOVERNMENT'. CL**2
|
||||
00063 15 FILLER PIC X(02) VALUE '30'. CL**2
|
||||
00064 15 FILLER PIC X(10) VALUE 'LOCAL GOV'. CL**2
|
||||
00065 15 FILLER PIC X(40) CL**2
|
||||
00066 VALUE 'LOCAL GOVERNMENT'. CL**2
|
||||
00067 15 FILLER PIC X(02) VALUE '40'. CL**2
|
||||
00068 15 FILLER PIC X(10) VALUE 'INTERNAT'. CL**2
|
||||
00069 15 FILLER PIC X(40) CL**2
|
||||
00070 VALUE 'INTERNATIONAL'. CL**2
|
||||
00071 15 FILLER PIC X(02) VALUE '50'. CL**2
|
||||
00072 15 FILLER PIC X(10) VALUE 'PRIVATE'. CL**2
|
||||
00073 15 FILLER PIC X(40) CL**2
|
||||
00074 VALUE 'PRIVATE'. CL**2
|
||||
00075 15 FILLER PIC X(02) VALUE '51'. CL**2
|
||||
00076 15 FILLER PIC X(10) VALUE 'PRIVATE'. CL**2
|
||||
00077 15 FILLER PIC X(40) CL**2
|
||||
00078 VALUE 'PRIVATE'. CL**2
|
||||
00079 15 FILLER PIC X(02) VALUE '52'. CL**2
|
||||
00080 15 FILLER PIC X(10) VALUE 'PRIVATE'. CL**2
|
||||
00081 15 FILLER PIC X(40) CL**2
|
||||
00082 VALUE 'PRIVATE'. CL**2
|
||||
00083 15 FILLER PIC X(02) VALUE '53'. CL**2
|
||||
00084 15 FILLER PIC X(10) VALUE 'PRIVATE'. CL**2
|
||||
00085 15 FILLER PIC X(40) CL**2
|
||||
00086 VALUE 'PRIVATE'. CL**2
|
||||
00087 15 FILLER PIC X(02) VALUE '54'. CL**2
|
||||
00088 15 FILLER PIC X(10) VALUE 'PRIVATE'. CL**2
|
||||
00089 15 FILLER PIC X(40) CL**2
|
||||
00090 VALUE 'PRIVATE'. CL**2
|
||||
00091 15 FILLER PIC X(02) VALUE '55'. CL**2
|
||||
00092 15 FILLER PIC X(10) VALUE 'PRIVATE'. CL**2
|
||||
00093 15 FILLER PIC X(40) CL**2
|
||||
00094 VALUE 'PRIVATE'. CL**2
|
||||
00095 15 FILLER PIC X(02) VALUE '56'. CL**2
|
||||
00096 15 FILLER PIC X(10) VALUE 'PRIVATE'. CL**2
|
||||
00097 15 FILLER PIC X(40) CL**2
|
||||
00098 VALUE 'PRIVATE'. CL**2
|
||||
00099 15 FILLER PIC X(02) VALUE '57'. CL**2
|
||||
00100 15 FILLER PIC X(10) VALUE 'PRIVATE'. CL**2
|
||||
00101 15 FILLER PIC X(40) CL**2
|
||||
00102 VALUE 'PRIVATE'. CL**2
|
||||
00103 15 FILLER PIC X(02) VALUE '58'. CL**2
|
||||
00104 15 FILLER PIC X(10) VALUE 'PRIVATE'. CL**2
|
||||
00105 15 FILLER PIC X(40) CL**2
|
||||
00106 VALUE 'PRIVATE'. CL**2
|
||||
00107 15 FILLER PIC X(02) VALUE '59'. CL**2
|
||||
00108 15 FILLER PIC X(10) VALUE 'PRIVATE'. CL**2
|
||||
00109 15 FILLER PIC X(40) CL**2
|
||||
00110 VALUE 'PRIVATE'. CL**2
|
||||
00111 15 FILLER PIC X(02) VALUE '99'. CL**4
|
||||
00112 15 FILLER PIC X(10) VALUE 'NOT DETRM'. CL**4
|
||||
00113 15 FILLER PIC X(40) CL**4
|
||||
00114 VALUE 'NOT DETERMINED'. CL**4
|
||||
00115 CL**2
|
||||
00116 10 FILLER REDEFINES C038-03-AREA. CL**2
|
||||
00117 15 C038-03-ENTRY OCCURS 15 TIMES CL**4
|
||||
00118 INDEXED BY C038-03-IDX. CL**2
|
||||
00119 20 C038-03-CD PIC X(02). CL**2
|
||||
00120 20 C038-03-SHORT-DSCR PIC X(10). CL**2
|
||||
00121 20 C038-03-LONG-DSCR PIC X(40). CL**2
|
||||
00122 CL**2
|
||||
00123 CL**2
|
||||
00124 ***** CL**2
|
||||
00125 * OPTION 04 = MPRF-MULTI-IND CL**2
|
||||
00126 ***** CL**2
|
||||
00127 CL**2
|
||||
00128 10 C038-04-AREA. CL**2
|
||||
00129 15 FILLER PIC X(01) VALUE 'N'. CL**2
|
||||
00130 15 FILLER PIC X(10) VALUE 'SINGLE'. CL**2
|
||||
00131 15 FILLER PIC X(40) CL**2
|
||||
00132 VALUE 'SINGLE UNIT'. CL**2
|
||||
00133 15 FILLER PIC X(01) VALUE 'Y'. CL**2
|
||||
00134 15 FILLER PIC X(10) VALUE 'MULTIPLE'. CL**2
|
||||
00135 15 FILLER PIC X(40) CL**2
|
||||
00136 VALUE 'MULTIPLE ESTABLISHMENTS'. CL**2
|
||||
00137 CL**2
|
||||
00138 10 FILLER REDEFINES C038-04-AREA. CL**2
|
||||
00139 15 C038-04-ENTRY OCCURS 2 TIMES CL**2
|
||||
00140 INDEXED BY C038-04-IDX. CL**2
|
||||
00141 20 C038-04-CD PIC X(01). CL**2
|
||||
00142 20 C038-04-SHORT-DSCR PIC X(10). CL**2
|
||||
00143 20 C038-04-LONG-DSCR PIC X(40). CL**2
|
||||
00144 CL**2
|
||||
00145 CL**2
|
||||
00146 ***** CL**2
|
||||
00147 * OPTION 05 = MPRF-WARD-CD CL**2
|
||||
00148 ***** CL**2
|
||||
00149 CL**2
|
||||
00150 10 C038-05-AREA. CL**2
|
||||
00151 15 FILLER PIC X(02) VALUE '00'. CL**2
|
||||
00152 15 FILLER PIC X(10) VALUE 'UNKNOWN'. CL**2
|
||||
00153 15 FILLER PIC X(40) CL**2
|
||||
00154 VALUE 'UNKNOWN'. CL**2
|
||||
00155 15 FILLER PIC X(02) VALUE '01'. CL**2
|
||||
00156 15 FILLER PIC X(10) VALUE '1ST WARD'. CL**2
|
||||
00157 15 FILLER PIC X(40) CL**2
|
||||
00158 VALUE 'FIRST WARD'. CL**2
|
||||
00159 15 FILLER PIC X(02) VALUE '02'. CL**2
|
||||
00160 15 FILLER PIC X(10) VALUE '2ND WARD'. CL**2
|
||||
00161 15 FILLER PIC X(40) CL**2
|
||||
00162 VALUE 'SECOND WARD'. CL**2
|
||||
00163 15 FILLER PIC X(02) VALUE '03'. CL**2
|
||||
00164 15 FILLER PIC X(10) VALUE '3RD WARD'. CL**2
|
||||
00165 15 FILLER PIC X(40) CL**2
|
||||
00166 VALUE 'THIRD WARD'. CL**2
|
||||
00167 15 FILLER PIC X(02) VALUE '04'. CL**2
|
||||
00168 15 FILLER PIC X(10) VALUE '4TH WARD'. CL**2
|
||||
00169 15 FILLER PIC X(40) CL**2
|
||||
00170 VALUE 'FOURTH WARD'. CL**2
|
||||
00171 15 FILLER PIC X(02) VALUE '05'. CL**2
|
||||
00172 15 FILLER PIC X(10) VALUE '5TH WARD'. CL**2
|
||||
00173 15 FILLER PIC X(40) CL**2
|
||||
00174 VALUE 'FIFTH WARD'. CL**2
|
||||
00175 15 FILLER PIC X(02) VALUE '06'. CL**2
|
||||
00176 15 FILLER PIC X(10) VALUE '6TH WARD'. CL**2
|
||||
00177 15 FILLER PIC X(40) CL**2
|
||||
00178 VALUE 'SIXTH WARD'. CL**2
|
||||
00179 15 FILLER PIC X(02) VALUE '07'. CL**2
|
||||
00180 15 FILLER PIC X(10) VALUE '7TH WARD'. CL**2
|
||||
00181 15 FILLER PIC X(40) CL**2
|
||||
00182 VALUE 'SEVENTH WARD'. CL**2
|
||||
00183 15 FILLER PIC X(02) VALUE '08'. CL**2
|
||||
00184 15 FILLER PIC X(10) VALUE '8TH WARD'. CL**2
|
||||
00185 15 FILLER PIC X(40) CL**2
|
||||
00186 VALUE 'EIGTH WARD'. CL**2
|
||||
00187 CL**2
|
||||
00188 10 FILLER REDEFINES C038-05-AREA. CL**2
|
||||
00189 15 C038-05-ENTRY OCCURS 9 TIMES CL**2
|
||||
00190 INDEXED BY C038-05-IDX. CL**3
|
||||
00191 20 C038-05-CD PIC X(02). CL**2
|
||||
00192 20 C038-05-SHORT-DSCR PIC X(10). CL**2
|
||||
00193 20 C038-05-LONG-DSCR PIC X(40). CL**2
|
||||
Reference in New Issue
Block a user