4.14 Filler

Kanbeno B.V. is een bedrijf in kantoorbenodigdheden. Ze maken daar een prijslijst in drie kolommen: naam van het artikel; prijs exclusief BTW en prijs inclusief BTW.

Voor het afdrukken van de prijslijst staat in een programma de volgende beschrijving.

01  afdrukregel.
    03 artikelnaam     pic X(25).
    03 tussenruimte-1  pic X(02), value spaces.
    03 prijs-excl      pic Z.ZZ9.99.
    03 tussenruimte-2  pic X(03), value spaces.
    03 prijs-incl      pic Z.ZZ9.99.
  

De velden tussenruimte-1 en tussenruimte-2 houden de kolommen uit elkaar. Ze hebben een waarde gekregen via de value-clausule. Die waarde houden ze gedurende de rest van het programma.

onthoud

Als de naam van een veld niet voorkomt in de procedure division, dan hoeft het veld in de data division geen naam te hebben.

De afdrukregel kan er dus ook zo uitzien:

01  afdrukregel.
    03 artikelnaam     pic X(25).
    03                 pic X(02), value spaces.
    03 prijs-excl      pic Z.ZZ9.99.
    03                 pic X(03), value spaces.
    03 prijs-incl      pic Z.ZZ9.99.
  

Sommige mensen houden niet van die lege plekken in zo'n beschrijving. Dan lijkt het net of je wat bent vergeten. Speciaal voor hen kent COBOL het woord filler.

illustratie: Geert Nijmolen

onthoud

Alle velden die eigenlijk geen naam nodig hebben,
mag je filler noemen.

01  afdrukregel.
    03 artikelnaam     pic X(25).
    03 filler          pic X(02), value spaces.
    03 prijs-excl      pic Z.ZZ9.99.
    03 filler          pic X(03), value spaces.
    03 prijs-incl      pic Z.ZZ9.99.
  

In deze beschrijving zijn er nu twee velden filler. Zou dat geen problemen opleveren voor de computer? Nee, want de naam filler mag je niet gebruiken in de procedure division. Er kan dus nooit een verwijzing zijn naar een of ander veld filler en de computer kan dus ook nooit in de war raken.  Als je het woord filler gebruikt, vertel je eigenlijk tegen de compiler: dit veld heeft geen naam nodig, want ik gebruik het alleen hier in de working-storage section.