Guardian Programmer's Guide

Table Of Contents
Using DEFINEs
Guardian Programmer’s Guide 421922-014
7 - 29
Using DEFINEs: An Example
NAME ':=' "FILESEQ ";
VALUES^LIST ':=' "A number in the range 0001 through 9999"
-> @S^PTR;
CALL DEFINE^ATTR(NAME,VALUES^LIST,
@S^PTR '-' @VALUES^LIST);
NAME ':=' "GEN ";
VALUES^LIST ':=' "A number in the range 0001 through 9999"
-> @S^PTR;
CALL DEFINE^ATTR(NAME,VALUES^LIST,
@S^PTR '-' @VALUES^LIST);
NAME ':=' "LABELS ";
VALUES^LIST ':=' "ANSI, IBM, OMITTED, or BYPASS"
-> @S^PTR;
CALL DEFINE^ATTR(NAME,VALUES^LIST,
@S^PTR '-' @VALUES^LIST);
NAME ':=' "MOUNTMSG ";
VALUES^LIST ':=' "Any text string" -> @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 ':=' "RECFORM ";
VALUES^LIST ':=' "F or U" -> @S^PTR;
CALL DEFINE^ATTR(NAME,VALUES^LIST,
@S^PTR '-' @VALUES^LIST);
NAME ':=' "RECLEN ";
VALUES^LIST ':=' "A valid record length" -> @S^PTR;
CALL DEFINE^ATTR(NAME,VALUES^LIST,
@S^PTR '-' @VALUES^LIST);
NAME ':=' "REELS ";
VALUES^LIST ':=' "A number in the range 1 through 255"
-> @S^PTR;
CALL DEFINE^ATTR(NAME,VALUES^LIST,
@S^PTR '-' @VALUES^LIST);
NAME ':=' "RETENTION ";
VALUES^LIST ':=' "Any integer value" -> @S^PTR;
CALL DEFINE^ATTR(NAME,VALUES^LIST,
@S^PTR '-' @VALUES^LIST);
NAME ':=' "SYSTEM ";
VALUES^LIST ':=' "A valid system name" -> @S^PTR;
CALL DEFINE^ATTR(NAME,VALUES^LIST,
@S^PTR '-' @VALUES^LIST);