Lectura de un archivo plano varias veces en la tercera generación de la computadora lenguaje de programación orientado a Common Business Language ( COBOL ) es un proceso simple. Se requiere una cierta habilidad de programación , sin embargo , así como algunos conocimientos de COBOL . Desarrollada alrededor de 1960 por el Dr. Grace Murray Hooper , COBOL sigue siendo ampliamente utilizado , principalmente por la comunidad empresarial . Fue diseñado , en parte, para procesar grandes cantidades de datos con cálculos empresariales mínimos o simple. Cosas que necesitará Manual de amigos de usuario actual de COBOL entorno
actual COBOL Manual
Mostrar más instrucciones
1

Inicie sesión en el entorno de la computadora donde se codificar , compilar y ejecutar su programa COBOL. Abra el editor donde introducir y editar el programa. El cumplimiento de esta tarea varía según el tipo de medio ambiente. Consulte el manual del usuario actual para el entorno COBOL
2

Tipo esta plantilla del programa, para el cual la información se completará durante las etapas posteriores: .

IDENTIFICACIÓN DIVISION.Program -ID . Programa ID here.Author . Su nombre Here.Installation . Mi empresa computer.Date Escrito . . MM /DD /YYYY.REMARKS.Program descripción aquí

AMBIENTE SECTION.INPUT - SALIDA SECTION.FILE - Control.Select Input- FileASSIGN TO " C: \\ TMP \\ SAMPIN.TXT " ORGANIZACIÓN ES LINEA SECUENCIAL .

seleccione Imprimir fileASSIGN - TO " C: \\ TMP \\ SAMPOUT.TXT " ORGANIZACIÓN ES LINEA SECUENCIAL

DATOS DIVISION.FILE SECTION.FD registro de entrada - archivo contiene 10 CARACTERES 0.01 . ENTRADA - REC.05 ÚLTIMO NOMBRE PIC X ( 10 ) . FD Imprimir ficha - archivo contiene 10 CARACTERES 0.01 SALIDA -REC PIC X ( 10 ) ALMACENAMIENTO .WORKING SECTION.01 Read- cnt pic 9 ( 9 ) El valor es igual a cero . 01 Read- lmt pic 9 ( 9 ) valor es igual a cero .

PROCEDIMIENTO DIVISION.OPEN eNTRADA - FileOutput impresión file.Set Read- cnt 0.Set lectura lmt a 5.read - archivo.read input- fichero aL FINAL Ir al final de PGM. Añadir 1 a Leer - cnt . MUEVA DE ENTRADA - REGISTRO DE SALIDA -RECORD . Escribir la salida - RECORD.Add 1 a lectura lmt.If lectura lmt = 5 Ir a al final de su PGMElseGo de lectura file.End - de - PGM.If Read- cnt = 0 Display " Input- archivo está vacío " . CLOSE entrada -file , tirada - file.STOP .
3

reunir información de varias fuentes de la División de identificación de la plantilla del programa que ha escrito. Elimine el texto en los campos de la División de Identificación , y reemplazarla con la información que se reúnen . Cambie el nombre del programa , el nombre correcto del programa debe estar en las especificaciones del programa . Incluya su nombre como autor. Para la fecha escrita , usar la fecha actual con dos caracteres para el mes y día y cuatro caracteres para el año . Para el campo de la instalación , introduzca el entorno en el que podrás ejecutar el programa, que debe estar en el manual del usuario. Escriba una descripción del programa en la sección "Comentarios " . Consulte el manual actual COBOL y el manual de usuario y clave de toda la información necesaria para identificar el programa para el sistema operativo específico. Para este paso y los pasos posteriores,
4

información de tipo en los campos de la Sección Medio Ambiente de la plantilla del programa . La primera sección de Medio Ambiente de la sección es la sección de configuración . Para los fines de este ejemplo , sin embargo, se supone que el - equipo de origen y el objeto - 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 parte de la Sección de Medio Ambiente. Mediante el uso de declaraciones de "Select" , escribir la información de identificación para los archivos de entrada y salida utilizados . Encuentra la información y las especificaciones en el manual del usuario. Los datos para el " asignar " cláusula depende del entorno específico.
5

Mira las especificaciones, y determinar cuántas veces se puede 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, cambie la variable de lectura lmt en la división de datos desde "cero " al número indicado en las especificaciones. También cambia la lectura lmt = 5 contador de " 5 " con el valor indicado en las especificaciones de la División de Procedimiento.

Si el archivo se va a leer hasta que " al final de su archivo ", a continuación, eliminar el lectura lmt variable de la División de Datos. Eliminar las dos líneas de código en la División de Procedimientos " Si Read- lmt = 5 Ir al final de PGM Else. "