VSAM read

OPEN INPUT ORDERFILE
 MOVE 2100 TO POSTCODE
*Als postcode niet voorkomt gaat dit ook mislukken
*Oplossing
    START ORDERFILE KEY = POSTCODE
           INVALID KEY SET niet-gevonden TO TRUE
    IF NOT niet-gevonden THEN
        PERFORM UNTIL POSTCODE NOT EQUAL 2100 THEN
         IF GOEDE-KLANT THEN
            ADD 1 TO TELLER
         END-IF
*Kan problemen geven wanneer je aan het einde van je file bent
*Oplossing
         READ ORDERFILE NEXT
            AT END MOVE HIGH-VALUES TO POSTCODE END READ
        END-PERFORM
        END-IF
CLOSE ORDERFILE