程序跳转

REPORT  zpppr_ty.
DATA: bdcdata_wa  TYPE bdcdata,
      bdcdata_tab TYPE TABLE OF bdcdata.
DATA opt TYPE ctu_params.



CLEAR bdcdata_wa.
bdcdata_wa-program  = 'SAPLMEGUI'.
bdcdata_wa-dynpro   = '0014'.
bdcdata_wa-dynbegin = 'X'.
APPEND bdcdata_wa TO bdcdata_tab.

CLEAR bdcdata_wa.
bdcdata_wa-fnam = 'BDC_OKCODE'.
bdcdata_wa-fval = '=MECHOB'.
APPEND bdcdata_wa TO bdcdata_tab.

CLEAR bdcdata_wa.
bdcdata_wa-program  = 'SAPLMEGUI'.
bdcdata_wa-dynpro   = '0002'.
bdcdata_wa-dynbegin = 'X'.
APPEND bdcdata_wa TO bdcdata_tab.

CLEAR bdcdata_wa.
bdcdata_wa-fnam = 'BDC_OKCODE'.
bdcdata_wa-fval = '=MEOK'.
APPEND bdcdata_wa TO bdcdata_tab.

*CLEAR bdcdata_wa.
*bdcdata_wa-fnam = 'BDC_SUBSCR'.
*bdcdata_wa-fval = 'SAPLMEGUI                               0003SUB0'.
*APPEND bdcdata_wa TO bdcdata_tab.

CLEAR bdcdata_wa.
bdcdata_wa-fnam = 'MEPO_SELECT-EBELN'.
  bdcdata_wa-fval = '4500008773'.
APPEND bdcdata_wa TO bdcdata_tab.

CLEAR bdcdata_wa.
bdcdata_wa-fnam = 'MEPO_SELECT-BSTYP_F'.
bdcdata_wa-fval = 'X'.
APPEND bdcdata_wa TO bdcdata_tab.

opt-dismode = 'E'.
*opt-defsize = 'X'.



CALL TRANSACTION 'ME23N' USING bdcdata_tab OPTIONS FROM opt.