Cómo leer un archivo de longitud variable en COBOL

Empresas Común de IBM lenguaje de programación orientado a Language ( COBOL ) permite a los usuarios procesar diferentes tipos de datos en las aplicaciones de software financiero y de negocios. COBOL soporta los registros de tipo de datos de longitud variable para su uso en los archivos de base de datos almacenados en los discos duros , el usuario especifica la longitud máxima y mínima de registro para la descripción de los archivos del disco con registros de longitud variable . Lectura de los datos de longitud variable de un archivo le permite procesar la información de base de datos sin definir el tamaño exacto de un registro en el programa COBOL. Instrucciones
1

Type " Editar" en la consola de administración de sistema z/OS360 mainframe y pulse la tecla "Enter" para editar su programa COBOL.
2

Añada la el siguiente código al principio del programa : .

IDENTIFICACIÓN division

pROGRAMA- ID . COBVAR .

ENVIRONMENT DIVISION.

SECCIÓN DE ENTRADA - SALIDA .

ARCHIVO- CONTROL.

IFILE SELECT ASSIGN TO " IFILE " .
< p> DATOS DE DIVISION.

SECCIÓN FILE.

FD IFILE

ACTA está variando de 10 a 50 DEPENDIENDO DE LEN .

01 IREC .

05 RELLENO PIC X OCURRE DE 10 A 50 HORAS EN FUNCIÓN DE LEN .

PROCEDIMIENTO DE DIVISION.

P1.

DISPLAY " Ejemplo 1 se produce dependiendo REC "

OPEN DE ENTRADA IFILE

REALIZAR HASTA LEN = -1

LEA IFILE

AL FINAL PARA MOVER -1 LEN

NO AL CIERRE

DISPLAY IREC

DISPLAY LEN

END - READ

END - PERFORM

CLOSE IFILE

DISPLAY ESPACIO

DISPLAY " Ejemplo FIJO REC"

OPEN DE ENTRADA IFILE

MOVER TODO "X " A IREC

LEA IFILE AL FINAL PARA MOVER -1 LEN

DISPLAY IREC

DISPLAY ESPACIO
3

Type " Guardar" en la consola y pulse la tecla "Enter" para activar el programa para procesar variable registros de longitud .