SAP BW create custom Datasource

今天药忘吃喽~ 2022-08-21 15:56 11阅读 0赞

用到的TCODE:

SE37/SE80函数构建器

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

SE16 数据浏览器

RSA6 数据源目录

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

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

SE80 新建函数组，利用copy RSAX新建一个，最好一个函数组对应一个数据源

安全间隔下限：若2，则会将今天+昨天+前天的数抽一次

数据库表：ZHBSJ

数据类型：ZDS\_ZHBSJ\_STR

函数组：ZDS\_ZHBSJ\_GRP

函数：ZDS\_ZHBSJ

数据源：ZDS\_ZHBSJ

# 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][]

这时候一定不要忘记右击函数组ZDS\_ZHBSJ\_GRP**激活**

![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."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 数据源名字 : ZDS\_ZHBSJ  
    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 e\_t\_data  
               PACKAGE SIZE S\_S\_IF-MAXSIZE.  
  
    IF SY-SUBRC <> 0.  
      CLOSE CURSOR S\_CURSOR.  
      RAISE NO\_MORE\_DATA.  
    ENDIF.  
  
    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/20220724/ace94a87d0ba4a89bd61561c333fa81b.png
[Center 1]: /images/20220724/25c253d87173418395f51cc1363c3f99.png
[Center 2]: /images/20220724/35218d2cb278428cb6ef687174904ecc.png
[Center 3]: /images/20220724/7f32aa8fef4040a3b48f504ff71ded8c.png
[Center 4]: /images/20220724/242539b82eac4909a3a94a0fb137b8a9.png
[Center 5]: /images/20220724/61cf131805204946895182158cf285cb.png
[Center 6]: /images/20220724/eb473971d0a543bd9af7ffcdef454639.png
[Center 7]: /images/20220724/3335a6ceb8bd4ec3a8324cf7283f5153.png
[Center 8]: /images/20220724/56754692969b4226b75e4a7941cd58dd.png
[Center 9]: /images/20220724/bd73e05125284214839b70e58425999d.png