DATA: msg_text(80) TYPE c, "Message text
itab_spa TYPE STANDARD TABLE OF rfc_spagpa,
wa_spa TYPE rfc_spagpa.
* Fill out parameters
wa_spa-parid = 'AUN'.
wa_spa-parval = '0006012345'.
APPEND wa_spa TO itab_spa.
* Create a new session
* Asynchronous call to Transaction VA03 -->
CALL FUNCTION 'ABAP4_CALL_TRANSACTION' STARTING NEW TASK 'SORD'
DESTINATION 'NONE'
EXPORTING
tcode = 'VA03'
skip_screen = ‘X’
TABLES
spagpa_tab = itab_spa
EXCEPTIONS
communication_failure = 1 MESSAGE msg_text
system_failure = 2 MESSAGE msg_text.
IF sy-subrc NE 0.
WRITE: msg_text.
ELSE.
WRITE: 'ERPGenie.COM'.
ENDIF.
Serkan AKKAVAK
Bilgisayar Mühendisi
serkurumsal@yandex.com
0 Comments