Re: %KDS Compile Problem

[Tony Carolla <carolla@xxxxxxxxx>]

Well, those are good points. And since the lack of support filenames with 
the same format names is an RPG rule, RPG probably should be used to work 
around it's own weaknesses. As far as using the same name for files as 
formats, those are good points. Everybody seems to have their own style of 
naming the file/format. But let's not forget the situation it might correct:

IBM: You can use either filename or format name on operations such as READ, 
CHAIN, READE, SETLL, etc...

de Facto: You ought to know that STRANGE errors, with no explanation will 
occur if you use filenames on these operations -- we don't know when, we 
don't know why, we don't know where, and when they happen, They won't happen 
to some people ever. The only known solution is to use the format name 
instead of the filename (a non-solution, really). Perhaps it is as random as 
an 18-sided dice, perhaps not. Good luck using filenames on READ, CHAIN, 
READE, SETLL, etc! 

I was just offering up a potential solution to the standing variance between 
the documentation, and the real world. 

On 4/21/05, rob@xxxxxxxxx <rob@xxxxxxxxx> wrote:
> 
> Why should the SQLDDL have to rename the file when the rpg programmer
> could simply rename the record format? There's no automatic rename
> function on a CREATE TABLE, nor is there anything else that you could bury
> in a RUNSQLSTM like
> CREATE TABLE ... ;
> RENAME TABLE ...;
> Forcing it done with SQL requires manual intervention or a program instead
> of a nice RUNSQLSTM source member.
> 
> If the idea is to standardize on record format names - good grief. I've
> seen some strange packaged software record format names. Like the record
> format name for the RCM file is IPR100CM. That, after years of abuse with
> the software, eventually means something to you.
> 
> Rob Berendt
> --
> Group Dekko Services, LLC
> Dept 01.073
> PO Box 2000
> Dock 108
> 6928N 400E
> Kendallville, IN 46755
> http://www.dekko.com
> 
> Tony Carolla <carolla@xxxxxxxxx>
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 04/21/2005 02:34 PM
> Please respond to
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> 
> To
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> cc
> 
> Subject
> Re: %KDS Compile Problem
> 
> I still have the issue on our system, and we are at V5R3, and just put a
> current cumulative PTF on. I haven't tried it since, but I suspect it is
> still a problem. I have seen other problems with using the filename on
> READs, WRITEs, CHAINS, etc. I had a service program that would blow up
> only
> when called as an SQL function, AND, only in one library of files. The
> files
> in question all had the same level identifier. Using the format name fixed
> 
> this.
> 
> My wish, after seeing repeated problems with this issue, is one that would
> 
> solve it all, in my opinion... If you could have the file name and the
> format name the same, without having the compiler bark. This would fix
> having to rename the format on an SQL table that some dunderhead created
> without renaming the file afterwards also.
> 
> Just my opinioin.
> 
> On 4/21/05, Michael Jacobsen <MJacobsen@xxxxxxxxxxxxxxxx> wrote:
> >
> > Tony,
> >
> > Thanks for pointing that out! I changed the file name to the record
> > format name on the SETLL in my test program, and it compiled fine! I'm
> > still confused though (and it will bug me until I find the answer), why
> > will the Filename work on one system, but not another? Do you know if a
> > specific PTF addresses this issue?
> >
> > Unfortunately, even though your work-around fixed the problem, I would
> > rather not modify the code if I don't have to (for maintenance reasons).
> >
> > Thanks for the help!
> >
> > Mike
> >
> >
> > > I had the exact problem on my system, and I have had several experts
> on
> > this
> > > board review my code (the first time it was a simple DS definition
> > error). I
> > > stopped using %KDS, and use ad-hoc keylists exclusively, which ought
> to
> > be
> > > the technique everybody uses, along with using DSs to READ to and
> WRITE
> > from
> > > -- but I oughtn't preach ;-)
> > >
> > > The workaround is to always CHAIN, READE, SETLL, etc using the RECORD
> > FORMAT
> > > NAME, instead of the file name. Don't ask me why, but when you use the
> > file
> > > name, strange things go bump in the night at times.
> > --
> > 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..."
> "In Hebrew SQL, how do you use right() and left()?..." - Random Thought
> --
> 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..."
"In Hebrew SQL, how do you use right() and left()?..." - Random Thought