ADXPNO |
adxpno returns the names of the stacked processes.
adxpno(< num_exp >)
|
Element |
Description |
Restrictions |
|
num_exp |
Numeric expression that describes a level of stacking |
num_exp >= 0 |
# Number of OBJects stacked with the execution of the current processLEVEL 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)
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.
|
Error |
Description |
|
ERDOM (50) |
exp_num < 0. |
|
|