15 lines
1.1 KiB
COBOL
15 lines
1.1 KiB
COBOL
00001 ***** 07/11/19
|
|
00002 * DTSIXTPH
|
|
00003 * DTSIXTPH TOPS HEADER EXTRACT RECORD LV007
|
|
00004 * DTSIXTPH
|
|
00005 * EXCHANGES TOPS HEADER DATA BETWEEN MAINFRAME AND CL**4
|
|
00006 * OTR/IRS FOR TOPS INTERFACE CL**4
|
|
00007 * DTSIXTPH
|
|
00008 * DTSIXTPH
|
|
00009 ***** DTSIXTPH
|
|
00010 DTSIXTPH
|
|
00011 15 TOP-HEADER PIC X(05) VALUE SPACES. CL**7
|
|
00012 15 TOP-HEADER-ID PIC X(04) VALUE ' T1'. CL**5
|
|
00013 15 TOP-HEAD-BATCH-CONT PIC X(08). CL**5
|
|
00014 15 FILLER PIC X(183) VALUE SPACES. CL**7
|