Re: interactive msg subfile

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?