IDENTIFICATION DIVISION.
PROGRAM-ID. CAT.
AUTHOR. David Meyer <papa@twenex.org>.
INSTALLATION. Twenex.org / SDF Public Access Unix.
DATE-WRITTEN. 2013-12-28.

* Print INF: contents like Unix cat.

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. DECSYSTEM-20.
OBJECT-COMPUTER. DECSYSTEM-20.

INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INFILE ASSIGN TO INF RECORDING MODE IS ASCII.

DATA DIVISION.
FILE SECTION.
FD INFILE VALUE OF ID IS '' DATA RECORD IS INRECORD.
01 INRECORD PIC X(80).

WORKING-STORAGE SECTION.

PROCEDURE DIVISION.

MAIN.
    OPEN INPUT INFILE.
    READ INFILE AT END MOVE HIGH-VALUES TO INRECORD.
    PERFORM FILE-LINE UNTIL INRECORD EQUALS HIGH-VALUES.
    CLOSE INFILE.
    STOP RUN.

FILE-LINE.
    DISPLAY INRECORD.
    READ INFILE AT END MOVE HIGH-VALUES TO INRECORD.