Objašnjenje punila u COBOL programu

U programskom jeziku COBOL definirate sve varijable i podatkovna polja u odjeljku vašeg programa koji se zove Data Division. Ovdje postavljate zapise za diskovne datoteke, rasporede ispisa, brojače i radnu pohranu za izračune. Većinu podatkovnih polja definirate dajući im jedinstvena imena, ali ključna riječ FILLER omogućuje vam da odvojite memorijski prostor bez potrebe za imenom.

PUNILO

FILLER je rezervirana riječ, što znači da tu riječ ne možete koristiti za imenovanje polja ili zapisa osim za definiranje pojedinačnih memorijskih elemenata. Koristite FILLER neposredno nakon broja razine i ispred klauzule PICTURE koja definira veličinu polja i tip podataka. COBOL ograničava korištenje FILLER-a na Data Division; ne odnosi se na odjele za identifikaciju, okoliš ili postupke.

Izgledi snimanja

Jedna od najčešćih upotreba za FILLER je za definicije zapisa podataka. Ako koristite podatkovnu datoteku s duljinom zapisa od 150 znakova i ne morate označiti svako polje u njoj, možete definirati nepotrebne znakove kao FILLER, kao u sljedećem kodu:

01 evidencija kupaca. 05 SLIKA ZA PUNJENJE X(10). 05 ime kupca PIC X(30). 05 adresa kupca PIC X(30). 05 kupac-grad PIC X(30). 05 SLIKA ZA POPUNJAVANJE X(50).

To vam omogućuje da pročitate zapis od 150 znakova i identificirate polja koja želite -- ime klijenta, adresu i grad -- dok zanemarujete ostatak zapisa.

Ekstrakcija podniza

Možete koristiti ključnu riječ FILLER za pomoć u izdvajanju podnizova iz većeg niza. Na primjer, da izdvojite prvih pet znamenki poštanskog broja, možete postaviti sljedeće izjave u odjeljku Working-Storage:

01 cijeli poštanski broj. 05 primarni-zip PIC X(5). 05 SLIKA ZA POPUNJAVANJE X(5).

U odjelu Procedure premještate poštanski broj ZIP-plus-4 u cijeli poštanski broj, a zatim primarni poštanski broj premještate u odredišno polje. Pritom ispuštate sve nakon prvih pet znamenki.

FILLER i VALUE

U zapisu, FILLER polje rezervira memorijski prostor i prihvaća sve vrste podataka koje premjestite u njega. Također možete definirati polje FILLER da ima vrijednost. Programeri često koriste ovu tehniku ​​za postavljanje naslova izvješća, kao što je u sljedećem primjeru:

01 print-line. 05 SLIKA ZA POPUNJAVANJE X(10) RAZMAKA VRIJEDNOSTI. 05 SLIKA ZA POPUNJAVANJE X(15) VRIJEDNOST "IZVJEŠĆE NA KRAJ GODINE". 05 SLIKA ZA POPUNJAVANJE X(20) RAZMAKA VRIJEDNOSTI. 05 FILLER PIC X(5) VRIJEDNOST "PAGE ". 05 broj stranice PIC ZZZ9.

Imajte na umu da se naslovi i razmaci zaglavlja stranice izvješća rade s FILLER-om, osim jednog polja s nazivom koje prikazuje broj stranice.