Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
Altri Linguaggi - cobol
Forum - Altri Linguaggi - cobol

Avatar
baudo1983 (Normal User)
Newbie


Messaggi: 2
Iscritto: 10/05/2011

Segnala al moderatore
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!

PM
Avatar
Cobol (Normal User)
Newbie


Messaggi: 3
Iscritto: 17/09/2009

Up
0
Down
V
Segnala al moderatore
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
PM