Samtidigt som numerisk effektivitet och precision vid beräkning och lagring , erbjuder COBOL ett sätt att effektivt tillåta dig att beräkna dina nummer snabbt genom att dra nytta av dess inre arkitektur . En av de vanligaste är den packade decimal eller COMP - 3 numeriskt fält , vilket gör att du kan lagra två siffror inom varje byte av lagring . Med denna notation , bestämmer du hur många siffror det lagrade numret kommer att vara genom att lägga till en till det noterade fältet och resultatet divideras med två . Till exempel , ett fält av PIC S9 ( 5 ) COMP- 3 har en lagring av 3 byte. Du måste initiera detta område innan någon manipulation eller beräkning utförs på den för att undvika en behandling fel . Instruktioner
1
Identifiera fältet ( er ) som du vill initiera i din COBOL kod . Till exempel kan du ha ett område som " 05 mängden mottagna PIC S9 ( 5v99 ) komp - 3 . " Detta är ett undertecknat packade decimal fält och du måste först initiera den innan den kan delta i någon ytterligare behandling .
2
Gå till Working - Storage i ditt program och bestämma filstrukturen på din variabler. Om comp - 3 fält är underordnade en högre struktur , helt enkelt skriva " Initiera " kommandot i Procedure Division . Som ett exempel , ett område som " 01 Konto - typer " Följt av en underordnad område " 05 Acctype - Fiscal Pic S9 ( 7 ) V99 " skulle kunna initieras och har nollor ingått sitt område genom att ge COBOL kommandot " Initiera konto - typer . " Varannan fältet nedan inom det " 01 " -nivå kommer att initieras liksom . Nästa steg visar ett annat sätt att åstadkomma detta .
3
Fortsätt till Working - Storage avsnitt och inkluderar ett " Value Clause " till varje komp - 3 variabeln . Som ett ytterligare exempel , ett område som lyder som " 05 Acctype - Periodisering Pic S9 ( 5 ) V99 Value Zero " skulle få samma resultat . Fälten kommer automatiskt att initieras innan den första Procedure Division uttalande . Om du använder Initiera kommandot , se till att den genomförs innan något annat program kommandon referens COMP - 3 fält . Kör din sammanställt version och kontrollera tillståndet koderna för eventuella sammanställer fel
4
. Båda metoderna kommer att garantera din packade decimala värden kommer att initieras därefter.
