Re: QMHSNDPM in serviceprogram

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.