RE: Sending messages to the previous (caller's) subfile messagequeue

["Bob Cozzi" <cozzi@xxxxxxxxx>]

Barbara, 
This has nothing to do with RPG IV, but this call-stack issue with the PEP
being in the way has probably cause more work/trouble/overtime than just
about anything else they've done. Oh well, sigh...
-Bob


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Barbara Morris
Sent: Wednesday, February 18, 2004 11:47 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Sending messages to the previous (caller's) subfile
messagequeue

ile rpg wrote:
> 
>    This is my so-called proof-of-concept code:
> ...
>    D @clstkentry     s             10    inz('*')
>    D @clstkcounter   s             10i 0 inz(1)
>    D @msgkey         s              4
>    D @apierr         s            256
> 
>    C                   call      'QMHSNDPM'
> ...

If you were called as a ILE program, a stack entry of * and a stack
counter of 1 gets to your program's PEP, not to your caller; try using
2.  (If you were called as a procedure, */1 gets to your caller.)

Here's the invocation stack for an OPM program called from the command
line (QUOCMD):
8    QUOCMD      QSYS             
     PROOF       QTEMP       20   

And for an ILE program:
8    QUOCMD      QSYS                     
   < _PEP_PROOF  QTEMP                    
     PROOF       QTEMP       0000000013

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.