Open File

Procurar arquivo.

Sintaxe

Open File;lb-arquivo
[ TITLE mensagem ]
[ LINE linha ]
[ COLUMN coluna ]
[ HEIGHT linhas ]
[ PATH pasta
[ DEFAULT especificação-de-arquivo ]
[ WITH-DIR ]
[ WITH-DRIVES ]
[ WITH-NEWDIR ]
[ WITH-NEWFILE ]

Argumentos

lb-arquivo

Variável de até 50 bytes que receberá o nome do arquivo informado pelo usuário. Retorna em branco caso o usuário cancele a função.

mensagem

Título da janela de até 78 caracteres.

linha

Linha de posicionamento da janela.

coluna

Coluna de posicionamento da janela.

linhas

Altura da janela em linhas.

pasta

Pasta inicial, se emitida será assumida a pasta corrente e *.*.

especificação-de-arquivo

Nome de arquivo a ser sugerido ao usuário.

WITH-DIR

Habilita a navegação entre diretórios.

WITH-DRIVES

Habilita a navegação entre unidades de disco

WITH-NEWDIR

Permite a que o usuário crie novas pastas.

WITH-NEWFILE

Permite que o usuário informe um nome de arquivo inexistente para ser criado.

Observações

A acentuação do arquivo texto deve ser codificada com a página de código 850. Os processadores de tela se encarregam de traduzir para o codificação apropriada à plataforma de execução.

Os parâmetros de posicionamento e dimensionamento da janela não tem efeito no ambiente Windows.

Exemplo

Codificação COBOL

EXEC COBOLware Open FILE;lb-arquivo
           LINE 8
           COLUMN 15
           HEIGHT 10
           PATH "C:\*.*"
           WITH-DIR
           WITH-DRIVES
 END-EXEC

Efeito no modo gráfico

Efeito no modo texto