TACL Reference Manual

Built-In Functions and Variables
HP NonStop TACL Reference Manual—429513-018
9-89
#DEF Built-In Function
standard functionality from your TACL environment, do not use #DEF on the
directories supplied as part of the TACL software product (such as UTILS).
•
You cannot attach more than 50 segment files.
Examples
1. This example defines a variable, RTN, as a ROUTINE that accepts no arguments
and displays a “thank you” message:
[#DEF rtn ROUTINE
|BODY|
SINK [#ARGUMENT END]
#OUTPUT Thank you!
]
2. The next example sets up the alias P for the PERUSE command:
[#DEF p ALIAS
|BODY|
PERUSE
]
3. These examples declare structures:
[#DEF inventory STRUCT
BEGIN
INT item;
INT price;
INT quantity;
END;
]
[#DEF obsolete^stuff STRUCT
LIKE inventory;
]
4. This examples define directories:
PURGE segfl
#DEF :myseg DIRECTORY PRIVATE segfl
#DIR :our^seg DIRECTORY SHARED $system.segs.segfile
#DEF :dir DIRECTORY