array cobol

PROCEDURE DIVISION.
PARA-1.
OPEN I-O DATA-FILE-1.
READ DATA-FILE-1
AT END
MOVE "E" TO WS-END-OF-DATA-FILE
DISPLAY "DATA NOT FOUND"
END-READ
PERFORM UNTIL END-OF-DATA-FILE OR RECORD-FOUND
IF ADDRESS = "New Zealand"
THEN
MOVE "Australia" TO ADDRESS
REWRITE PERSON-REC
MOVE "Y" TO WS-RECORD-FOUND
ELSE
READ DATA-FILE-1
AT END
MOVE "E" TO WS-END-OF-DATA-FILE
DISPLAY "DATA NOT FOUND"
END-READ
END-IF
END-PERFORM
CLOSE DATA-FILE-1
STOP RUN.