RE: How to Handle LR Indicator Return Situation In Free-Format CALLP

Thanks, Bill. That's what I was thinking of using. But I saw somewhere
else on the web that CALLP doesn't provide for the capability of
detecting when a called program returns with the LR indicator on. So I
was wondering if CALLP updates this status code.

Thanks to all of you for your comments!

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Michael Ryan
Sent: Wednesday, April 15, 2009 11:53 AM
To: RPG programming on the IBM i / System i
Subject: Re: How to Handle LR Indicator Return Situation In Free-Format
CALLP

Looks like %Status has a value of 00001if the called program returned
with
LR on...

From the manual from the PSDS description:

00001 Called program returned with the LR indicator on.

On Wed, Apr 15, 2009 at 11:23 AM, Bill Wragg <bill_wragg@xxxxxxxx>
wrote:

Good point. I do not see any replacement for it when using the callp

op

code. Add a parm to the call to return if the calling program has set

on

LR. That's my first thoughts.
Good Luck
Bill
(All in favour of saving gas, raise your right foot!)




________________________________
From: Sharon Cannon <scannon@xxxxxxxxxxx>
To: RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>
Sent: Wednesday, April 15, 2009 10:45:16 AM
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.