Cómo leer archivos planos varias veces en COBOL

La lectura de un archivo plano varias veces en la tercera generación del lenguaje de programación informática Común Orientado Business Language (COBOL) es un proceso sencillo. Se requiere algo de habilidad de programación, sin embargo, así como un cierto conocimiento de COBOL. Desarrollado alrededor de 1960 por el Dr. Grace Murray Hooper, COBOL está siendo ampliamente utilizado, principalmente por la comunidad de negocios. Fue diseñado, en parte, para procesar grandes cantidades de datos con cálculos económicos mínimos o simples.

Instrucciones

1 Iniciar sesión en el entorno de equipo en el que codificar, compilar y ejecutar su programa COBOL. Abrir el editor de donde introducir y editar su programa. El cumplimiento de esa tarea varía en función del tipo medio ambiente. Consulte el manual del usuario actual para el medio ambiente COBOL.

2 Llene esta plantilla del programa, para lo cual se rellenará información durante las etapas subsiguientes:

DIVISIÓN DE IDENTIFICACIÓN.
Programa-ID. ID del programa aquí.
Autor. Tu nombre aquí.
Instalación. Mi ordenador de la empresa.
Fecha escrita. MM / DD / AAAA.
OBSERVACIONES.
Descripción del programa aquí.

Sección del entorno.
SECCIÓN insumo-producto.
ARCHIVO-CONTROL.
De selección de entrada-Archivo
ASIGNAR A "C: \ TMP \ SAMPIN.TXT"
La organización es correlativo de línea.

Imprimir SELECT-archivo
ASIGNAR A "C: \ TMP \ SAMPOUT.TXT"
La organización es correlativo de línea.

DIVISIÓN DE DATOS.
SECCIÓN DE ARCHIVOS.
FD registro de entrada-archivo contiene 10 caracteres.
01 ENTRADA-REC.

05 LAST-NAME PIC X(10).

FD-registro de impresión de archivo contiene 10 caracteres.
PIC X 01 SALIDA-REC (10).
SECCIÓN DE TRABAJO DE ALMACENAMIENTO.
01 pic Lee-cnt 9 (9) El valor es igual a cero.
01 Lee-LMT PIC 9 (9) El valor es igual a cero.

DIVISIÓN DE PROCEDIMIENTO.
Entrada abierta Entrada-archivo

OUTPUT Print-file.

Conjunto Lee-cnt a 0.
Set-LMT Leer a 5.
Leer-archivo.

READ Input-file AT END Go to End-of PGM.

Añadir 1 a Leer-CNT.
MOVER DE ENTRADA-REGISTRO DE SALIDA-RECORD.
Escribir la salida-RECORD.
Añadir 1 a leer-LMT.
Si Lee-LMT = 5 Ir al final-de-PGM
Más
Ir a la lectura de archivos.
Fin de PGM.
Si Lee-cnt = 0 Muestra "Input-archivo está vacío".

CLOSE Input-file, Print-file.
STOP RUN.

3 Recopilar información de varias fuentes para la División de Identificación de la plantilla del programa que ha escrito. Eliminar el texto en los campos de la División de Identificación, y reemplazarla con la información que se reúnen. Cambiar el nombre del programa; el nombre del programa debe ser correcta en las especificaciones del programa. Incluya su nombre como autor. Para la fecha escrita, usar la fecha actual mediante dos caracteres para el mes y el día y cuatro caracteres para el año. Para el campo de instalación, introduzca el entorno en el que podrás ejecutar su programa, que debe estar en el manual del usuario. Clave en una descripción del programa en la sección "Observaciones". Compruebe el manual actual COBOL y el manual del usuario y la clave de cualquier otra información necesaria para identificar el programa para el medio ambiente operativo específico. Para este paso y los pasos posteriores,

4 Escribir información en los campos sección del entorno de la plantilla del programa. primera sección de la Sección de Medio Ambiente es la sección de configuración. Para los fines de este ejemplo, sin embargo, se supone que la fuente de ordenador y el objeto por ordenador son los mismos. Por esa razón, la sección de configuración se elimina.

Reemplazar los datos de la sección de entrada-salida, que es la segunda sección de la Sección de Medio Ambiente. Mediante el uso de "Seleccionar" declaraciones, escriba la información de identificación para los archivos de entrada y salida utilizados. Encuentra la información y especificaciones en el manual del usuario. Los datos de la cláusula de "asignar a" depende del entorno específico.

5 Mira las especificaciones, y determinar cuántas veces se leerá el archivo plano. Si las especificaciones indican un número específico de veces que el archivo se va a leer, a continuación, cambiar la variable LMT-Lee en la División de Datos de "cero" para el número indicado en las especificaciones. También cambiar la lectura LMT = 5 contador de "5" con el valor indicado en las especificaciones de la División de Procedimiento.

Si el archivo se ha de leer hasta que "EOF", a continuación, elimine la variable LMT-Lea de la División de Datos. Eliminar las dos líneas de código en la División de Procedimiento "Si Lee-LMT = 5 Ir al final-de-PGM Else".

Consejos y advertencias

• Diferentes versiones de COBOL y diferentes plataformas pueden requerir ajustes.
• Tenga cuidado al ejecutar programas COBOL escritas para una plataforma, como un mainframe, en otra plataforma, tales como un ordenador personal. problemas de compatibilidad son posibles.