60 lines
1.4 KiB
Plaintext
60 lines
1.4 KiB
Plaintext
create or replace package body eft_nom.caco_api is
|
|
|
|
g_header CONSTANT VARCHAR2(160) := '$Header: /Isle Of Grain/database/PLSQL/caco_api.pck 1 7/01/05 12:54 Gilberta $';
|
|
g_revision CONSTANT VARCHAR2(160) := '$Revision: 1 $';
|
|
|
|
---
|
|
-- F C O P Y
|
|
---
|
|
FUNCTION fcopy (filefrom IN VARCHAR2, fileto IN VARCHAR2) RETURN NUMBER
|
|
AS LANGUAGE JAVA
|
|
NAME 'JFile.copyfile (java.lang.String, java.lang.String) return int';
|
|
---
|
|
-- F D E L E T E
|
|
---
|
|
FUNCTION fdelete (p_file IN VARCHAR2) RETURN NUMBER
|
|
AS language JAVA
|
|
NAME 'JFile.delete (java.lang.String) return int';
|
|
---
|
|
-- F D I R
|
|
---
|
|
FUNCTION fdir (p_dir IN VARCHAR2) RETURN filelist
|
|
AS language JAVA
|
|
NAME 'JDirList.getList (java.lang.String) return oracle.sql.ARRAY.ARRAY';
|
|
---
|
|
-- S E N D F A X
|
|
---
|
|
FUNCTION sendfax (pfilename IN CHAR,
|
|
pnumber IN CHAR,
|
|
pchannel IN BINARY_INTEGER) return BINARY_INTEGER
|
|
as
|
|
BEGIN
|
|
RETURN 0;
|
|
END;
|
|
/*language C
|
|
name "Oracle_SendFax"
|
|
library TESTINTERFACE
|
|
parameters (pFilename STRING
|
|
,pNumber STRING
|
|
,pchannel INT
|
|
,return INT);*/
|
|
---
|
|
-- S E N D V O I C E
|
|
---
|
|
FUNCTION sendvoice (pfilename IN CHAR,
|
|
pnumber IN CHAR) return BINARY_INTEGER
|
|
as
|
|
BEGIN
|
|
RETURN 0;
|
|
END;
|
|
/*language C
|
|
name "Oracle_VoiceCall"
|
|
library TESTINTERFACE
|
|
parameters (pFilename STRING
|
|
,pNumber STRING
|
|
,return INT);*/
|
|
--
|
|
end caco_api;
|
|
/
|
|
|