Aqui van:
SYSTRIGCOL CREATE VIEW SYSTRIGCOL (TRIGGER_SCHEMA FOR "TRIGSCHEMA", TRIGGER_NAM E FOR "TRIGNAME", TABLE_SCHEMA FOR "TABSCHEMA", TABLE_NAME FOR "TABN AME", COLUMN_NAME FOR "TABCOLUMN" ) AS SELECT DBXTDDLIB, DBXTDDNAME, DBXTDOBLIB, DBXTDOBJ, VALUE(DBXTDCOL, ' ') FROM QSYS.QADBXTRIGD WHE RE (DBXTDTYPE = 'SEL_COLUMN' OR DBXTDTYPE = 'ACT_COLUMN') SYSTRIGDEP CREATE VIEW SYSTRIGDEP (TRIGGER_SCHEMA FOR "TRIGSCHEMA", TRIGGER_NAM E FOR "TRIGNAME", OBJECT_SCHEMA FOR "BSCHEMA", OBJECT_NAME FOR "BNAM E", OBJECT_TYPE FOR "BTYPE" ) AS SELECT DBXTDDLIB, DBXTDDNAME, DBXTD OBLIB, DBXTDOBJ, DBXTDTYPE FROM QSYS.QADBXTRIGD WHERE DBXTDTYPE <> ' SEL_COLUMN' AND DBXTDTYPE <> 'ACT_COLUMN' SYSTRIGGER CREATE VIEW SYSTRIGGER (TRIGGER_SCHEMA FOR "TRIGSCHEMA", TRIGGER_NAM E FOR "TRIGNAME", EVENT_MANIPULATION FOR "TRIGEVENT", EVENT_OBJECT_S CHEMA FOR "TABSCHEMA", EVENT_OBJECT_TABLE FOR "TABNAME", ACTION_ORDE R FOR "ORDERSEQNO", ACTION_CONDITION FOR "CONDITION", ACTION_STATEME NT FOR "TEXT", ACTION_ORIENTATION FOR "GRANULAR", ACTION_TIMING FOR "TRIGTIME", TRIGGER_MODE FOR "TRIGMODE", ACTION_REFERENCE_OLD_ROW FO R "OLD_ROW", ACTION_REFERENCE_NEW_ROW FOR "NEW_ROW", ACTION_REFERENC E_OLD_TABLE FOR "OLD_TABLE", ACTION_REFERENCE_NEW_TABLE FOR "NEW_TAB LE", SQL_PATH, CREATED FOR "CREATE_DTS", TRIGGER_PROGRAM_NAME FOR "T RIGPGM", TRIGGER_PROGRAM_LIBRARY FOR "TRIGPGMLIB", OPERATIVE, ENABLE D,THREADSAFE FOR "THDSAFE", MULTITHREADED_JOB_ACTION FOR "MLTTHDACN" , ALLOW_REPEATED_CHANGE FOR "ALWREPCHG", TRIGGER_UPDATE_CONDITION FO R "TRGUPDCND", LONG_COMMENT FOR "REMARKS" ) AS SELECT DBXTBDLIB, DBX TBDNAME, CASE DBXTBEVENT WHEN 'I' THEN 'INSERT' WHEN 'U' THEN 'UPDAT E' WHEN 'S' THEN 'READ' WHEN 'D' THEN 'DELETE' ELSE ' ' END , VALUE( DBXTBTLIB, ' '), VALUE(DBXTBTNAME, ' '), VALUE(DBXTBORD,0), DBXTBCON D, DBXTBACT, CASE DBXTBORIEN WHEN 'S' THEN 'STATEMENT' WHEN 'R' THEN 'ROW' ELSE ' ' END , CASE DBXTBTRGTM WHEN 'B' THEN 'BEFORE' WHEN 'A ' THEN 'AFTER' ELSE ' ' END , CASE DBXTBMODE WHEN 'S' THEN 'DB2SQL' WHEN 'R' THEN 'DB2ROW' ELSE ' ' END , DBXTBOLDCO, DBXTBNEWCO, DBXTBO LDTT, DBXTBNEWTT, VARCHAR(STRIP(DBXTBPATH),3483), VALUE(DBXTBCRTTS, CURRENT TIMESTAMP), VALUE(DBXTBPGM, ' '), VALUE(DBXTBPGML,' '), VALU E(DBXTBVALID,' '), VALUE(DBXTBENAB,' '), VALUE(DBXTBTSAFE,' '), VALU E(DBXTBMTJ,' '), VALUE(DBXTBARC, ' '), DBXTBUDCON, VARGRAPHIC(STRIP( DBXTBREM),2000) FROM QSYS.QADBXTRIGB WHERE DBXTBCLAIM = 'A' SYSTRIGUPD CREATE VIEW SYSTRIGUPD (TRIGGER_SCHEMA FOR "TRIGSCHEMA", TRIGGER_NAM E FOR "TRIGNAME", EVENT_OBJECT_SCHEMA FOR "TABSCHEMA", EVENT_OBJECT_ TABLE FOR "TABNAME", TRIGGERED_UPDATE_COLUMNS FOR "TABCOLUMN" ) AS S ELECT DBXTBDLIB, DBXTBDNAME, VALUE(DBXTBTLIB,' '), VALUE(DBXTBTNAME, ' '), DBXTCCOL FROM QSYS.QADBXTRIGB, QSYS.QADBXTRIGC WHERE DBXTBCLAI M = 'A' AND DBXTBEVENT = 'U' AND DBXTCDLIB = DBXTBDLIB AND DBXTCDNAM E = DBXTBDNAME Atte. Ignacio _____________________________________________________ Forum.HELP400 es un servicio m�s de NEWS/400. � Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________ Para darte de baja, env�a el mensaje resultante de pulsar mailto:[EMAIL PROTECTED]
