Terwijl het verstrekken van numerieke efficiëntie en precisie tijdens berekening en opslag , COBOL biedt een manier om efficiënt kunt u uw nummers snel berekenen door gebruik te maken van haar interne architectuur . Een van de meest voorkomende is het verpakt decimaal of COMP - 3 numeriek veld , waarmee u twee cijfers slaan op iedere byte van opslag . Met behulp van deze notatie , bepaalt u hoeveel cijfers het opgeslagen nummer wordt door het toevoegen van een tot de genoteerde veld en het resultaat te delen door twee . Bijvoorbeeld , een gebied van PIC S9 ( 5 ) COMP - 3 heeft een opslag van 3 bytes . U moet dit gebied initialiseren voordat enige manipulatie of berekening wordt uitgevoerd op het aan een verwerking fout te vermijden . Instructies
1 Identificeer de veld (en ) die u wilt initialiseren in uw COBOL -code . Bijvoorbeeld , hebt u mogelijk een terrein als " 05 - bedrag ontvangen PIC S9 ( 5v99 ) comp - 3 . " Dit is een ondertekende verpakt decimaal veld en je moet eerst initialiseren voordat het kan worden betrokken bij de verdere bewerking . Kopen van 2 Ga naar de sectie Working - opslag van uw programma en bepalen de bestandsstructuur van uw variabelen . Als de comp - 3 velden zijn ondergeschikt aan een hogere structuur , typt u de " Initialize " commando in de divisie Procedure . Als voorbeeld , een gebied, zoals " 01 Account - Types " Gevolgd door een ondergeschikte gebied van " 05 Acctype - Fiscale Pic S9 ( 7 ) V99 " zou kunnen worden geïnitialiseerd en hebben nullen aangegaan zijn gebied door de uitgifte van de COBOL commando " initialiseren Account - Types . " Elke andere veld hieronder binnen die " 01 " -niveau zal ook worden geïnitialiseerd . De volgende stap toont een andere manier om dit te bereiken .
3 Ga naar uw afdeling Working - opslag en beschikken over een " Value clausule " aan elke comp - 3 variabele . Als een ander voorbeeld , een gebied dat leest als " 05 Acctype - Opbouwpercentage Pic S9 ( 5 ) V99 Value Zero " zou hetzelfde resultaat hebben . De velden worden automatisch geïnitialiseerd voordat de eerste procedure Division statement . Als u de Initialize commando gebruiken , zorg ervoor dat het wordt uitgevoerd voordat een andere programma-opdrachten verwijzing van de comp - 3 velden .
4 Run je gecompileerde versie en controleer de toestand codes voor eventuele compileerfouten . Ofwel methode garandeert uw verpakte decimale waarden zal dienovereenkomstig worden geïnitialiseerd .
|
