Cómo convertir campos Símbolo de alfa numérico en COBOL

COBOL sigue siendo uno de los idiomas más ricos y elegantes de ordenador en el mercado. Aparte de la potencia de cálculo y capacidades masivas de manejo de archivos, usted tiene la flexibilidad de las conversiones de números y presentación de informes. Muchas veces es posible que necesite para mostrar los valores numéricos específicos en los informes de salida, archivos o campos de visualización de la pantalla como CICS. Sin lugar a dudas, se encontrará con los formatos numéricos que esto no suceda como se almacena y que tendrán que ser convertido además a un formato más legible. Uno de los más comunes es el decimal empaquetado o COMP-3 campo numérico.

Instrucciones

1 Identificar el campo (s) que desea convertir en el código COBOL. Por ejemplo, es posible que tenga un campo que lee similar a: "05 PKD-campo-01 pic S9 (5v99) COMP-3". Este es un campo decimal con signo, embalado utilizado eficientemente para los cálculos, pero no se puede leer fácilmente en una pantalla.

2 Ir a la "Sección de Trabajo de almacenamiento del programa y configurar los campos intermedios que tendrá que hacer la transición numérica deseada de la siguiente manera: crear dos campos numéricos" 05 ws-numérico PIC S9 (5v99) valor cero, "y" 05 ws-display-pix x numérico (8) ".

3 Insertar código en el programa para mover el campo de entrada directamente en el primer campo intermediario "WS-numérico." Esto desempaquetar el número COMP-3 en un campo numérico dividido en zonas. A su vez, tiene el código ahora mover el primer campo de intermediario en la segunda, ws-display-numérico. Este último campo se puede utilizar para mostrar el número, ya sea en forma impresa o en una pantalla de ordenador.

4 Compilar el programa con los cambios guardados y asegúrese de que no hay errores en la compilación de comprobar el código de condición.

5 Ejecutar la versión compilada y verificar los resultados.