Re: Calling QMHSNDPM instead of API

["Carel Teijgeler" <coteijgeler@xxxxxxxxx>]

Eric,

Actually you are using the API. 

I think "Msgstk" should be set to 2, as the call stack count should be like 
this:

2       MKBCMMR1    MKALIBA     0000000484        (program MAINT)
1     < P_MKBCMME1  MKALIBA                            (PEP of programme EDIT)  
0       MKBCMME1    MKALIBA     0000000465         (program EDIT)

Regards,
Carel Teijgeler

*********** REPLY SEPARATOR  ***********

On 22-7-03 at 12:25 Eric A. Wolf wrote:

>I know this has been discussed before but still cannot get the desired
>results.  I am not using the API but have some programs that are attempting
>to send an error message like this:
>
>CALL      'QMHSNDPM'
>PARM                    Msgid
>PARM                    Msgf
>PARM                    Msgtxt
>PARM      65          Msglen
>PARM      '*DIAG' Msgtyp
>PARM      '*'           Msgq
>PARM      3            Msgstk
>PARM                    Msgkey
>PARM                    Msgerr
>
>Program MAINT (ILE) is calling program EDIT (ILE) with the following call
>stack (just before the message is to be sent.  I can see the message in the
>joblog but not on the error subfile line 24.  When these programs were OPM,
>they worked just fine.  I know I have to change the stack and have tried from 
>1-6 to no avail.
>
>       Program
>Rqs    or
>Lvl    Procedure   Library     Statement        Instruction
>       QUOMAIN     QPDA                            10DB
>  5    QUOCMD      QSYS                            037D
>     < P_MKBCMMR1  MKALIBA
>       MKBCMMR1    MKALIBA     0000000484        (program MAINT)
>     < P_MKBCMME1  MKALIBA
>       MKBCMME1    MKALIBA     0000000465         (program EDIT)
>       QTEVIREF    QSYS                            04D7