Esempio completo di schema di programma scritto con tecnica modulare

IDENTIFICATION DIVISION.
PROGRAM-ID. CALCTOT.

   *    dati l'imponibile e la percentuale IVA
   *    il programma calcola il totale e l'IVA

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. COBOL85.
OBJECT-COMPUTER. COBOL85.
DATA DIVISION.
WORKING-STORAGE SECTION.
01  DATI-FATTURA.
     02 IMPONIBILE   PIC 9(6).
     02 PERC-IVA     PIC 99.
01  DATI-FINALI.
     02 TOTALE       PIC 9(6).
     02 IVA          PIC 9(6).
PROCEDURE DIVISION.
MAIN SECTION.
IN-MAIN.
     PERFORM INIZIO.
     PERFORM ELABORA.
     PERFORM FINE.
FI-MAIN.  STOP RUN.

INIZIO SECTION.
IN-INIZIO.
     DISPLAY "Immettere Imponibile".
     ACCEPT IMPONIBILE.
     DISPLAY "Immettere Percentuale IVA".
     ACCEPT PERC-IVA.
FI-INIZIO.  EXIT.

ELABORA SECTION.
IN-ELABORA.
     COMPUTE IVA = IMPONIBILE * PERC-IVA / 100.
     ADD IMPONIBILE IVA GIVING TOTALE.
FI-ELABORA.  EXIT.

FINE SECTION.
IN-FINE.
     DISPLAY "Totale IVA " IVA.
     DISPLAY "Totale Fattura " TOTALE.
FI-FINE.  EXIT.