ABAP分享九： 在本程序中调用其他程序

REPORT Z_APS_TOTALINTER.


SELECTION-SCREEN BEGIN OF BLOCK rad1
                          WITH FRAME TITLE text-001.
SELECTION-SCREEN:SKIP 1.
PARAMETERS: p_aps01 as CHECKBOX USER-COMMAND check DEFAULT 'X',
            p_aps02 as CHECKBOX USER-COMMAND check DEFAULT 'X',
            p_aps03 as CHECKBOX USER-COMMAND check DEFAULT 'X'.

SELECTION-SCREEN END OF BLOCK rad1.

* 默认程序执行
START-OF-SELECTION.

IF p_aps01 = 'X'.
    SUBMIT Z_APS_MATNR_BOM_01 AND RETURN.   " 调用程序Z_APS_MATNR_BOM_01执行
*   CALL TRANSACTION 'ZAPS001'.
   write:/ '执行bom接口成功'.
ENDIF.

IF p_aps02 = 'X'.
  CALL TRANSACTION 'ZAPS002'.                                "调用事务码ZAPS002（将程序封装成事务码然后调用）
   write:/ '执行计划单工单接口成功'.
ENDIF.

IF p_aps03 = 'X'.                                                             "调用事务码ZAPS003
  CALL TRANSACTION 'ZAPS003'.
   write:/ '执行库存接口成功'.
ENDIF.

1、SUBMIT<program> AND RETURN：中断（不终止）当前运行的程序，启动新的被调用程序<program>，当<program>运行完后，控制权又返回到被中断的调用程序，继续执行

2、CALL TRANSACTION <TCode>：可以插入一个具有事务代码的ABAP程序，中断当前运行的程序，待被调程序执行完后，再继续执行主调程序

3、SUBMIT <program>：结束当前运行的程序，启动新的被调用程序<program>

4、LEAVE TO TRANSACTION <TCode>：结束当前运行的程序，并启动由事务码<TCode>指定的ABAP程序。在程序中使用该语句的效果等同于用户直接在命令行输入“/n<TCode>”并执行的效果。