JCo3 访问结构 (Structure)

最新推荐文章于 2023-05-02 22:38:14 发布

tohmin

最新推荐文章于 2023-05-02 22:38:14 发布

阅读量4.1k

点赞数

分类专栏： SAP 文章标签： structure properties iterator system import string

本文链接：https://blog.csdn.net/tohmin/article/details/5673736

版权

SAP 专栏收录该内容

7 篇文章 0 订阅

订阅专栏

本人阐述如何使用JCO3访问SAP Structure。

1. 创建SAP用户：Test01，关于如何创建，请参考上一篇文章。

2.编码：

import java.io.File; import java.io.FileOutputStream; import java.util.Properties; import com.sap.conn.jco.JCoException; import com.sap.conn.jco.ext.DestinationDataProvider; import com.sap.conn.jco.JCoDestination; import com.sap.conn.jco.JCoDestinationManager; import com.sap.conn.jco.AbapException; import com.sap.conn.jco.JCoFunction; import com.sap.conn.jco.JCoField; import com.sap.conn.jco.JCoStructure; public class AccessStructure { static String ABAP_AS_POOLED = "ABAP_AS_WITH_POOL"; static { Properties connectProperties = new Properties(); connectProperties.setProperty(DestinationDataProvider.JCO_ASHOST, "192.168.19.28"); connectProperties.setProperty(DestinationDataProvider.JCO_SYSNR, "00"); connectProperties.setProperty(DestinationDataProvider.JCO_CLIENT, "000"); connectProperties.setProperty(DestinationDataProvider.JCO_USER, "TEST01"); connectProperties.setProperty(DestinationDataProvider.JCO_PASSWD, "ADMIN123"); connectProperties.setProperty(DestinationDataProvider.JCO_LANG, "en"); //JCO_PEAK_LIMIT - Maximum number of idle connections kept open by the destination. connectProperties.setProperty(DestinationDataProvider.JCO_POOL_CAPACITY, "3"); //JCO_POOL_CAPACITY - Maximum number of active connections that //can be created for a destination simultaneously connectProperties.setProperty(DestinationDataProvider.JCO_PEAK_LIMIT, "10"); createDataFile(ABAP_AS_POOLED, "jcoDestination", connectProperties); } static void createDataFile(String name, String suffix, Properties properties) { File cfg = new File(name+"."+suffix); if(!cfg.exists()) { try { FileOutputStream fos = new FileOutputStream(cfg, false); properties.store(fos, "for tests only !"); fos.close(); } catch (Exception e) { throw new RuntimeException("Unable to create the destination file " + cfg.getName(), e); } } } public static void accessSAPStructure() throws JCoException { JCoDestination destination = JCoDestinationManager.getDestination(ABAP_AS_POOLED); JCoFunction function = destination.getRepository().getFunction("RFC_SYSTEM_INFO"); if(function == null) throw new RuntimeException("BAPI_COMPANYCODE_GETLIST not found in SAP."); try { function.execute(destination); } catch(AbapException e) { System.out.println(e.toString()); return; } JCoStructure exportStructure = function.getExportParameterList().getStructure("RFCSI_EXPORT"); System.out.println("System info for " + destination.getAttributes().getSystemID() + ":/n"); for(int i = 0; i < exportStructure.getMetaData().getFieldCount(); i++) { System.out.println(exportStructure.getMetaData().getName(i) + ":/t" + exportStructure.getString(i)); } System.out.println(); //JCo still supports the JCoFields, but direct access via getXX is more efficient as field iterator System.out.println("The same using field iterator: /nSystem info for " + destination.getAttributes().getSystemID() + ":/n"); for(JCoField field : exportStructure) { System.out.println(field.getName() + ":/t" + field.getString()); } System.out.println(); } public static void main(String[] args) throws JCoException { accessSAPStructure(); } }

3. 编译：

javac -classpath .;D:/Resources/Libraries/SAPJCo/JCO_304/sapjco3.jar -d classes AccessStructure.java

4.运行：

java -cp D:/Resources/Libraries/SAPJCo/JCO_304/sapjco3.jar;classes AccessStructure

运行结果：

System info for C11: RFCPROTO: 011 RFCCHARTYP: 1100 RFCINTTYP: LIT RFCFLOTYP: IE3 RFCDEST: minfei_C11_00 RFCHOST: minfei RFCSYSID: C11 RFCDATABS: C11 RFCDBHOST: MINFEI RFCDBSYS: ORACLE RFCSAPRL: 620 RFCMACH: 560 RFCOPSYS: Windows NT RFCTZONE: -28800 RFCDAYST: X RFCIPADDR: 192.168.19.28 RFCKERNRL: 620 RFCHOST2: minfei RFCSI_RESV: The same using field iterator: System info for C11: RFCPROTO: 011 RFCCHARTYP: 1100 RFCINTTYP: LIT RFCFLOTYP: IE3 RFCDEST: minfei_C11_00 RFCHOST: minfei RFCSYSID: C11 RFCDATABS: C11 RFCDBHOST: MINFEI RFCDBSYS: ORACLE RFCSAPRL: 620 RFCMACH: 560 RFCOPSYS: Windows NT RFCTZONE: -28800 RFCDAYST: X RFCIPADDR: 192.168.19.28 RFCKERNRL: 620 RFCHOST2: minfei RFCSI_RESV:

本文调用SAP function - “RFC_SYSTEM_INFO”，然后从ExportParameterList中得到STRUCTURE "RFCSI_EXPORT" ,之后使用JCoField来显示Structure "RFCSI_EXPORT" 的内容。