COBOL programavimo kalba apibrėžiate visus kintamuosius ir duomenų laukus savo programos skyriuje, vadinamame duomenų skyriumi. Čia nustatote disko failų įrašus, spausdinimo maketus, skaitiklius ir darbo saugyklą skaičiavimams. Daugumą duomenų laukų apibrėžiate suteikdami jiems unikalius pavadinimus, tačiau raktinis žodis FILLER leidžia atidėti atminties vietą be pavadinimo.
UŽPILDYMAS
FILLER yra rezervuotas žodis, o tai reiškia, kad šio žodžio negalima naudoti laukams ar įrašams pavadinti kitaip, nei apibrėžti atskirus atminties elementus. Naudojate FILLER iškart po lygio numerio ir prieš PICTURE sąlygą, kuri apibrėžia lauko dydį ir duomenų tipą. COBOL riboja FILLER naudojimą Duomenų skyriui; jis netaikomas Identifikavimo, Aplinkos ar Procedūrų skyriams.
Dienos vaizdo įrašas
Įrašų maketai
Vienas iš labiausiai paplitusių FILLER naudojimo būdų yra duomenų įrašų apibrėžimai. Jei naudojate duomenų failą, kurio įrašo ilgis yra 150 simbolių ir jums nereikia žymėti kiekvieno lauko jame, galite nurodyti nereikalingus simbolius kaip FILLER, kaip nurodyta šiame kode:
01 kliento įrašas. 05 FILLER PIC X(10). 05 kliento vardas PIC X(30). 05 kliento adresas PIC X(30). 05 klientas-miestas PIC X(30). 05 FILLER PIC X(50).
Tai leidžia perskaityti 150 simbolių įrašą ir identifikuoti norimus laukus – kliento vardą, pavardę, adresą ir miestą – neatsižvelgdami į likusį įrašą.
Poeilutės ištraukimas
Galite naudoti raktinį žodį FILLER, kad padėtumėte išgauti poeilutes iš didesnės eilutės. Pavyzdžiui, norėdami išgauti pirmuosius penkis pašto kodo skaitmenis, skiltyje Darbinė saugykla galite nustatyti šiuos sakinius:
01 visas pašto kodas. 05 pirminio užtrauktuko PIC X(5). 05 FILLER PIC X(5).
Procedūrų skyriuje perkeliate ZIP-plus-4 kodą į visą pašto kodą, tada perkeliate pagrindinį ZIP kodą į paskirties lauką. Tai darydami viską atmetate po pirmųjų penkių skaitmenų.
FILLER ir VERTĖ
Įraše FILLER laukas rezervuoja atminties vietą ir priima bet kokius į jį perkeltus duomenis. Taip pat galite apibrėžti FILLER lauką, kad jis turėtų reikšmę. Programuotojai dažnai naudoja šią techniką ataskaitų antraštėms nustatyti, pavyzdžiui, šiame pavyzdyje:
01 spausdinimo eilutė. 05 FILLER PIC X(10) VERTĖS TARPAI. 05 UŽPILDYMO PIC X(15) VERTĖ "METŲ PABAIGOS ATASKAITA". 05 FILLER PIC X(20) VERTĖS TARPES. 05 FILLER PIC X(5) VERTĖ "PUSLAPIS". 05 puslapio numeris PIC ZZZ9.
Atminkite, kad ataskaitos puslapio antraštės pavadinimai ir tarpai daromi naudojant FILLER, išskyrus vieną pavadintą lauką, kuriame rodomas puslapio numeris.
