AW: Internal failure occurrs on SETLL statement

This is an compiler error and has been fixed with PTFs SI00009 and SI07461.
Pls. order these PTFs from IBM.
Regards,
GEFIS Gesellschaft für
Individual-Software mbH
Werner Noll


-----Ursprüngliche Nachricht-----
Von: Mauricio Della-Quercia [mailto:MDellaQuercia@xxxxxxx]
Gesendet: Freitag, 28. Februar 2003 14:56
An: RPG programming on the AS400 / iSeries
Betreff: Internal failure occurrs on SETLL statement




I'm hoping someone has come across this.

I have started using /free format and I keep getting an Internal Failure -1
error on a SETLL statement when I compile this program. The curious part is
that if I only use 1 key field it
will compile fine, the  problem is when I use both keys on the SETLL.

Here is some of the relevant code.

 fsocrh       if   e           k disk
 fsocrhx1   if   e           k disk    rename(socrhr : socrhx1r)
 fsocrhx2   if   e           k disk    rename(socrhr : socrhx2r)
  *---------------------------------------------------------------
 d Socrhx2Keys     ds                  LikeRec(socrhx2r : *key)
  *---------------------------------------------------------------


setll     %kds(Socrhx2Keys) socrhx2r;     <===== Internal Error on this
statement.


I have also tried the following with the same results (internal error)

 setll     (S18BCusN : s18Quot#) socrhx2r;  <=====Internal Error here as

well.

On the other hand this compiles and runs fine.

setll S18BCusN socrhx2r;                            <===== This will compile
fine.


Socrhx2r is the record format for Logical file Socrhx2. The key fields for
this file are S18BCUSN and S18QUOT# (they are NOT unique).
We are running at V5R2.


Does anybody have any ideas?

TIA
Mauricio Della-Quercia

_______________________________________________
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.