12 lines
891 B
COBOL
12 lines
891 B
COBOL
00001 ***** 07/27/98
|
|
00002 * DTSILS19
|
|
00003 * MACILS19 RELATIONSHIP INQUIRY/UPDATE LV001
|
|
00004 * MODULE LINKAGE (LCCM-SCR19-HOLD-AREA). DTSILS19
|
|
00005 * DTSILS19
|
|
00006 ***** DTSILS19
|
|
00007 DTSILS19
|
|
00008 10 LS19-EMP-NO PIC S9(07) COMP-3. DTSILS19
|
|
00009 10 LS19-REC-KEY-AREA PIC X(16). DTSILS19
|
|
00010 DTSILS19
|
|
00011 10 FILLER PIC X(12). DTSILS19
|