13 lines
972 B
COBOL
13 lines
972 B
COBOL
00001 ***** 08/13/98
|
|
00002 * DTSIRSK1
|
|
00003 * MACIRSK1 REPORT FILE SKELETAL RECORD DESCRIPTION LV002
|
|
00004 * (512 BYTE VERSION). DTSIRSK1
|
|
00005 * DTSIRSK1
|
|
00006 * 08/13/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2
|
|
00007 * CL**2
|
|
00008 ***** DTSIRSK1
|
|
00009 CL**2
|
|
00010 10 RSK1-LENGTH PIC S9(04) COMP. DTSIRSK1
|
|
00011 10 RSK1-REC-TYPE PIC X(03). DTSIRSK1
|
|
00012 10 FILLER PIC X(507). DTSIRSK1
|