RE: Reading/Chaining into a DS, and RNF0202

["Tim Kredlo" <TKredlo@xxxxxxxxxxxxxxxx>]

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.