Guardian Programmer's Guide

Table Of Contents
Communicating With Disk Files
Guardian Programmer’s Guide 421922-014
5 - 89
Using Alternate Keys With a Relative File
?INSPECT,SYMBOLS,NOMAP,NOCODE
?NOLIST, SOURCE $SYSTEM.ZSYSDEFS.ZSYSTAL
?LIST
LITERAL MAXFLEN = ZSYS^VAL^LEN^FILENAME; !maximum file-name
! length
LITERAL DATESIZE = 8; !size of date field
LITERAL COMMENTSIZE = 502; !size of comment field
STRING .S^PTR; !pointer to end of string
INT LOGNUM; !log file number
INT TERMNUM; !terminal file number
STRUCT .RECORD;
BEGIN
STRING DATE[0:DATESIZE-1];
INT DATA^LEN;
STRING DATA[0:COMMENTSIZE-1];
END;
LITERAL BUFSIZE = COMMENTSIZE;
STRING .SBUFFER[0:BUFSIZE]; !terminal I/O buffer
! (one extra character)
?NOLIST, SOURCE $SYSTEM.SYSTEM.EXTDECS0 (INITIALIZER,
? PROCESS_GETINFO_,FILE_OPEN_,WRITEREADX,WRITEX,
? PROCESS_STOP_,READX,KEYPOSITION,DNUMOUT,FILE_GETINFO_,
? READUPDATEX,WRITEUPDATEX,DNUMIN,POSITION)
?LIST