The COBOL code generated by the EZFILE method (a renamed FILEDEF) marked above in green. Blank lines separate coding that goes into different parts of the program.
000270 SELECT PERSNL
000280 ASSIGN TO PERSNL-ID
000290 ORGANIZATION IS LINE SEQUENTIAL
000300 ACCESS MODE IS SEQUENTIAL
000310 FILE STATUS IS PERSNL-STATUS
000320 .
000700 FD PERSNL
000710 .
000720 01 PERSNL-REC PIC X(150).
002810 01 PERSNL-STATUS.
002820 05 PERSNL-STATUS-1 PIC X(1) VALUE "0".
002830 88 PERSNL-STATUS-SUCCESS VALUE "0".
002840 88 PERSNL-STATUS-EOF VALUE "1".
002850 88 PERSNL-STATUS-INV-KEY VALUE "2".
002860 88 PERSNL-STATUS-ERROR
002870 VALUE "3", "4", "9".
002880 05 PERSNL-STATUS-2 PIC X(1) VALUE "0".
002890 01 PERSNL-STATUS-N
002900 REDEFINES PERSNL-STATUS PIC 99.
002910 01 PERSNL-DISPLAY-EXT-FS.
002920 05 FILLER PIC X(2) VALUE "9/".
002930 05 PERSNL-DISPLAY-FS-2 PIC 9(3).
002940 01 PERSNL-W-S COMP.
002950 05 PERSNL-KEY PIC 9(11) VALUE 0.
002960 05 PERSNL-FLAG PIC 9 VALUE 0.
002970 88 PERSNL-EOF VALUE 1, 2, 3.
002980 88 PERSNL-INVALID VALUE 1, 2, 3.
002990 88 PERSNL-NOFILE VALUE 2.
003000 88 PERSNL-NOFILE-OPT VALUE 3.
003010 05 PERSNL-RECORD-COUNT PIC 9(10) VALUE 0.
003020 05 PERSNL-OPEN-FLAG PIC 9 VALUE 0.
003030 88 PERSNL-OPEN VALUE 1.
006030 MOVE ALL " " TO PERSNL-REC.
006230 PERFORM CLOSE-PERSNL.
012560 OPEN-PERSNL SECTION.
012570 OPEN-PERSNL-1.
012580 IF PERSNL-OPEN
012590 GO TO OPEN-PERSNL-EXIT
012600 END-IF
012610 OPEN INPUT PERSNL
012620 MOVE PERSNL-STATUS-N TO FILE-STATUS
012630 IF NOT PERSNL-STATUS-SUCCESS
012640 MOVE 3 TO PERSNL-FLAG
012650 DISPLAY " OPEN ERROR. FD PERSNL FILE STATUS = "
012660 PERSNL-STATUS
012670 ELSE
012680 MOVE 1 TO PERSNL-OPEN-FLAG
012690 MOVE 0 TO PERSNL-RECORD-COUNT
012700 MOVE 0 TO RECORD-COUNT
012710 MOVE 0 TO PERSNL-FLAG
012720 END-IF
012730 .
012740 OPEN-PERSNL-EXIT.
012750 EXIT.
012760 CLOSE-PERSNL SECTION.
012770 CLOSE-PERSNL-1.
012780 IF NOT PERSNL-OPEN
012790 GO TO CLOSE-PERSNL-EXIT.
012800 CLOSE PERSNL.
012810 MOVE PERSNL-STATUS-N TO FILE-STATUS
012820 MOVE 0 TO PERSNL-OPEN-FLAG.
012830 CLOSE-PERSNL-EXIT.
012840 EXIT.
012850 READ-PERSNL SECTION.
012860* SEQUENTIAL READ SECTION *
012870 READ-PERSNL-1.
012880 IF NOT PERSNL-OPEN
012890 PERFORM OPEN-PERSNL.
012900 IF PERSNL-EOF
012910 GO TO READ-PERSNL-EXIT.
012920 READ PERSNL
012930 AT END
012940 PERFORM CLOSE-PERSNL
012950 MOVE 1 TO PERSNL-FLAG
012960 MOVE PERSNL-STATUS-N TO FILE-STATUS
012970 GO TO READ-PERSNL-EXIT.
012980 MOVE PERSNL-STATUS-N TO FILE-STATUS
012990 IF NOT PERSNL-STATUS-SUCCESS
013000 PERFORM CLOSE-PERSNL
013010 MOVE 3 TO PERSNL-FLAG
013020 GO TO READ-PERSNL-EXIT.
013030 ADD 1 TO RECORD-COUNT
013040 ADD 1 TO PERSNL-RECORD-COUNT.
013050 READ-PERSNL-EXIT.
013060 EXIT.