COBOL is nog steeds een van de rijkste en meest elegante computer talen op de markt . Afgezien van de rekenkracht en de enorme file handling , hebt u de flexibiliteit van het aantal conversies en rapportage . Vaak kan het nodig zijn om specifieke numerieke waarden op de output rapporten , bestanden of velden op het display scherm zoals CICS weer te geven . Ongetwijfeld zal je tegenkomt numerieke formaten die niet wordt weergegeven correct als opgeslagen en zal verder moeten worden omgezet naar een meer leesbare indeling . Een van de meest voorkomende is het verpakt decimaal of COMP - 3 numeriek veld . Instructies
1 Identificeer de veld (en ) die u wilt converteren in de COBOL -code . Bijvoorbeeld , hebt u mogelijk een veld dat lijkt op leest : " 05 PKD - field - 01 pic s9 ( 5v99 ) comp - 3 . " Dit is een ondertekende , verpakt decimaal veld efficiënter gebruikt voor berekeningen , maar kan niet gemakkelijk worden gelezen in een display . Kopen van 2 Ga naar de " Sectie Working - opslag van het programma en het opzetten van de tussenliggende velden je wil nodig om de gewenste numerieke overgang als volgt : maak twee numerieke velden " 05 ws - numerieke pic s9 ( 5v99 ) waarde nul , " en " 05 ws - scherm - numerieke pix x ( 8 ) . "
< br > invoegen code in het programma om het invoerveld te verplaatsen direct in de eerste tussenpersoon veld 3 " ws - numeriek . " Dit zal de comp - 3 nummer uit te pakken in een gezoneerd numeriek veld . op hun beurt hebben de code nu verplaatsen de eerste intermediair veld in de tweede , ws - weergave - numeriek . Dit laatste veld kan worden gebruikt om het nummer weer te geven , hetzij op een gedrukte vorm of op een computerscherm .
4 Compileer het programma met de opgeslagen veranderingen en zorg ervoor dat er geen fouten in het compileren door het controleren van de conditie -code .
5 Voer de gecompileerde versie en controleer de resultaten .
|
