Cómo leer un archivo de longitud variable en COBOL

de IBM Common Business Oriented Language (COBOL) lenguaje de programación permite a los usuarios procesar diferentes tipos de datos en las aplicaciones de software financiero y de negocios. COBOL soporta el tipo de datos de registros de longitud variable para su uso en los archivos de base de datos almacenados en los discos duros; el usuario especifica las longitudes máximas y mínimas récord para la descripción de los archivos del disco con registros de longitud variable. La lectura de datos de longitud variable desde un archivo le permite procesar la información de base de datos sin definir el tamaño exacto de un registro en su programa COBOL.

Instrucciones

1 Tipo "Editar" en la consola de gestión del sistema z / OS360 mainframe y pulse la tecla "Enter" para editar su programa COBOL.

2 Agregue el siguiente código al principio de su programa:

DIVISIÓN DE IDENTIFICACIÓN.

PROGRAM-ID. COBVAR.

DIVISIÓN DE MEDIO AMBIENTE.

SECCIÓN insumo-producto.

ARCHIVO-CONTROL.

SELECT IFILE ASIGNAR A "IFILE".

DIVISIÓN DE DATOS.

FILE SECTION.

FD IFILE

Registro es de 10 hasta 50 dependiendo de LEN.

01 IREC.

05 RELLENO PIC X se presenta de 10 a 50 veces DEPENDIENDO DE LEN.

DIVISIÓN DE PROCEDIMIENTO.

P1.

DISPLAY "Ejemplo 1 ocurre DEPENDIENDO DE REC"

ENTRADA ABIERTA IFILE

REALIZAR HASTA LEN = -1

LEER IFILE

EN MOVIMIENTO FIN -1 a LEN

NO AL FINAL

DISPLAY IREC

DISPLAY LEN

FIN-READ

FIN-PERFORM

CERRAR IFILE

PANTALLA DE ESPACIO

DISPLAY "Ejemplo FIJO REC"

ENTRADA ABIERTA IFILE

Mover todas las "X" para IREC

LEA EN MOVIMIENTO IFILE FIN -1 a LEN

DISPLAY IREC

PANTALLA DE ESPACIO

3 Tipo de "Guardar" en la consola y pulse la tecla "Enter" para habilitar el programa para procesar los registros de longitud variable.