Guardian Programmer's Guide

Table Of Contents
Using DEFINEs
Guardian Programmer’s Guide 421922-014
7 - 30
Using DEFINEs: An Example
NAME ':=' "USE ";
VALUES^LIST ':=' "IN, OUT, EXTEND, or OPENFLAG" -> @S^PTR;
CALL DEFINE^ATTR(NAME,VALUES^LIST,
@S^PTR '-' @VALUES^LIST);
NAME ':=' "VERSION ";
VALUES^LIST ':=' "A number in the range 00 through 99"
-> @S^PTR;
CALL DEFINE^ATTR(NAME,VALUES^LIST,
@S^PTR '-' @VALUES^LIST);
NAME ':=' "VOLUME ";
VALUES^LIST ':=' "A six-byte volume ID or SCRATCH"
-> @S^PTR;
CALL DEFINE^ATTR(NAME,VALUES^LIST,
@S^PTR '-' @VALUES^LIST);
END;