Re: Convert from free to fixed -- RPG400-L

Steve,

Oops. Don't know why, but my brain just jumped over the part of converting
/free to fixed format :-( , so I'm afraid that my answer was not the best...

In my discharge, I find quite unusual to someone to ask that type of
question (and I'm not making any type of judgment here), so I automatically
thought Gary's problems where the other way around (Gary: sorry. My bad).

Regards,

Luis Rodriguez
IBM Certified Systems Expert — eServer i5 iSeries
--

On Mon, Sep 27, 2010 at 5:36 PM, Needles,Stephen J
<SNEEDLES@xxxxxxxxxxxxx>wrote:

Booth,

%LOOKUP is allowed in fixed format. And it is valid as long as XMLFIELD is
an Array.

If XMLFIELD is indeed a string field, then you would be correct in using
the %SCAN.

And Mr. Rodriguez is correct to suggest that %TLOOKUP is used if XMLFIELD
is a table.

I assumed that the code already worked in it's /free syntax. No other
choice as he provides no error messages or D-specs.

steve

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Booth Martin
Sent: Monday, September 27, 2010 4:54 PM
To: RPG programming on the IBM i / System i
Subject: Re: Convert from free to fixed

Is %lookup allowed in fixed format? I believe that %lookup and LOOKUP
are not the same opcode, and can not be used interchangeably.

If I am reading the code correctly, will you need to use %scan instead?

On 9/27/2010 4:26 PM, Gary Kuznitz wrote:

Ok, I know everyone is going to cringe on this one.

I'm having trouble converting from RPGLE free to fixed format with this

statement:

/free
fnd = %lookup(%subst(bighunkdata:gt:len) : xmlfield );
/end-free

Thanks,

Gary Kuznitz

--
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 communication, including attachments, is confidential, may be subject
to legal privileges, and is intended for the sole use of the addressee. Any
use, duplication, disclosure or dissemination of this communication, other
than by the addressee, is prohibited. If you have received this
communication in error, please notify the sender immediately and delete or
destroy this communication and all copies.

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