IDENTIFICATION DIVISION.
	PROGRAM-NAME: HW0001
	AUTHOR: NOT TELLING.

EVNIRONMENT DIVISION.
	OUTPUT-FILE ASSIGN TO STDOUT.


DATA DIVISION.
	FILE SECTION.
	FD OUTPUT-FILE.
		10 OUT-RECORD PIC X(80).

	DATA SECTION.
		10 STRING PIC X(20) VALUE 'Hello, World'.


PROCEDURE DIVISION.

	MOVE STRING INTO OUT-RECORD.
	WRITE OUTPUT-FILE.
	EXIT.


What wrong with that?
		-- convicted COBOL fellon.