SAP ABAP程序中创建透明表

2019.05.05 07:08 • 发布 • 阅读 616

*需求:根据条件在ABAP程序中动态创建透明表,例如按月生成底表存数、优化查询速度.

*主要利用4个函数：
*DDIF_TABL_ACTIVATE 激活透明表
*GOX_GEN_TABLE_STD 生成透明表
*DDIF_TABL_PUT 设置表的相关信息
*DDIF_TABL_GET 获得表的相关信息

*步骤：准备属性、生成、获取、设置、激活。

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.

DATA: lv_ddobjname TYPE ddobjname,
      ls_dd02v     TYPE dd02v.

DEFINE build_fields.
  ls_new_object-object_type = 'TABLE_FIELD'.

  lv_guid = cl_system_uuid=>if_system_uuid_static~create_uuid_c32( ).
  ls_new_object-key_guid = lv_guid.
  ls_new_object-parent_key = lv_parent_guid. "表的guid.

  ls_new_object-object_name = &1. "字段名

*  ls_new_object_details属性(字段的详细设置)
  CLEAR ls_new_object_details.
  ls_new_object_details-fieldname = 'POSITION'.
  ls_new_object_details-fieldvalue = &2.  "字段顺序
  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 = &3.  "主键标识
  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 = &4. "非空标识.
  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 = &5.  "数据元素
  APPEND ls_new_object_details TO ls_new_object-details.

  CLEAR ls_new_object_details.
  ls_new_object_details-fieldname = 'REFTABLE'.
  ls_new_object_details-fieldvalue = &6.  "数量金额单位参考表.
  APPEND ls_new_object_details TO ls_new_object-details.

  CLEAR ls_new_object_details.
  ls_new_object_details-fieldname = 'REFFIELD'.
  ls_new_object_details-fieldvalue = &7.  "数量金额单位参考字段.
  APPEND ls_new_object_details TO ls_new_object-details.

  APPEND ls_new_object TO lt_new_object.
  CLEAR ls_new_object.
END-OF-DEFINITION.


* technical setting
*透明表技术设置的更多字段名可见DD02V，以下为常见设置字段.
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 = 'CONTFLAG'. "交付类.
ls_new_object_details-fieldvalue = 'A'.
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 = ''.
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 = ''.
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.
ls_new_object_details-fieldname = 'EXCLASS'.  "表是否能增强.
ls_new_object_details-fieldvalue = '1'.
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.

*table fields build.
*调用宏
build_fields:
'MANDT' '1' 'X' 'X' 'S_MANDT' '' '',
'CARRID' '2' 'X' 'X' 'S_CARR_ID' '' '',
'CARRNAME' '3' '' '' 'S_CARRNAME' '' '',
'PRICE' '4' '' '' 'S_PRICE' 'SFLIGHT' 'CURRENCY'.

*生成透明表.
lv_dbtab1_name = tabname.
CALL FUNCTION 'GOX_GEN_TABLE_STD'
  EXPORTING
    iv_object_name = lv_dbtab1_name
    it_object_new  = lt_new_object
    it_object_old  = lt_old_object
    iv_devclass    = 'ZGD'  "local $tmp or your package name.
  IMPORTING
    et_bapireturn  = lt_returntab.

CHECK lt_returntab IS INITIAL.

*获得表的相关信息.
lv_ddobjname = lv_dbtab1_name.
CALL FUNCTION 'DDIF_TABL_GET'
  EXPORTING
    name          = lv_ddobjname
    state         = 'A'
    langu         = sy-langu
  IMPORTING
    dd02v_wa      = ls_dd02v
  EXCEPTIONS
    illegal_input = 1
    OTHERS        = 2.
IF sy-subrc <> 0.
  RETURN.
ENDIF.

*设置表的相关信息.
ls_dd02v-mainflag = 'X'.
CALL FUNCTION 'DDIF_TABL_PUT'
  EXPORTING
    name              = lv_ddobjname
    dd02v_wa          = ls_dd02v
  EXCEPTIONS
    tabl_not_found    = 1
    name_inconsistent = 2
    tabl_inconsistent = 3
    put_failure       = 4
    put_refused       = 5
    OTHERS            = 6.
IF sy-subrc <> 0.
  RETURN.
ENDIF.

*active table
CALL FUNCTION 'DDIF_TABL_ACTIVATE'
  EXPORTING
    name     = lv_ddobjname
    auth_chk = ' '.

CHECK sy-subrc = 0.
WRITE:/ 'Table: ', lv_ddobjname, ' generated successfully.'.
WRITE:/ 'Please use SE11 to varify.'.

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

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.

