ABAP使用类的方式查询外部数据库

2020.09.24 23:53 • 发布 • 阅读 304

使用DBCO配置的数据库连接，ABAP可以轻松操作外部数据库。

但如果外部数据源是通过HANA SDI建立的VIRTUAL TABLE，则使用传统的EXEC SQL方式传WHERE条件无效。虽然最终返回给ABAP的数据是按WHERE条件过滤后的值，但监控SDI日志可以发现其原理是先取出对方表的全部数据、再在SDI中过滤后返回给SAP，这会造成非常严重的性能问题。

使用类的方式执行NATIVE SQL则完美解决了这个问题，核心类主要包括以下几个：

CL_SQL_CONNECTION
CL_SQL_STATEMENT
CL_SQL_RESULT_SET

以下为ABAP使用类的方式操作外部数据库的一个小DEMO:

*&amp;---------------------------------------------------------------------*
*&amp; Report ZTEST011
*&amp;---------------------------------------------------------------------*
*&amp;
*&amp;---------------------------------------------------------------------*
REPORT ZTEST011.

TYPES: BEGIN OF TYP_SQL_VIEW,
         VBELN TYPE TXT50,
         POSNR TYPE TXT50,
         MATNR TYPE TXT50,
         QUANT TYPE TXT50,
         PRICE TYPE TXT50,
         CONDI TYPE TXT50,
         KUNNR TYPE TXT50.

TYPES:END OF TYP_SQL_VIEW.

DATA: LS_NSQL TYPE TYP_SQL_VIEW,
      LT_NSQL TYPE TABLE OF TYP_SQL_VIEW.

DATA: LR_SQL_CONNECTION         TYPE REF TO CL_SQL_CONNECTION,
      LR_SQL_STATEMENT          TYPE REF TO CL_SQL_STATEMENT,
      LR_SQL_RESULT_SET         TYPE REF TO CL_SQL_RESULT_SET,
      LR_SQL_EXCEPTION          TYPE REF TO CX_SQL_EXCEPTION,
      LR_SQL_PARAMETER_INVALID  TYPE REF TO CX_PARAMETER_INVALID,
      LR_PARAMETER_INVALID_TYPE TYPE REF TO CX_PARAMETER_INVALID_TYPE,
      LR_DATA                   TYPE REF TO DATA,
      LV_WHERE_CLAUSE_STATEMENT TYPE STRING,
      LV_ERROR_TEXT             TYPE STRING,
      LV_WHERE_MANDT            TYPE STRING,
      LV_WHERE_SPRAS            TYPE STRING.

DATA LV_ORDER TYPE C LENGTH 10 VALUE '1000002050'.
DATA LV_TABLE TYPE C LENGTH 10 VALUE 'VT001_S4D'.

*get dbco connection.
TRY.

    CALL METHOD CL_SQL_CONNECTION=>GET_CONNECTION
      EXPORTING
        CON_NAME = 'DBCO_HANA'
        SHARABLE = SPACE
      RECEIVING
        CON_REF  = LR_SQL_CONNECTION.

  CATCH CX_SQL_EXCEPTION .

ENDTRY.

*build sql stamement.
CALL METHOD LR_SQL_CONNECTION->CREATE_STATEMENT
  RECEIVING
    STMT_REF = LR_SQL_STATEMENT.

DATA(LV_STATEMENT) = | SELECT * FROM { LV_TABLE } WHERE VBELN = '{ LV_ORDER }'|.

*execute sql.
LR_SQL_RESULT_SET = LR_SQL_STATEMENT->EXECUTE_QUERY( LV_STATEMENT ).

"参考LT_NSQL的数据结构创建通用数据结构LR_DATA.
GET REFERENCE OF LT_NSQL INTO LR_DATA.

"解析结果集到LR_DATA.
"1)Set Internal Table as Output Parameters
LR_SQL_RESULT_SET->SET_PARAM_TABLE( LR_DATA ).
"2)Read Next Set of Data Records into the Internal Table.
LR_SQL_RESULT_SET->NEXT_PACKAGE( ).
*现在数据在内表LT_NSQL&#91;]中.

