해당 T-code와 입력값을 정의하면 새로운 session에 결과를 보여주는 소스입니다.





DATA: session_name TYPE string.



DATA: BEGIN OF i_rfc_spagpa OCCURS 0.

        INCLUDE STRUCTURE rfc_spagpa.

DATA: END OF i_rfc_spagpa.





PARAMETERS: p_belnr LIKE bkpf-belnr.





CLEAR: i_rfc_spagpa, i_rfc_spagpa[].

i_rfc_spagpa-parid = 'BLN'.

i_rfc_spagpa-parval = p_belnr.

APPEND i_rfc_spagpa.

CLEAR i_rfc_spagpa.

i_rfc_spagpa-parid = 'BUK'.

i_rfc_spagpa-parval = '1000'.

APPEND i_rfc_spagpa.

CLEAR i_rfc_spagpa.

i_rfc_spagpa-parid = 'GJR'.

i_rfc_spagpa-parval = '2007'.

APPEND i_rfc_spagpa.

CLEAR i_rfc_spagpa.



DO 2 TIMES.



  session_name = sy-index.





  CALL FUNCTION 'ABAP4_CALL_TRANSACTION'

    STARTING NEW TASK session_name

    DESTINATION 'NONE'

    EXPORTING

      tcode                   = 'FB03'

      skip_screen                   = 'X'

      mode_val                      = 'A'

      update_val                    = 'A'

    TABLES

*         USING_TAB                     =

          spagpa_tab                    = i_rfc_spagpa

*         MESS_TAB                      =

    EXCEPTIONS

      call_transaction_denied = 1

      tcode_invalid           = 2

      OTHERS                  = 3.



ENDDO.