Re: Moving Record Format to Data Structure (

[SirZetar@xxxxxxx]

In a message dated 97-05-21 22:35:40 EDT, you write:

> I need to move a data structure into a record format ... I want to do   
>  this without hardcoding any record lengths or start & end positions.
>  
>  Originally I thought I could do a simple move from the data structure to
  
>  the record format name... but ILE RPG won't allow this.
>  
>  C                   move      NwRecord      USR20
>  

Try bringing in the record format as another data structure.  Then you can
move DS to DS.

Example (assuming NwRecord is the DS and USR20 your record):

D USR20DS     E DS            ExtName(USR20filename)

then you can:

C                   move      NwRecord      USR20DS

(excuse if the columns aren't exact, but you should get the idea.)

It ends up working like a CPYF with FMTOPT(*NOCHK).

I know that if both DS's are the same origin (same external copy name), then
you can:

C           Eval     USR20DS = NwRecord

whether that compiles/works for DS's of non-equal origin/lengths, I don't
know...   haven't tried it, yet.

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