Lendo arquivo localmente com ABAP

4 May, 2009 (22:23) | ABAP, Receita ABAP | By: Flávio Furlan

Problema

Criar um programa para ler um arquivo local e mostrar o seu conteúdo em um relatório simples.

Um exemplo de arquivo a ser lido está neste link e ele possui o seguinte formato:

Campo	Descrição	Tipo	Posição Inicial	Tamanho
CARRID	Airline Code	Char	1	3
CONNID	Flight Connection Number	Chara	4	4
FLDATE	Flight date	Char	8	8
PLANETYPE	Plane type	Char	16	10
SEATSMAX	Maximum capacity in economy class	Char	26	10
SEATSOCC	Occupied seats in economy class	Char	36	10

O programa deve ter uma tela de seleção onde o usuário entra com o diretório e nome do arquivo e daí executar o programa.

Solução

1 – Criar um programa tipo executável.

2 – Tela de seleção:

PARAMETERS: p_file TYPE filename-fileextern.

Nota: É possível fazer uma search help para que o usuário possa buscar o arquivo na sua máquina. Mas isso será assunto para outro post .

3 -Declarar uma tabela com apenas um campo para receber as linhas do arquivo e outra tabela interna com a estrutura do arquivo (descrita acima).

TYPES: BEGIN OF ty_line,
 
line(50) TYPE c,
 
END OF ty_line.
TYPES: BEGIN OF ty_sflight,
 
carrid TYPE sflight-carrid,
 
connid TYPE sflight-connid,
 
fldate TYPE sflight-fldate,
 
planetype TYPE sflight-planetype,
 
seatsmax TYPE sflight-seatsmax,
 
seatsocc TYPE sflight-seatsocc,
 
END OF ty_sflight.
DATA: it_file    TYPE TABLE OF ty_line,
 
wa_line    LIKE LINE OF it_line,
 
wa_sflight LIKE LINE OF it_sflight.

4 – Chamar a Function Module GUI_UPLOAD.

CALL FUNCTION 'GUI_UPLOAD'
 
EXPORTING
 
filename                      = v_filename
 
filetype                      = 'ASC'
 
TABLES
 
data_tab                      = it_file.

5 – Imprimir o relatório que é baseado no conteúdo do arquivo.

Execução e Teste

Para executar o programa apenas rode, preencha a tela de seleção com a localização do arquivo, por exemplo: C:\TEMP\upload.txt

Discussão

Como você pode verificar, a FM GUI_UPLOAD usa uma tabela interna para receber os dados do arquivo. A função devolve a tabela interna preechida com as linhas do arquivo. Por isso, eu criei a tabela interna com apenas um campo, de 49 posições, que é o tamanho máximo das linhas do arquivo em questão.

Outro ponto interessante é como eu criei a estrutura ty_sflight, com todos os campos tipo char. Isso por que a estrutura ty_line é char e como estou em um ambiente unicode, ele não aceita assign de estruturas com tipos diferentes.

MOVE wa_line TO wa_sflight.

ABAP101