Guardian Procedure Calls Reference Manual (G06.25+)

Guardian Procedure Calls (D-E)
Guardian Procedure Calls Reference Manual—522629-013
4-27
DEFINENEXTNAME Procedure
define-name input, output
STRING .EXT:ref:24
on input, is a DEFINE name. It need not name an existing DEFINE. The name
must be left-justified and padded on the right with blanks. Trailing blanks are
ignored.
on output, is the name of the DEFINE following the input DEFINE name in the
process context (in ASCII order); if
define-name is blank on input, the name of
the first DEFINE is returned.
Considerations
•
To obtain the name of the very first DEFINE in the process context, define-name
must be blanks.
•
On output, define-name is either a valid existing DEFINE (on success) or is
unchanged (on failure).
Example
In the following example, DEFINENEXTNAME returns “=my^output” which directly
follows “=my^input” in ASCII order. These DEFINEs were created previously.
STRING .file^name [0:36];
file^name ':=' ["=my^input"];
error := DEFINENEXTNAME( file^name );
IF error <> DEOK THEN ...