DATA: lv_ddobjname TYPE ddobjname,

ls_dd02v TYPE dd02v.

DEFINE build_fields.

ls_new_object-object_type = 'TABLE_FIELD'.

lv_guid = cl_system_uuid=>if_system_uuid_static~create_uuid_c32( ).

ls_new_object-key_guid = lv_guid.

ls_new_object-parent_key = lv_parent_guid. "表的guid.

ls_new_object-object_name = &1. "字段名

* ls_new_object_details属性(字段的详细设置)

CLEAR ls_new_object_details.

ls_new_object_details-fieldname = 'POSITION'.

ls_new_object_details-fieldvalue = &2. "字段顺序

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 = &3. "主键标识

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 = &4. "非空标识.

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 = &5. "数据元素

APPEND ls_new_object_details TO ls_new_object-details.

CLEAR ls_new_object_details.

ls_new_object_details-fieldname = 'REFTABLE'.

ls_new_object_details-fieldvalue = &6. "数量金额单位参考表.

APPEND ls_new_object_details TO ls_new_object-details.

CLEAR ls_new_object_details.

ls_new_object_details-fieldname = 'REFFIELD'.

ls_new_object_details-fieldvalue = &7. "数量金额单位参考字段.

APPEND ls_new_object_details TO ls_new_object-details.

APPEND ls_new_object TO lt_new_object.

CLEAR ls_new_object.

END-OF-DEFINITION.

* technical setting

*透明表技术设置的更多字段名可见DD02V，以下为常见设置字段.

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 = 'CONTFLAG'. "交付类.

ls_new_object_details-fieldvalue = 'A'.

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 = ''.

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 = ''.

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.

ls_new_object_details-fieldname = 'EXCLASS'. "表是否能增强.

ls_new_object_details-fieldvalue = '1'.

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.

*table fields build.

*调用宏

build_fields:

'MANDT' '1' 'X' 'X' 'S_MANDT' '' '',

'CARRID' '2' 'X' 'X' 'S_CARR_ID' '' '',

'CARRNAME' '3' '' '' 'S_CARRNAME' '' '',

'PRICE' '4' '' '' 'S_PRICE' 'SFLIGHT' 'CURRENCY'.

*生成透明表.

lv_dbtab1_name = tabname.

CALL FUNCTION 'GOX_GEN_TABLE_STD'

EXPORTING

iv_object_name = lv_dbtab1_name

it_object_new = lt_new_object

it_object_old = lt_old_object

iv_devclass = 'ZGD' "local $tmp or your package name.

IMPORTING

et_bapireturn = lt_returntab.

CHECK lt_returntab IS INITIAL.

*获得表的相关信息.

lv_ddobjname = lv_dbtab1_name.

CALL FUNCTION 'DDIF_TABL_GET'

EXPORTING

name = lv_ddobjname

state = 'A'

langu = sy-langu

IMPORTING

dd02v_wa = ls_dd02v

EXCEPTIONS

illegal_input = 1

OTHERS = 2.

IF sy-subrc <> 0.

RETURN.

ENDIF.

*设置表的相关信息.

ls_dd02v-mainflag = 'X'.

CALL FUNCTION 'DDIF_TABL_PUT'

EXPORTING

name = lv_ddobjname

dd02v_wa = ls_dd02v

EXCEPTIONS

tabl_not_found = 1

name_inconsistent = 2

tabl_inconsistent = 3

put_failure = 4

put_refused = 5

OTHERS = 6.

IF sy-subrc <> 0.

RETURN.

ENDIF.

*active table

CALL FUNCTION 'DDIF_TABL_ACTIVATE'

EXPORTING

name = lv_ddobjname

auth_chk = ' '.

CHECK sy-subrc = 0.

WRITE:/ 'Table: ', lv_ddobjname, ' generated successfully.'.

WRITE:/ 'Please use SE11 to varify.'.

如若转载，请注明出处：https://www.gavindong.com/2876.html

abap 透明表

YouTube下载工具GT Player

上一篇 2019.05.03 14:02

ABAP不export直接submit并import内表的方法

下一篇 2019.05.05 21:47

发布

ABAP弹出一段文本对话框

函数：ADA_POPUP_WITH_TABLE作用：弹出一段文本对话框，可用于显示长篇解释性文字。

2021.02.28
129 0
发布

ABAP的structure类型

ABAP的structure类型，根据复杂程度分为FLAT、DEEP和NEST三类，与其他语言类似。

