Created by Jerry Wang on May 06, 2014

下列report可以创建一个新的transparent table，包含一个column如下:

执行report, 输入待创建的table name:


SE11查看创建table的status为Active:

REPORT ztable.PARAMETERS: tabname TYPE char32 OBLIGATORY.
DATA: lt_new_object         TYPE comt_gox_def_header,lt_old_object         LIKE lt_new_object,lv_dbtab1_name        TYPE char32,ls_new_object         LIKE LINE OF lt_new_object,ls_new_object_details TYPE LINE OF comt_gox_table_entry_fields,lt_returntab          TYPE bapirettab,ls_return             LIKE LINE OF lt_returntab.ls_new_object-object_type = 'TABLE'.
ls_new_object-object_name = tabname.TRY.DATA(lv_guid) = cl_system_uuid=>if_system_uuid_static~create_uuid_c32( ).CATCH cx_uuid_error .
ENDTRY.ls_new_object-key_guid = lv_guid.
DATA(lv_parent_guid) = ls_new_object-key_guid.
ls_new_object_details-fieldname = 'TABCLASS'.
ls_new_object_details-fieldvalue = 'TRANSP'.
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'TABKAT'.
ls_new_object_details-fieldvalue = '0'.
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'TABART'.
ls_new_object_details-fieldvalue = 'APPL2'.
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'PUFFERUNG'.
ls_new_object_details-fieldvalue = 'X'.
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'CONTFLAG'.
ls_new_object_details-fieldvalue = 'S'.
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'MAINFLAG'.
ls_new_object_details-fieldvalue = 'X'.
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'BUFFALLOW'.
ls_new_object_details-fieldvalue = 'X'.
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'SCHFELDANZ'.
ls_new_object_details-fieldvalue = '0'.
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
APPEND ls_new_object TO lt_new_object.
CLEAR ls_new_object.ls_new_object-object_type = 'TABLE_FIELD'.
TRY.lv_guid = cl_system_uuid=>if_system_uuid_static~create_uuid_c32().CATCH cx_uuid_error .
ENDTRY.
ls_new_object-key_guid = lv_guid.
ls_new_object-parent_key = lv_parent_guid.
lv_parent_guid = lv_guid.
ls_new_object-object_name = 'CODE_VALUE'.
ls_new_object_details-fieldname = 'POSITION'.
ls_new_object_details-fieldvalue = '1'.
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'KEYFLAG'.
ls_new_object_details-fieldvalue = 'X'.
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'NOTNULL'.
ls_new_object_details-fieldvalue = 'X'.
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'ROLLNAME'.
ls_new_object_details-fieldvalue = 'COMT_PRODUCT_ID'.
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
APPEND ls_new_object TO lt_new_object.
CLEAR ls_new_object.
REFRESH lt_returntab.
CLEAR lv_parent_guid.lv_dbtab1_name = tabname.
CALL FUNCTION 'GOX_GEN_TABLE_STD'EXPORTINGiv_object_name = lv_dbtab1_nameit_object_new  = lt_new_objectit_object_old  = lt_old_objectiv_devclass    = '$TMP'IMPORTINGet_bapireturn  = lt_returntab.CHECK lt_returntab IS INITIAL.DATA: lv_ddobjname TYPE ddobjname,ls_dd02v     TYPE dd02v.lv_ddobjname = lv_dbtab1_name.
CALL FUNCTION 'DDIF_TABL_GET'EXPORTINGname          = lv_ddobjnamestate         = 'A'langu         = sy-languIMPORTINGdd02v_wa      = ls_dd02vEXCEPTIONSillegal_input = 1OTHERS        = 2.
IF sy-subrc <> 0.RETURN.
ENDIF.ls_dd02v-mainflag = 'X'.
CALL FUNCTION 'DDIF_TABL_PUT'EXPORTINGname              = lv_ddobjnamedd02v_wa          = ls_dd02vEXCEPTIONStabl_not_found    = 1name_inconsistent = 2tabl_inconsistent = 3put_failure       = 4put_refused       = 5OTHERS            = 6.
IF sy-subrc <> 0.RETURN.
ENDIF.CALL FUNCTION 'DDIF_TABL_ACTIVATE'EXPORTINGname     = lv_ddobjnameauth_chk = ' '.CHECK sy-subrc = 0.WRITE:/ 'Table: ', lv_ddobjname, ' generated successfully'.

使用代码创建ABAP transparent table相关推荐

