Re: who called me?

["Steve Landess" <sjl_123@xxxxxxxxxxx>]

          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

----- Original Message -----
From: "Rick Rayburn" <>
To: <midrange-l@xxxxxxxxxxxx>
Sent: Thursday, January 08, 2004 9:54 AM
Subject: who called me?


> i know it can be done, i just forgot.
>
> in a cl program, what are the statements needed to determine the name of
the
> program that just called me.
>
> Thanks much people.
>
> Happy New Year,
>
> Rick Rayburn
> nyc
>
> _________________________________________________________________
> Make your home warm and cozy this winter with tips from MSN House & Home.
> http://special.msn.com/home/warmhome.armx
>
> _______________________________________________
> 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.
>
>