42 lines
3.2 KiB
COBOL
42 lines
3.2 KiB
COBOL
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
|