filcompermet de retourner le commentaire défini dans l'en-tête d'un Objet défini dans une application Adonix.
Syntaxe
filcom(répertoire, nomfic, extens[,appli [,vol [,mach]]] )
Paramètres
Elément | Description | Restrictions |
répertoire | Expression de type Char donnant le nom du sous-répertoire dans l'application contenant le fichier. | Aucune. |
nom_fic | Expression de type Char donnant le nomdu fichier. | Aucune. |
extens | Expression de type Char donnant l'extension du fichier. | 12 caractères maximum. |
appli | - Expression numérique désignant une application de référence ou - Expression alphanumérique désignant une application | -1 <= appli <= 8
12 caractères maximum. |
vol | Expression alphanumérique donnant le nom du volume | Une lettre ou le chiffre 0. |
mach | Expression alphanumérique donnant le nom de la machine ciblée | Aucune. |
Exemples
# Si la table CLIENT existe dans l'application courante ou dans une de
# ses applications de référence, on affiche le commentaire de cette table
If filinfo(filpath("FIL", "BPCUSTOMER", "srf", -1)) >= 0
Infboxfilcom("FIL", "CLIENT", "srf", -1)
Endif
Description et commentaires
La fonction filcom permet de retourner le commentaire défini dans l'en-tête du fichier dont le chemin est bâti avec les différents paramètres passés en argument. Si aucun commentaire n'a été défini, elle retourne la chaîne vide. Le fichier doit exister.
Les règles de construction du chemin du fichier sont les mêmes que pour la fonction Filpath à savoir :
- les trois derniers paramètres sont optionnels, les autres pouvant être des chaînes vides, les paramètres trop longs seront tronqués,
- sous Windows 95 et Windows NT, on peut utiliser le caractère '/' à la place de '\' dans répertoire et nom_fic.
- si répertoire commence par un '!', alors Adonix ignore le paramètre appli,
- si répertoire est '.', alors Adonix bâtit un chemin relatif commençant par "./" et ignore les paramètres appli et vol.
- si nomfic commence par un '/', alors Adonix bâtit un chemin absolu et ignore les paramètres répertoire, appli et vol,
- si nomfic contient un '.' (ie est de la forme "A.B"), alors Adonix considère que la première partie ("A") est l'application et que la deuxième ("B") est un fichier de cette application. Adonix ne tient alors pas compte du paramètre appli.
- si appli a une valeur positive, Adonix considère que le fichier est dans l'application de référence de numéro 'appli'.
- si le nom de l'application (ou son numéro) n'est pas précisé, tout se passe comme s'il valait -1,
- si appli vaut -1, le fichier est d'abord cherché dans l'application courante. S'il n'y est pas trouvé, il est cherché dans les applications de référence, dans l'ordre où elles ont été déclarées. Enfin, s'il n'est toujours pas trouvé, tout se passe comme s'il existait dans l'application courante,
- si appli vaut 0, Adonix considère que le fichier est dans l'application courante,
- si le volume n'est pas précisé, Adonix considère qu'il s'agit de celui où est implanté l'application désigné par appli.
- si mach est donné , alors c'est la machine précisée qui est prise en compte.
- si mach vaut "", alors c'est la machine où est installé l'application (le serveur) qui est prise en compte.
- si mach vaut "#",alors c'est la machine locale (le client) qui est prise en compte.
Le résultat de la fonction filcom est de type Char.
Remarque
Il est nécessaire de tester l'existence de ce fichier (par la fonction filinfo par exemple) avant d'appeler filcom, car en cas de non existence, Adonix retourne un message d'erreur.
Dans Adonix X3, les fichiers suivants ont des commentaires :
- Table du répertoire FIL d'extension srf et fde
- Menu du répertoire MFRA d'extension src et adx
- Traitement du répertoire TRT d'extension src et adx
- Masque du répertoire EFRA d'extension srm et msk
Erreurs associées
Erreur | Description |
INCFIC(19) | Typede fichier incorrect. |
ERMODE(10) | L'undes arguments n'a pas le type voulu. |
PAFIC(20) | Fichierinexistant. |
Mots-clés associés
FILINFO - FILPATH - NOMAP - ADXMOTHER - ADXMAC
SOMMAIRE
Adonix X3(r) L4G Copyright (c) Adonix 1999 - All rights reserved |