Guardian Programmer's Guide

Table Of Contents
Communicating With Magnetic Tape
Guardian Programmer’s Guide 421922-014
12 - 97
Accessing an Unlabeled Tape File: An Example
! Display date from last good record:
CALL WRITEX(TERMNUM,LOG^RECORD.DATE,
$LEN(LOG^RECORD.DATE));
IF <> THEN CALL FILE^ERRORS(TERMNUM);
! Display comments from last good record:
CALL WRITEX(TERMNUM,LOG^RECORD.COMMENTS,
$LEN(LOG^RECORD.COMMENTS));
IF <> THEN CALL FILE^ERRORS(TERMNUM);
! Prompt user to continue:
SBUFFER ':=' "Do You Wish to Continue(y/n) "
-> @S^PTR;
CALL WRITEREADX(TERMNUM,SBUFFER,@S^PTR '-' @SBUFFER,
BUFSIZE,COUNT^READ);
IF <> THEN CALL FILE^ERRORS(TERMNUM);
! If the user indicates continue, prompt to reenter data,
! then return to APPEND^RECORD procedure:
IF SBUFFER[0] = "y"
THEN
BEGIN
SBUFFER ':=' "Please Reenter Your Data." -> @S^PTR;
CALL WRITEX(TERMNUM,SBUFFER,@S^PTR '-' @SBUFFER);
IF <> THEN CALL FILE^ERRORS(TERMNUM);
! Reset the sequence number so that subsequent
! records are correctly sequenced:
SEQ^NUM := LOG^RECORD.SEQ^NUM;
END
! If user declines to continue, stop the program:
ELSE
CALL PROCESS_STOP_;
END;
END;