IDENTIFICATION DIVISION.
       PROGRAM-ID. MYPROG.
      *
      * Minimal work for developer
      *
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  MYRECORD.
           05  MYRECORD-DATA   PIC X(80).
       PROCEDURE DIVISION.
       MAIN.
           perform MYFIC-OPEN
           perform MYFIC-READ
           perform until MYFIC-EOF
             display MYFIC-COUNTER MYRECORD-DATA
             perform MYFIC-READ
           end-perform
           perform MYFIC-CLOSE
           goback.
      *--- the framework -----------------------------------------------
           copy FICREAD
                replacing ==:DDN:== by ==MYFIC==
                          ==:LRECL:== by ==80==
                          ==:RECORD:== by ==MYRECORD==
                .
      *-----------------------------------------------------------------