9.6 Exit program

De formule voor het berekenen van een annuïteit is tamelijk ingewikkeld. Voor de volledigheid is die formule hierna vermeld, maar voor het verhaal over subprogramma's is hij niet van belang. De formule luidt:

formule

In deze formule is p gelijk aan het percentage gedeeld door 100.

Hier volgt de procedure division van het subprogramma annuiteitsberekening.

procedure division
    using bedrag, percentage, jaren, annuiteit.
berekening.
    divide percentage by 100 giving p
    compute annuiteit rounded = 
        bedrag * p / (1 - 1 / (1 + p) ** jaren)
    exit program.
  

In deze procedure division komen de parameters voor en het veld p. Dit veld is geen parameter het zal dus moeten zijn benoemd in de working-storage section van het subprogramma.

Stop run in een subprogramma betekent dat de computer stopt met de uitvoering van de verzameling programma's. Dat is niet de bedoeling. Nadat het subprogramma zijn werk heeft gedaan, moet het hoofdprogramma verder gaan. Daarvoor bestaat de opdracht exit program.

illustratie: Geert Nijmolen

onthoud

De opdracht exit program is alleen zinvol in een subprogramma. Hij zorgt ervoor dat de besturing teruggaat naar het aanroepende programma. De computer negeert exit program in een hoofdprogramma.