/*********************************************************************/ /* Universelles Trigger Programm */ /* */ /* */ /*********************************************************************/ /IF NOT DEFINED (TRIGGER_QRPGLEH) /DEFINE TRIGGER_QRPGLEH /*===================================================================*/ D Trigger PR EXTPGM('TRIGGER') D* BufHeader D 96 D* BufLength D 10I 0 CONST /*********************************************************************/ /* Konstanten Deklarationen */ /*********************************************************************/ D* Werte für TrigEvent D INSERT C CONST('1') D DELETE C CONST('2') D UPDATE C CONST('3') D READ C CONST('4') D* Werte für TrigTime D AFTER C CONST('1') D BEFORE C CONST('2') D* Werte für LockLevel D NO_COMMIT C CONST('0') D R_UNCOMMITED C CONST('1') D R_COMMITED C CONST('2') D REPEATABLE_R C CONST('3') D SERIALIZABLE C CONST('4') /ENDIF