ADXTCT |
adxtctpermet de connaître le nom du fichier des compteurs.
Char [S]adxtct(254)
# Extrait d'un fichier APL.ini
[S] adxtct = "ADXCOM"
# On se prépare à mettre à jour les compteurs de l'appli courante
# à partir de l'application de référence ( même valeur pour adxtct )
Local File = [S]adxmother(0)+"."+[S] adxtct [REF]
Local File = [S]nomap+"."+[S] adxtct [COM]
adxtctest une variable système Adonix de type Char, qui fixe le nom de la table utilisée pour les compteurs.
La valeur d'adxtctdoit être un nom_d'OBJet désignant la table. La table sera dans l'applicationcourante.
adxtctest initialisée à "APLCOM" au lancement d'Adonix par le fichierAPL.INI.
En standard, cette table s'appelle APLCOM et son abréviaton est ACM. Sa structureest la suivante :
COMFLD | Alphanumérique50 | 1 | Champde Valeurs |
COMIND | EntierCourt | 1 | Indice |
COMLEN | EntierCourt | 1 | LongueurEventuelle |
COMNOM | Alphanumérique12 | 1 | Nomdu symbole |
COMTYP | EntierCourt | 1 | Typedu compteur |
La seule clé existante est COMCLE, sans homonyme, définie par COMNOM+COMIND.
Le type du compteur est déterminé par la valeur de COMTYP. La correspondanceétant la suivante :
300 -> Libelle
301 -> Shortint
302 -> Integer
303 -> Decimal (la précision est donnée par la zone COMLEN)
304 -> Float (obsolète)
305 -> Double (obsolète)
306 -> Char (la longueur est donnée par la zone COMLEN)
307 -> Date
Quel que soit le type du compteur, sa valeur est stockée dans la zoneCOMFLD, sous forme de chaine de caractères. S'il s'agit d'une date, sa valeursera codée sous forme AAAAMMJJ. Exemple :
[F:COM]COMNOM = DATEFIN
[F:COM]COMTYP = 307
[F:COM]COMFLD = "19951231" : # 31 Décembre 1995
Pour les compteurs de type chaine de caractères, la longueur de cette chainesera contenue dans la zone COMLEN, mais elle ne pourra évidemment pas dépasserla taille de la zone COMFLD (50 en standard).
Pour les compteurs de type Décimal Codé Binaire, COMLEN contiendra le nombred'octets nécessaires au stockage de la donnée (soit 17 pour la précisionstandard de 24.8).
Pas d'erreur associée.
Adonix X3(r) L4G |