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 .