Guardian Programmer's Guide

Table Of Contents
Using the Sequential Input/Output Procedures
Guardian Programmer’s Guide 421922-014
15 - 11
Assigning a Logical File Name
TAL Example:
INT .BUF[0:11];
STRING .SBUF := @BUF '<<' 1;
.
.
SBUF ':=' [5, "INPUT"];
CALL SET^FILE(INFILE,
ASSIGN^LOGICALFILENAME,
@BUF);
SBUF ':=' [6, "OUTPUT"];
CALL SET^FILE(OUTFILE,
ASSIGN^LOGICALFILENAME,
@BUF);
SBUF ':=' [5, "LFILE"];
CALL SET^FILE(DFILE,
ASSIGN^LOGICALFILENAME,
@BUF);
pTAL/TAL Example:
INT ERROR;
INT .BUF[0:11];
?IF PTAL !Begin pTAL statements
STRING .SBUF = BUF;
?ENDIF PTAL !End pTAL statements
?IFNOT PTAL !Begin TAL statements
STRING .SBUF := @BUF '<<' 1;
?ENDIF PTAL !End TAL statements
.
.
SBUF ':=' [5, "INPUT"]
CALL_SET^FILE_ADDRESS_(ERROR,
INFILE,
ASSIGN^LOGICALFILENAME,
@BUF);
SBUF ':=' [6, "OUTPUT"];
CALL_SET^FILE_ADDRESS_(ERROR,
OUTFILE,
ASSIGN^LOGICALFILENAME,
@BUF);
SBUF ':=' [5, "LFILE"];
CALL_SET^FILE_ADDRESS_(ERROR,
DFILE,
ASSIGN^LOGICALFILENAME,
@BUF);