×
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.
Thank you Barbara!
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of Barbara Morris
Sent: Monday, August 26, 2019 7:08 PM
To: rpg400-l@xxxxxxxxxxxxxxxxxx
Subject: [EXTERNAL] Re: On-Exit not working with Debug first time through
On 2019-08-21 10:53 AM, Mitch Gallman wrote:
Thanks Barbara, That could be the issue.
Unfortunately, we are on 7.2 here.
I've removed the on-exit for now.
Hi Mitch,
7.2 PTF SI70906, which fixes this problem with the ON-EXIT return value, has just been approved. It should be available for download in a couple of days.
There is still no PTF available for 7.3 TGTRLS(V7R2M0).
Sorry, I didn't pay attention before that you said you were removing your ON-EXIT for now. There's a circumvention: Ensure that there is a RETURN operation no matter how the ON-EXIT ends.
For your procedure:
dcl-proc getMyVal;
dcl-pi *n zoned(5);
end-pi;
dcl-s inError ind inz;
dcl-s outVal zoned(5) inz(-1);
return outVal;
on-exit inError;
if inError;
return c_rtnErrVal;
endif;
return outVal; // Add this line
end-proc;
--
Barbara
--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l.
Please contact support@xxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
https://amazon.midrange.com
midrange.com
