RE: move record format to a data structure

Lim,

The DS of the DSPF and the DS of the PF must have an identical lay out to do an 
 error free copy. The best advise has already been given: use the PREFIX on one 
DS (QUALIFIED may not work properly here).

And is there not a possibility to READ a record into a DS with V5R2? 

Regards,
Carel Teijgeler.

*********** REPLY SEPARATOR  ***********

On 4-6-03 at 9:16 Lim Hock-Chai wrote:

>What I need is to save the current screen data to a data structure. 
>
>I'm not able to remove the qualified keyword because the field names of
>the input file, in the program, have the same field names on the screen. 
>There is already a DS declared with the file name.
>
>-----Original Message-----
>From: Booth Martin [mailto:Booth@xxxxxxxxxxxx]
>Sent: Wednesday, June 04, 2003 6:32 AM
>To: rpg400-l@xxxxxxxxxxxx
>Subject: Re: move record format to a data structure
>
>
>If I understand what you are trying to do, you can make another Data
>structure (Or even a field) with the name:
> 
>D CurrentValues  E DS   extname(DSPFILE :DSPFILE01) qualified
>D DSPFILE01Bef     S    Like(CurrentValues)
>...
>C Move CurrentValues  DSPFILE01Bef
> 
> 
>---------------------------------------------------------
>Booth Martin   http://www.MartinVT.com
>Booth@xxxxxxxxxxxx
>---------------------------------------------------------
> 
>-------Original Message-------
> 
>From: RPG programming on the AS400 / iSeries
>Date: Tuesday, June 03, 2003 2:36:56 PM
>To: RPG programming on the AS400 / iSeries
>Subject: move record format to a data structure
> 
>correction:
> 
>is there anyway to move a record format to a data structure without declare
>a DS with the record format name? For example: display file name DSPFILE
>has
>a record format of DSPFILE01. I want to be able to do the following:
> 
>FDSPFILE CF E WORKSTN 
> 
>D DSPFILE01Bef E DS extname(DSPFILE :DSPFILE01) qualified
> 
> 
>C move DSPFILE01 DSPFILE01Bef
>C . . . 
> 
> 
>I get the following compile error:
>*RNF7260 30 12159 951623 The Factor 2 operand DSPFILE01 is not valid for
>the
>specified operation. 
>. 
>
>_______________________________________________
>This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
>To post a message email: RPG400-L@xxxxxxxxxxxx
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
>or email: RPG400-L-request@xxxxxxxxxxxx
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/rpg400-l.
>
>
>_______________________________________________
>This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
>To post a message email: RPG400-L@xxxxxxxxxxxx
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
>or email: RPG400-L-request@xxxxxxxxxxxx
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/rpg400-l.