动态ABAP内表
来源:互联网 发布:关键词价格查询源码 编辑:程序博客网 时间:2024/04/30 14:05
REPORT ZLEIY_ABAP_TEST.
FIELD-SYMBOLS: <dyn_table> TYPE STANDARD TABLE,
<dyn_wa>,
<dyn_field>.
DATA: dy_table TYPE REF TO data,
dy_line TYPE REF TO data,
it_structure TYPE lvc_t_fcat,
wa_structure TYPE lvc_s_fcat.
START-OF-SELECTION.
PERFORM create_structure. " 定义内表的结构
PERFORM create_dynamic_table. " 按照定义的内表结构,产生一个内表
PERFORM write_data_to_dyntable. " 向动态内表中写数
PERFORM output_dyntable_data. " 从动态内表中取数,并写到屏幕
*&---------------------------------------------------------------------*
*& Form create_structure
*&---------------------------------------------------------------------*
FORM create_structure .
wa_structure-fieldname = 'COL1'. " 第一列列名
wa_structure-col_pos = 1. " 表示第一列 --- 可心省略,默认情况下,第一行对应到生产内表的第一列,如果指定,则按指定的列顺序生成内表
wa_structure-inttype = 'C'. " 数据类型
wa_structure-intlen = 6. " 长度
APPEND wa_structure TO it_structure.
wa_structure-fieldname = 'COL2'. " 第二列列名
wa_structure-col_pos = 2. " 表示第二列--- 可心省略,默认情况下,第一行对应到生产内表的第一列,如果指定,则按指定的列顺序生成内表
wa_structure-inttype = 'C'. " 数据类型
wa_structure-intlen = 6. " 长度
APPEND wa_structure TO it_structure.
wa_structure-fieldname = 'COL3'. " 第三列名
wa_structure-col_pos = 3. " 表示第三列 --- 可心省略,默认情况下,第一行对应到生产内表的第一列,如果指定,则按指定的列顺序生成内表
wa_structure-inttype = 'C'. " 数据类型
wa_structure-intlen = 6. " 长度
APPEND wa_structure TO it_structure.
ENDFORM. " create_structure
注:创建完的IT_STRUCTURE是这样的
WA_STRUCTURE是这样的
*& Form create_dynamic_table
*&---------------------------------------------------------------------*
FORM create_dynamic_table .
CALL METHOD cl_alv_table_create=>create_dynamic_table
EXPORTING
it_fieldcatalog = it_structure
IMPORTING
ep_table = dy_table.
ASSIGN dy_table->* TO <dyn_table>. " 用表类型指针 <dyn_table> 指向 数据对象的内容.
ENDFORM. " create_dynamic_table
注意:创建了一个内表
*&---------------------------------------------------------------------*
*& Form write_data_to_dyntable
*&---------------------------------------------------------------------*
FORM write_data_to_dyntable .
DATA:wa_new_line TYPE REF TO data.
DATA:i TYPE n.
DATA:j TYPE n.
CREATE DATA wa_new_line LIKE LINE OF <dyn_table>. " 建立一个与动态内表结构相同的数据对象,且数据对象为是一个结构
ASSIGN wa_new_line->* TO <dyn_wa>.
" 用<dyn_wa>指针指向该结构
DO 3 TIMES.
i = i + 1.
CLEAR j.
LOOP AT it_structure INTO wa_structure.
j = j + 1.
ASSIGN COMPONENT wa_structure-fieldname OF STRUCTURE <dyn_wa> TO <dyn_field>. " 用指针 <dyn_field>指向工作区<dyn_wa>中的一个字段,字段名为wa_structure-fieldname.
CONCATENATE i j INTO <dyn_field>. " 给指针指向的字段赋值
ENDLOOP.
APPEND <dyn_wa> TO <dyn_table>.
ENDDO.
ENDFORM. " write_data_to_dyntable
注:填充数据到内表
*&---------------------------------------------------------------------**& Form output_dyntable_data
*&---------------------------------------------------------------------*
FORM output_dyntable_data .
LOOP AT it_structure INTO wa_structure.
WRITE: wa_structure-fieldname(5).
ENDLOOP.
LOOP AT <dyn_table> INTO <dyn_wa>.
WRITE: / .
LOOP AT it_structure INTO wa_structure.
ASSIGN COMPONENT wa_structure-fieldname OF STRUCTURE <dyn_wa> TO <dyn_field>. " 用指针 <dyn_field>指向工作区<dyn_wa>中的一个字段,字段名为wa_structure-fieldname.
WRITE: <dyn_field>.
ENDLOOP.
ENDLOOP.
ENDFORM.
参考
http://www.cnblogs.com/VerySky/articles/2514436.html,都能产生类似的效果,其中REPORT ZCL_TEST028 最为简单
0 0
- ABAP动态内表
- ABAP动态内表
- ABAP-动态内表
- 动态ABAP内表
- ABAP 创建动态内表
- ABAP 动态创建内表
- ABAP动态内表ALV
- ABAP结构体,内表动态创建
- abap- ALV报表动态内表输出
- abap 动态内表,附例子
- ABAP中动态内表使用
- ABAP中动态内表的使用
- ABAP 动态内表构建 Dynamic internal table
- sap-ABAP动态内表使用的例子
- ABAP中创建动态内表的三种方法
- ABAP 动态生成内表的几种方法
- ABAP将内表行列转换实例(动态内表)
- ABAP将内表行列转换实例(动态内表)
- UE4抗锯齿进阶学习
- android 原生与web交互,java与js的互相调用
- Java基础之理解Annotation
- 创建文件时,提示找不见指定的路径,那是因为没有创建目录导致的
- 并列句
- 动态ABAP内表
- 学习笔记--Linux系统定时任务
- android:AndFix热修复实现
- RMAN常用备份操作
- 关于“无状态的HTTP连接提供有状态的连接
- iwconfig: command not found 解决方案
- Android程序签名打包
- 更好的 SQL 模式的 10 条规则
- mongodb安装