Setup a parm to return back with the status of the LR indicator.
Thanks,
Jay Jernigan
Alamance Regional Medical Center
Financial Analyst
jjernigan@xxxxxxxx
336-538-8299
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Sharon Cannon
Sent: Wednesday, April 15, 2009 10:45 AM
To: RPG programming on the IBM i / System i
Subject: RE: How to Handle LR Indicator Return Situation In Free-Format CALLP
Thank you, Bill, but this would be the EQ indicator on a fixed-format CALL, NOT the LO indicator.
The LO indicator checks for an error; I know how to handle it with the E operation extender and %error.
The EQ indicator checks if the called program is an RPG program or main procedure that returns with the LR indicator on. That's the one I'm trying to figure out how to replace in /free.
Thanks!
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Bill Wragg
Sent: Wednesday, April 15, 2009 10:27 AM
To: RPG programming on the IBM i / System i
Subject: Re: How to Handle LR Indicator Return Situation In Free-Format CALLP
It would be:
// callp(e) checks for an error on calling the program. Same as using the Low Indicator in fixed format
callp(e) YourCalledProgram
If %Error;
*Inlr = *On;
Return;
Endif;
Good Luck
Bill
(All in favour of saving gas, raise your right foot!)
________________________________
From: Sharon Cannon <scannon@xxxxxxxxxxx>
To: rpg400-l@xxxxxxxxxxxx
Sent: Wednesday, April 15, 2009 9:55:45 AM
Subject: How to Handle LR Indicator Return Situation In Free-Format CALLP
I'm trying to convert a fixed-format RPG program to ILE free-format.
Unfortunately, it has a CALL with an indicator in positions 75 and 76 to
check if the program returned with the LR indicator on. I want to
convert that CALL to a free-format CALLP, but I'm not sure how to handle
that LR indicator situation.
Is there some way to use the program status data structure and check for
a status of 00001?
It just irks me no end to have to leave that one section of the program
in fixed format with a /end-free and a /free. Thanks in advance for any
help you can give.
--
This is the RPG programming on the IBM i / System i (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.
__________________________________________________________________
Yahoo! Canada Toolbar: Search from anywhere on the web, and bookmark your favourite sites. Download it now
http://ca.toolbar.yahoo.com.
--
This is the RPG programming on the IBM i / System i (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.
--
This is the RPG programming on the IBM i / System i (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.
midrange.com
