Guardian Programmer's Guide

Table Of Contents
Communicating With Magnetic Tape
Guardian Programmer’s Guide 421922-014
12 - 91
Accessing an Unlabeled Tape File: An Example
INT .RECORD^POINTER := @LOG^RECORD[0];
STRUCT .CI^STARTUP; !Startup message
BEGIN
INT MSGCODE;
STRUCT DEFAULT;
BEGIN
INT VOLUME[0:3];
INT SUBVOL[0:3];
END;
STRUCT INFILE;
BEGIN
INT VOLUME[0:3];
INT SUBVOL[0:3];
INT FILEID[0:3];
END;
STRUCT OUTFILE;
BEGIN
INT VOLUME[0:3];
INT SUBVOL[0:3];
INT FILEID[0:3];
END;
STRING PARAM[0:529];
END;
?NOLIST, SOURCE $SYSTEM.SYSTEM.EXTDECS0(INITIALIZER,FILE_OPEN_,
? WRITEREADX,WRITEX,PROCESS_STOP_,READX,CONTROL,DNUMOUT,
? FILE_GETINFO_,DNUMIN,SETMODE,OLDFILENAME_TO_FILENAME_)
?LIST