Thanks to visit codestin.com
Credit goes to www.scribd.com

Scribd
Upload
7 views2 pages

Subroutine

The document outlines an ABAP program named ZPROGRAM_BDC_01 that performs batch data communication (BDC) for transaction 'il01'. It includes the definition of data structures, calls to subroutines for populating BDC data, and the execution of the transaction with message handling. The program is structured to input various fields necessary for the transaction processing.

Uploaded by

Ajit Lokhande
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
7 views2 pages

Subroutine

The document outlines an ABAP program named ZPROGRAM_BDC_01 that performs batch data communication (BDC) for transaction 'il01'. It includes the definition of data structures, calls to subroutines for populating BDC data, and the execution of the transaction with message handling. The program is structured to input various fields necessary for the transaction processing.

Uploaded by

Ajit Lokhande
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 2

Main Program-:

*&---------------------------------------------------------------------*
*& Report ZPROGRAM_BDC_01
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zprogram_bdc_01.

DATA: it_BDC TYPE TABLE OF bdcdata.


DATA: wa_BDC TYPE bdcdata.

PERFORM bdc_sbr_data USING 'SAPMILO0' '1110' 'X' '' ''.


PERFORM bdc_sbr_data USING '' '' '' 'BDC_OKCODE' '/00'.
PERFORM bdc_sbr_data USING '' '' '' 'IFLOS-STRNO' 'TEST-014'.
PERFORM bdc_sbr_data USING '' '' '' 'RILO0-TPLKZ' 'A'.
PERFORM bdc_sbr_data USING '' '' '' 'IFLO-FLTYP' 'M'.
PERFORM bdc_sbr_data USING 'SAPMILO0' '2100' 'X' '' ''.
PERFORM bdc_sbr_data USING '' '' '' 'BDC_OKCODE' '=T\02'.
PERFORM bdc_sbr_data USING '' '' '' 'IFLO-PLTXT' 'Test for BDC 014'.
PERFORM bdc_sbr_data USING '' '' '' 'BDC_CURSOR' 'ITOB-EQART'.
PERFORM bdc_sbr_data USING '' '' '' 'ITOB-EQART' '1000'.
PERFORM bdc_sbr_data USING 'SAPMILO0' '2100' 'X' '' ''.
PERFORM bdc_sbr_data USING '' '' '' 'BDC_OKCODE' 'BU'.
PERFORM bdc_sbr_data USING '' '' '' 'BDC_CURSOR' 'ITOB-SWERK'.
PERFORM bdc_sbr_data USING '' '' '' 'ITOB-SWERK' '0005'.
DATA: it_msg TYPE TABLE OF BDCmsgcoll.
CALL TRANSACTION 'il01' USING it_bdc MESSAGES INTO it_msg.
INCLUDE zprogram_bdc_01_bdc_sbr_datf01.

DATA: it_msg TYPE TABLE OF BDCmsgcoll.


CALL TRANSACTION 'il01' USING it_bdc MESSAGES INTO it_msg.

Include Zprogram_BDC_01_BDC_SBR_DATF01.
Subroutines-
*&---------------------------------------------------------------------*
*& Form BDC_SBR_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> P_
*& --> P_
*& --> P_
*& --> P_
*& --> P_
*&---------------------------------------------------------------------*
FORM bdc_sbr_data USING VALUE(p_PROGRAM)
VALUE(p_DYNPRO)
VALUE(p_DYNBEGIN)
VALUE(p_FNAM)
VALUE(p_FVAL).
DATA:wa_bdc TYPE bdcdata.
wa_bdc-program = p_PROGRAM.
wa_bdc-dynpro = p_DYNPRO.
wa_bdc-dynbegin = p_DYNBEGIN.
wa_bdc-fnam = p_FNAM.
wa_bdc-fval = p_fval.
APPEND wa_bdc TO it_bdc.
ENDFORM.

You might also like