Trigger pgm: user & pgm id

[John Carr <74711.77@xxxxxxxxxxxxxx>]

>SNDPGMMSG    MSG('TEST')  TOPGMQ(*PRV  &CALLED)  MSGTYPE(*RQS)
KEYVAR(&M1KEY)
>RCVMSG              PGMQ(*PRV &PGM)  KEYVAR(&M1KEY) SENDER(&M1MDATA)
>CHGVAR              &CALLER           %SST(&M1DATA   56 10)
>ENDPGM


Sorry (typo)  that should have been;  (replace &PGM with &CALLED)

RCVMSG    PGMQ(*PRV &CALLED)  KEYVAR(&M1KEY)    SENDER(&M1MDATA)

John
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MAJORDOMO@midrange.com
|    and specify 'unsubscribe MIDRANGE-L' in the body of your message.
| Questions should be directed to the list owner/operator: david@midrange.com
+---