运行时动态调用子程序的例子

代码比较简单，就没有写注释。
处理逻辑就是要求用户输入一个子程序名，然后动态调用，并且用异常机制处理输入的子程序不存在的情况。
当然，如果在 PERFORM 最后用 IF FOUND 就可以不用 TRY 结构了，但是对于子程序不存在的情况不会给出任何提示，用 sy-subrc 也追踪不到异常返回码。
关于更多异常，请参考 PERFORM 的 F1 联机帮助。

*&---------------------------------------------------------------------*
*& Report  ZQS2
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zqs2.

PARAMETERS p_sub(40) TYPE c.

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

TRY.
    PERFORM (fssub) IN PROGRAM zqs2. " 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

转载于:https://www.cnblogs.com/qiangsheng/archive/2007/12/05/983113.html

总结

以上是生活随笔为你收集整理的运行时动态调用子程序的例子的全部内容，希望文章能够帮你解决所遇到的问题。

如果觉得生活随笔网站内容还不错，欢迎将生活随笔推荐给好友。