Oracle トリガー作成DDLを取得

SET LIN 20000
-- １行に収まらない内場合改行して表示
SET WRAP ON
SET PAGESIZE 0
SET LONG 400000
SET LONGCHUNKSIZE 400000
-- 問い合わせの結果レコード件数表示制御
SET FEEDBACK OFF
-- コマンド表示制御
SET ECHO OFF
-- コマンド結果表示制御
SET TERMOUT OFF

-- 行末の空白除去
SET TRIMS ON
-- バインド変数新旧表示除去
SET VERIFY OFF

--DDLの終わりにセミコロン
EXEC DBMS_METADATA.SET_TRANSFORM_PARAM( DBMS_METADATA.SESSION_TRANSFORM,'SQLTERMINATOR',TRUE );


-- STORAGE属性を省略
--EXEC DBMS_METADATA.SET_TRANSFORM_PARAM(DBMS_METADATA.SESSION_TRANSFORM, 'STORAGE', FALSE );

-- --セグメント属性省略
EXEC DBMS_METADATA.SET_TRANSFORM_PARAM (DBMS_METADATA.SESSION_TRANSFORM,'SEGMENT_ATTRIBUTES',FALSE);
-- 
-- 

-- スキーマ名省略
EXEC DBMS_METADATA.SET_TRANSFORM_PARAM(dbms_metadata.SESSION_TRANSFORM, 'EMIT_SCHEMA', FALSE);

--出力ファイル名変数定義
-- 『@』はスプールファイル名に使えないようなので、『_』に置き換える  2021/06/04
col spoolout_file_name new_value spool_file_name format a50
select replace('./TRIGGER_'||'&1'||'.'||'&2'||'.sql','@','_') spoolout_file_name 
from dual;

spool &spool_file_name

-- TABLE用DDLの取得
-- Oracleのバグなのか「EDITIONABLE」がついて出力されるので
-- これを無理やり除去する
select 
REGEXP_REPLACE (
dbms_metadata.get_ddl('TRIGGER',t.TRIGGER_NAME,t.OWNER) 
,' EDITIONABLE ', ' '
)
from DBA_TRIGGERS t
where t.OWNER= '&1' and t.TRIGGER_NAME = '&2'
;

spool off;

exitCopy

sqlplus -s system/pasword@vm102/ora19.box @get_torigger_ddl.sql DABADA LOGON_TRIGCopy

PS D:\temp> sqlplus -s system/ecgdev@vm102/ora19.box '@get_torigger_ddl.sql' DABADA LOGON_TRIG
PS D:\temp> ls -l TRIGGER_DABADA.LOGON_TRIG.sql


    ディレクトリ: D:\temp


Mode                 LastWriteTime         Length Name
----                 -------------         ------ ----
-a----        2022/10/23     23:13           1112 TRIGGER_DABADA.LOGON_TRIG.sql


PS D:\temp> Get-Content TRIGGER_DABADA.LOGON_TRIG.sql

  CREATE OR REPLACE TRIGGER "LOGON_TRIG"
 AFTER LOGON ON DATABASE

DECLARE
 -- 自立型トランザクション宣言
PRAGMA AUTONOMOUS_TRANSACTION;

BEGIN
  insert into dabada.MNT_EVENT
(
   EVENT_ID
  ,EVENT_TYPE
  ,EVENT_DATE
  ,CIL_OBJ_TYPE
  ,COL_OWNER
  ,COL_OBJ_NAME
  ,INST_ID
  ,SID
  ,AUDSID
  ,USERNAME
  ,SERVICE_NAME
  ,OSUSER
  ,MACHINE
  ,IP_ADDRESS
  ,PROGRAM
  ,NOTE
)
SELECT
    to_number(to_char(systimestamp,'yyyymmddhh24missff'))  EVENT_ID
  ,'LOGON' EVENT_TYPE
  ,systimestamp EVENT_DATE
  ,null CIL_OBJ_TYPE
  ,null COL_OWNER
  ,null COL_OBJ_NAME
  ,SYS_CONTEXT('USERENV', 'INSTANCE') INST_ID
  ,SYS_CONTEXT('USERENV', 'SID') sid
  ,SYS_CONTEXT('USERENV', 'SESSIONID') SESSIONID
  ,SYS_CONTEXT('USERENV', 'SESSION_USER') SESSION_USER
  ,SYS_CONTEXT('USERENV', 'SERVICE_NAME') SERVICE_NAME
  ,SYS_CONTEXT('USERENV', 'OS_USER') OS_USER
  ,SYS_CONTEXT('USERENV', 'HOST') HOST
  ,SYS_CONTEXT('USERENV', 'IP_ADDRESS') IP_ADDRESS
  ,SYS_CONTEXT('USERENV', 'MODULE') MODULE
  ,null note
  FROM DUAL
;
commit;

END ;
/
ALTER TRIGGER "LOGON_TRIG" ENABLE;

PS D:\temp>

Copy