2013年10月26日 星期六

SAP : submit program (Calling Executable Programs example)


submit ZRCO007 and return
  VIA SELECTION-SCREEN       "此行會讓user要手動run外部程式(手動按F8)
  EXPORTING LIST TO MEMORY      "此行會使WRITE LIST不會顯示在螢幕上,而是放到memory
  with selection-table seltab. "將所有selection screen的參數全部經由seltab參數傳給程式執行

example:

*&---------------------------------------------------------------------*
*& Report  YTEST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  YTEST.

  data: seltab type table of rsparams,
        seltab_wa like line of seltab.

  seltab_wa-selname = 'P_KOKRS'.
  seltab_wa-kind = 'P'.
  seltab_wa-low = 'BS00'.
  append seltab_wa to seltab.

  seltab_wa-selname = 'P_BUKRS'.
  seltab_wa-kind = 'P'.
  seltab_wa-low = '1000'.
  append seltab_wa to seltab.

  seltab_wa-selname = 'P_WERKS'.
  seltab_wa-kind = 'P'.
  seltab_wa-low = '1000'.
  append seltab_wa to seltab.

  seltab_wa-selname = 'P_YM'.
  seltab_wa-kind = 'P'.
*  seltab_wa-low = sy-datum+0(6).
  seltab_wa-low = '201003'.
  append seltab_wa to seltab.

  seltab_wa-selname = 'P_ACTPR'.
  seltab_wa-kind = 'P'.
  seltab_wa-low = 'X'.
  append seltab_wa to seltab.

  seltab_wa-selname = 'AUFNR'.
  seltab_wa-kind = 'S'.
  seltab_wa-sign    = 'I'.
  seltab_wa-option  = 'EQ'.
*  seltab_wa-low = 'B6MSD8-13068'.
  seltab_wa-low = '1000056'.
  append seltab_wa to seltab.

  seltab_wa-selname = 'R_BUDAT'.
  seltab_wa-kind = 'S'.
  seltab_wa-sign    = 'I'.
  seltab_wa-option  = 'BT'.
  seltab_wa-low = '20130301'.
  seltab_wa-high = '20130331'.
*  seltab_wa-low = '20130901'.
*  seltab_wa-high = '20130930'.
  append seltab_wa to seltab.

  submit ZRCO007 and return
*    VIA SELECTION-SCREEN
    with selection-table seltab.

沒有留言:

張貼留言