Re: Question for Key Count on %KDS

Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx> 8/10/2022 2:07 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;