C format

int32 piut_connect( 

char PIPTR * procname );

Returns

>0
 System Error
 
0
 Success
 
-1
 Attempt to reconnect within 60 seconds or socket_open has failed
 
-994
 Incompatible PINET protocol version
 
-1001
 Default host not found
 

Arguments

procname (passed)

Character string identifying the client application to the server

RA-28576: lost RPC connection to external procedure agent
*Cause:  A fatal error occurred in either an RPC network connection,
         the extproc agent, or the invoked 3GL after communication had
         been established successfully.
*Action: First check the 3GL code you are invoking; the most likely
         cause of this error is abnormal termination of the
         invoked "C" routine. If this is not the case, check for
         network problems. Correct the problem if you find it. If all
         components appear to be normal but the problem persists, the
         problem could be an internal logic error in the RPC transfer
         code.  Contact your customer support representative.

CREATE OR REPLACE PACKAGE SUPPORT.pi_util
AS
 FUNCTION piut_connect (procname IN CHAR) RETURN PLS_INTEGER;
   PRAGMA RESTRICT_REFERENCES(piut_connect,WNDS,RNDS,WNPS,RNPS);
   
     --FUNCTION pipt_findpoint (tagname IN CHAR, pt OUT PLS_INTEGER) RETURN PLS_INTEGER;
   

--   FUNCTION piar_value (pt IN PLS_INTEGER, timedate IN PLS_INTEGER, rmode IN PLS_INTEGER, rval OUT FLOAT, istat OUT PLS_INTEGER ) RETURN PLS_INTEGER;
   

   FUNCTION piut_disconnect RETURN PLS_INTEGER;
  PRAGMA RESTRICT_REFERENCES(piut_disconnect,WNDS,RNDS,WNPS,RNPS);
   
   FUNCTION pitm_systime RETURN PLS_INTEGER;
   PRAGMA RESTRICT_REFERENCES(pitm_systime,WNDS,RNDS,WNPS,RNPS);
END pi_util;
/

CREATE OR REPLACE PACKAGE BODY SUPPORT.pi_util
AS
 
 FUNCTION piut_connect (procname IN CHAR)  RETURN PLS_INTEGER
   AS
      EXTERNAL
      LIBRARY piLIB
      NAME "piut_connect"
      PARAMETERS (procname BY REFERENCE)
      LANGUAGE C;       
     
   --   --PARAMETERS(procname BY REFERENCE);
      
   
 --  FUNCTION pipt_findpoint (tagname IN CHAR, pt  OUT  PLS_INTEGER)  RETURN PLS_INTEGER
   --AS
     -- EXTERNAL
     -- LIBRARY piLIB
     -- NAME "pipt_findpoint" 
     -- PARAMETERS(tagname,pt )
     -- LANGUAGE C;
    
    --  PARAMETERS(tagname BY REFERENCE,pt BY REFERENCE );
       
    
   
 --  FUNCTION piar_value (pt IN PLS_INTEGER, timedate IN PLS_INTEGER, rmode IN PLS_INTEGER, rval OUT FLOAT, istat OUT PLS_INTEGER ) RETURN PLS_INTEGER
   --AS
   
   --   EXTERNAL  
     -- LIBRARY piLIB
     ---- PARAMETERS(pt, timedate BY REFERENCE  , rmode , rval BY REFERENCE, istat BY REFERENCE),
     -- PARAMETERS(pt, timedate  , rmode , rval, istat)
      --NAME "piar_value"
      --LANGUAGE C;
   FUNCTION piut_disconnect RETURN PLS_INTEGER
   AS
      EXTERNAL
      LIBRARY piLIB
      NAME "piut_disconnect"
      LANGUAGE C;
   FUNCTION pitm_systime RETURN PLS_INTEGER
   AS 
      EXTERNAL
      LIBRARY piLIB
      NAME "pitm_systime"
      LANGUAGE C;    
END pi_util;
/

****************************************************************************

FUNCTION CREATED FOR CALLING THE EXTERNAL PROCEDURE

****************************************************************************

CREATE OR REPLACE FUNCTION "GETPIVALUE" (
server  CHAR ,
tag CHAR,
timedate DATE
)
RETURN FLOAT
IS
funRet PLS_INTEGER;
myDate PLS_INTEGER;
ret FLOAT;
point PLS_INTEGER;
istat PLS_INTEGER;
rmode PLS_INTEGER;
charDate CHAR(200);
can_not_connect_to_pi EXCEPTION;
tag_not_found EXCEPTION;
system_error EXCEPTION;
value_not_found EXCEPTION;
can_not_disconnect_from_pi EXCEPTION;
--server_name NVARCHAR2(6) := 'rwsrts';
date_rr pls_integer;
BEGIN
    ret := 0;
    rmode := 4;
   DBMS_OUTPUT.PUT_LINE('BEFORE CONNECTION server name: '|| server );
      funRet := PI_UTIL.PIUT_CONNECT(server);
   -- DBMS_OUTPUT.PUT_LINE('AFTER CONNECTION: '||funRet);
    --IF(funRet <> 0) THEN
      --  RAISE can_not_connect_to_pi;
    --END IF;
    --myDate := CREATEPIDATE(timedate);
    --funRet := PI_UTIL.PIPT_FINDPOINT(tag, point);
    --IF(funRet LIKE -5) THEN
      --  RAISE tag_not_found;
    --ELSIF(funRet <> 0 AND funRet <> -5) THEN
      --  RAISE system_error;
    --END IF;
    
    --funRet := PI_UTIL.PIAR_VALUE(point, myDate, rmode, ret, istat);
    --IF(funRet <> 0) THEN
      --  RAISE value_not_found;
    --END IF;
    date_rr:= PI_UTIL.pitm_systime();
    funRet := PI_UTIL.PIUT_DISCONNECT();
    IF(funRet <> 0) THEN
        RAISE can_not_disconnect_from_pi;
    END IF;
    
    RETURN(ret);
    EXCEPTION
        WHEN can_not_connect_to_pi THEN RAISE_APPLICATION_ERROR (-20001, 'Unable to connect to PI system');
        WHEN can_not_disconnect_from_pi THEN RAISE_APPLICATION_ERROR (-20002, 'Unable to disconnect from PI system');
        WHEN tag_not_found THEN RAISE_APPLICATION_ERROR (-20003, 'The supplied tag does not exist in the PI system.');
        WHEN value_not_found THEN RAISE_APPLICATION_ERROR(-20004, 'Unable to retrieve the value for a supplied tag.');
        WHEN system_error THEN RAISE_APPLICATION_ERROR(-20005, 'Error occured in the communication with the PI system.');
END;
/