Parte ii - IIS Marconi Latina - Area didattica

Programmare in COBOL 1045
|003500 02 EOF PIC 9 COMP VALUE IS 0.
|003600 02 EOJ PIC 9 COMP VALUE IS 0.
|003700*
|003800 PROCEDURE DIVISION.
|003900*------------------------- LIVELLO 0 -----------------------------
|004000 MAIN.
|004100 OPEN I-O FILE-DA-ELABORARE.
|004200 READ FILE-DA-ELABORARE
|004300 AT END MOVE 1 TO EOF.
|004400 PERFORM ELABORAZIONE UNTIL EOF = 1.
|004500 CLOSE FILE-DA-ELABORARE.
|004600 STOP RUN.
|004700*------------------------- LIVELLO 1 -----------------------------
|004800 ELABORAZIONE.
|004900 MOVE SPACES TO NOTE.
|005000 MOVE ZERO TO RESTO.
|005100 IF TIPO-CALCOLO = "+"
|005200 THEN
|005300 COMPUTE RISULTATO = NUMERO-1 + NUMERO-2;
|005400 ELSE IF TIPO-CALCOLO = "-"
|005500 THEN
|005600 COMPUTE RISULTATO = NUMERO-1 - NUMERO-2;
|005700 ELSE IF TIPO-CALCOLO = "*"
|005800 THEN
|005900 COMPUTE RISULTATO = NUMERO-1 * NUMERO-2;
|006000 ELSE IF TIPO-CALCOLO = "/"
|006100 THEN
|006200 DIVIDE NUMERO-1 BY NUMERO-2 GIVING RISULTATO,
|006300 REMAINDER RESTO;
|006400 ELSE
|006500 MOVE ZERO TO RISULTATO,
|006600 MOVE "CALCOLO ERRATO" TO NOTE.
|006700
|006800 MOVE "=" TO UGUALE.
|006900 MOVE SPACE TO SEPARAZIONE.
|007000 DISPLAY RECORD-DA-ELABORARE.
|007100 REWRITE RECORD-DA-ELABORARE.
|007200 READ FILE-DA-ELABORARE
|007300 AT END MOVE 1 TO EOF.
|007400*
83.3.12 AGO-83-15: estensione di un file sequenziale contenente
aggiornamenti successivi
Questo esempio estende un file sequenziale con delle informazioni, che possono essere aggiornate
in momenti successivi. I record si considerano contenere la stessa informazione,
aggiornata, quando hanno la stessa chiave.
«
Una copia di questo file dovrebbe essere disponibile presso 〈allegati/cobol/AGO-83-15.cob 〉.