Idioma Comum de Negócios da IBM Orientado ( COBOL ) linguagem de programação permite que os usuários para processar diferentes tipos de dados em aplicações financeiras e de software empresarial. COBOL suporta o tipo de dados de registros de comprimento variável para uso em arquivos de banco de dados armazenados em discos rígidos , o usuário especifica o comprimentos de registros mínimos para descrever os arquivos do disco com registros de comprimento variável e máxima . Lendo dados de comprimento variável de um arquivo permite processar informações de banco de dados sem definir o tamanho exato de um registro em seu programa COBOL. Instruções
1 Tipo

"Editar" no console de gerenciamento do sistema z/OS360 mainframe e pressione a tecla "Enter" para editar o seu programa COBOL.
2

Adicione o seguinte código para o início do seu programa:

DIVISÃO dE IDENTIFICAÇÃO

PROGRAM -ID . . COBVAR .

AMBIENTE DIVISÃO .

INPUT- OUTPUT SECTION.

FILE- CONTROL.

Selecione IFILE atribuir a " IFILE " .

DATA DIVISION .

seção do arquivo .

FD IFILE

Record está variando de 10 a 50, dependendo LEN .

01 IREC . < br >

05 FILLER PIC X OCORRE 10 a 50 vezes, dependendo LEN .

DIVISÃO PROCEDIMENTO .

P1 .

DISPLAY " EXEMPLO 1 ocorre dependendo REC"

ABRIR ENTRADA IFILE

realizados até LEN = -1

LEIA IFILE

NO FINAL MOVIMENTO -1 TO LEN

NÃO NO FINAL

EXIBIÇÃO IREC

EXIBIÇÃO LEN

END -READ

FINAL DE EXECUTAR

FECHAR IFILE

espaço de exibição "REC EXEMPLO FIXO "

EXIBIÇÃO

entrada aberta IFILE

mover todos os "X" para IREC

LER IFILE NO FINAL MOVIMENTO -1 TO LEN

EXIBIR IREC

TELA ESPAÇO
3

Digite em "Salvar" no console e pressione a tecla "Enter" para permitir que o programa para processar variável registros de comprimento .