Re: interactive msg subfile

[Paul Therrien <paultherrien@xxxxxxxxxxxxxxxxxx>]

In my programs where I have done the same thing as you are doing, the
PGMNAMQ  is the main program (I set this variable value in the mainline
of the program with the *PROC value of the Program Status Data
Structure.)  And I set the SND_StkCnt = 0. 

So when the sendmessage sub proc runs it is pointing the the call stack
entry of the main program and the relative stack count of the message
queue is 0 (i.e. the message queue of the main program). 

Paul  

On 2018-03-29 09:24, Jay Vaughn wrote:

> So I don't like these, but thats a different story.
>
> I am required to put them in my interactive pgm.
>
> Other developers write the following call to the SendMessage in their
> interactive pgm using a subroutine.
> I like procedures, so I put mine in a procedure.  This is the ONLY thing i
> can see different between theirs and mine, but mine will NOT display the
> message in the msg subfile at the bottom of the screen.  If you view the
> joblog, you see it there.
> The snd_stkCnt is being set to 0, and I suspect this is what is tripping me
> up.  Due to the fact that it is in a procedure ("mini pgm") instead of a
> subroutine, the stack count is wrong.  I tried setting to 1 with no luck.
>
> Can anyone shed some light on this?
>
> D SendMessage     PR                  ExtPgm('QMHSNDPM')
> D   Snd_MsgId                    7A
> D   Snd_MsgFil                  20A
> D   Snd_Data                    80A
> D   Snd_DtaLen                   8B 0
> D   Snd_Type                    10A
> D   PGMNAMQ                     10A
> D   Snd_StkCnt                   8B 0
> D   Snd_MsgKey                   4A
> D   Error_Code                 116A
>
> and yes, the Program Name Que in the DSPF for the msgsfl is being set to
> the program name of my interactive pgm... does this need to be taken one
> step further and name the procedure name instead?
> how would i do that?