Programmēšanas valodā COBOL jūs definējat visus mainīgos un datu laukus programmas sadaļā, ko sauc par datu nodaļu. Šeit jūs iestatāt diska failu ierakstus, drukāšanas izkārtojumus, skaitītājus un darba krātuvi aprēķiniem. Lielāko daļu datu lauku jūs definējat, piešķirot tiem unikālus nosaukumus, bet atslēgvārds FILLER ļauj rezervēt vietu atmiņā bez nosaukuma.
PILDĪJUMS
FILLER ir rezervēts vārds, kas nozīmē, ka jūs nevarat izmantot šo vārdu, lai piešķirtu nosaukumus laukiem vai ierakstiem, izņemot atsevišķu atmiņas elementu definēšanai. Jūs izmantojat FILLER tieši aiz līmeņa numura un pirms PICTURE klauzulas, kas nosaka lauka lielumu un datu tipu. COBOL ierobežo FILLER izmantošanu tikai Datu nodaļai; tas neattiecas uz Identifikācijas, Vides vai Procedūru nodaļu.
Dienas video
Ierakstu izkārtojumi
Viens no visizplatītākajiem FILLER lietojumiem ir datu ierakstu definīcijas. Ja izmantojat datu failu ar 150 rakstzīmju ieraksta garumu un jums nav jāmarķē katrs tajā esošais lauks, varat definēt nevajadzīgās rakstzīmes kā FILLER, kā norādīts šajā kodā:
01 klientu ieraksts. 05 FILLER PIC X(10). 05 klienta vārds PIC X(30). 05 klienta adrese PIC X(30). 05 klients-pilsēta PIC X(30). 05 FILLER PIC X(50).
Tas ļauj nolasīt 150 rakstzīmju ierakstu un identificēt vajadzīgos laukus — klienta vārdu, adresi un pilsētu — vienlaikus ignorējot pārējo ierakstu.
Apakšvirknes ekstrakcija
Varat izmantot atslēgvārdu FILLER, lai palīdzētu izvilkt apakšvirknes no lielākas virknes. Piemēram, lai izvilktu pasta indeksa pirmos piecus ciparus, sadaļā Darba krātuve varat iestatīt šādus paziņojumus:
01 viss pasta indekss. 05 primārā zip PIC X(5). 05 FILLER PIC X(5).
Procedūru sadaļā jūs pārvietojat ZIP-plus-4 kodu uz visu pasta indeksu, pēc tam pārvietojat primāro pasta indeksu uz mērķa lauku. To darot, jūs atmetat visu pēc pirmajiem pieciem cipariem.
FILLER un VĒRTĪBA
Ieraksta lauks FILLER rezervē atmiņas vietu un pieņem jebkāda veida datus, ko tajā pārvietojat. Varat arī definēt lauku FILLER, lai tam būtu vērtība. Programmētāji bieži izmanto šo paņēmienu, lai iestatītu pārskatu virsrakstus, piemēram, šajā piemērā:
01 drukas līnija. 05 FILLER PIC X(10) VĒRTĪBU TELPAS. 05 FILLER PIC X(15) VĒRTĪBA "GADA BEIGAS PĀRSKATS". 05 FILLER PIC X(20) VĒRTĪBU TELPAS. 05 FILLER PIC X(5) VĒRTĪBA "LAPA". 05 lappuses numurs PIC ZZZ9.
Ņemiet vērā, ka atskaites lapas galvenes virsraksti un atstarpes tiek veiktas ar FILLER, izņemot vienu nosaukto lauku, kurā tiek rādīts lapas numurs.
