Guardian Programmer's Guide

Communicating With Terminals
Guardian Programmer’s Guide — 421922-014
10 - 5
Opening a Terminal
INT VOLUME[0:3];
INT SUBVOLUME[0:3];
END;
STRUCT INFILE;
BEGIN
INT VOLUME[0:3];
INT SUBVOL[0:3];
INT FNAME[0:3];
END;
STRUCT OUTFILE;
BEGIN
INT VOLUME[0:3];
INT SUBVOL[0:3];
INT FNAME[0:3];
END;
STRING PARAM[0:529];
END;
! Convert the C-series file name into a D-series file name:
ERROR := OLDFILENAME_TO_FILENAME_(CI^STARTUP.INFILE,
IN^TERMNAME:MAXLEN,
INFILE^LENGTH);
! Open the IN file:
ERROR := FILE_OPEN_(IN^TERMNAME:INFILE^LENGTH,
IN^TERMNUM);
IF ERROR <> 0 THEN ...
! Convert the C-series file name into a D-series file name:
ERROR := OLDFILENAME_TO_FILENAME_(CI^STARTUP.OUTFILE,
OUT^TERMNAME:MAXLEN,
OUTFILE^LENGTH);
! Open the OUT file:
ERROR := FILE_OPEN_(OUT^TERMNAME:OUTFILE^LENGTH,
OUT^TERMNUM);
IF ERROR <> 0 THEN ...
Note. The IN file and OUT file names are not necessarily terminal names. They can be any
valid file name as defined for C-series systems.