代碼比較簡單，就沒有寫注釋。
處理邏輯就是要求用戶輸入一個子程序名，然后動態調用，并且用異常機制處理輸入的子程序不存在的情況。
當然，如果在 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

總結

以上是生活随笔為你收集整理的运行时动态调用子程序的例子的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。