× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Thank you very much for that prospective. I was using the prefix on the D
spec for the DS so that I was getting unique names for the sub-elements of
the DS. I will try your approach on Tueday next.

Have a wonderful New Year,

Jack Derham
Direct Systems, Inc.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of cozzi@xxxxxxxxx
Sent: Saturday, December 31, 2005 8:12 PM
To: RPG programming on the AS400 / iSeries
Subject: 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.


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.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 on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.