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. "