Parte ii - IIS Marconi Latina - Area didattica

Programmare in COBOL 1005
83.1.4 OpenCOBOL
OpenCOBOL 2 è un compilatore COBOL che genera codice in linguaggio C e si avvale di
GCC per arrivare a produrre il file eseguibile finale. In generale si utilizza per la compilazione
il programma ‘cobc’ che si prende cura di tutti i passaggi necessari:
«
|
|cobc [opzioni] file_sorgente_cobol
|
|Tabella 83.8. Alcune opzioni.
Opzione
Descrizione
| -free Richiede che il file sorgente sia scritto in formato «libero» (senza i vincoli della
numerazione delle righe e senza commenti nelle colonne da 73 a 80.
| -fixed Richiede che il file sorgente sia scritto secondo il formato tradizionale (con la
numerazione delle righe e con il limite tradizionale dell’area «B»).
L’esempio seguente compila il file ‘esempio.cob’ e genera il file eseguibile ‘esempio’:
$ cobc esempio.cob [ Invio ]
83.2 Esempi elementari
Qui si raccolgono alcuni esempi elementari di programmi COBOL, risalenti a un lavoro didattico
del 1985. Salvo dove indicato in maniera differente, gli esempi mostrati funzionano
regolarmente se compilati con OpenCOBOL 0.31.
«
83.2.1 ELM0100: prodotto tra due numeri
«
Variabili
‘A’ è il moltiplicando;
‘B’ è il moltiplicatore;
‘C’ è il risultato.
Descrizione
Il calcolo viene eseguito attraverso l’istruzione ‘COMPUTE’.
Paragrafo ‘MAIN’
Il programma si svolge unicamente all’interno di questo paragrafo. Il programma riceve
dall’esterno i valori per le variabili ‘A’ e ‘B’, esegue il prodotto tramite l’istruzione
‘COMPUTE’ mettendo il risultato nella variabile ‘C’.
Viene visualizzato il contenuto della variabile ‘C’ con l’istruzione ‘DISPLAY’.
Il programma si arresta perché incontra l’istruzione ‘STOP RUN’.
Una copia di questo file dovrebbe essere disponibile presso 〈allegati/cobol/ELM0100.cob 〉.