× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Hello Alan

Your service program sounds very interesting. Please send it to me, thank you very much.

Best regards

Jan

Am 14.10.2014 um 17:56 schrieb Alan Campin:
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.




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.