Re: QMHSNDPM

[Rory Hewitt <rory.hewitt@xxxxxxxxx>]

Sharon,

In all my programs, I define a global constant called 'ThisProgram, which I
use to define the main procedure (i.e. program) interface e.g.:

D ThisProgram     C                   'CRTMIPGMR'

D main            PR                  Extpgm(ThisProgram)
D   P_qPgm                      20A   Const
D   P_qSrcf                     20A   Const
D   P_SrcMbr                    10A   Const
D   P_Text                      50A   Const
D   P_Option                          Const Like(Option)
D   P_qPrtf                     20A   Const
D   P_Aut                       10A   Const

D main            PI
D   P_qPgm                      20A   Const
D   P_qSrcf                     20A   Const
D   P_SrcMbr                    10A   Const
D   P_Text                      50A   Const
D   P_Option                          Const Like(Option)
D   P_qPrtf                     20A   Const
D   P_Aut                       10A   Const

My SndPgmMsg() subprocedure (which is defined ain a copybook and then
brought into the program code that way) pass this value to the
CallStackEntry parameter of QMHSNDPM.

Works like a charm.

Rory

On Wed, May 12, 2010 at 11:26 AM, Wintermute, Sharon <
Sharon.Wintermute@xxxxxxxxxxxxxxxx> wrote:

> I have several shell routines that were subroutine based using Message
> Control subfiles.  I am trying to create a basic shell that is procedure
> based and the main holdup is QMHSNDPM/QMHRMVPM.
>
> I can get a /include version to work at the main level, but once you get
> nested within procedures it doesn't work very well.  It looks like I
> need to interrogate the call stack in order to get back to the initial
> PEP.  Am I headed in the right direction?
>
> TIA,
>
> Sharon Wintermute