IDENTIFICATION DIVISION.
PROGRAM-ID. prog5.
*
*  Reads a sequential file
*
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.

        SELECT TEST-FILE
                ASSIGN TO "SYS$SCRATCH:TTI_VENDOR.TMP"
                ORGANIZATION IS SEQUENTIAL.

DATA DIVISION.
FILE SECTION.

FD  TEST-FILE.
01  TEST-FILE-RECORD.
    05 NAME        PIC X(30).
    05 SEX         PIC X.
    05 B-DATE      PIC X(6).
    05 STREET      PIC X(30).
    05 CITY        PIC X(12).
    05 ZIP         PIC X(9).
    05 ETHNIC      PIC X.
    05 PARENT      PIC X(24).
    05 PHONE       PIC X(10).
    05 BPHONE      PIC X(10).
    05 EPHONE      PIC X(10).
    05 BALANCE     PIC 9(8).
    05 FILLER      PIC X(49).

WORKING-STORAGE SECTION.

01  FILE-EOF-SW    PIC X     VALUE '0'.
    88 FILE-EOF              VALUE '1'.
01  RECORD-CNT     PIC 9(6)  VALUE 0.
01  TMP-CNT	   PIC 99    VALUE 0.

PROCEDURE DIVISION.

MAINLINE SECTION.
START-UP.

	OPEN INPUT TEST-FILE ALLOWING ALL.
	PERFORM 1-READ-FILE THRU 1-EXIT UNTIL FILE-EOF.
	DISPLAY "Records read:  " RECORD-CNT WITH CONVERSION.
	CLOSE TEST-FILE.
	STOP RUN.

START-UP-EXIT.
	EXIT.

1-READ-FILE.

	READ TEST-FILE
	  AT END SET FILE-EOF TO TRUE
	         GO TO 1-EXIT.

	ADD 1 TO RECORD-CNT.
	ADD 1 TO TMP-CNT.
	IF  TMP-CNT = 25 THEN 
	  DISPLAY "On record: " RECORD-CNT WITH CONVERSION
	  MOVE 0 TO TMP-CNT
	END-IF.
1-EXIT.
	EXIT.