blob: 704c58ae6568eb58319da355ec308ba762b15ced (
plain) (
blame)
1
2
3
4
5
6
7
8
|
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO_WORLD.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 FOO PIC 99 VALUE 43.
PROCEDURE DIVISION.
DISPLAY "Hello, World!" FOO
STOP RUN.
|