Guardian Programmer's Guide

Table Of Contents
Communicating With Disk Files
Guardian Programmer’s Guide 421922-014
5 - 44
Entry-Sequenced File Programming Example
!------------------------------------------------------------
! Procedure to exit the program.
!------------------------------------------------------------
PROC EXIT^PROGRAM;
BEGIN
CALL PROCESS_STOP_;
END;
!------------------------------------------------------------
! Procedure to process an invalid command. The procedure
! informs the user that the selection was other than "r,"
! "u," "a," or "x."
!------------------------------------------------------------
PROC INVALID^COMMAND;
BEGIN
PRINT^BLANK;
! Inform the user that the selection was invalid and then
! return to prompt again for a valid function:
PRINT^STR ("INVALID COMMAND: " &
"Type either 'r,' 'a,' or 'x'");
END;