函数使用六：ABAP4_CALL_TRANSACTION详解编程语言

此函数是在程序中调用一个事物代码，跳转或者执行事物代码的程序。

参数说明：

Import

TCODE 执行的事物代码

SKIP_SCREEN 跳转事务代码的初始屏幕，只在跳转时用

MODE_VAL BDC时使用，对应默认A:前台，显示屏幕 E:遇到错误停止并显示 N:后台模式

UPDATE_VAL BDC时使用，对应默认A：异步 S:同步 L:本地模式，LOCAL UPDATE

Export

SUBRC SY-SUBRC 返回值

Table

USING_TAB DBC DATA TABLE 如果调用BDC事务，BDC DATA的内容通过此表传值

SPAGPA_TAB Parameter 一般做跳转的参数设置 SET PARAMETER ID

MESS_TAB Message Table BDC 返回消息内表

EX.

" 
REPORT ZABAP4_CALL_TRANSACTION. 
"事务界面跳转 
CALL FUNCTION 'ABAP4_CALL_TRANSACTION' 
  EXPORTING 
    TCODE                   = 'SE11' 
  EXCEPTIONS 
    CALL_TRANSACTION_DENIED = 1 
    TCODE_INVALID           = 2 
    OTHERS                  = 3. 
IF SY-SUBRC <> 0. 
ENDIF. 
 
"功能跳转 
DATA:GT_RFC_SPAGPA TYPE TABLE OF RFC_SPAGPA, 
     GW_RFC_SPAGPA LIKE LINE OF GT_RFC_SPAGPA. 
GW_RFC_SPAGPA-PARID = 'AUN'. 
GW_RFC_SPAGPA-PARVAL = '10000140'. 
APPEND GW_RFC_SPAGPA TO GT_RFC_SPAGPA. 
CALL FUNCTION 'ABAP4_CALL_TRANSACTION' 
  EXPORTING 
    TCODE                   = 'VA03' 
    SKIP_SCREEN             = 'X' "SKIP FIRST SCREEN 
  TABLES 
    SPAGPA_TAB              = GT_RFC_SPAGPA 
  EXCEPTIONS 
    CALL_TRANSACTION_DENIED = 1 
    TCODE_INVALID           = 2 
    OTHERS                  = 3. 
IF SY-SUBRC <> 0. 
* Implement suitable error handling here 
ENDIF. 
 
"BDC 
DATA:BDCDATA LIKE BDCDATA    OCCURS 0 WITH HEADER LINE. 
DATA:MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE. 
 
PERFORM BDC_DYNPRO      USING 'SAPMV45A' '0102'. 
PERFORM BDC_FIELD       USING 'BDC_CURSOR' 
                              'VBAK-VBELN'. 
PERFORM BDC_FIELD       USING 'BDC_OKCODE' 
                              '/00'. 
PERFORM BDC_FIELD       USING 'VBAK-VBELN' 
                              '10000141'. 
PERFORM BDC_DYNPRO      USING 'SAPMV45A' '4001'. 
CALL FUNCTION 'ABAP4_CALL_TRANSACTION' 
  EXPORTING 
    TCODE                   = 'VA03' 
    MODE_VAL                = 'A' 
    UPDATE_VAL              = 'S' 
  TABLES 
    USING_TAB               = BDCDATA 
    MESS_TAB                = MESSTAB 
  EXCEPTIONS 
    CALL_TRANSACTION_DENIED = 1 
    TCODE_INVALID           = 2. 
 
 
 
*----------------------------------------------------------------------* 
*        Start new screen                                              * 
*----------------------------------------------------------------------* 
FORM BDC_DYNPRO USING PROGRAM DYNPRO. 
  CLEAR BDCDATA. 
  BDCDATA-PROGRAM  = PROGRAM. 
  BDCDATA-DYNPRO   = DYNPRO. 
  BDCDATA-DYNBEGIN = 'X'. 
  APPEND BDCDATA. 
ENDFORM. 
 
*----------------------------------------------------------------------* 
*        Insert field                                                  * 
*----------------------------------------------------------------------* 
FORM BDC_FIELD USING FNAM FVAL. 
  CLEAR BDCDATA. 
  BDCDATA-FNAM = FNAM. 
  BDCDATA-FVAL = FVAL. 
  APPEND BDCDATA. 
ENDFORM.

原创文章，作者：ItWorker，如若转载，请注明出处：https://blog.ytso.com/18673.html

函数使用六：ABAP4_CALL_TRANSACTION详解编程语言

相关推荐

发表回复