Re: Reading/Chaining into a DS, and RNF0202

[Tony Carolla <carolla@xxxxxxxxx>]

That did it!  Thanks!!!

I found that when I create the DS with LIKEREC(format:*Output), it
worked fine for writing From... But it didn't work from Chaining into.
 What I did was create one DS with *Output, and one for *Input (all of
the records are 'B', by the way).  Then I chain into the *Input one,
and eval it into the *Output one.

Still better than having to code those hundreds of EVALs.. one file to
the other...

Thanks!  


On Thu, 30 Sep 2004 08:51:49 -0700, Tim Kredlo <tkredlo@xxxxxxxxxxxxxxxx> wrote:
> Tony,
> 
> You can write a DS to a record format as follows:
> Write IpXB00R IpXB00O;
> (IpXB00R is the format as defined by the DDS.)
> 
> IpXB00O is a DS declared as:
> D IpXB00O         Ds                  LikeRec(IPXB00R:*OutPut)
> (Note: defined as *Output)
> 
> I believe the manual has some errors in it as far as 'reading into' or
> 'writing from' these data structures are concerned.
> As you discovered, you cannot declare the DS with 'ExtName'  as the manual
> says.
> I believe it also says you can write to a Ds to the file, but I think it has
> to be a format.
> 
> I spent hours (may have been 10s of hours) trying to figure this out.
> Jon Paris had said a year ago he had reported these 'manual' errors to IBM.
> 
> (You and I talked about this at RPG World last spring)
> 
> Tim Kredlo
> Exterior Wood, Inc.
> 
> 
> 
> 
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Tony Carolla
> Sent: Thursday, September 30, 2004 8:28 AM
> To: RPG programming on the AS400 / iSeries
> Subject: Re: Reading/Chaining into a DS, and RNF0202
> 
> Well, it looks like I can read, chain, and update an externally described
> file from a LIKEREC DS just fine.  But apparently WRITEing from a DS isn't
> allowed?
> 
> I get RNF7701 - The data structure is not allowed for the operation, during
> the compile.  I tried by declaring the file for update mode, with addtions
> allowed:
> 
>      FDFamly    UF A E           K Disk    ExtFile('DMART/DFAMLY')
> 
> And also tried by declaring it for output:
> 
>     FDFamlyWrt O    E             Disk    ExtFile('DMART/DFAMLY')
>      F                                     Rename(RFAMLY:RFAMLYW)
> 
> Why would the compiler let you read, chain and update, but not write from a
> DS?  Is this a known, undocumented limitation?
> 
> --
> "Enter any 11-digit prime number to continue..."
> --
> 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.
> 
> 



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