Samtidig give numerisk effektivitet og præcision under beregning og lagring tilbyder COBOL en måde til effektivt at tillade dig at beregne dine numre hurtigt ved at drage fordel af dens interne arkitektur. En af de mest almindelige er pakket decimal eller COMP -3 numerisk felt , som giver dig mulighed for at gemme to cifre inden for hver byte af lagerplads. Brug af denne notation , bestemme , hvor mange cifre det lagrede nummer vil være ved at tilføje en til node felt og dividere resultatet med to . For eksempel COMP -3 et felt af PIC S9 ( 5) har en lagring af 3 bytes . Du skal initialisere dette felt , før nogen form for manipulation eller beregning er udført på det for at undgå en behandling fejl. Instruktioner
1
Identificer område (r ), du ønsker at formatere i din COBOL kode. For eksempel kan du have et felt som " 05 beløb modtaget PIC S9 ( 5v99 ) comp -3 ". Dette er en underskrevet pakket decimal felt , og du skal først initialisere det, før det kan blive inddraget i yderligere forarbejdning .
2
Gå til Arbejde -Storage sektion af dit program og afgøre, hvilken fil strukturen af dit variabler . Hvis comp - 3 felter er underordnet et højere struktur , skal du blot skrive " Initialize " kommando i Procedure Division . Som et eksempel, et område som "01 Konto -Types " Efterfulgt af en underordnet området " 05 Acctype - Fiscal Pic S9 (7) V99 " kunne initialiseret og har nuller indgået sit felt ved at udstede COBOL kommandoen " Initialiser konto -Types . " Hver anden nedenstående felt inden for denne "01 "-niveau vil blive initialiseret så godt. Det næste skridt viser en anden måde at opnå dette.
3
Fortsæt til din arbejdsdag -Storage sektion og inkluderer en "Value "-klausul til hver comp - 3 variable . Som et yderligere eksempel " (5 ) 05 Acctype - Periodisering Pic S9 V99 Value Zero " et felt, der lyder som ville have samme resultat. Felterne vil automatisk blive initialiseres, før den første procedure Division erklæring. Hvis du bruger Initialize kommandoen , sørg for at det bliver udført før noget andet program kommandoer henvisning til comp - 3 felter .
4
Kør kompileret version og kontrollere tilstanden koder for eventuelle kompileringsfejl . Enten metode vil garantere dine pakket decimaltal vil blive initialiseret i overensstemmelse hermed.
