程序中条用其他程序中已经存在的PERFORM

PARAMETERS p_sub(40) TYPE c.

DATA fssub(40) TYPE c.
fssub = p_sub.

TRY.
    PERFORM (fssub) IN PROGRAM ydemo_rick_a. " IF FOUND.
  CATCH cx_sy_dyn_call_illegal_form.
    WRITE: 'The routine', p_sub COLOR 3, 'is not exist!'.
ENDTRY.
*&---------------------------------------------------------------------*
*&      Form  sub_a
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM sub_a.
  WRITE: 'Congratulation! I am routine SUB_A!'.
ENDFORM.                    "sub_a

*&---------------------------------------------------------------------*
*&      Form  sub_b
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM sub_b.
  WRITE: 'Congratulation! I am routine sub_b.'.
ENDFORM.                    "sub_b

 

***当程序中的FUC不存在的时候 可以补捉到异常报错

posted @ 2013-11-30 17:53  小鱼儿游  阅读(349)  评论(0)  编辑  收藏  举报