用到的TCODE:
SE37/SE80函数构建器
SE11 ABAP字典(包括数据库表/视图/数据类型等)
SE16 数据浏览器
RSA6 数据源目录
RSO2 维护一般数据源(事务数据/主数据属性/文本)
RSA3 提取器检验程序(数据源测试)
Step1:TCODE: SE11 创建数据库表
表名:ZHBSJ
Step2:TCODE: SE11 创建数据结构
数据结构名:ZDS_ZHBSJ_STR
Step3:TCODE: SE80 创建函数组和函数
函数组:ZDS_ZHBSJ_GRP,函数:ZDS_ZHBSJ
筛选出“函数组”,以“RSAX”作为关键字搜索我们要作为函数组模板的对象,并右击选择“复制”
函数组创建完成后,需要复制函数模块,这里我们只需要复制“RSAX_BIW_GET_DATA_SIMPLE”,并输入新函数模块名“ZDS_ZHBSJ”,然后点击“复制”
这时候我们再查看这个函数组,如下图所示:
Step4:TCODE: SE37 更改函数信息,修改源代码
下图中关联类型更改为我们刚创建的数据结构ZDS_ZHBSJ_STR
FUNCTION ZDS_ZHBSJ.
*"----------------------------------------------------------------------
*"*"本地接口:
*" IMPORTING
*" VALUE(I_REQUNR) TYPE SRSC_S_IF_SIMPLE-REQUNR
*" VALUE(I_DSOURCE) TYPE SRSC_S_IF_SIMPLE-DSOURCE OPTIONAL
*" VALUE(I_MAXSIZE) TYPE SRSC_S_IF_SIMPLE-MAXSIZE OPTIONAL
*" VALUE(I_INITFLAG) TYPE SRSC_S_IF_SIMPLE-INITFLAG OPTIONAL
*" VALUE(I_READ_ONLY) TYPE SRSC_S_IF_SIMPLE-READONLY OPTIONAL
*" VALUE(I_REMOTE_CALL) TYPE SBIWA_FLAG DEFAULT SBIWA_C_FLAG_OFF
*" TABLES
*" I_T_SELECT TYPE SRSC_S_IF_SIMPLE-T_SELECT OPTIONAL
*" I_T_FIELDS TYPE SRSC_S_IF_SIMPLE-T_FIELDS OPTIONAL
*" E_T_DATA STRUCTURE ZDS_ZHBSJ_STR OPTIONAL
*" EXCEPTIONS
*" NO_MORE_DATA
*" ERROR_PASSED_TO_MESS_HANDLER
*"----------------------------------------------------------------------
* Example: DataSource for table SFLIGHT
TABLES: ZHBSJ.
DATA: it_data TYPE TABLE OF ZDS_ZHBSJ_STR.
DATA: wa_data LIKE&n