RE: Calling PGM

Steve Landess responded to just such a request yesterday....

          SNDPGMMSG  MSG('X') TOPGMQ(*PRV &SENDER) MSGTYPE(*RQS) +
                       KEYVAR(&MRK)

          RCVMSG     PGMQ(*PRV &SENDER) MSGKEY(&MRK) RMV(*YES) +
                       SENDER(&SENDER1)

          CHGVAR     VAR(&CALLER) VALUE(%SST(&SENDER1 56 10))

Steve

Pete Helgren
Timpanogos Technologies, Inc


> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx
> [mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of Kern, Mary T
> Sent: Friday, January 09, 2004 9:02 AM
> To: Midrange-L (Midrange-L)
> Subject: Calling PGM
>
>
>  Is there a way to get the name of the calling program in CL?
>
> ¤»¥«¤»§«¤»¥«¤»§«¤»¥«¤»§«¤»¥«¤»§«¤»¥«¤»§«¤»¥«
> Mary Kern
> Director of Information Services
> University of Toledo Foundation
> 2801 W Bancroft St Mail Stop 319
> Toledo, OH 43606
> Voice: (419) 530-7730 (800) 640-0147
> Fax: 419-530-2895
> Email: Mary.kern4@xxxxxxxxxxx
> Progress isn't made by early risers. It's made by lazy men
> trying to find easier ways to do something.
>       Robert Heinlein (1907 - 1988), Time Enough For Love
> ¤»¥«¤»§«¤»¥«¤»§«¤»¥«¤»§«¤»¥«¤»§«¤»¥«¤»§«¤»¥«
>
> _______________________________________________
> This is the Midrange Systems Technical Discussion (MIDRANGE-L)
> mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>