00001 ***** 02/02/99 00002 * DTSIL038 00003 * DTSIL038 LMI CODES EDIT/DESCRIPTION MODULE LINKAGE. LV002 00004 * DTSIL038 00005 * CL**2 00006 * 02/02/1999 REVIEWED AND MODIFIED FOR DC. EHH CL**2 00007 * CL**2 00008 ***** DTSIL038 00009 CL**2 00010 10 L038-OPTION PIC S9(04) COMP. DTSIL038 00011 88 L038-MPRF-SIC-AUXILIARY-CD VALUE +01. CL**2 00012 88 L038-MPRF-NAICS-AUXILIARY-CD CL**2 00013 VALUE +02. CL**2 00014 88 L038-MPRF-OWN-CD VALUE +03. CL**2 00015 88 L038-MPRF-MULTI-IND VALUE +04. CL**2 00016 88 L038-MPRF-WARD-CD VALUE +05. CL**2 00017 CL**2 00018 10 L038-RESULT-IND PIC X(01). DTSIL038 00019 88 L038-VALID VALUE '1'. DTSIL038 00020 88 L038-NOT-VALID VALUE '2'. DTSIL038 00021 CL**2 00022 10 L038-CD PIC X(05). DTSIL038 00023 10 FILLER REDEFINES L038-CD. DTSIL038 00024 15 L038-CD-1 PIC X(01). DTSIL038 00025 15 FILLER PIC X(04). DTSIL038 00026 10 FILLER REDEFINES L038-CD. DTSIL038 00027 15 L038-CD-2 PIC X(02). DTSIL038 00028 15 FILLER PIC X(03). DTSIL038 00029 10 FILLER REDEFINES L038-CD. DTSIL038 00030 15 L038-CD-3 PIC X(03). DTSIL038 00031 15 FILLER PIC X(02). DTSIL038 00032 10 FILLER REDEFINES L038-CD. DTSIL038 00033 15 L038-CD-4 PIC X(04). DTSIL038 00034 15 FILLER PIC X(01). DTSIL038 00035 10 L038-CD-5 REDEFINES L038-CD PIC X(05). DTSIL038 00036 CL**2 00037 10 L038-SHORT-DSCR PIC X(10). DTSIL038 00038 CL**2 00039 10 L038-LONG-DSCR PIC X(40). DTSIL038 00040 CL**2 00041 10 FILLER PIC X(06). CL**2