Guardian Procedure Calls Reference Manual

Example
LITERAL define^vol^len=25; ! value buffer length
STRING .EXT define^name [0:23];
STRING .EXT volume [0:15]; ! attribute name
STRING .EXT volid [0:define^vol^len]; ! value buffer
INT len^read := 0; ! len of external rep.
.
.
define^name ':=' ["=mytape "];
volume ':=' ["volume "];
volid ':=' " " & volid[ 0 ] for define^vol^len;
error := DEFINEREADATTR ( define^name, volume, , volid,
define^vol^len, len^read );
IF error <> THEN ...
280 Guardian Procedure Calls (D-E)