Oracleデータベース
CREATE PROCEDURE move_file(fromname VARCHAR2, toname VARCHAR2) AS
BEGIN
UTL_FILE.FRENAME('DIR1', fromname, 'DIR2', toname, FALSE);・・・(8)
RETURN;
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('-- SQL Error --');
DBMS_OUTPUT.PUT_LINE('ERROR : ' || SQLERRM );
RETURN;
END;
/
set serveroutput on
call move_file('file01.txt','file02.txt');
Symfoware Server
CREATE FUNCTION move_file(fromname VARCHAR, toname VARCHAR) RETURNS void AS $$
BEGIN
PERFORM DBMS_OUTPUT.SERVEROUTPUT(TRUE);
PERFORM UTL_FILE.FRENAME('/home/symfo', fromname, '/home/backup', toname, FALSE);・・・(8)
RETURN;
EXCEPTION
WHEN OTHERS THEN
PERFORM DBMS_OUTPUT.PUT_LINE('-- SQL Error --');
PERFORM DBMS_OUTPUT.PUT_LINE('ERROR : ' || SQLERRM );
RETURN;
END;
$$
LANGUAGE plpgsql;
SELECT move_file('file01.txt','file02.txt');
UTL_FILEパッケージのFCOPYと同じです。記述差異および、記述差異に伴う移行手順については、UTL_FILEパッケージのFCOPYを参照してください。