I COBOL programmeringssproget definerer du alle variabler og datafelter i en sektion af dit program kaldet Data Division. Her opsætter du poster for diskfiler, printlayout, tællere og arbejdslager til beregninger. Du definerer de fleste datafelter ved at give dem unikke navne, men FILLER nøgleordet lader dig afsætte hukommelsesplads uden behov for et navn.
FILLER
FILLER er et reserveret ord, hvilket betyder, at du ikke kan bruge ordet til at navngive felter eller poster på anden måde end til at definere individuelle hukommelseselementer. Du bruger FILLER umiddelbart efter et niveaunummer og foran et PICTURE-udtryk, der definerer et felts størrelse og datatype. COBOL begrænser brugen af FILLER til Data Division; den gælder ikke for afdelingerne Identifikation, Miljø eller Procedure.
Dagens video
Optag layouts
En af de mest almindelige anvendelser for FILLER er definitioner af dataposter. Hvis du bruger en datafil med en rekordlængde på 150 tegn, og du ikke behøver at mærke alle felter i den, kan du definere de unødvendige tegn som FILLER, som i følgende kode:
01 kunderekord. 05 FILLER PIC X(10). 05 kundenavn PIC X(30). 05 kundeadresse PIC X(30). 05 kundeby PIC X(30). 05 FILLER PIC X(50).
Dette lader dig læse en post på 150 tegn og identificere de felter, du ønsker - kundens navn, adresse og by - mens du ignorerer resten af posten.
SubString Ekstraktion
Du kan bruge nøgleordet FILLER til at hjælpe med at udtrække understrenge fra en større streng. For at udtrække de første fem cifre i et postnummer kan du f.eks. oprette følgende udsagn i Working-Storage Sektionen:
01 hele postnummer. 05 primær-zip PIC X(5). 05 FILLER PIC X(5).
I Procedure Division flytter du en ZIP-plus-4-kode til hele postnummer og flytter derefter primært postnummer til et destinationsfelt. Når du gør det, slipper du alt efter de første fem cifre.
FILLER og VÆRDI
I en post reserverer et FILLER-felt hukommelsesplads og accepterer enhver form for data, du flytter ind i den. Du kan også definere et FILLER-felt til at have en værdi. Programmører bruger ofte denne teknik til at opsætte rapportoverskrifter, såsom i følgende eksempel:
01 print-linje. 05 FILLER BILLEDE X(10) VÆRDIERUM. 05 FILLER PIC X(15) VÆRDI "ÅRSAFSLUTNINGSRAPPORT". 05 FILLER PIC X(20) VALUE SPACES. 05 FILLER PIC X(5) VÆRDI "SIDE". 05 sidenummer PIC ZZZ9.
Bemærk, at rapportens sidehovedtitler og -mellemrum alle udføres med FILLER, undtagen et navngivet felt, der viser et sidetal.
