Altri Linguaggi - cobol - Piero Tofy.it

Forum - Altri Linguaggi - cobol

baudo1983 (Normal User)
Newbie

Messaggi: 2
Iscritto: 10/05/2011

Postato alle 14:15
Giovedì, 12/05/2011

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!

Cobol (Normal User)
Newbie

Messaggi: 3
Iscritto: 17/09/2009

Postato alle 21:38
Venerdì, 13/05/2011

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).

8-)

Ultima modifica effettuata da Cobol il 14/05/2011 alle 9:22