MIDRANGE dot COM Mailing List Archive



Home » RPG400-L » June 2003

RE: move record format to a data structure



fixed

I'm not able to do so because the screen field names and file field names are 
the same in this program.  The program already has a DS declared with the file 
record format name.

-----Original Message-----
From: David Dunfield [mailto:ddunfie@xxxxxxxxxxxx]
Sent: Tuesday, June 03, 2003 2:44 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: move record format to a data structure


By just defining the DS, you should be populating the fields without a 
move.

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

Dave Dunfield
Midwest Integrated Systems Resources
AS/400  and LANSA Expert
PO Box 1481
Portage, MI 49081
 
Phone-269-373-3049 Cell 269-501-5685

_______________________________________________
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.







Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2014 by MIDRANGE dot 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 here. If you have questions about this, please contact