Guardian Programmer's Guide

Using DEFINEs
Guardian Programmer’s Guide — 421922-014
7 - 31
Using DEFINEs: An Example
!------------------------------------------------------------
! Procedure to prompt the user for all attributes for a CLASS
! SPOOL DEFINE.
!------------------------------------------------------------
PROC SET^SPOOL;
BEGIN
STRING .VALUES^LIST[0:BUFSIZE - 1];
STRING .NAME[0:15];
NAME ':=' "CLASS ";
VALUES^LIST ':=' "Must be SPOOL" -> @S^PTR;
CALL DEFINE^ATTR(NAME,VALUES^LIST,
@S^PTR '-' @VALUES^LIST);
NAME ':=' "BATCHID ";
VALUES^LIST ':=' "A valid job ID" -> @S^PTR;
CALL DEFINE^ATTR(NAME,VALUES^LIST,
@S^PTR '-' @VALUES^LIST);
NAME ':=' "BATCHNAME ";
VALUES^LIST ':=' "A 1 to 31 character batch name"
-> @S^PTR;
CALL DEFINE^ATTR(NAME,VALUES^LIST,
@S^PTR '-' @VALUES^LIST);
NAME ':=' "COPIES ";
VALUES^LIST ':=' "A number in the range 1 through 32767"
-> @S^PTR;
CALL DEFINE^ATTR(NAME,VALUES^LIST,
@S^PTR '-' @VALUES^LIST);
NAME ':=' "FORM ";
VALUES^LIST ':=' "A 1 to 16 character form name"
-> @S^PTR;
CALL DEFINE^ATTR(NAME,VALUES^LIST,
@S^PTR '-' @VALUES^LIST);
NAME ':=' "HOLD ";
VALUES^LIST ':=' "ON or OFF" -> @S^PTR;
CALL DEFINE^ATTR(NAME,VALUES^LIST,
@S^PTR '-' @VALUES^LIST);
NAME ':=' "HOLDAFTER ";
VALUES^LIST ':=' "ON or OFF" -> @S^PTR;
CALL DEFINE^ATTR(NAME,VALUES^LIST,
@S^PTR '-' @VALUES^LIST);
NAME ':=' "LOC ";
VALUES^LIST ':=' "A valid spooler location" -> @S^PTR;
CALL DEFINE^ATTR(NAME,VALUES^LIST,
@S^PTR '-' @VALUES^LIST);