Re: Question for Key Count on %KDS

["Buddy McClean" <Buddy.McClean@xxxxxxxxxxxx>]

Thank You Scott,

Yes, I am behind on PTF's, Didn't even consider that. Taking those small features for granted I suppose. 

Thanks again.  
> > > Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx> 8/10/2022 2:04 PM >>>
Hi Buddy,

In Spring 2020, IBM updated RPG to allow a variable on KDS, which can be 
enabled via PTFs.  More info here: 
https://www.geeksforgeeks.org/how-to-increase-heap-size-in-java-virtual-machine/


If you do not (or cannot) install that update, or need to compile your 
program for tgtrls(v7r2m0) or older, then you'll need to use a value 
(not just definition) that's known at compile time.

-SK

On 8/10/22 12:19 PM, Buddy McClean wrote:
> Good Day All,
>
> 7.3
>
> I am trying to make the following stmt work. I have never used a 2nd parm with %KDS, so new territory.
>
>   Setll %KDS(KeyWSZ:KeyCnt) WSEQZONE;
>
> When I use the variable KeyCnt for the 2nd parm in %KDS , I get the error below.
>
> When I substitute the literal 2 for KeyCnt, it compiles fine.
> 	 Setll %KDS(KeyWSZ:2) WSEQZONE;
>
> Cause . . . . . : The second parameter for %KDS must be a numeric value with zero decimal positions known at compile-time. In addition,
> the value must not be greater than the number of subfields in the data structure specified as the first parameter for %KDS. The operation is ignored.
>
> not sure if the actual value has to be known at compile time or just the definition. Tried both. I'm guessing since the ibm example
> below did not specify a value, that just the dcl is fine.
>
> this is the DS
>
> 	 DCL-DS KeyWSZ;
> 		   WhseWS Like(WSWhse);
> 		   ZoneWS Like(WSZone);
> 		   RowWS Like(WSRow);
> 	   END-DS;   			   
>
> this is the dcl for KeyCnt.
>
>   DCL-S KeyCnt Int(10:0) inz(2);
>
> This is from the ibm website
>
> D numKeys		  s   		 10i 0 ...		  // The number of keys can be a constant   	  chain %kds(custRecKeys : 2) custRec;   	  // The number of keys can be a variable or an expression   	  numKeys = 1;   	  chain %kds(custRecKeys : numKeys) custRec;   	  chain %kds(custRecKeys : numKeys + 1) custRec;
>
>