Re: Trigger

Ann,
Thanks for the help. I guess I am not real familar with the sndpgmmsg
command.
>            SNDPGMMSG MSG(' ') TOPGMQ(*PRV (QDBPUT)) MSGTYPE(*INFO)
>            RCVMSG PGMQ(*PRV (QDBPUT)) MSGTYPE(*LAST) RMV(*YES) +
>                   SENDER(&SENDER)
I am not sure what it is looking for where you have QDBPUT... can you
explain please...
On file GELMAS my trigger pgm is GL001C & it runs GL001R.
thanks
Pete


----- Original Message -----
From: Ann Neal <aneal@xxxxxxxxxxxxxxxxxx>
To: MAPICS ERP System Discussion <mapics-l@xxxxxxxxxxxx>
Sent: Friday, May 09, 2003 12:03 PM
Subject: RE: Trigger


> Pete,
>
> Call this pgm with two parms (&PGM is *BLANKS) from your trigger pgm...
> modify the pgm below to fit your needs.  This pgm populates the &PGM
> variable.
>
> PGM PARM(&TRGEVENT &PGM)
>
> DCL &TRGEVENT *CHAR LEN(8)
> DCL &PGM      *CHAR LEN(10)
> DCL &SENDER   *CHAR LEN(80)
> DCL &MSGID    *CHAR LEN(7)
> DCL &MSGDTA   *CHAR LEN(80)
>
> MONMSG MSGID(CPF0000) +
>        EXEC(GOTO ERROR)
>
> IF COND(&TRGEVENT = '*INSERT') +
>    THEN(DO)
>            SNDPGMMSG MSG(' ') TOPGMQ(*PRV (QDBPUT)) MSGTYPE(*INFO)
>            RCVMSG PGMQ(*PRV (QDBPUT)) MSGTYPE(*LAST) RMV(*YES) +
>                   SENDER(&SENDER)
>         ENDDO
>    ELSE DO
>            SNDPGMMSG MSG(' ') TOPGMQ(*PRV (QDBUDR)) MSGTYPE(*INFO)
>            RCVMSG PGMQ(*PRV (QDBUDR)) MSGTYPE(*LAST) RMV(*YES) +
>                   SENDER(&SENDER)
>         ENDDO
>
> CHGVAR VAR(&PGM) VALUE(%SST(&SENDER 56 10))
> GOTO ENDPGM
>
> ERROR:
>
> RCVMSG MSGTYPE(*EXCP) MSGDTA(&MSGDTA) MSGID(&MSGID)
> SNDPGMMSG MSGID(&MSGID) MSGF(QCPFMSG) MSGDTA(&MSGDTA) +
>           MSGTYPE(*ESCAPE)
>
> ENDPGM:
>
> ENDPGM
> -----Original Message-----
> From: mapics-l-bounces@xxxxxxxxxxxx
> [mailto:mapics-l-bounces@xxxxxxxxxxxx]On Behalf Of Pete
> Sent: Friday, May 09, 2003 9:38 AM
> To: MAPICS ERP System Discussion
> Subject: Trigger
> List,
>     I am putting a trigger on a file When the file is read. What I want to
> do is capture the original calling program, or procedure (Mapics pgm, cl,
> dfu, qry, user program). Not the Trigger pgm.   I have a program status
data
> structure in my trigger pgm, but that gives me the trigger pgm.. Is there
a
> way to do this.?
> Any thoughts?
> TIA
> Pete Olshavsky
>
> _______________________________________________
> This is the MAPICS ERP System Discussion (MAPICS-L) mailing list
> To post a message email: MAPICS-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo.cgi/mapics-l
> or email: MAPICS-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/mapics-l.
>
>