I need to call an enterprise service formally call DDE. They have built an 
Oracle SE bridge to replace the old plugins called ( DDE Tools)  and I need to 
use it in order to extract information from an Oracle DB.  I am not familiar 
with Oracle at all but this seems to be pretty straight forward. I simply need 
an example using 4D for OCI.

This is an example of what I need to do. I need to convert this into 4D for 
OCI.  
Anyone can help me convert this into 4D for OCI or point me to a good example 
or some resource that might help me do this.

DECLARE
   -- --------------------------------------------------------------------------
   -- Composition d'une requÍte de service (format json)
   -- --------------------------------------------------------------------------
   -- Service: srvacademique.obtenir_info_cours.2
   --          Obtenir les informations sur un cours
   -- --------------------------------------------------------------------------
   FUNCTION composer_requete_info_cours
   
   RETURN pljson IS 
      requete pljson;
   BEGIN

      requete := pljson();

      -- Instance et dÈlai d'attente
      requete.path_put( reg_se_pass_cli_pkg.SERV_A_PATH_INSTANCE,            
'cet');                    -- Instance
      requete.path_put( reg_se_pass_cli_pkg.SERV_A_PATH_DELAI_ATTENTE,        
20);                      -- Delai d'attente pour la rÈponse en secondes

      -- Serveur/service
      requete.path_put( reg_se_pass_cli_pkg.SERV_A_PATH_SERVEUR,             
'srvacademique');          -- Serveur
      requete.path_put( reg_se_pass_cli_pkg.SERV_A_PATH_SERVICE ,            
'obtenir_info_cours.2' );  -- Service

      -- Parametres passés au service
      requete.path_put( reg_se_pass_cli_pkg.SERV_A_PATH_PARAMETRES || '[1]', 
'POL1301'); -- Sigle 1
      requete.path_put( reg_se_pass_cli_pkg.SERV_A_PATH_PARAMETRES || '[2]', 
'POL1502'); -- Sigle 2
       requete.path_put( reg_se_pass_cli_pkg.SERV_A_PATH_PARAMETRES || '[3]', 
'POL1601'); -- Sigle 3 …

      RETURN requete;
   END; 

Luc Devar
**********************************************************************
4D Internet Users Group (4D iNUG)
Archive:  http://lists.4d.com/archives.html
Options: https://lists.4d.com/mailman/options/4d_tech
Unsub:  mailto:[email protected]
**********************************************************************

Reply via email to