______________________________________.

______________________________________.

______________________________________.

______________________________________.

______________________________________.

SELECT TEST-FILE-ONE ASSIGN TO “AU03GRADES.DAT”

ORGANIZATION IS LINE SEQUENTIAL.

SELECT TEST-FILE-TWO ASSIGN TO _________________________

ORGANIZATION IS LINE SEQUENTIAL.

______________________________________.

______________________________________.

* input record description

FD _______________________ .

01 input-rec _______________________.

* output record description

FD _______________________ .

01 output-rec _______________________.

_______________________________________.

01 EOF PIC X(3) VALUE “no”.

_______________________________________.

_______________________________________.

OPEN INPUT TEST-FILE-ONE.

OPEN ___________________________________.

READ _____________________ AT END MOVE _________ TO EOF.

PERFORM 200-CALC UNTIL EOF = “yes”.

CLOSE _____________________________ .

STOP RUN.

_______________________.

MOVE _______________________________________.

WRITE ________________ AFTER ADVANCING 1 LINE.

READ _____________________ AT END MOVE _________ TO EOF.