In questa lezione affronteremo i seguenti argomenti:
• Comprendere il concetto di sottoprogrammi in COBOL.
• Apprendere a definire procedure e funzioni.
• Capire il passaggio di parametri tra sottoprogrammi.
Procedure in COBOL:
PROCEDURE DIVISION.
PERFORM Initialize-Data.
PERFORM Display-Message.
STOP RUN.
Initialize-Data.
MOVE 'John Doe' TO Name.
MOVE 30 TO Age.
Display-Message.
DISPLAY 'Employee: ', Name, ', Age: ', Age.
- PERFORM: Esegue un paragrafo.
Funzioni in COBOL:
IDENTIFICATION DIVISION.
PROGRAM-ID. MainProgram.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Result PIC 9(3) VALUE 0.
PROCEDURE DIVISION.
PERFORM UPGRADE-MARKS USING 85 RETURNING Result.
DISPLAY 'New Marks: ', Result.
STOP RUN.
UPGRADE-MARKS USING Initial-Marks RETURNING Upgraded-Marks.
COMPUTE Upgraded-Marks = Initial-Marks + 10.
- USING: Passa un parametro ad una funzione.
- RETURNING: Restituisce un valore dalla funzione.
Parametri nei sottoprogrammi:
- Passaggio di parametri tramite USING.
- Restituzione di valori con RETURNING.
Esecuzione:
- Inizializza i dati e visualizza il messaggio.
- Passa un valore ad una funzione e visualizza il risultato.
Conclusioni:
In questa lezione, abbiamo esaminato l'implementazione di sottoprogrammi in COBOL, inclusa la definizione di procedure e funzioni. Abbiamo appreso come passare parametri ai sottoprogrammi utilizzando USING e come restituire valori con RETURNING. Nella prossima lezione, esploreremo la gestione degli errori in COBOL.