Guardian Programmer's Guide

Table Of Contents
Communicating With Disk Files
Guardian Programmer’s Guide 421922-014
5 - 98
Using Alternate Keys With a Relative File
CALL WRITEREADX(TERMNUM,SBUFFER,@S^PTR '-' @SBUFFER,
COMMENTSIZE,COUNT^READ);
IF <> THEN CALL FILE^ERRORS(TERMNUM);
RECORD.DATA ':=' SBUFFER FOR COUNT^READ;
RECORD.DATA^LEN := COUNT^READ;
! Write new record to log file:
CALL WRITEUPDATEX(LOGNUM,RECORD,$LEN(RECORD));
IF <> THEN CALL FILE^ERRORS(LOGNUM);
END;