1. 使用ABAP代码创建S/4HANA里的Sales Order

   下图是使用ABAP代码创建的S/4HANA的Sales Order的截图: 其中红色区域的值是我代码里硬编码的,而蓝色是函数SD_SALESDOCUMENT_CREATE自己创建的. 来看下代码: D ...

2. 用代码创建工程并添加内容

   最近在做一个Wizard,需要操作AOT,用代码创建project,Table,Form,EDT等,刚试了一下用代码添加project,并在project中添加内容,唉,再次谴责Axapta的文档,一 ...

3. 77 行代码实现 ABAP ALV 中的双击事件处理试读版

   零基础 ABAP 学习教程系列文章的目录 ABAP 标准培训教程 BC400 学习笔记之一:ABAP 服务器的架构和一个典型的 ABAP 程序结构介绍 ABAP 标准培训教程 BC400 学习笔记之二 ...

4. 使用代码创建SAP BRF ruleset

   From: Wang, Jerry Sent: Monday, August 25, 2014 6:12 PM Subject: [BRF] 使用代码创建BRF ruleset 该代码实现的功能: 1 ...

5. WebService 代码创建E9流程

   下载CXF http://cxf.apache.org/download.html 生成客户端代码 tar -zxvf apache-cxf-3.2.7.tar.gz cd apache-cxf-3. ...

6. 代码创建数据库_表--SqlServer数据库

   /*1.创建数据库的时候需要设置的基本属性:数据库名称 逻辑名称 初始大小 文件增长 路径*/--语法:-- create database 数据库名称-- on [primary]--创建数据文件 ...

7. 1. 创建一个桌子Table类，该类中有桌子名称，重量，桌面宽度，长度及桌子高度属性。要求： ① 设计并画出桌子Table类类图； ② 用构造函数初始化所有数据成员； ③ Area() :计算桌面的

   题目 ‬‬1. 创建一个桌子Table类,该类中有桌子名称,重量,桌面宽度,长度及桌子高度属性.要求: ① 设计并画出桌子Table类类图: ② 用构造函数初始化所有数据成员; ③ Area() :计 ...

8. 代码创建布局_自网站创建以来网站布局发生变化的9种方式

   代码创建布局 Website layouts change all the time, and there are more ways than ever to style a layout, wit ...

9. Python代码创建表格

   Python代码创建表格 简介 在数据分析和处理的工作中,常常需要将数据整理成表格的形式,方便查看和分析.Python作为一门流行的编程语言,提供了多种创建表格的工具和库,极大地方便了数据处理的工作. ...

最新文章

1. 提升网络安全 十大策略全面巩固企业内网
2. altium designer 不自动清除回路 清除功能打开失效
3. Struts2教程1：第一个Struts2程序
4. PageRank算法以及Python实现（简洁版）
5. ubuntu上训练yolov3: Caught ValueError in DataLoader worker process 0. string indices must be integers.
6. HDU1010:Tempter of the Bone(dfs+剪枝)
7. java 字节输入流_JavaIO流（一）-字节输入流与字符输入流
8. 为什么到处都在推python_Python为什么能取得越来越超然的地位
9. Linux集群架构(LVS DR模式搭建、keepalived + LVS)
10. AllsitePasswd 全站密码访问插件 支持自定义主题模板
11. 简单明白彻底解决 MySQL 中文编码问题
12. Python 下的 lambda 算子
13. 图像处理里面的的尺度什么？
14. Leetcode题解（十九）
15. IoT协议LwM2M MQTT与CoAP
16. java程序加密_对Java代码加密的两种方式，防止反编译
17. 深度学习笔记：利用预训练模型之特征提取训练小数据集上的图像分类器
18. 故障树手册（Fault Tree handbook)（6）
19. 触动精灵 alilib
20. 使用jib-maven-plugin分层构建Docker镜像——避免直接使用FatJar

热门文章

1. 使用开源的驰骋表单设计器设计表单案例演示
2. Sonar 质量扫描的输出日志--对应源码的跟踪（二）{sonar engine源码}
3. android中showSoftInput不起作用 与 toggleSoftInput
4. CTR经典模型串讲：FM / FFM / 双线性 FFM 相关推导与理解
5. 文献记录(part30)--DCR Disentangled component representation for sketch generation
6. 《自卑与超越》读书笔记(part1)--行为举止永远受到人生意义的制约
7. 初识Mysql(part16)--我需要知道的2条Mysql语句之子查询
8. 时间序列与R语言应用(part5)--移动平均MA模型及其可逆性
9. 2020春招机考汇总2：扑克牌打出最小次数、钢琴高昂旋律（拼接递增序列）
10. 通过在操作系统中实际操作，学习和理解 Unicode 编码相关知识