Re: interactive msg subfile

[Glenn Gundermann <glenn.gundermann@xxxxxxxxx>]

Hi Jay,

The procedure is down a level on the call stack so you have to send the
message one level higher than if the code was in a subroutine.
You can change the stack level to one greater or if I recall, and it's been
a while, there might be some values on the proc that will work regardless
of the stack level.
Hope this helps.


Yours truly,

Glenn Gundermann
Email: glenn.gundermann@xxxxxxxxx
Work: (905) 486-1162 x 239
Cell: (416) 317-3144


On 29 March 2018 at 09:24, Jay Vaughn <jeffersonvaughn@xxxxxxxxx> 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?
> --
> This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: http://amzn.to/2dEadiD