zoukankan      html  css  js  c++  java
  • 程序中条用其他程序中已经存在的PERFORM

    PARAMETERS p_sub(40TYPE c.

    DATA fssub(40TYPE c.
    fssub p_sub.

    TRY.
        PERFORM (fssubIN 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不存在的时候 可以补捉到异常报错

  • 相关阅读:
    vim技巧2
    vim技巧1
    网站压力测试工具
    CentOS mysql安装
    破解root
    渐进式性能监测案例
    网络监测介绍
    I/O检测介绍
    虚拟内存介绍
    @Slf4j
  • 原文地址:https://www.cnblogs.com/ruingy/p/3451431.html
Copyright © 2011-2022 走看看