COBOL är fortfarande en av de rikaste och mest eleganta datorspråk på marknaden . Bortsett från den datorkraft och massiva fil kapacitet hantering , har du flexibilitet att antalet omvandlingar och rapportering . Många gånger kan du behöva visa specifika numeriska värden på output rapporter , filer eller skärm displayfält som CICS . Utan tvekan , kommer du att stöta numeriska format som inte visas korrekt så lagras och kommer att behöva ytterligare omvandlas till ett mer läsbart format . En av de vanligaste är den packade decimal eller COMP - 3 numeriskt fält . Instruktioner
1
Identifiera fältet ( er ) du vill konvertera i COBOL -koden . Till exempel kan du ha ett fält som lyder ungefär så här: " 05 PKD - fältet - 01 pic S9 ( 5v99 ) komp - 3 . " Detta är en undertecknad , packade decimal fält används effektivt för beräkningar , men kan inte vara lätt att läsa i en display .
2
Gå till " Working - Storage avsnitt av programmet och ställa in de mellanliggande fält du behöva göra den önskade numeriska övergången så här : skapa två numeriska fält " 05 WS - numerisk pic S9 ( 5v99 ) värdet noll , " och " 05 WS - display - numerisk pix x ( 8 ) . "
3
Infoga kod i programmet för att flytta inmatningsfältet direkt i första förmedlande fältet " WS - numeriskt . " Detta kommer att packa upp comp - 3 nummer i en regionkod numeriskt fält . i sin tur , har koden nu flytta första förmedlande fältet i den andra , WS - display - numeriskt . Denna sista fältet kan användas för att visa numret antingen på en blankett eller på en datorskärm .
4
Kompilera programmet med de sparade ändringarna och kontrollera att det inte finns några fel i kompileringen genom att kontrollera tillståndet koden .
5
kör det kompilerade versionen och kontrollera resultaten . Addera ditt
