Tcode:DBCO
http://s1/mw690/0030zUxLzy7p9V3IbhCe0&690
MSSQL_SERVER=172.16.7.139,1433
MSSQL_DBNAME=Kute_XT
http://s5/mw690/0030zUxLzy7p9V3KLD694&690
"172.16.4.35:1521/fyerp"
SAP底层ORACLE数据库编辑TNS文件,一般由BASIS配置完成,配置路径:DIR_ORAHOME->network->admin->tnsnames.ora;配置完成后我们可以用事务码:AL11查看配置是否正确,AL11查看连接【HR9DEV.WORLD】
代码实现查询:
DATA:BEGIN OF outdb OCCURS 0 ,
scggdh TYPE char20,
scssrq TYPE char20,
xtwplj TYPE char20,
xtwpks TYPE char20,
xtwpys TYPE char20,
xtxmdm TYPE char20,
sckgks TYPE char20,
sckgml TYPE char20,
scwpsl TYPE char20,
erp_dl TYPE char20,
xtwpbm TYPE char20,
scjgdj TYPE char20,
END OF outdb.
CONSTANTS:cns_ygjk TYPE c LENGTH 10 VALUE 'FYERP1'.
EXEC SQL.
CONNECT TO :cns_ygjk
ENDEXEC.
EXEC SQL.
SET CONNECTION :cns_ygjk
ENDEXEC.
EXEC SQL PERFORMING pf_get_rs.
SELECT sct51.scggdh,
to_char(sct51.scssrq , 'yyyymmdd'),
xtwplj,
xtwpks,
xtwpys,
xtxmdm,
sckgks,
sckgml,
scwpsl,
sct52.xtwpbm,
sct52.SCJGDJ
FROM sct51 inner join sct52 on sct51.scggdh = sct52.scggdh
INTO :outdb-scggdh,
:outdb-scssrq,
:outdb-xtwplj,
:outdb-xtwpks,
:outdb-xtwpys,
:outdb-xtxmdm,
:outdb-sckgks,
:outdb-sckgml,
:outdb-scwpsl,
:outdb-xtwpbm,
:outdb-scjgdj
where scssrq >= to_date(:s_date-low,'yyyymmdd') and scssrq <= to_date(:s_date-high,'yyyymmdd')
ENDEXEC.
FORM pf_get_rs.
outdb-erp_dl = outdb-xtwpks+1(2).
APPEND outdb.
CLEAR outdb.
* BREAK-POINT .
ENDFORM.
加载中,请稍候......