PGM CRTBNDRPG PGM(AF4SRCT/QTETRIG) + SRCFILE(AF4SRCT/EXEMPLEILE) + DFTACTGRP(*NO) ACTGRP(*CALLER) ADDPFTRG FILE(AF4SRCT/CDEDETP1) TRGTIME(*BEFORE) + TRGEVENT(*INSERT) PGM(AF4SRCT/QTETRIG) ENDPGM