Re: Reading/Chaining into a DS, and RNF0202

Okay, now I wasn't able to get code like this to work, but I have a
question... on your WRITE op, why do you prefix the file format name
with the @ sign?


On Thu, 30 Sep 2004 11:46:15 -0400, Dan Bale <dbale@xxxxxxxxxxxxx> wrote:
> Ok, in *that* case, I would probably do something like:
> 
>   fCusMast111if   e             disk    Prefix( a )
>   fCusMast222o    e             disk    Prefix( b )
>   d dsRec111      e ds                  ExtName( CusMast111 ) Prefix( a )
>   d dsRec222      e ds                  ExtName( CusMast222 ) Prefix( b )
>   c                   read      CusMast111
>   c                   Eval      dsRec222 = dsRec111
>   c                   Write     @CusMast2
> 
> Note that I haven't followed this thread extensively, so I don't know if
> this was already discussed; it looked from the subject like there was a
> problem with trying to read or chain and place the record into a DS.  There
> may be other ways to skin this cat.
> 
> hth,
> db
> 
> 
> 
> > -----Original Message-----
> > From: rpg400-l-bounces@xxxxxxxxxxxx / Tony Carolla
> > Sent: Thursday, September 30, 2004 11:13 AM
> >
> > Sure, the prefixing is simpler, by far.  But if by chance you need to
> > update the contents of a record from one file with the contents of the
> > record from the other file, a single EVAL will  work, while with
> > prefixing, one eval per field is necessary.
> 
> --
> 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.
> 
> 



-- 
"Enter any 11-digit prime number to continue..."