Cómo encontrar el número de caracteres en una línea en COBOL

Aunque algunos idiomas de la aplicación informática son complejos y otros son simples en su forma, Cobol es en un mundo de ambos. Existen infinitas posibilidades que puede obtener con Cobol, y uno de ellos es el método simple pero elocuente para manipular y contar los caracteres individuales dentro de un archivo o sólo una línea de texto. Utilizando el conjunto de comandos de la derecha, se puede determinar con exactitud los caracteres que desea ser anotados en sus totales, ya se trate de números, letras o incluso tipografía especial que incluye la EBCIDIC o ASCII juego de caracteres. Es posible que tenga una necesidad de hacer esto para contar ciertos caracteres en un archivo para cambiar euros a dólares, o extraer, sustituir o insertar caracteres específicos antes de cargar el archivo en una base de datos.

Instrucciones

1 Identificar el archivo de entrada que está eligiendo en el que realizar el recuento de líneas / personaje. Este archivo debe ser identificado con el programa Cobol como una entrada con una organización secuencial en la División del Medio Cobol. También declarar qué archivo se utiliza para informar de los recuentos de caracteres resumen de cada línea. También debe asignar este archivo como salida con la organización secuencial.

2 Crear las descripciones de archivos y registros de entrada y salida en la sección de archivos de datos de la División del programa Cobol. A modo de ejemplo, si el archivo de entrada tiene una longitud de 200 bytes, a continuación, el registro contiene la cláusula debe indicar esto como "registro contiene 200 caracteres". El archivo de salida puede ser de cualquier longitud a determinar pero debe ser declarado así.

3 Crear valores temporales en la Sección de Trabajo de almacenamiento. Aquí es donde el registro de entrada se moverá y el programa consultará cada línea se lee y evaluar los caracteres individuales en esas líneas. Este es el aspecto que tendrá el campo: 05 WS-EXTRACTO PIC X (200). Directamente debajo de esta línea será: 05 WS-IND-EXTRACTO redefine WS-EXTRACTO SE PRODUCE 200 veces en un índice por WS-INDEX. Directamente debajo de esta línea debe ser: 88 VÁLIDO-CHAR valores '0' al '9', 'a' a la 'z', 'A' a la 'Z'.

4 Abrir los archivos de entrada y salida en la División interno del programa Cobol y leer en el primer registro de entrada. El programa ya está listo para recorrer la lógica de la consulta de las líneas de entrada carácter por carácter, teniendo un recuento por línea y escribir la línea que cuenta con el registro de salida. Usted debe poner esta lógica en una rutina párrafo separado dentro del programa y ejecutarlo hasta que se ha leído la última línea. La lógica se verá así: Realizar B100-CHECK-EACH-CARÁCTER Variando WS-INDEX de 1 en 1 hasta WS-índice es mayor que 200.

5 Crear la rutina párrafo separado de este modo: B100-CHECK-CADA caracteres. Si VÁLIDO-CHAR (WS-INDEX) y luego Añadir 1 a WS-INFORME-COUNT.

WS-INFORME-Count es un campo temporal que se crea en la Sección de Trabajo de almacenamiento con una descripción del PIC 9 (3) valor cero.

6 Compilar el programa y depurar los errores de sintaxis de compilación antes de ejecutar el programa a través de su ejecución.