Guardian Programmer's Guide

Table Of Contents
Using DEFINEs
Guardian Programmer’s Guide 421922-014
7 - 34
Using DEFINEs: An Example
NAME ':=' "PROGRAM ";
VALUES^LIST ':=' "Any valid program file name"
-> @S^PTR;
CALL DEFINE^ATTR(NAME,VALUES^LIST,
@S^PTR '-' @VALUES^LIST);
NAME ':=' "SCRATCH ";
VALUES^LIST ':=' "Any valid disk volume name" -> @S^PTR;
CALL DEFINE^ATTR(NAME,VALUES^LIST,
@S^PTR '-' @VALUES^LIST);
NAME ':=' "SEGMENT ";
VALUES^LIST ':=' "A number 64 or greater" -> @S^PTR;
CALL DEFINE^ATTR(NAME,VALUES^LIST,
@S^PTR '-' @VALUES^LIST);
NAME ':=' "SUBSORTS ";
VALUES^LIST ':='
"A comma-separated list of CLASS SUBSORT DEFINES"
-> @S^PTR;
CALL DEFINE^ATTR(NAME,VALUES^LIST,
@S^PTR '-' @VALUES^LIST);
NAME ':=' "SWAP ";
VALUES^LIST ':='
"Any valid local file or local volume name" -> @S^PTR;
CALL DEFINE^ATTR(NAME,VALUES^LIST,
@S^PTR '-' @VALUES^LIST);
END;