Guardian Programmer's Guide

Table Of Contents
Communicating With Magnetic Tape
Guardian Programmer’s Guide 421922-014
12 - 50
Reading From a File on Multiple Labeled Tape
Volumes
DEFAULT^NAMES);
IF ERROR <> 0 THEN ...
!Set the FILEID attribute to 4_TAPEFILE:
ATTRIBUTE^NAME ':=' "FILEID ";
ATTRIBUTE^VALUE ':=' "4_TAPEFILE" -> @S^PTR;
ERROR := DEFINESETATTR(ATTRIBUTE^NAME,
ATTRIBUTE^VALUE,
@S^PTR '-' @ATTRIBUTE^VALUE,
DEFAULT^NAMES);
IF ERROR <> 0 THEN ...
!Set the FILESEQ attribute to 1:
ATTRIBUTE^NAME ':=' "FILESEQ ";
ATTRIBUTE^VALUE ':=' "1";
ATTRIBUTE^LEN := 1;
ERROR := DEFINESETATTR(ATTRIBUTE^NAME,
ATTRIBUTE^VALUE,
ATTRIBUTE^LEN,
DEFAULT^NAMES);
IF ERROR <> 0 THEN ...
!Set the REELS attribute to 4:
ATTRIBUTE^NAME ':=' "REELS ";
ATTRIBUTE^VALUE ':=' "4";
ATTRIBUTE^LEN := 1;
ERROR := DEFINESETATTR(ATTRIBUTE^NAME,
ATTRIBUTE^VALUE,
ATTRIBUTE^LEN,
DEFAULT^NAMES);
IF ERROR <> 0 THEN ...
!Set the FILESECT attribute to 3:
ATTRIBUTE^NAME ':=' "FILESECT ";
ATTRIBUTE^VALUE ':=' "3";
ATTRIBUTE^LEN := 1;
ERROR := DEFINESETATTR(ATTRIBUTE^NAME,
ATTRIBUTE^VALUE,
ATTRIBUTE^LEN,
DEFAULT^NAMES);
IF ERROR <> 0 THEN ...
!Set the USE attribute to IN:
ATTRIBUTE^NAME ':=' "USE ";
ATTRIBUTE^VALUE ':=' "IN" -> @S^PTR;
ERROR := DEFINESETATTR(ATTRIBUTE^NAME,
ATTRIBUTE^VALUE,
@S^PTR '-' @ATTRIBUTE^VALUE,
DEFAULT^NAMES);
IF ERROR <> 0 THEN ...
!Create the DEFINE:
DEFINE^NAME ':=' "=THIRD^TAPE^READ ";
ERROR := DEFINEADD(DEFINE^NAME);
IF ERROR <> 0 THEN ...