11 lines
810 B
COBOL
11 lines
810 B
COBOL
00001 ***** 11/25/98
|
|
00002 * DTSIXEDS
|
|
00003 * DTSIXEDS EDITOR TEMPORARY STORAGE RECORD LV002
|
|
00004 * DTSIXEDS
|
|
00005 ***** DTSIXEDS
|
|
00006 DTSIXEDS
|
|
00007 10 XEDS-LENGTH PIC S9(04) COMP VALUE +1156. DTSIXEDS
|
|
00008 10 XEDS-LINE-CNT PIC S9(04) COMP. DTSIXEDS
|
|
00009 10 XEDS-DATA. DTSIXEDS
|
|
00010 15 XEDS-LINE OCCURS 16 TIMES PIC X(72). DTSIXEDS
|