PERFORM inserta USING : 'X' 'SAPLPCPP ' '1000',
' ' 'RKB1S-FORM' '8A-001',
' ' 'RPCAP-PLDAT' l_fecha,
' ' 'RPCAP-DOCTY' 'A0',
' ' 'RPCAA-BUDAT' l_fecha,
' ' 'BDC_OKCODE' '=SPLN'.
PERFORM inserta USING : 'X' 'SAPLKPP0' '1000',
* ' ' 'BDC_SUBSCR' c_subscreen,
' ' 'KPP0B-VALUE(01)' '1000',
' ' 'BDC_OKCODE' '=CSUB'.
PERFORM inserta USING : 'X' 'SAPLKPP2' '0103',
' ' 'BDC_CURSOR' 'Z-BDC02(01)',
' ' 'BDC_OKCODE' '/00'.
* Introducir cada dato de la tabla en el Scroll de pantalla.
CLEAR: l_numero.
LOOP AT t_file.
PERFORM inserta USING : 'X' 'SAPLKPP2' '0103'.
CLEAR: l_cadena.
PERFORM inserta USING : ' ' 'Z-BDC02(01)' t_file-cebe.
PERFORM inserta USING : ' ' 'Z-BDC03(01)' t_file-col1.
PERFORM inserta USING : ' ' 'Z-BDC04(01)' t_file-col2.
PERFORM inserta USING : ' ' 'BDC_OKCODE' '/00'.
ENDLOOP.
PERFORM inserta USING : 'X' 'SAPLKPP2' '0103'.
PERFORM inserta USING : ' ' 'BDC_OKCODE' '=CBUC'.
data: itab type BDCMSGCOLL occurs 0 with header line.
CALL TRANSACTION '9KE0' USING i_bdc_tab MODE 'A'
MESSAGES INTO itab.
*----------------------------------------------------------------------
* FORM inserta
*----------------------------------------------------------------------
* Introduce una entrada en la tabla I_BDC_TAB
*----------------------------------------------------------------------
FORM inserta USING dynbegin name value.
IF dynbegin = 'X'.
CLEAR i_bdc_tab.
i_bdc_tab-program = name.
i_bdc_tab-dynpro = value.
CONDENSE i_bdc_tab-dynpro NO-GAPS.
i_bdc_tab-dynbegin = 'X'.
APPEND i_bdc_tab.
ELSE.
CLEAR i_bdc_tab.
i_bdc_tab-fnam = name.
i_bdc_tab-fval = value.
CONDENSE i_bdc_tab-fval NO-GAPS.
APPEND i_bdc_tab.
ENDIF.
ENDFORM. "inserta