GENERATE SUBROUTINE POOL tab NAME DATA(prog) MESSAGE DATA(mess) SHORTDUMP-ID DATA(sid). IF sy-subrc = 0. PERFORM ('LOOP_AT_TAB') IN PROGRAM (prog) IF FOUND. cl_demo_output=>display( ). ELSEIF sy-subrc = 4. MESS
GENERATE SUBROUTINE POOL TAB NAME PROG MESSAGE MESS SHORTDUMP-ID SID.PERFORM RP1 IN PROGRAM (PROG) CHANGING NUM ."IMPORT NUM FROM MEMORY ID 'NUM'."FREE MEMORY ID 'NUM'.WRITE NUM. tome_helen 后起之秀 7 例子是解决群里一个哥们的需求,把字符串'200 + 300 / 2 - ( 101 * 3 ).' ...
zprog-line ='ENDFORM.'. append zprog. generate subroutine pool zprog name prog message msg. 3.全部代码 View Code 4.基于Class定义 View Code
GENERATE SUBROUTINE POOL NAME <prog> [<options>]. 该语句将会在当前running program的main memory area中创建临时subroutine pool,其源代码为中的内容。<prog>是类型为C类型8位长度的变量,用来接受该语句返回动态生成的subroutine pool的名字。你可以使用这个名字<prog>来调用通过内表动态生成的外部subroutines。 动...
GENERATE SUBROUTINE POOL itab NAME name. Additions 1. … MESSAGE f1 2. … INCLUDE f2 3. … LINE f3 4. … WORD f4 5. … OFFSET f5 6. … TRACE-FILE f6 The additions have the same meaning as with GENERATE REPORT . Only the
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: ', gv_prog. PERFORM subr_name IN PROGRAM (gv_prog) IF FOUND. ...
表组件字段的动态 Open SQL语句中的动态 动态访问程序 创建与运行临时Subroutines 上面讲的是对一个存在的物理程序文件进行动态操作的过程。如果想要不生成的物理文件,则可以为某个程序临时动态的创建Subroutines: GENERATE SUBROUTINE POOL NAME <prog> [<options>].该语句将会 【第一篇...
将需要动态创建的ABAP类的源代码用字符串模板拼凑好，存储到内表lt_source中，然后调用关键字GENERATE SUBROUTINE POOL，创建生命周期只存在于当前会话期间内的临时ABAP类。如果想生成全局ABAP类，即生成之后能够持久化在ABAP服务器上，并且能够通过SE24和SE80打开，则将拼凑好的包含ABAP类实现源代码的内表传给ABAP类的...
*APPEND 'ENDFORM.' TO gt_code. *GENERATE SUBROUTINE POOL gt_code NAME gv_prog. *WRITE : / 'Subroutine Pool Name: ', gv_prog. *PERFORM subr_name IN PROGRAM (gv_prog) IF FOUND. *DATA: * gs_scarr TYPE scarr, * gv_flag TYPE c. ...
GENERATE SUBROUTINE POOL itab NAME prog [error_handling]. 生成临时子程序池。 [error_handling] MESSAGE mess] [INCLUDE incl] [LINE lin] [WORD wrd] [OFFSET off] [MESSAGE-ID mid] [SHORTDUMP-ID sid] ... . message:当子程序池发生错误,第一个错误的错误信息; ...