Guardian Programmer's Guide

Table Of Contents
Using DEFINEs
Guardian Programmer’s Guide 421922-014
7 - 32
Using DEFINEs: An Example
NAME ':=' "MAXPRINTLINES ";
VALUES^LIST ':=' "A number in the range 1 through 65534"
-> @S^PTR;
CALL DEFINE^ATTR(NAME,VALUES^LIST,
@S^PTR '-' @VALUES^LIST);
NAME ':=' "MAXPRINTPAGES ";
VALUES^LIST ':=' "A number in the range 1 through 65534"
-> @S^PTR;
CALL DEFINE^ATTR(NAME,VALUES^LIST,
@S^PTR '-' @VALUES^LIST);
NAME ':=' "OWNER ";
VALUES^LIST ':=' "Any valid owner ID" -> @S^PTR;
CALL DEFINE^ATTR(NAME,VALUES^LIST,
@S^PTR '-' @VALUES^LIST);
NAME ':=' "PAGESIZE ";
VALUES^LIST ':=' "A number in the range 1 through 32767"
-> @S^PTR;
CALL DEFINE^ATTR(NAME,VALUES^LIST,
@S^PTR '-' @VALUES^LIST);
NAME ':=' "REPORT ";
VALUES^LIST ':=' "A 1 to 16 character report name"
-> @S^PTR;
CALL DEFINE^ATTR(NAME,VALUES^LIST,
@S^PTR '-' @VALUES^LIST);
NAME ':=' "SELPRI ";
VALUES^LIST ':=' "A number in the range 0 through 7"
-> @S^PTR;
CALL DEFINE^ATTR(NAME,VALUES^LIST,
@S^PTR '-' @VALUES^LIST);
END;