ENVIRONMENT DIVISION.                                            FICREAD
       INPUT-OUTPUT SECTION.                                            FICREAD
       FILE-CONTROL.                                                    FICREAD
           select :DDN:-FILE assign to UT-S-:DDN:.                      FICREAD
       DATA DIVISION.                                                   FICREAD
       FILE SECTION.                                                    FICREAD
       FD  :DDN:-FILE                                                   FICREAD
           BLOCK CONTAINS 0 RECORDS                                     FICREAD
           RECORDING MODE IS F.                                         FICREAD
       01  :DDN:-RECORD.                                                FICREAD
           05  PIC X(:LRECL:).                                          FICREAD
       WORKING-STORAGE SECTION.                                         FICREAD
       01               PIC X VALUE '0'.                                FICREAD
           88           :DDN:-EOF VALUE '1'.                            FICREAD
       01               :DDN:-COUNTER PIC S9(8) BINARY VALUE 0.         FICREAD
       PROCEDURE DIVISION.                                              FICREAD
       :DDN:-OPEN.                                                      FICREAD
           open input :DDN:-FILE.                                       FICREAD
       :DDN:-READ.                                                      FICREAD
           read :DDN:-FILE                                              FICREAD
             into :RECORD:                                              FICREAD
             at end                                                     FICREAD
               set :DDN:-EOF to true                                    FICREAD
             not at end                                                 FICREAD
               add 1 to :DDN:-COUNTER                                   FICREAD
           end-read.                                                    FICREAD
       :DDN:-CLOSE.                                                     FICREAD
           close :DDN:-FILE.                                            FICREAD