IDENTIFICATION DIVISION.
PROGRAM-ID. PROGRAM-NAME.

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
    SELECT FILE-NAME
        ASSIGN TO "pacta-filename.txt"
        ORGANIZATION IS LINE SEQUENTIAL.

DATA DIVISION.
FILE SECTION.
FD  FILE-NAME.
01  RECORD-NAME.
    05 FIELD-1     PIC X(10).

WORKING-STORAGE SECTION.
01 VARIABLE-NAME   PIC X(20) VALUE SPACES.
01 EOF-FLAG        PIC X VALUE "N".
   88 EOF          VALUE "Y".

PROCEDURE DIVISION.
PARAGRAPH-NAME.
    OPEN INPUT FILE-NAME
    READ FILE-NAME
        AT END
            SET EOF TO TRUE
        NOT AT END
            DISPLAY "Hello Pacta Cobol"
            DISPLAY FIELD-1
    END-READ
    CLOSE FILE-NAME
    STOP RUN.