Re: Move an entire record format as a whole

["Bob Cozzi" <cozzi@xxxxxxxxx>]

Well, as Bruce Hoffman said,

If the file is externally described, just declare a data structure as
externally described.
Then, create a second data structure also externally described.

Both data structures are based on the same database file.
On the second data structure (the "save" data structure) use the PREFIX
keyword and automagically rename all the subfields.

Do you database get operation, move DS1 to Sav_ds. Do you process, don't
like results? Move Sav_ds back to DS1.



Bob Cozzi
www.rpgiv.com


----- Original Message -----
From: R. Bruce Hoffman, Jr. <rbruceh@ibm.net>
To: <RPG400-L@midrange.com>
Sent: Wednesday, July 07, 1999 5:15 PM
Subject: Re: Move an entire record format as a whole


> Brian Stapleton wrote:
> >
> > Greetings;
> >
> > Does anyone know if it is possible to move an entire record format to a
> > holding field, or DS so that I can move my file pointer (another chain)
> > but still access the old data?
> >
> > Sware that I have done this before, but I seem to having an Amnesia
> > attach.
> >
>
> Multiple occurence data structure. Externally described by file. Set
> occurence to 1. Read file. Set occurance to 2. Read file. Now just
> switch back and forth.
>
> Couldn't be simpler, except in COBOL.  <BG>
> > ===
> > Brian Stapleton
> > BrianStapleton@yahoo.com
> >
> > _________________________________________________________
> > Do You Yahoo!?
> > Get your free @yahoo.com address at http://mail.yahoo.com
> >
> > * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
> > * This is the RPG/400 Discussion Mailing List!  To submit a new
*
> > * message, send your mail to "RPG400-L@midrange.com".  To unsubscribe
*
> > * from this list send email to MAJORDOMO@midrange.com and specify
*
> > * 'unsubscribe RPG400-L' in the body of your message.  Questions should
*
> > * be directed to the list owner / operator: david@midrange.com
*
> > * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
>
> --
> ===========================================================
> R. Bruce Hoffman, Jr.
>  -- IBM Certified AS/400 Professional System Administrator
>  -- IBM Certified AS/400 Professional Network Administrator
>
> "The sum of all human knowledge is a fixed constant.
>     It's the population that keeps growing!"
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> * This is the RPG/400 Discussion Mailing List!  To submit a new         *
> * message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
> * from this list send email to MAJORDOMO@midrange.com and specify       *
> * 'unsubscribe RPG400-L' in the body of your message.  Questions should *
> * be directed to the list owner / operator: david@midrange.com          *
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *