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