• Subject: Re: Move an entire record format as a whole
  • From: "Bob Cozzi" <cozzi@xxxxxxxxx>
  • Date: Wed, 7 Jul 1999 20:43:54 -0500

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


This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].