× 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.



If you're sending to '*' set the Relative invocation to 2 instead of 1 and
see if that helps. That's what I do in my sndpgmmsg() procedure... I up the
invocation by one so that it works more like the CL command.

-Bob Cozzi
www.RPGxTools.com
If everything is under control, you are going too slow.
- Mario Andretti


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Rich Duzenbury
Sent: Thursday, March 17, 2005 2:41 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Proper way to die...

On Thu, 2005-03-17 at 14:15 -0600, Bob Cozzi wrote:
> Have you tried this?
> 
> Callp(e)  Die('Crush, kill, destroy...')
> If  %Error()   //  Die procedure ended in error.
> Endif
> 
> (Sorry, you've had to have been a fan of the old Lost in Space show to
> appreciate that one.)
> 
> You're problem is that you need to send the message to the control
boundary
> not *PRV or *SAME as we're used to. Use *CTLBDRY or whatever that value
is,
> in stead of '*' and see if it works. 

Bob, thanks for the suggestion.

I found that using the above code with the stack entry set to '*' and
the count at 0 is a good way to lock up the device.  The call stack for
the job shows that it's calling 'sleep'.  After about a minute, the
sleep times out and finally shows the message 'The call to DIE ended in
error'.

I also tried *CTLBDY and *PGMBDY, they work the same as setting the call
stack entry to the program name, and the call stack count to 1.  That
is, the application doesn't throw an inquiry message, but instead a
CEE9901 INFO message on the message line after the program ends -
'Application error. CPF9898 ummonitored by ZZZ_PH at statement *N,
instruction x'0000'.

--
Regards,
Rich

Current Conditions in Des Moines, IA
Overcast
Temp 57.2F
Winds out of the Northeast at 9mph


-- 
This is the RPG programming on the AS400 / 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.