【修正】SAP 调用外部程序的方法

在 SAP 中一个程序调用外部程序有两种方式:

 

1. Call transaction <tcode>

常见于 BDC 程式中.

  CALL TRANSACTION tcode
        USING bdcdata
        MODE  p_mode
        UPDATE c_update
        MESSAGES INTO messtab.

mode有以下的可选值.

执行 模式	作用
"A"	显示所有输入屏幕，如果在 bdc_tab 中包含该屏幕的功能码，则会出现小窗口显示这个功能码。它也是默认值，如果指定不是下面的值，则都认为是 A。
"E"	只有在出现错误时才显示屏幕，用户可以修正数据，修正后程序可以继续处理。
"N"	不显示屏幕的静默模式。如果到达被调用事务的断点，则系统处理终止，并设置一些系统字段。sy-subrc 为1001，sy-msgty 为 "S"、sy-msgid 为 "00"、sy-msgno 为 "344"、sy-msgv1 为 "SAPMSSY3"、sy-msgv2 为 "0131"。
"P"	不显示屏幕的调试模式。如果到达被调用事务的断点，则系统自动转到 ABAP 调试器，这种方式主要用于调试过程。

update有以下可选值:

更新模式	作用
"A"	异步更新。被调用程序的更新按照没有指定 COMMIT WORK 语句和 AND WAIT 附加的方式执行。也就是说，数据更新被放到更新队列里，由另一个专门的更新进程执行，主程序一旦提交数据就继续执行，而不管提交的更新是否执行完成。这种方式比较适合于用一个事务码大量更新指定数据，比如维护主数据等。
"S"	同步更新。被调用程序的更新按照指定了 COMMIT WORK 语句和 AND WAIT 附加的方式执行。也就是说，数据更新被放到更新队列里，由专门的更新进程执行，但是主程序会等到数据提交完成，返回结果信息后才继续执行。这种方式比较适合于数据一致性要求比较高，多个不同事务码的连续处理。
"L"	本地更新。被调用程序的更新按照执行 SET UPDATE TASK LOCAL 语句的方式执行。也就是说，数据更新在主程序所在的进程中完成，主程序必定等到被调用事务完成才继续执行。

 

2. Submit <program> and return

调用程式:

REPORT  ZTEST_CALL_PROG.

DATA: BEGIN OF w_data,

  fid1 TYPE string,

  num1 type i,

  num2 type i,

END OF w_data.

DATA: T_OUT LIKE W_DATA OCCURS 0 WITH HEADER LINE.

Do 10 TIMES.

  if sy-index < 4.

    t_out-fid1 = 'A'.

    t_out-num1 = sy-index.

    t_out-num2 = sy-index + 1.

  elseif sy-index < 7.

    t_out-fid1 = 'B'.

    t_out-num1 = sy-index + 1.

    t_out-num2 = sy-index + 2.

  else.

    t_out-fid1 = 'C'.

    t_out-num1 = sy-index.

    t_out-num2 = sy-index - 1.

  ENDIF.

  append t_out.

  ENDDO.

  export t_out to MEMORY id 'T_OUT'. "内表t_out的内存id为'T_OUT',被调用程式从这里取得数据.

  SUBMIT zwrite_date and RETURN.     "这里也可以用 submit zwrite_data with WITH s_aufnr = p_aufnr

                                     "WITH s_mode = 'N 给被调用程序传值.

  write: / 'justin'.

 

 

被调用程式,从调用程序存储在ABAP内存中取得要处理的数据.

REPORT  ZWRITE_DATE.

data: BEGIN OF w_data,

  fid1 type string,

  num1 type i,

  num2 type i,

 END OF w_data.

 data: t_out LIKE w_data OCCURS 0 WITH HEADER LINE.

 import t_out from MEMORY id 'T_OUT'.

 FREE MEMORY ID 'T_OUT'.        "清除MEMORY ID 为'T_OUT'的内容.

 loop at t_out.

   write: / ' ', t_out-fid1, t_out-num1, t_out-num2.

 ENDLOOP.

 write: sy-uline.

 

 

Other example:

   EXPORT rm16_lgort  FROM l_lgort

          rm16_werks  FROM p_plwrk
          rm16_matnr  FROM p_matnr  TO  MEMORY ID 'ZPHRRM13'.
  SUBMIT zphrrm13 AND RETURN.
  IMPORT mdezx mdpsx mdkp mdsta mdstal FROM MEMORY ID 'ZPHRRM13'