Re: Move an entire record format as a whole

["R. Bruce Hoffman, Jr." <rbruceh@xxxxxxx>]

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