通过DBCO配置链接信息用Native SQL访问外部数据库的代码示例及其相关notes
2009-07-14 09:51
1041 查看
*&--------------------------------------------------------------------*
*& Form GET_GUI_EXEC
*&--------------------------------------------------------------------*
* 从GUI系统选取数据
*---------------------------------------------------------------------*
FORM GET_GUI_EXEC USING STOCKTYPE.
data MYREF type ref to CX_SY_NATIVE_SQL_ERROR.
data ERR_TEXT type STRING.
data RESULT type I.
DATA: TEXT(60).
TRY.
EXEC SQL PERFORMING APPEND_ITAB_GUIFG_EXEC.
SELECT GOODS_ID_SEQ,
MFG_ORDER_ID,PART_ID,LOT_ID,STOCK_QTY,
TO_CHAR(STOCK_DATE,('YYYYMMDDHH24MISS')),
WB_FLAG,LOCATION_ID
INTO :ITAB_GUIFG-XH, :ITAB_GUIFG-GDH,
:ITAB_GUIFG-matnr,
:ITAB_GUIFG-charg, :ITAB_GUIFG-menge, :ITAB_GUIFG-RKDAT,
:ITAB_GUIFG-wbbz, :ITAB_GUIFG-ABFG
FROM csmc.gui_goods_rk@sapgui.WORLD
WHERE STOCK_TYPE = :STOCKTYPE
AND DELIVERY_FINISH_FLAG <> 'Y'
FOR UPDATE
ENDEXEC.
catch CX_SY_NATIVE_SQL_ERROR into MYREF.
ERR_TEXT = MYREF->GET_TEXT( ).
ENDTRY.
IF ERR_TEXT NE SPACE.
TEXT = ERR_TEXT.
MESSAGE E100(ZCSMC) WITH 'GUI链接错误，错误信息:' TEXT.
ENDIF.
ENDFORM. "GET_GUI_EXEC
*&--------------------------------------------------------------------*
*& Form MODIFY_GUI_EXEC
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
FORM MODIFY_GUI_EXEC USING XH LIKE ZMM004-XH
GDH LIKE ZPP002-GDH
LOT_ID like itab-charg
msgtyp LIKE ZGR_STRU-MSGTYP
ERR_MESSAGE like ITAB-ERR_MSG.
data MYREF type ref to CX_SY_NATIVE_SQL_ERROR.
data ERR_TEXT type STRING.
data RESULT type I.
DATA: TEXT(60).
TRY.
EXEC SQL.
UPDATE csmc.gui_goods_rk@sapgui.WORLD
SET DELIVERY_FINISH_FLAG = 'Y',
DELIVERY_FINISH_DATE = SYSDATE
WHERE GOODS_ID_SEQ = :XH
AND MFG_ORDER_ID = :gdh
AND STOCK_TYPE = :gui_stock_type
and LOT_ID = :LOT_ID
ENDEXEC.
catch CX_SY_NATIVE_SQL_ERROR into MYREF.
ERR_TEXT = MYREF->GET_TEXT( ).
ENDTRY.
IF ERR_TEXT NE SPACE.
EXEC SQL.
ROLLBACK CONNECTION csmc.gui_goods_rk@sapgui.WORLD .
ENDEXEC.
ELSE.
EXEC SQL.
COMMIT CONNECTION csmc.gui_goods_rk@sapgui.WORLD .
ENDEXEC.
ENDIF.
ENDFORM. "MODIFY_GUI_EXEC
*&--------------------------------------------------------------------*
*& Form APPEND_DATA
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
FORM APPEND_ITAB_GUIFG_EXEC.
APPEND ITAB_GUIFG.
CLEAR ITAB_GUIFG.
ENDFORM. "APPEND_DATA
相关notes：
323151 Several DB connections with Native SQL
*& Form GET_GUI_EXEC
*&--------------------------------------------------------------------*
* 从GUI系统选取数据
*---------------------------------------------------------------------*
FORM GET_GUI_EXEC USING STOCKTYPE.
data MYREF type ref to CX_SY_NATIVE_SQL_ERROR.
data ERR_TEXT type STRING.
data RESULT type I.
DATA: TEXT(60).
TRY.
EXEC SQL PERFORMING APPEND_ITAB_GUIFG_EXEC.
SELECT GOODS_ID_SEQ,
MFG_ORDER_ID,PART_ID,LOT_ID,STOCK_QTY,
TO_CHAR(STOCK_DATE,('YYYYMMDDHH24MISS')),
WB_FLAG,LOCATION_ID
INTO :ITAB_GUIFG-XH, :ITAB_GUIFG-GDH,
:ITAB_GUIFG-matnr,
:ITAB_GUIFG-charg, :ITAB_GUIFG-menge, :ITAB_GUIFG-RKDAT,
:ITAB_GUIFG-wbbz, :ITAB_GUIFG-ABFG
FROM csmc.gui_goods_rk@sapgui.WORLD
WHERE STOCK_TYPE = :STOCKTYPE
AND DELIVERY_FINISH_FLAG <> 'Y'
FOR UPDATE
ENDEXEC.
catch CX_SY_NATIVE_SQL_ERROR into MYREF.
ERR_TEXT = MYREF->GET_TEXT( ).
ENDTRY.
IF ERR_TEXT NE SPACE.
TEXT = ERR_TEXT.
MESSAGE E100(ZCSMC) WITH 'GUI链接错误，错误信息:' TEXT.
ENDIF.
ENDFORM. "GET_GUI_EXEC
*&--------------------------------------------------------------------*
*& Form MODIFY_GUI_EXEC
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
FORM MODIFY_GUI_EXEC USING XH LIKE ZMM004-XH
GDH LIKE ZPP002-GDH
LOT_ID like itab-charg
msgtyp LIKE ZGR_STRU-MSGTYP
ERR_MESSAGE like ITAB-ERR_MSG.
data MYREF type ref to CX_SY_NATIVE_SQL_ERROR.
data ERR_TEXT type STRING.
data RESULT type I.
DATA: TEXT(60).
TRY.
EXEC SQL.
UPDATE csmc.gui_goods_rk@sapgui.WORLD
SET DELIVERY_FINISH_FLAG = 'Y',
DELIVERY_FINISH_DATE = SYSDATE
WHERE GOODS_ID_SEQ = :XH
AND MFG_ORDER_ID = :gdh
AND STOCK_TYPE = :gui_stock_type
and LOT_ID = :LOT_ID
ENDEXEC.
catch CX_SY_NATIVE_SQL_ERROR into MYREF.
ERR_TEXT = MYREF->GET_TEXT( ).
ENDTRY.
IF ERR_TEXT NE SPACE.
EXEC SQL.
ROLLBACK CONNECTION csmc.gui_goods_rk@sapgui.WORLD .
ENDEXEC.
ELSE.
EXEC SQL.
COMMIT CONNECTION csmc.gui_goods_rk@sapgui.WORLD .
ENDEXEC.
ENDIF.
ENDFORM. "MODIFY_GUI_EXEC
*&--------------------------------------------------------------------*
*& Form APPEND_DATA
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
FORM APPEND_ITAB_GUIFG_EXEC.
APPEND ITAB_GUIFG.
CLEAR ITAB_GUIFG.
ENDFORM. "APPEND_DATA
相关notes：
323151 Several DB connections with Native SQL
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- SpringBoot通过JPA链接数据库及配置文件相关
- 通过Spring Boot配置动态数据源访问多个数据库的实现代码
- JDBC 通过从properties配置文件获取信息得到orcale数据库接口
- JSP自定义标签——调用数据库（通过id号搜索相关信息）
- java 链接数据库时的配置代码
- hibernate通过配置文件生成数据库信息
- nginx（三）status状态页面的相关信息及配置，以及nginx的访问控制配置
- 通过配置DS操作数据库的常用代码
- IIS7详细配置和不显示错误信息、数据库无法访问的解决
- PHP通过CURL访问HTTPS链接示例
- 如何通过配置文件链接数据库？
- 通过配.properties配置文件访问数据库.doc
- OPC远程访问相关配置信息
- 通过配置Windows 防火墙允许使用TCP/IP协议远程访问数据库
- centos7虚拟配置nginx后无法通过浏览器进行外部访问
- 通过“访问多种数据库”的代码来学习多态！（.net2.0版）
- II7下配置SSAS通过HTTP 远程链接访问
- 11G RAC 一节点宕机后修改监听相关配置使通过宕机节点VIP连接数据库的客户端可以连接
- BIEE 通过配置文件 修改JDBC 数据库链接
- 使用配置文件来存储数据库链接信息时---工具类的编写