13 lines
972 B
COBOL
13 lines
972 B
COBOL
00001 ***** 04/15/08
|
|
00002 * DTSIX461
|
|
00003 * DTSIX461 HEADER RECORD FOR DAILY "CLEAN HANDS" EXTRACT. LV006
|
|
00004 * DTSIX461
|
|
00005 * DTSIX461
|
|
00006 ***** DTSIX461
|
|
00007 DTSIX461
|
|
00008 15 X461-HEADER-TITLE PIC X(07) CL**3
|
|
00009 VALUE 'HEADER='. CL**5
|
|
00010 15 X461-HEADER-CNT PIC 9(07). CL**3
|
|
00011 15 FILLER PIC X(372) CL**6
|
|
00012 VALUE SPACES. CL**4
|