26 lines
2.0 KiB
COBOL
26 lines
2.0 KiB
COBOL
00001 ***** 02/02/99
|
|
00002 * DTSIL039
|
|
00003 * DTSIL039 LMI SIC CODE EDIT/DESCRIPTION MODULE LINKAGE. LV005
|
|
00004 * DTSIL039
|
|
00005 * CL**5
|
|
00006 * 02/02/1999 REVIEWED AND MODIFIED FOR DC. EHH CL**5
|
|
00007 * CL**5
|
|
00008 ***** DTSIL039
|
|
00009 CL**5
|
|
00010 10 L039-SIC-CD PIC X(04). CL**4
|
|
00011 CL**5
|
|
00012 10 L039-SIC-RESULT-IND PIC X(01). DTSIL039
|
|
00013 88 L039-SIC-VALID VALUE '1'. DTSIL039
|
|
00014 88 L039-SIC-NOT-VALID VALUE '2'. DTSIL039
|
|
00015 88 L039-SIC-FILE-CLOSED VALUE '3'. DTSIL039
|
|
00016 CL**5
|
|
00017 10 L039-SIC-DSCRS. DTSIL039
|
|
00018 15 L039-SIC-SHORT-DSCR PIC X(10). DTSIL039
|
|
00019 15 L039-SIC-LONG-DSCR PIC X(40). DTSIL039
|
|
00020 CL**5
|
|
00021 10 L039-MSG-AREA. DTSIL039
|
|
00022 15 L039-MSG-ID PIC X(04). DTSIL039
|
|
00023 15 L039-MSG-TXT PIC X(60). DTSIL039
|
|
00024 CL**5
|
|
00025 10 FILLER PIC X(09). CL**5
|