DCTRGENVUE - Lansa DB Trigger User Exit Program

[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.

[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                                                   

[dhnaigles]

Thank you, Chad! I shall try this and hopefully it works.