RE: How to end RPG program abnormally?

["DeLong, Eric" <EDeLong@xxxxxxxxxxxxxxx>]

Buck, shot in the dark, but does an escape message float up through the
toolbox?

Eric DeLong
Sally Beauty Company
MIS-Project Manager (BSG)
940-898-7863 or ext. 1863



-----Original Message-----
From: Buck Calabro [mailto:Buck.Calabro@commsoft.net]
Sent: Wednesday, January 29, 2003 1:07 PM
To: RPG programming on the AS400 / iSeries
Subject: How to end RPG program abnormally?


I want to terminate an RPG program abnormally.  

Specifically, I'm integrating some RPG back end stuff with Java.  Java will
use the toolbox program call class to call the RPG program.  If anything
untoward happens on the RPG end (stuff like file locked for backup) our Java
person wants her call to fail.  She does not want to have to inspect a
return code, partially because the direct call class only allows 35
parameters, and she doesn't want to use one up for very rare circumstances.

So we have our files set to USROPN and trap the I/O error just fine.  Now we
want to terminate the RPG program so we don't see any white messages, but we
also want to set the 'return code' to abnormal.

The Error handling chapter of the RPG Reference wasn't much help.  The CL
manual has an elliptical reference to reading the return code (RTVJOBA) but
I couldn't find a way to set it except by setting one of the halt
indicators.  I did discover that EXSR *PSSR works when the *PSSR has ENDSR
*CANCL.

Any other ideas?
  --buck
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo.cgi/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.