RE: Dams

You don't really need to specify the DS in the Result field unless you
sometimes want it to NOT be read into the DS.

If you use PREFIX on the file's F-spec and use say a qualified prefix,
such as PREFIX('F1.')
Then your data structure would be:

D F1         E DS         EXTNAME(filename)

All the fields are automatically in the DS as well as the file input
buffer.

No need for a result field at all.

-Bob Cozzi 
Happy new year!


> -------- Original Message --------
> Subject: Dams
> From: "Jack Derham" <derhamj@xxxxxxxxxxxxx>
> Date: Fri, December 30, 2005 10:40 pm
> To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
> 
> That's what the fish at Lake Lanier said when he hit a concrete wall.
> 
>  
> 
> My "Dam" for the day on V5R2 customer's machine became evident when I
> attempted to use a Chain opcode to fill  DS directly. The DS referenced was
> defined in the D spec with an EXTNAME and it also had a PREFIX defined. The
> option 14 compile resulted in level 20 error that said in essence that the
> DS name could not be used in the result field.  I check the Websphere RPG
> ILE docs and sure enough they said that it could be done but someone must
> have forgot to tell the compiler.
> 
>  
> 
> What have I not done that needs to be done to make this work.  With a need
> to get the project done I could only spend a short time pealing the onion so
> I did what needed to be done the old fashion way - a batch of Evals but I
> want to get this to work correctly. The Cume level was in the 51xx range (am
> 200 miles away at home and don't have my notes.
> 
>  
> 
> Can anyone out there in iSeries land get me started in a positive direction?
> 
>  
> 
> Jack Derham
> 
> Direct Systems, Inc.
> 
> -- 
> 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.