ADXPNO

Contents


adxpno returns the names of the stacked processes.

 

Syntax

   adxpno(< num_exp >)

 

Parameters

Element

Description

Restrictions

num_exp

Numeric expression that describes a level of stacking

num_exp >= 0

 

Examples

   # Number of OBJects stacked with the execution of the current process
    LEVEL Integer
    While adxpno(LEVEL) <> ""
           LEVEL += 1
    Wend
   # Is the current process in the current application?
    if adxpno(0) <> filpath("TRT", trtcou, "adx", -1)
       Errbox "Process that does not belong to the current application"
  Endif
   # What is the original application of the calling program?
  # Its name is between the 2 and the 3 "/" by starting from the end
  # of the string returned by adxpno for the index 1.
      Local Description 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 "Original Application ="-seg$(adxpno(1), P3+1, P2-1)

 

Description and Comments

adxpno returns the full name (path) of the executable process found on Adonix's execution stack at the level for which the number is given in parameters. Level zero (0) being the current level, level one (1) is that of the calling program, etc.

No error is returned when a numeric parameter does not correspond to a single active level, since the function returns the empty string.

The result of the function is of the Char type.

 

Associated Errors

Error

Description

ERDOM (50)

exp_num < 0.

 

Associated Keywords

TRTCOU - MASKCOU - FILPATH


CONTENTS


Copyright © Sage 1999 - 2007