Load File

Leitura de arquivo em formatos diversos.

Sintaxe

Load File  arquivo
  [ CLOSE ]
 
[ campo ]
DELIMITER delimitador
TABLE tabela em documento XML
STATUS file status

Argumentos

arquivo

Nome do arquivo a ser lido. A extensão determina o formato a ser utilizado, se for omitida ou não suportada pelo comando, o arquivo será assumido o formato texto. Podem ser lidos múltiplos arquivos simultaneamente, o controle se baseia neste argumento.

Formatos suportados

DBF

Dbase III

XML

Extensible Markup Language

JSON

JavaScript Object Notation

RPX

Formato RPV delimitado por "|" (X"7C")

TXT

Formato texto (especificação de delimitador opcional)


CLOSE


Encerra a leitura do arquivo mesmo sem ter chegado ao fim.

campo


Lista de campos a serem preenchidos pela leitura, nos formatos DBF e XML a associação será feita pelos nomes nos demais casos será pela posição. Podem ser especificados até 1024 campos.

delimitador


Caractere a ser utilizado como como delimitador de campos, neste caso não será gerado o .CPY.

tabela em documento XML


Nome da tabela a ser extraída de documento XML que contenha múltiplas, se este parâmetro não for especificado o documento será tratado como de tabela única.

file status


Campo de 2 bytes que retorna o código do resultado da operação seguindo o padrão do file status do COBOL, cada execução do comando retorna o registro seguinte, se retornado o código 10 de fim de arquivo ele será fechado automaticamente, se nessa situação for feita uma nova chamada para o mesmo arquivo. a leitura se reiniciará do primeiro registro.

Exemplo


Codificação COBOL

PERFORM UNTIL FS > "09"
              EXEC COBOLware Load File "TESTE.DBF"
                          CODIGO
                          NOME
                          ENDERECO
                          BAIRRO
                          CIDADE
                          ESTADO
                          STATUS FS
             END-EXEC
             IF STATUS < '10'
                   ADD 1 TO IMPORTADOS
                   PERFORM SALVAS
             END-IF
END-PERFORM

Veja também

Save File