ADXPNO

adxpnoretourne les noms des traitements empilés.

Syntaxe

  adxpno( < exp_num > )

Paramètres

Exemples

  # Nombre d'OBJets empilés à l'exécution du traitement courant

   Integer NIVEAU

    While adxpno(NIVEAU) <> ""

           NIVEAU += 1

    Wend

  # Le traitement courant est-il dans l'application courante ?

   if adxpno(0) <> filpath("TRT", trtcou, "adx", -1)

       Errbox "Traitement n'appartenant pas à l'application courante"

  Endif

  # Quelle est l'application d'origine du programme appelant ?

  # Son nom se trouve entre les 2 et 3 "/" en partant de la fin

  # de la chaîne renvoyée par adxpno pour l'indice 1.

     Local Libelle J, K, P1, P2, P3

    J = len(adxpno(1))

    While J > 0 & K < 3

      If seg$(adxpno(1), J, J) = "/"

         K += 1

         Assign("P" + num$(K)) With J

      Endif

      J -= 1

    Wend

    Errbox "Application d'origine ="-seg$(adxpno(1), P3+1, P2-1)

Description et commentaires

adxpnoretourne le nom complet (chemin) du traitement exécutable se trouvant sur lapile d'exécution d'Adonix au niveau dont le numéro est donné en argument. Leniveau 0 étant le niveau courant, le niveau 1 est celui du programme appelantetc.

Aucune erreur n'est retournée lorsqu'un argument numérique ne correspond àaucun niveau actif, la fonction retournant la chaîne vide.

Le résultat de la fonction est de type Char.

Erreurs associées

Mots-clés associés

TRTCOU - MASKCOU- FILPATH

SOMMAIRE