RE: Moving Record Format to Data Structure

Peter, Tony, Jeff

Thank you all for the advice I've gone with the second data structure which
works perfectly.

All the best

Jonathan

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Peter Vidal
Sent: 08 December 2006 19:23
To: RPG programming on the AS400 / iSeries
Subject: Re: Moving Record Format to Data Structure

As far as I know, you can't save a data structure over a record format. 
You must use another data structure, like "SavedRecordH".  When you read the
first record, the data structure "SavedRecordH" will be automatically loaded
with the information you need and then you can move all the field values
nicely to your existing data structure named "SavedRecord", like:


===========================================
FSE2001H1  IF   E           K Disk    Rename(SE1001RH : SE2001H1R)
F                                     Prefix(hst)

D SavedRecord   E Ds                  ExtName(SE2001H1) Prefix(sav)
D SavedRecordH  E Ds                  ExtName(SE2001H1) Prefix(hst)

C                   Eval      SavedRecord = SavedRecordH
===========================================


I do not know clearly what are you trying to accomplish but on this example,
whenever you deal with the data structure, you must use another data
structure.

This is based on my understanding.  Probably somebody can correct me if I am
wrong or clarify the subject even more.

Good luck!


Peter Vidal
PALL Corporation / SR Programmer Analyst, IT Development Group 10540 Ridge
Rd., Ste 203, New Port Richey, FL 34654-5111 http://www.pall.com

"You should pray for a sound mind in a sound body."
Juvenal (55 AD - 127 AD), Satires