*关闭数据库连接.
TRY.
  CALL METHOD LR_SQL_CONNECTION->CLOSE.
CATCH CX_SQL_EXCEPTION .
ENDTRY.

*&---------------------------------------------------------------------*

*& Report ZTEST011

*&---------------------------------------------------------------------*

REPORT ZTEST011.

TYPES: BEGIN OF TYP_SQL_VIEW,

VBELN TYPE TXT50,

POSNR TYPE TXT50,

MATNR TYPE TXT50,

QUANT TYPE TXT50,

PRICE TYPE TXT50,

CONDI TYPE TXT50,

KUNNR TYPE TXT50.

TYPES:END OF TYP_SQL_VIEW.

DATA: LS_NSQL TYPE TYP_SQL_VIEW,

LT_NSQL TYPE TABLE OF TYP_SQL_VIEW.

DATA: LR_SQL_CONNECTION TYPE REF TO CL_SQL_CONNECTION,

LR_SQL_STATEMENT TYPE REF TO CL_SQL_STATEMENT,

LR_SQL_RESULT_SET TYPE REF TO CL_SQL_RESULT_SET,

LR_SQL_EXCEPTION TYPE REF TO CX_SQL_EXCEPTION,

LR_SQL_PARAMETER_INVALID TYPE REF TO CX_PARAMETER_INVALID,

LR_PARAMETER_INVALID_TYPE TYPE REF TO CX_PARAMETER_INVALID_TYPE,

LR_DATA TYPE REF TO DATA,

LV_WHERE_CLAUSE_STATEMENT TYPE STRING,

LV_ERROR_TEXT TYPE STRING,

LV_WHERE_MANDT TYPE STRING,

LV_WHERE_SPRAS TYPE STRING.

DATA LV_ORDER TYPE C LENGTH 10 VALUE '1000002050'.

DATA LV_TABLE TYPE C LENGTH 10 VALUE 'VT001_S4D'.

*get dbco connection.

TRY.

CALL METHOD CL_SQL_CONNECTION=>GET_CONNECTION

EXPORTING

CON_NAME = 'DBCO_HANA'

SHARABLE = SPACE

RECEIVING

CON_REF = LR_SQL_CONNECTION.

CATCH CX_SQL_EXCEPTION .

ENDTRY.

*build sql stamement.

CALL METHOD LR_SQL_CONNECTION->CREATE_STATEMENT

RECEIVING

STMT_REF = LR_SQL_STATEMENT.

DATA(LV_STATEMENT) = | SELECT * FROM { LV_TABLE } WHERE VBELN = '{ LV_ORDER }'|.

*execute sql.

LR_SQL_RESULT_SET = LR_SQL_STATEMENT->EXECUTE_QUERY( LV_STATEMENT ).

"参考LT_NSQL的数据结构创建通用数据结构LR_DATA.

GET REFERENCE OF LT_NSQL INTO LR_DATA.

"解析结果集到LR_DATA.

"1)Set Internal Table as Output Parameters

LR_SQL_RESULT_SET->SET_PARAM_TABLE( LR_DATA ).

"2)Read Next Set of Data Records into the Internal Table.

LR_SQL_RESULT_SET->NEXT_PACKAGE( ).

*现在数据在内表LT_NSQL[]中.

*关闭数据库连接.

TRY.

CALL METHOD LR_SQL_CONNECTION->CLOSE.

CATCH CX_SQL_EXCEPTION .

ENDTRY.

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

SAP RFC函数测试工具

上一篇 2020.09.24 22:09

对网站主题Twenty Fourteen的一些改造

下一篇 2020.09.26 15:36

创建销售订单-用外部给号的方法步骤

For this create the number range in VN01 with the number range object. Go to VOV8 select y…

发布 2017.05.03
615 0
BW数据源增强

事物代码：CMOD/SMOD/RSO2/RSA3

发布 2017.05.03
692 0
发布

局域网搭建和使用ntp时间服务器

