RE: %KDS Compile Problem

[Michael Jacobsen <MJacobsen@xxxxxxxxxxxxxxxx>]

I went ahead and wrote a very simplified example when I receive this 
error.  Here is the full code of the RPG:

FTestFile  IF   E           K Disk 
 
D TestDS        E DS                  ExtName(TestFile:*Key) 
 
 /Free 
 
  SetLL  %KDS(TestDS:3)  TestFile; 
 
  *InLR = *On; 
 
 /End-Free 


Here is TestFile:

A          R TESTREC 
A            FIELDA         5S 2 
A            FIELDB        10A 
A            FIELDC        10A 
A 
A          K FIELDA 
A          K FIELDB 
A          K FIELDC 


The above will compile fine on one system, but not the other (I even 
compiled it on both to be sure of this).  The error I receive is the same 
as I stated earlier.  The file I am using was just created and there are 
no other copies on the system.

*RNF7071 30     Number of KFLDs in KLIST is greater than number of key 
fields in file




rpg400-l-bounces@xxxxxxxxxxxx wrote on 04/21/2005 10:53:01 AM:

> Can you attach the full compilation listing - that should enable us to 
> nail it... it's got to be something stupid (it always is....) 
> 
> 
> Mike