...
Code Block | ||||
---|---|---|---|---|
| ||||
USING Progress.Lang.*. BLOCK-LEVEL ON ERROR UNDO, THROW. CLASS CustomDatabaseTriggerLoadService INHERITS Akioma.Swat.Server.Startup.DatabaseTriggerLoadService: //inherits the existing SWAT implementation METHOD PUBLIC OVERRIDE VOID LoadTriggers(): SUPER:LoadTriggers(). //calls super in case triggers are loaded from SWAT RUN myCustomTriggerloadCustomTriggers.p. // procedure to include custom triggers END METHOD. END CLASS. |
...