Jabaco Source

'-Begin Class-----------------------------------------------------------
  Implements DestinationDataProvider 
  '-Variables----------------------------------------------------------- 
    Private eL As DestinationDataEventListener 
    Private ABAP_AS_Prop As Properties 
  '--------------------------------------------------------------------- 
    Public Function GetDestinationProperties(destName As String) As _ 
      Properties 
      If (destName = "ABAP_AS") And (ABAP_AS_Prop <> Null) Then 
        GetDestinationProperties = ABAP_AS_Prop 
      Else 
        GetDestinationProperties = Null 
      End If 
    End Function 
  '--------------------------------------------------------------------- 
    Public Sub SetDestinationDataEventListener(EventListener As _ 
      DestinationDataEventListener) 
      eL = EventListener 
    End Sub 
  '--------------------------------------------------------------------- 
    Public Function SupportsEvents() As Boolean 
      SupportsEvents = True 
    End Function 
  '--------------------------------------------------------------------- 
    Public Sub ChangePropertiesForABAP_AS(Prop As Properties) 
      If Prop = Null Then 
        eL.deleted("ABAP_AS") 
        ABAP_AS_Prop = Null 
      Else 
        If (ABAP_AS_Prop <> Null) And (ABAP_AS_Prop <> Prop) Then 
          eL.updated("ABAP_AS") 
          ABAP_AS_Prop = Prop 
        End If 
      End If 
    End Sub 
'-End-------------------------------------------------------------------

Jabaco Source

Dim myDestDataProv As New myDestinationDataProvider

Source code

import java.util.Properties;
import com.sap.conn.jco.JCoDestination;
import com.sap.conn.jco.JCoDestinationManager;
import com.sap.conn.jco.JCoRepository;
import com.sap.conn.jco.ext.DestinationDataEventListener;
import com.sap.conn.jco.ext.DestinationDataProvider;
import com.sap.conn.jco.JCoFunction;
import com.sap.conn.jco.JCoContext;
import com.sap.conn.jco.JCoTable; 
 public class SAPCon {
  public static class MyDestinationDataProvider implements DestinationDataProvider{
    private DestinationDataEventListener eL;
    private Properties ABAP_AS_properties; 
 
    public Properties getDestinationProperties(String destinationName){
      if (destinationName.equals("ABAP_AS") && ABAP_AS_properties != null) return ABAP_AS_properties;
      return null;}

    public void setDestinationDataEventListener(DestinationDataEventListener eventListener){
      this.eL = eventListener;}

    public boolean supportsEvents(){return true;}

    void changePropertiesForABAP_AS(Properties properties){
      if (properties == null){
        eL.deleted("ABAP_AS");
        ABAP_AS_properties = null;}
      else{
        if (ABAP_AS_properties != null && !ABAP_AS_properties.equals(properties))
          eL.updated("ABAP_AS");
          ABAP_AS_properties = properties;}}
  }

public static void main(String[] args) throws Exception{
Properties connectProperties = new Properties();
connectProperties.setProperty(DestinationDataProvider.JCO_ASHOST, "10.100.200.100");
connectProperties.setProperty(DestinationDataProvider.JCO_SYSNR, "99");
connectProperties.setProperty(DestinationDataProvider.JCO_CLIENT, "099");
connectProperties.setProperty(DestinationDataProvider.JCO_USER, "bambi");
connectProperties.setProperty(DestinationDataProvider.JCO_PASSWD, "hugo");
connectProperties.setProperty(DestinationDataProvider.JCO_LANG, "DE");

MyDestinationDataProvider myProvider = new MyDestinationDataProvider();
com.sap.conn.jco.ext.Environment.registerDestinationDataProvider(myProvider);
myProvider.changePropertiesForABAP_AS(connectProperties);

try{
JCoDestination dest = JCoDestinationManager.getDestination("ABAP_AS");
dest.ping();
System.out.println(dest.getAttributes());}
catch (Exception e){}}}

com.sap.conn.jco.ext.Environment.unregisterDestinationDataProvider(myProvider);
connectProperties.clear();