RE: Treat file fields as an array

Scott, my reading of the question is that the OP wants a way to define
the addresses in such a way that he can process them as an array without
doing those 6 evals, and off the top of my head, I don't think he can.

Trevor Briggs
Analyst/Programmer
Lincare, Inc.
(727) 431-1246
TBriggs2@xxxxxxxxxxx

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Scott Klement
Sent: Monday, March 03, 2014 12:33 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: Treat file fields as an array

Hi Charles,

I'm not sure that I understand what you're asking. You have two
addresses and you want to load them into an array, so you want to do
this?

Cust(1).Customer = BTCustomer;
Cust(1).Name = BTName;
Cust(1).Address1 = BTAddress1;

Cust(2).Customer = STCustomer;
Cust(2).Name = STName;
Cust(2).Address1 = STAddress1;

I'm pretty sure you could type those 6 lines above without asking the
question, which makes me think I'm not understanding... Are you looking

to load all records in the file into the array, and have separate arrays

for bill-to and ship-to? Or... ? I guess I'm just not sure what you're

looking for.


On 3/3/2014 11:08 AM, Charles Wilt wrote:

I've got a file with "bill to" and "ship to" information in addition

to

other fields.

So for instance
A OTHERFLD1 10A
A OTHERFLD1 10A
A BTCUSTOMER 6S 0 COLHDG('Bill To'

'Customer')

A BTNAME 30A COLHDG('Bill to' 'Name')
A BTADDRESS1 30A COLHDG('Bill to' 'Address

1')

A STCUSTOMER 6S 0 COLHDG('Ship To'

'Customer')

A STNAME 30A COLHDG('Ship to' 'Name')
A STADDRESS1 30A COLHDG('Ship to' 'Address

1')

I'd really like to get the Bill to/ship to fields into an array so I

can

easily load them without repeating the evals.

something like:
Cust(1) = GetCustinfo(wBtCustomer);
Cust(2) = GetCustInfo(wStCustomer);
//eval-corr here perhaps?

I think I remeber a way to do it, but my memory is a little rusty and

I

might be missing an easier way enable by recent enhancements.

So I thought I'd throw this out to the group. I'm running 7.1 w/TR 7.

Thanks!
Charles