FILE DESCRIPTION SAMPLE

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT OPTIONAL PGMFILE ASSIGN TO STDIN
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL
FILE STATUS IS FS1.
DATA DIVISION.
FILE SECTION.
FD PGMFILE.
    RECORD CONTAIN INTEGER CHARACTERS(FIXED LENGTH)
    RECORD IS VARYING IN SIZE INT1 TO INT2 DEPENDING ON WS-1(DYNAMIC LENGTH)
    RECORD IS VARYING IN SIZE INT1 TO INT2(VARIABLE LENGTH).
    BLOCK CONTAIN INTEGER CHARACTERS(FIXED LENGTH)/ DYNAMIC /VARIABLE.
    DATA RECORD IS PGMF-REC.
    RECORDING MODE IS F/V/U. FIXED/VARIABLE/UNDEFINED
01 PGMF-REC.
   05 EMP-NAME PIC X(10).
   05 EMP-NO   PIC X(10).
WORKING-STORAGE SECTION.
01 FS1 PIC 9(02).
01 WS-EOF-STATUS PIC X(01) VALUE SPACES.
   88 EOF-Y  VALUE 'Y'.
LINKAGE SECTION.
01 PARM-IP PIX X(10). 

PROCEDURE DIVISION.
OPEN INPUT PGMFILE.
PERFORM READ-FILE UNTIL FS1 GREATER THAN ZERO.
CLOSE PGMFILE.
STOP RUN.
READ-FILE.
READ PGMFILE.
IF FS1 EQUAL ZERO 
   DISPLAY PGMF-REC.