194 lines
15 KiB
COBOL
194 lines
15 KiB
COBOL
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
|