Guardian Programmer's Guide

Table Of Contents
Writing a Requester Program
Guardian Programmer’s Guide 421922-014
21 - 45
Coding the Requester Program
!------------------------------------------------------------
! Procedure opens a server process. Prompts the user to try
! again if the open fails.
!------------------------------------------------------------
PROC OPEN^SERVER(PROCESS^NAME,PROCESS^NAMELEN,SERVER^NUM);
STRING .PROCESS^NAME;
INT PROCESS^NAMELEN;
INT .SERVER^NUM;
BEGIN
INT ERROR;
TRY^AGAIN:
ERROR := FILE_OPEN_(PROCESS^NAME:PROCESS^NAMELEN,
SERVER^NUM);
IF ERROR <> 0 THEN
BEGIN
PRINT^STR("Could not open server");
SBUFFER ':=' "Do you wish to try again? (y/n): "
-> @S^PTR;
CALL WRITEREADX(TERM^NUM,SBUFFER,@S^PTR '-' @SBUFFER,
BUFSIZE);
IF (SBUFFER[0] = "n") OR (SBUFFER[0] = "N") THEN
CALL PROCESS_STOP_
ELSE GOTO TRY^AGAIN;
END;
END;