情景：局域网内有很多服务器，由于各种原因，某些服务器是时间与北京时间不准了。考虑到系统记录的准确性，要求在局域网内搭设一台机器作为其他服务器、PC的时间服务器。操作： #安装ce…

2018.06.07
846 0
SAP取累计余额的思路

可以直接汇总acdoca，也可以用现成的 faglflext表。取faglflext表的话，主要处理点在对hslxx每个月余额列的动态处理上。基本思路：累计余额 = 期初余额 …

发布 2020.05.30
417 0
SAP ERP and Magento Integration Touchpoints

Customer APPSeCONNECT helps you with various scenarios by which you can have customers syn…

发布 2018.03.01
641 0
ABAP弹窗确认POPUP_TO_CONFIRM

data lv_answer type c. call function ‘POPUP_TO_CONFIRM’ exporting titlebar = ‘操作确认：’ text_…

发布 2020.05.30
383 0
openSUSE-Leap-15.2 install NVIDIA Display Card Driver

1.download navida drive from navida official websitehttps://www.nvidia.cn/geforce/drivers/…

发布 2020.09.18
822 0
[转]FTP服务器和ABAP的连接

*&———————————————————————* *& Report…

发布 2017.06.16
746 0
发布

SAP系统合规性审计之密码策略

SAP系统合规性审计中，针对密码策略的审计主要涉及应用、数据库和操作系统三部分。应用层面在RZ10中对如下参数按审计经理或者一般IT合规性管理进行设置即可。 login/min…

2020.12.11
379 1
SAP 汇率处理总结

1、能想到的几种Currency：local currency, company code currency, ac_countcurrency, price currency, …

发布 2017.05.04
1.3K 0
发布

SAP Cross-Company Sales跨公司销售业务

Cross-Company Sales或者叫Inter Company Sales，跨公司销售业务，指集团成员公司中负责销售的公司和实际发货的公司不属于同一个公司代码，客户向负责销…

2020.11.27
327 0
SAP常用主数据及描述取数

DATA GT_Z0001 TYPE TABLE OF T001 WITH HEADER LINE. “公司代码. DATA GT_Z0002 TYPE TABLE OF T001…

发布 2017.09.11
1.0K 0
辅助Homebrew的两大利器Cakebrew & LaunchRocket

在Mac下面安装软件的时候，比较方便的方式是使用Homebrew。不过Homebrew是命令行方式，用起来不是那么的友好，所以就有了图形化的Cakebrew。 Cakebrew 网…

发布 2018.06.23
1.1K 0
how to debug the background job

JDBG – Job Debug This is basically for the job has finished execution. This will sim…

发布 2017.05.08
651 0
KVM虚拟机迁移宿主服务器

我们以迁移名称为hello的kvm虚拟机为例子： 1.在原物理机上关闭要迁移的KVM虚拟机 virsh list –all virsh shutdown hello 2.在新物理…

发布 2018.05.21
811 0
How BlockChain will affect Ecommerce Industry in the Upcoming Years

Blockchain, which is a distributed, public ledger of all cryptocurrency transactions, cons…

发布 2018.03.01
601 0
发布

不同公司下资产类相同折旧表相同的资产可以过账到不同的会计科目吗？

可以。原因： Here, the key is that the company codes can have different charts of accounts assi…

2020.12.26
228 0
SAP FI记账凭证FB01的BAPI

FI模块记账凭证FB01的BAPI – POSTING_INTERFACE_DOCUMENT CALL FUNCTION ‘POSTING_INTERFACE_STAR…

发布 2017.05.03
1.2K 0
发布

SAP Gui Scripting高级版屏幕录制工具sapguitracker

有开发者做了一个高级版的屏幕录制工具，比SAP标准的功能更强大，可以识屏幕字段ID、查看文档、比较代码、自动生成VB、Python、Java版本的代码等。网址：https://t…

2020.10.23
514 0
SAP五种系统进程

Text Work Process Type Definition There are various work process types: DIA (dialog) Work …

发布 2020.05.06
287 0

ABAP使用类的方式查询外部数据库

相关推荐