2021.03.29
68 0
ABAP判断字串是不是为数字

通过abap函数NUMERIC_CHECK判断字符串是否为数字判断字串是否为数字并输出补零　　FM：NUMERIC_CHECK 　　两种输出结果：NUMC 、CHAR 　　L_…

发布 2017.05.20
1.4K 0
发布

使用SAP NetWeaver作为开发框架开发业务功能

使用SAP这么多年，觉得这个平台很稳定，底层的协议、通信、安全、系统管理、用户等都构建的非常完善，而且熟悉ABAP之后用ABAP开发一个小工具简直不能再快（快到隔壁JAVA小伙伴还…

2020.12.01
231 0
ABAP管理SM37后台job

job相关内置函数:JOB_OPEN：创建job，declare一个JOB并返回这个job的“内存ID”.JOB_SUBMIT：计划job，insert step for job,…

发布 2019.01.23
1.1K 0
SAP ABAP程序类型

1 可执行程序I INCLUDE 程序M 模块池F 函数组S 子程序池J 接口池K 类别库T 类型池X 转换（XSLT 或 ST 程序）Q 数据库过程代理

发布 2017.05.03
704 0
发布

ABAP FM中非空判断IS NOT INITIAL和IS SUPPLIED

You can use the logical expression IS SUPPLIED within a function module to see if an actua…

2021.04.02
47 0
ABAP Workbench

1、ABAP Workbench。2、显示层—应用层—数据库。3、R/3 Basis系统包括三个组成部分：核心基本服务(Kerne and Basis Services)、ABAP…

发布 2017.08.19
636 0
发布

ABAP制表符原样输出空格

在ABAP中双引号内的空格在输出时会按一个空格进行输出，如果确实需要按敲的空格数进行输出，可使用控制符代替双引号，控制符内的字符将会被原样输出，适合于SQL语句拼接、SELECTI…

2021.03.08
210 0
ABAP基础随笔

abap一般可执行程序用report，交互式程序（只能用事物代码执行的）用program。 abap消息类管理：se91 REPORT ztest02 MESSAGE-ID zhq…

发布 2017.08.18
840 0
发布

ABAP 7.5巩固之ABAP Workbench

The Object Navigator has a total of 11 browsers, Repository Browser is the default browser…

2021.03.28
65 0
ABAP算字符数和字节数

*计算字节数(计算按本地编码计算的个数). DATA:lv_char TYPE string, lv_len TYPE i. lv_char = ‘经济学abc123’ CALL …

发布 2019.01.16
814 0
发布

ABAP刷新屏幕时更新ALV的Fieldcat

需求：屏幕上ALV的Fieldcat要根据查询条件中的年份变化自动变化，如下图所示当年份变化时表头年度自动变为查询条件的年份。实现思路：在屏幕的PAI事件中显示ALV的FORM中…

2020.09.30
513 0
发布

ABAP 7.5巩固之SAP NetWeaver Overview

看了下ABAP 7.5认证内容的SAP NetWeaver Overview章节，还是有新的发现的，简单做下总结。 1.一个SAP实例只能有一个Spool进程，可以有多个Enq进程…

2021.03.27
82 0
发布

ABAP提示“子例程 FRM_DN_PICKING 不存在是否创建对象”

子例程 FRM_DN_PICKING 不存在是否创建对象？解决方法：重建对象列表（rebuild object list）

2017.09.21
833 0
SAP demo包

在SAP的这个开发类中SABAPDEMOS，是提供给abap程序员参考、学习的一个开发包，里面有非常多的例子值得学习研究！

发布 2017.05.17
691 0
ABAP Tips and Tricks

ABAP Tips and Tricks Retrieving the deleted program I recently deleted a custom program (w…

发布 2017.05.03
1.2K 0
发布

ABAP 7.5之数据结构巩固

ABAP Data Dictionary章节知识点复习总结。

2021.03.29
69 2
发布

适合SAP业务顾问和初学者的ABAP教程

熟悉或者至少能看懂ABAP程序对于SAP业务顾问来说是非常重要的，其实网络上有很多很优秀、免费的SAP教程，跟着这些优秀的教程实操一遍能快速建立体系化的知识和自信心。 ABAP没有…

2021.01.25
204 0
给内表中的行生成有规律不重复的唯一编号

DATA ZKEY_TMP(25) TYPE C. “数据库表唯一主键 DATA ZKEY(25) TYPE C. “数据库表唯一主键 DATA ZCOUNT(6) TYPE N….

发布 2017.05.04
973 0

SAP ABAP程序中创建透明表

相关推荐