[PokerAce]

[ QUOTE ]
DATA DIVISION.
01 WORKING-STORAGE.
01 HEADER-1 PIC X(15) VALUE 'MERRY CHRISTMAS'

PROCEDURE DIVISION.

PERFORM 100-INIT THRU 100-INIT-EXIT.
PERFORM 200-MAIN THRU 200-MAIN-EXIT.
PERFORM 300-TERM THRU 300-TERM0EXIT.
GOBACK.

100-INIT.
OPEN OUTPUT-FILE FOR OUTPUT.
100-INIT-EXIT.

200-MAIN.
WRITE OUT-REC FROM HEADER-1.
200-MAIN-EXIT.

300-TERM.
CLOSE OUTPUT-FILE.
300-TERM-EXIT.

Then just open the output file in 3.4.

[/ QUOTE ]

MY EYES!!!!!