RE: %kds flexible number of keys

["Simonse, Arco \(CMK\)" <ArcoSimonse@xxxxxxxxxxxxxxxxx>]

Yes, that's how I code now, but with much keyfields it would be so much
easier to do it in a variabele. 

Thanks anyway, 

Arco Simonse

> -----Oorspronkelijk bericht-----
> Van: rpg400-l-bounces@xxxxxxxxxxxx 
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Namens Richard ECUYER
> Verzonden: vrijdag 27 mei 2005 16:56
> Aan: RPG programming on the AS400 / iSeries
> Onderwerp: Re: %kds flexible number of keys
> 
> i run into the same limitation and use :
> 
> when numberofkeys = 1 ;
> setll %kds(KeyGroup_ds: 1) ttvlcdl01;
> 
> when numberofkeys = 2 ;
> setll %kds(KeyGroup_ds: 2) ttvlcdl01;
> 
> .....
> 
> ----- Original Message -----
> From: "Simonse, Arco (CMK)" <ArcoSimonse@xxxxxxxxxxxxxxxxx>
> To: "RPG400-List Midrange.com" <rpg400-l@xxxxxxxxxxxx>
> Sent: Friday, May 27, 2005 4:44 PM
> Subject: %kds flexible number of keys
> 
> 
> Hello,
> 
> I'm using %KDS to read records based on the contents of a 
> datastructure.
> I would like to be flexible in the choice of the number of keys to use
> for the read. How many keys the function has to use, depends on
> calculations in other procedures.
> So I thought to use a variable as second argument for the %KDS BIF.
> 
> But when I code like this:  setll %kds(KeyGroup_ds: KeyNum) ttvlcdl01
> 
> I become:
> 
> Message ID . . . . . . :   RNF7705       Severity . . . . . . . :   30
> 
> Message type . . . . . :   Diagnostic
> 
> 
> 
> Message . . . . :   The second parameter for %KDS is not valid.
> 
> Cause . . . . . :   The second parameter for %KDS must be a numeric
> value with
>   zero decimal positions known at compile-time.
> 
> That sounds clear: The compiler wants to know the number at
> compile-time.
> 
> Question: Does someone know if there is a trick or workaround to work
> with a flexible number of keys?
> 
> Thanks,
> Arco Simonse
> pgmr
> 
> DISCLAIMER:
> This message contains information that may be privileged or
> confidential and is the property of C.Meijer B.V. It is 
> intended only for
> the person to whom it is addressed. If you are not the 
> intended recipient,
> you are not authorized to read, print, retain, 
> copy,disseminate, distribute,
> or use this message or any part thereof. If you
> receive this message in error, please notify the sender 
> immediately and
> delete all copies of this message.
> 
> This footnote also confirms that this email message has been 
> swept by the
> presence of computer viruses
> 
> -- 
> 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.
> 
> 
DISCLAIMER:
This message contains information that may be privileged or
confidential and is the property of C.Meijer B.V. It is intended only for the 
person to whom it is addressed. If you are not the intended recipient, you are 
not authorized to read, print, retain, copy,disseminate, distribute, or use 
this message or any part thereof. If you
receive this message in error, please notify the sender immediately and delete 
all copies of this message. 

This footnote also confirms that this email message has been swept by the 
presence of computer viruses