IDENTIFICATION DIVISION.
PROGRAM-ID. CAT.
AUTHOR. David Meyer <[email protected]>.
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.

You are viewing proxied material from sdf.org. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.