I COBOL programmeringsspråk, definerer du alle variabler og data felt i en del av programmet kalt Data divisjon . Her setter du opp poster for disk filer , utskrift layout, tellere og arbeider lagring for beregningene . Du definerer de fleste data felt ved å gi dem unike navn , men FILLER søkeordet lar deg sette av plass i minnet uten behov for et navn. FILLER
FILLER er et reservert ord , som betyr at du ikke kan bruke ordet for å navngi felt eller poster annet enn å definere individuelle minne elementer . Du bruker FILLER umiddelbart etter et nivå nummer og før en BILDE klausul som definerer en feltets størrelse og datatype. COBOL begrenser bruken av FILLER til Data Division , det gjelder ikke til identifisering, miljø eller prosedyre divisjoner
bilder Record utforminger
En av de mest utbredte bruken . for FILLER er for datapost definisjoner . Hvis du bruker en datafil med en 150 -tegns rekord lengde , og du trenger ikke å merke alle felt i det, kan du definere de tegnene som filler , som i følgende kode :
01 kunde - record.05 FILLER PIC X ( 10 ) .05 kunde - navn PIC X ( 30 ) .05 kunde - adresse PIC X ( 30 ) .05 kunde -city PIC X ( 30 ) .05 FILLER PIC X ( 50 ) .
p Dette kan du lese en 150 -tegns posten og identifisere de feltene du ønsker - kunden navn, adresse og byen - . mens de ignorerer resten av posten
substring utvinning
Du kan bruke FILLER nøkkelord for å bistå i utvinning av understrenger fra en større streng. For eksempel vil trekke ut de fem første sifrene i et ZIP -kode, kan du sette opp følgende uttalelser i Working- Storage Seksjon :
01 hel - zip - code.05 primær - zip PIC X ( 5 ) 0,05 FILLER PIC X ( 5 ) .
i Procedure Division , flytter du en ZIP -plus - 4 -kode for å hel - zip - kode , og deretter flytte primær - zip til en målfeltet . Ved å gjøre det , slipper du alt etter de første fem sifre.
FILLER og VERDI
I en post, en FILLER felt reserver minne og aksepterer noen form for data du beveger deg inn i det. Du kan også definere en FILLER feltet til å ha en verdi. Programmerere bruke denne teknikken ofte for å sette opp rapporten overskrifter , slik som i følgende eksempel :
01 print- line.05 FILLER PIC X ( 10 ) VERDI SPACES.05 FILLER PIC X ( 15 ) VERDI " ÅR END rAPPORT " .05 FILLER PIC X ( 20 ) VERDI SPACES.05 FILLER PIC X ( 5 ) VERDI " side " .05 side - nummer PIC ZZZ9 .
Merk at rapporten sidetopptekst titler og mellomrom er gjort med filler , bortsett fra en som heter felt som viser et sidetall .