Page 1 of 1
DCTRGENVUE - Lansa DB Trigger User Exit Program
Posted: Tue Feb 18, 2020 6:47 am
by dhnaigles
I am trying to use a File Level trigger with a non-LANSA table. I want it to run as a default IBMi Database Trigger. I set everything up according to the documentation, but I don't know how to create the User Exit Program required, DCTRGENVUE, and non-LANSA programs are failing due to this issue. Has anyone done this? How do I create the User Exit Program? Thanks in advance.
Re: DCTRGENVUE - Lansa DB Trigger User Exit Program
Posted: Tue Feb 18, 2020 7:17 am
by lawingo
I created a CL called DCTRGENVUE in the library where all my Production files exist. Here is the CL
Code: Select all
PGM PARM(&PGMLIB &PARTITION &LANGUAGE &DATEFMTSRC)
DCL VAR(&PGMLIB) TYPE(*CHAR) LEN(10)
DCL VAR(&PARTITION) TYPE(*CHAR) LEN(3)
DCL VAR(&LANGUAGE) TYPE(*CHAR) LEN(4)
DCL VAR(&DATEFMTSRC) TYPE(*CHAR) LEN(1)
CHGVAR VAR(&PGMLIB) VALUE(PRDPGMLIB)
CHGVAR VAR(&PARTITION) VALUE(PRD)
CHGVAR VAR(&LANGUAGE) VALUE(ENG)
CHGVAR VAR(&DATEFMTSRC) VALUE(S)
ENDPGM
Re: DCTRGENVUE - Lansa DB Trigger User Exit Program
Posted: Tue Feb 18, 2020 7:32 am
by dhnaigles
Thank you, Chad! I shall try this and hopefully it works.