APPEND 'FORM subr_name.' TO gt_code. APPEND 'WRITE / ''Dynamic Subroutine is called''.' TO gt_code. APPEND 'ENDFORM.' TO gt_code. GENERATE SUBROUTINE POOL gt_code NAME gv_prog. WRITE : / 'Subroutine Pool Name: '
perform (gv_subname) in program (gv_pname) if found using gv_first gv_second changing gv_result. 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 利用list调用子程序 PERFORM idx OF subr1 subr2 .. subrn 1. 根据顺序索引调用列出的子程序,只能调用内部子程序,且不能指定参数 do 2 times. perform...
PERFORM (<fsubr>) [IN PROGRAM (<fprog>)] [<pass>] [IF FOUND]. 系统执行字段<fsubr>中存储的子程序。如果使用IN PROGRAM选项,系统在字段<fprog>中存储的程序内查找子程序(外部调用)。否则,系统在当前程序中查找子程序(内部调用)。 使用该语句还可在程序代码中指定子程序名和外部程序名。为此请忽略括...
PERFORM_PROGRAM_NAME_TOO_LONG CX_SY_PROGRAM_NOT_FOUND REPLACE_INFINITE_LOOP CX_SY_REPLACE_INFINITE_LOOP 6、类异常类树 CX_SY_ROOT | |--CX_STATIC_CHECK | |--CX_DYNAMIC_CHECK | | | |--CX_SY_ARITHMETIC_ERROR | | | | | |--CX_SY_ZERODIVIDE | | | | | |--CX_SY_ARITHMETIC_OVER...
PERFORM (fsubr)[IN PROGRAM (fprog)][USING p1 p2...] [CHANGING p1 p2...] [IF FOUND].サブルーチン名および外部プログラム名は、それぞれ項目 fsubr および fprog の内容です。fsubr という名称のサブルーチンがない場合は、IF FOUND オプションを使用して、実行時エラーの発生...
perform test_itab using gt_itab."gt_itab是实参,内表类型form test_itab using pt_itab type t_itab."形参指定数据类型为内表read table pt_itab with key col1 ='A'into gs_str."read table tabname with key condition into 变量,从表中读取符合条件的数据保存到变量if sy-subrc =0. ...
*PERFORM subr_name IN PROGRAM (gv_prog) IF FOUND. *DATA: * gs_scarr TYPE scarr, * gv_flag TYPE c. *SELECT SINGLE * FROM scarr INTO gs_scarr WHERE carrid = 'AA'. *PERFORM delete_proc USING gs_scarr. *PERFORM insert_proc ON COMMIT. ...
PERFORM ('SHOW_TAB') IN PROGRAM (lv_prog) IF FOUND. ELSEIF sy-subrc = 4. MESSAGE lv_mess TYPE 'I'. ELSEIF sy-subrc = 8. MESSAGE lv_id TYPE 'I'. ENDIF. "创建类 DATA:lv_class TYPE string. DATA:lo_ref TYPE REF TO object. ...
PERFORM (<fsubr>) [IN PROGRAM (<fprog>)] [<pass>] [IF FOUND]. 系统执行字段<fsubr>中存储的子程序。如果使用IN PROGRAM选项,系统在字段<fprog>中存储的程序内查找子程序(外部调用)。否则,系统在当前程序中查找子程序(内部调用)。 使用该语句还可在程序代码中指定子程序名和外部程序名。为此请忽略括...
IF sy-subrc = 0. PERFORM ('LOOP_AT_TAB') IN PROGRAM (prog) IF FOUND. cl_demo_output=>display( ). ELSEIF sy-subrc = 4. MESSAGE mess TYPE 'I'. ELSEIF sy-subrc = 8. MESSAGE sid TYPE 'I'. ENDIF. Example Creates and generates (dynamically) a subroutine pool that implements a lo...