Была подобная задача - сделал через неявное раширение в программе MKCBEF61_PC_DOWNLOAD подпрограмма PC_DOWNLOAD в самом начале.
Код приблизительно такой:
Code:
ENHANCEMENT 1 ZFT_ES_PRINT_BALANCE. "active version
IF RKB1D-REPID EQ 'Z3RFBALANC10' OR RKB1D-REPID EQ 'Z3RFBALANC11' OR
RKB1D-REPID EQ '3RFF2'.
G_S_DOWNLOAD-EXTENSION = 'DAT'.
G_S_DOWNLOAD-VALUE_AREA = 'X'.
CALL FUNCTION 'ZFTFI_0132_PRINT_BALANCE'
EXPORTING
rkb1d = RKB1D
tables
b = b
var_tab = var_tab
add_sel_tab = add_sel_tab
EXCEPTIONS
EXCEL = 1
STANDART = 2
EXIT = 3
OTHERS = 4.
CASE sy-subrc.
WHEN 1 OR 3.
EXIT.
WHEN 2.
WHEN OTHERS.
ENDCASE.
CLEAR G_S_DOWNLOAD.
ENDIF.
ENDENHANCEMENT.
в ФМнике вызываем
Code:
PERFORM fill_download(sapmkcbe) TABLES b
download_data download_header.
и получаем таблицы в читаемом виде, далее своя выгрузка...
(не забываем проверять что запускаем наши транзакции)