BW 创建数据源（包括表/数据结构/函数）

怼烎@ 2022-08-09 12:44 121阅读 0赞

用到的TCODE:

SE37/SE80函数构建器

SE11 ABAP字典（包括数据库表/视图/数据类型等）

SE16 数据浏览器

RSA6 数据源目录

RSO2 维护一般数据源（事务数据/主数据属性/文本）

RSA3 提取器检验程序（数据源测试）

# Step1:TCODE: SE11 创建数据库表 #

表名：ZHBSJ

![Center][]

# Step2:TCODE: SE11 创建数据结构 #

数据结构名：ZDS\_ZHBSJ\_STR

![Center 1][]

# Step3:TCODE: SE80 创建函数组和函数 #

函数组：ZDS\_ZHBSJ\_GRP，函数：ZDS\_ZHBSJ

筛选出“函数组”，以“RSAX”作为关键字搜索我们要作为函数组模板的对象，并右击选择“复制”

![Center 2][]

函数组创建完成后，需要复制函数模块，这里我们只需要复制“RSAX\_BIW\_GET\_DATA\_SIMPLE”，并输入新函数模块名“ZDS\_ZHBSJ”，然后点击“复制”

![Center 3][]

这时候我们再查看这个函数组，如下图所示：

![Center 4][]

Step4:TCODE: SE37 更改函数信息，修改源代码

下图中关联类型更改为我们刚创建的数据结构ZDS\_ZHBSJ\_STR

![Center 5][]

这时候，我们就需要更改源代码了

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 LINE OF e\_t\_data.  
  
 TYPES:BEGIN OF TY\_T001,  
          BUKRS TYPE BUKRS,  
          WAERS TYPE WAERS,  
        END OF TY\_T001.  
  DATA:LS\_T001 TYPE TY\_T001,  
       LT\_T001 TYPE TABLE OF TY\_T001.  
  
\* Auxiliary Selection criteria structure  
  DATA: L\_S\_SELECT TYPE SRSC\_S\_SELECT.  
  
\* Maximum number of lines for DB table  
  STATICS: S\_S\_IF TYPE SRSC\_S\_IF\_SIMPLE,  
  
\* counter  
          S\_COUNTER\_DATAPAKID LIKE SY-TABIX,  
  
\* cursor  
          S\_CURSOR TYPE CURSOR.  
\* Select ranges  
  RANGES: L\_R\_RYEAR  FOR ZHBSJ-RYEAR,  
          L\_R\_POPER  FOR ZHBSJ-POPER,  
          L\_R\_DOCNR  FOR ZHBSJ-DOCNR,  
          L\_R\_CPUDT  FOR ZHBSJ-CPUDT,  
          L\_R\_RBUKRS  FOR ZHBSJ-RBUKRS.  
  
\* Initialization mode (first call by SAPI) or data transfer mode  
\* (following calls) ?  
  IF I\_INITFLAG = SBIWA\_C\_FLAG\_ON.  
  
\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*  
\* Initialization: check input parameters  
\*                 buffer input parameters  
\*                 prepare data selection  
\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*  
  
\* Check DataSource validity  
    CASE I\_DSOURCE.  
      WHEN 'ZDS\_ZHBSJ'.  
      WHEN OTHERS.  
        IF 1 = 2. MESSAGE E009(R3). ENDIF.  
\* this is a typical log call. Please write every error message like this  
        LOG\_WRITE 'E'                  "message type  
                  'R3'                 "message class  
                  '009'                "message number  
                  I\_DSOURCE   "message variable 1  
                  ' '.                 "message variable 2  
        RAISE ERROR\_PASSED\_TO\_MESS\_HANDLER.  
    ENDCASE.  
  
    APPEND LINES OF I\_T\_SELECT TO S\_S\_IF-T\_SELECT.  
  
\* Fill parameter buffer for data extraction calls  
    S\_S\_IF-REQUNR    = I\_REQUNR.  
    S\_S\_IF-DSOURCE = I\_DSOURCE.  
    S\_S\_IF-MAXSIZE   = I\_MAXSIZE.  
  
\* Fill field list table for an optimized select statement  
\* (in case that there is no 1:1 relation between InfoSource fields  
\* and database table fields this may be far from beeing trivial)  
    APPEND LINES OF I\_T\_FIELDS TO S\_S\_IF-T\_FIELDS.  
  
  ELSE.                 "Initialization mode or data extraction ?  
  
\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*  
\* Data transfer: First Call      OPEN CURSOR + FETCH  
\*                Following Calls FETCH only  
\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*  
  
\* First data package -> OPEN CURSOR  
    IF S\_COUNTER\_DATAPAKID = 0.  
  
