Pessoal estou com um probleminha estou realizando à importação de vários arquivos então como criei a estrutura para apenas um agora estou tornando o programa dinâmico, o único problema é que não consigo fazê-lo vejam abaixo: Comando para um Único arquivo. COPY-LOB FROM FILE "C:\RETORNOSIB\teste.RPX" TO XML. Agora fiz uma estrutura para pegar os arquivos com extensão .rpx que vai me criar uma tabela temporária para que eu possa analisar todos os arquivos conforme abaixo: DEFINE VARIABLE XML AS LONGCHAR. DEFINE VARIABLE inicioregistroincluidos AS CHAR FORMAT 'X(20)'. DEFINE VARIABLE fimregistroincluidos AS CHAR FORMAT 'X(21)'. DEFINE VARIABLE LEN AS INTEGER. DEFINE VARIABLE INICIO AS INTEGER. DEFINE VARIABLE FIM AS INTEGER. DEFINE VARIABLE REGISTROSINCLUIDOS AS LONGCHAR. DEFINE VARIABLE CARTAO AS CHAR FORMAT 'x(13)'. DEFINE VARIABLE UNIDADE AS CHAR FORMAT 'X(04)'. DEFINE VARIABLE retorno AS LOGICAL. DEFINE STREAM DIRETORIO. DEFINE VARIABLE ARQUIVO AS CHARACTER FORMAT "x(70)" NO-UNDO. DEFINE TEMP-TABLE REGISTROS XML-NODE-NAME "registroIncluido" FIELD codigoBeneficiario AS CHAR FORMAT 'X(17)' FIELD cco AS CHAR FORMAT 'x(12)' FIELD nomeBeneficiario AS CHAR FORMAT 'X(60)'. DEF TEMP-TABLE LOGSIB FIELD CARTAO AS CHAR FORMAT 'X(17)' FIELD CCO AS CHAR FORMAT 'x(12)' FIELD NOME AS CHAR FORMAT 'X(60)' FIELD OBS AS CHAR FORMAT 'X(100)'. DEF TEMP-TABLE LISTADEARQUIVOS FIELD ARQUIVO AS CHAR FORMAT 'X(70)' FIELD PROCESSADO AS LOGICAL. DEFINE DATASET DTSREGISTROS FOR REGISTROS. INPUT STREAM DIRETORIO FROM OS-DIR("C:\RETORNOSIB"). REPEAT: IMPORT STREAM DIRETORIO arquivo. IF LENGTH(arquivo) > 3 THEN IF SUBSTRING(arquivo,LENGTH(arquivo) - 3) = ".RPX" THEN DO: ASSIGN arquivo = 'C:\RETORNOSIB\' + arquivo. CREATE LISTADEARQUIVOS. ASSIGN LISTADEARQUIVOS.ARQUIVO = ARQUIVO. ASSIGN LISTADEARQUIVOS.PROCESSADO = NO. END. END. INPUT CLOSE. FOR EACH LISTADEARQUIVOS WHERE LISTADEARQUIVOS.PROCESSADO = NO. COPY-LOB FROM VALUE(LISTADEARQUIVOS.ARQUIVO) TO XML. END. Dá o que não entendeu à expressão depois de copy-lob alguem poderia me ajudar?
