Altri Linguaggi - cobol

come si fa a leggere un file con un EOF?

CODIFICA-COMUNE-CODICE.
OPEN INPUT COMUNE
READ COMUNE.
MOVE 1 TO I.

PERFORM UNTIL COMUNE=EOF .
READ COMUNE.

IF COMUNI = COMUDB THEN
MOVE CODIDB TO COMUNECOD
END-IF

CLOSE COMUNE.

FINE-CODIFICA-COMUNE-CODICE.
NON MI FUNZIONA!

A chiamata rispondo !

Esistono vari modi per gestire l'eccezione menzionata.
Alcuni automatici, altri manuali.

A tiolo di esempio per gli automatici : la variabile EOF viene settata in automatico dal compilatore usato, vedi la documentazione sul nome nel suo ambiente (che compilatore usi) ?

Per l'opzione manuale invece puoi gestire il flag-di stato, oppure il relativo codice esadecimale (corrispondente alla condizione che devi gestire).

Infine entra anche in gioco COME il file è dichiarato nella Environment-Division, ovvero come accederari ad esso (il tipo di streaming o buffering come lo vuoi chiamare).

...

PS. Il pezzettto di codice scritto su nn funzionerà mai , in quanto manca una END-PERFORM ... (ed altri orrorucci minori).