\* Fill range tables BW will only pass down simple selection criteria  
\* of the type SIGN = 'I' and OPTION = 'EQ' or OPTION = 'BT'.  
      LOOP AT S\_S\_IF-T\_SELECT INTO L\_S\_SELECT WHERE FIELDNM = 'RYEAR'.  
        MOVE-CORRESPONDING L\_S\_SELECT TO L\_R\_RYEAR.  
        APPEND L\_R\_RYEAR.  
      ENDLOOP.  
  
      LOOP AT S\_S\_IF-T\_SELECT INTO L\_S\_SELECT WHERE FIELDNM = 'POPER'.  
        MOVE-CORRESPONDING L\_S\_SELECT TO L\_R\_POPER.  
        APPEND L\_R\_POPER.  
      ENDLOOP.  
  
      LOOP AT S\_S\_IF-T\_SELECT INTO L\_S\_SELECT WHERE FIELDNM = 'DOCNR'.  
        MOVE-CORRESPONDING L\_S\_SELECT TO L\_R\_DOCNR.  
        APPEND L\_R\_DOCNR.  
      ENDLOOP.  
  
      LOOP AT S\_S\_IF-T\_SELECT INTO L\_S\_SELECT WHERE FIELDNM = 'CPUDT'.  
        MOVE-CORRESPONDING L\_S\_SELECT TO L\_R\_CPUDT.  
        APPEND L\_R\_CPUDT.  
      ENDLOOP.  
  
      LOOP AT S\_S\_IF-T\_SELECT INTO L\_S\_SELECT WHERE FIELDNM = 'RBUKRS'.  
        MOVE-CORRESPONDING L\_S\_SELECT TO L\_R\_RBUKRS.  
        APPEND L\_R\_RBUKRS.  
      ENDLOOP.  
  
\* Determine number of database records to be read per FETCH statement  
\* from input parameter I\_MAXSIZE. If there is a one to one relation  
\* between DataSource table lines and database entries, this is trivial.  
\* In other cases, it may be impossible and some estimated value has to  
\* be determined.  
      OPEN CURSOR WITH HOLD S\_CURSOR FOR  
      SELECT \* FROM ZHBSJ WHERE RYEAR IN L\_R\_RYEAR AND  
                                     POPER IN L\_R\_POPER AND  
                                     DOCNR IN L\_R\_DOCNR AND  
                                     CPUDT IN L\_R\_CPUDT AND  
                                     RBUKRS IN L\_R\_RBUKRS.  
  
    ENDIF.                             "First data package ?  
  
\* Fetch records into interface table.  
\*   named E\_T\_'Name of extract structure'.  
    FETCH NEXT CURSOR S\_CURSOR  
               APPENDING CORRESPONDING FIELDS  
               OF TABLE it\_data  
               PACKAGE SIZE S\_S\_IF-MAXSIZE.  
  
    IF SY-SUBRC <> 0.  
      CLOSE CURSOR S\_CURSOR.  
      RAISE NO\_MORE\_DATA.  
    ENDIF.  
  
    SELECT BUKRS WAERS FROM T001 INTO CORRESPONDING FIELDS OF TABLE LT\_T001.  
  
    SORT LT\_T001 BY BUKRS .  
  
    LOOP AT it\_data INTO wa\_data.  
      IF wa\_data-ZZPS\_PSP\_PNR IS NOT INITIAL.  
      CALL FUNCTION 'CONVERSION\_EXIT\_ABPSP\_OUTPUT'  
                            EXPORTING  
                              INPUT         = wa\_data-ZZPS\_PSP\_PNR  
                           IMPORTING  
                              OUTPUT        = wa\_data-ZZWBSID .  
      ENDIF.  
      READ TABLE LT\_T001 INTO LS\_T001 WITH KEY  BUKRS = wa\_data-RBUKRS BINARY SEARCH ."根据表ZHBSJ和T001的相同字段RBUKRS，在T001中查找对应的本位币货币码WAERS  
          IF SY-SUBRC = 0 .  
             wa\_data-WAERS = LS\_T001-WAERS .  
          ENDIF.  
      APPEND wa\_data TO e\_t\_data.  
      CLEAR wa\_data.  
    ENDLOOP.  
  
    S\_COUNTER\_DATAPAKID = S\_COUNTER\_DATAPAKID + 1.  
  
  ENDIF.              "Initialization mode or data extraction ?  
  
ENDFUNCTION.

# Step5:TCODE:RSO2 创建数据源 #

数据源名：ZDS\_ZHBSJ

这次的数据源我们以事务数据作为数据源

![Center 6][]

填写应用程序组件/简要描述/中间的说明/长文本描述信息

![Center 7][]

点击保存图标后，跳到如下界面，将有查询条件的字段在“选择”上选中，然后点击保存，这时候数据源就新增完成了

![Center 8][]

# Step6:TCODE:RSA3 测试数据源 #

输入我们要测试的数据源名称，然后点击“提取”按钮，就可以提取到满足条件的数据记录

![Center 9][]

好，到这里，所有的工作都完成了！

注意：

数据源创建完成后，在数据结构中若需要新增字段，此新增字段在数据源会默认为字段隐藏，这时候请一定不要忘记取消隐藏！

[Center]: /images/20220731/208d010c57c243af9cef3cc6c8451286.png
[Center 1]: /images/20220731/5f0d0cd43c22457fbd6d4d02e17471bf.png
[Center 2]: /images/20220731/bf49dd1cf2cd45c9a0a6fbacdca1a322.png
[Center 3]: /images/20220731/acb58a6a38454446af95fd3fad2f2557.png
[Center 4]: /images/20220731/9a620f6046804b76863695847beecfa0.png
[Center 5]: /images/20220731/c106bf7c118c4abebed0c91ca7b2c007.png
[Center 6]: /images/20220731/72b1c4db4993499ba363874107f96057.png
[Center 7]: /images/20220731/7f56f9de5f1c45cab9d30ca660bf9790.png
[Center 8]: /images/20220731/e8384eebb214470fadeeb7d4aac0ff5f.png
[Center 9]: /images/20220731/cdf486ac98274863ad4dc675c8b3b23e.png