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

  • 相关阅读:
    bzoj3832
    bzoj2117
    bzoj1095
    BZOJ 4247: 挂饰 题解
    1296: [SCOI2009]粉刷匠
    3163: [Heoi2013]Eden的新背包问题
    2287: 【POJ Challenge】消失之物
    1334: [Baltic2008]Elect
    2748: [HAOI2012]音量调节
    1606: [Usaco2008 Dec]Hay For Sale 购买干草
  • 原文地址:https://www.cnblogs.com/ruingy/p/3451431.html
Copyright © 2011-2022 走看看