Guardian Programmer's Guide

Table Of Contents
Communicating With Disk Files
Guardian Programmer’s Guide 421922-014
5 - 94
Using Alternate Keys With a Relative File
!------------------------------------------------------------
! Procedure for getting a date from the user. The date
! entered is returned in SBUFFER.
!------------------------------------------------------------
PROC GET^DATE;
BEGIN
INT COUNT^READ;
PROMPT^AGAIN:
PRINT^BLANK;
SBUFFER ':=' "Enter Date (yyyymmdd): " -> @S^PTR;
CALL WRITEREADX(TERMNUM,SBUFFER,@S^PTR '-' @SBUFFER,
BUFSIZE,COUNT^READ);
IF <> THEN CALL FILE^ERRORS(TERMNUM);
IF COUNT^READ <> DATESIZE THEN
BEGIN
START^LINE;
PUT^STR("The date should be ");
PUT^INT(DATESIZE);
PUT^STR(" characters.");
PRINT^LINE;
GOTO PROMPT^AGAIN;
END;
END;