Re: QMHSNDPM in serviceprogram

[Alan Campin <alan0307d@xxxxxxxxx>]

I don't know if you would be interested but I have service program that is
a standard error handler. It includes functions to throw an error, store
the message, rethrow and message retrieval. It is included in all my
programs and has been used for 20 years.


I would be happy to send it to you.

        STRPGMEXP  PGMLVL(*CURRENT)
        EXPORT     SYMBOL('XVERRH_Throw')
        EXPORT     SYMBOL('XVERRH_AddMessage')
        EXPORT     SYMBOL('XVERRH_GetMessageCount')
        EXPORT     SYMBOL('XVERRH_GetLastMessage')
        EXPORT     SYMBOL('XVERRH_GetMessage')
        EXPORT     SYMBOL('XVERRH_FreeAllMessages')
        EXPORT     SYMBOL('XVERRH_BuildConditionToken')
        EXPORT     SYMBOL('XVERRH_Rethrow')
        ENDPGMEXP


On Tue, Oct 14, 2014 at 2:56 AM, Jan Grove Vejlstrup <jgv@xxxxxxxx> wrote:

> Hello
>
> I use QMHSNDPM in a serviceprogram to generate an escape-message. The
> subprocedure is:
>
>  P MSG_reportError...
>      P                 B                    EXPORT
>      D                 PI
>      D   p0Msg                      256a   varying const
>      D options(*varsize:*nopass:*omit)
>
>      D my_errno        s             10I 0 based(p_my_errno)
>
>      D MsgKey          S              4A
>      D MsgID           s              7A
>      D MsgDta          s            256a   varying
>
>       /free
>
>          if  %parms>=1 and %addr(p0Msg)<>*null;
>             MsgId = 'CPF9897';
>             MsgDta = p0Msg;
>          else;
>             p_my_errno = sys_errno();
>             MsgID = 'CPE' + %editc( %dec(my_errno:4:0) : 'X' );
>             %len(MsgDta) = 0;
>          endif;
>
>          QMHSNDPM( MsgID
>                  : 'QCPFMSG   *LIBL'
>                  : MsgDta
>                  : %len(MsgDta)
>                  : '*ESCAPE'
>                  : '*'
>                  : 3
>                  : MsgKey
>                  : dsEC
>                 );
>
>       /end-free
>      P MSG_reportError...
>      P                 E
>
> I have a little testprogram that makes an unlink of a file, that doesn't
> exist. This results in error CPE3025. I call MSG-reportError without
> parameter. If this is an interactive job, the testprogram ends and the
> messagetext corresponding to CPE3025 is shown, just that I want.
>
> If I submit the testprogram, this program just stops without any message
> or joblog in QEZJOBLOG. In the systemlog I see only the start and the end
> of the testprogram. I want the submitted job to get in MSGW with a message,
> that something went wrong.
>
> How can I change my subprocedure so that both goals are achieved?
>
> Thank you very much in advance.
>
> Best regards
>
> Jan
>
> --
> 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: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.