currlen
currlen permet de connaître le nombre de parties de clé utilisées.
Exemples
# Exemple 1 : Lecture sur 1er élément de la clé primaire
Local File TABPAYTERM[TPT]
[G:TPT]currind=1
[G:TPT]currlen=1
Read [F:TPT] = "ACPT30";2
Infbox [F:TPT]PTE-num$([F:TPT]PTELIN)#--------------------------------------#
# Exemple 2 : On obtient le même résultat avec :
#
Read [F:TPT]TPT0(1) = "ACPT30";2
Infbox [F:TPT]PTE-num$([F:TPT]PTELIN)
Description
currlen est une variable système de la classe [G] associée à une table déclarée par l'ordre File. Elle contient le nombre de parties de clé à prendre en compte :
- dans la lecture d'enregistrement ( par les instructions Read, Readlock, For)
- dans la vérification d'enregistrement ( par l'instruction Look)
- dans le filtre d'enregistrement (par l'instruction Filter)
currlen est positionnée à 0 par le superviseur ; dans ce cas, toute la clé est utilisée. Cette variable peut prendre les valeurs de 0 à 8.
La lecture d'un enregistrement, avec la précision d'une partie de clé, positionne automatiquement la variable currlen; Attention, toute lecture suivante, sans précision de clé, s'effectuera sur la même partie de clé. Pour lire sur une clé entière, préciser la clé ou bien positionner la variable currlenà la valeur 0. La valeur 0 est la valeur par défaut.
currlen sera pris en compte par défaut dans une instruction (exemple Read) si la clé n'est pas précisée. La variable système currind donnera la clé à utiliser.