Guardian Programmer's Guide

Using DEFINEs
Guardian Programmer’s Guide — 421922-014
7 - 24
Using DEFINEs: An Example
!------------------------------------------------------------
! This procedure asks the user for the CLASS of the next
! DEFINE:
!
! "1" for a CLASS MAP DEFINE
! "2" for a CLASS SEARCH DEFINE
! "3" for a CLASS TAPE DEFINE
! "4" for a CLASS SPOOL DEFINE
! "5" for a CLASS SORT DEFINE
! "6" for a CLASS SUBSORT DEFINE
! "7" for a CLASS CARALOG DEFINE
!
! The selection made is returned as the result of the call.
!------------------------------------------------------------
INT PROC GET^DEFINE^CLASS;
BEGIN
INT COUNT^READ;
! Prompt the user for the DEFINE CLASS:
PRINT^BLANK;
PRINT^STR("Type '1' for a CLASS MAP DEFINE, ");
PRINT^STR(" '2' for a CLASS SEARCH DEFINE, ");
PRINT^STR(" '3' for a CLASS TAPE DEFINE, ");
PRINT^STR(" '4' for a CLASS SPOOL DEFINE, ");
PRINT^STR(" '5' for a CLASS SORT DEFINE, ");
PRINT^STR(" '6' for a CLASS SUBSORT DEFINE, ");
PRINT^STR(" '7' for a CLASS CATALOG DEFINE, ");
PRINT^BLANK;
SBUFFER ':=' "Choice: " -> @S^PTR;
CALL WRITEREADX(TERMNUM,SBUFFER,@S^PTR '-' @SBUFFER,
BUFSIZE,COUNT^READ);
IF <> THEN CALL FILE^ERRORS(TERMNUM);
SBUFFER[COUNT^READ] := 0;
RETURN SBUFFER[0];
END;