COBOL è ancora una delle più ricche e più eleganti linguaggi di programmazione presenti sul mercato. A parte la potenza di calcolo e massicce capacità di gestione dei file, si ha la flessibilità di conversioni numerici e di reporting. Molte volte si può essere necessario per visualizzare i valori numerici specifici sui rapporti di output, file o campi di visualizzazione dello schermo come CICS. Senza dubbio, si incontrano i formati numerici che non sarà visualizzato correttamente come immagazzinato e dovranno essere ulteriormente convertito in un formato più leggibile. Uno dei più comuni è il decimale al sacco o COMP-3 campo numerico.

istruzione

1 Identificare il campo (s) che si desidera convertire il codice COBOL. Ad esempio, si può avere un campo che legge simile a: "05 PKD-field-01 PIC S9 (5v99) comp-3." Questo è un campo firmata, imballato decimale utilizzato efficacemente per calcoli, ma non può essere facilmente letta in un display.

2 Vai alla "sezione di lavoro-Storage del programma e impostare i campi intermedi è necessario per rendere la transizione numerica desiderata come segue: creare due campi numerici" 05 WS-numerico pic S9 (5v99) zero "e" 05 WS-display numerico pix x (8) ".

3 Inserire il codice nel programma per spostare il campo di immissione direttamente nel primo campo intermediario "WS-numerico." Ciò decomprimere il COMP-3 in un campo numerico suddivisa in zone. A sua volta, ha il codice ora spostare il primo campo intermedio sul secondo, WS-display numerico. Questo ultimo campo può essere utilizzato per visualizzare il numero sia su un supporto cartaceo o sullo schermo del computer.

4 Compilare il programma con le modifiche salvate e assicurarsi che non vi siano errori nella compilazione controllando il codice di condizione.

5 Eseguire la versione compilata e verificare i risultati.