Guardian Programmer's Guide

Table Of Contents
Communicating With Magnetic Tape
Guardian Programmer’s Guide 421922-014
12 - 32
Writing to the Only File on a Labeled Tape Volume
!Set the USE attribute to EXTEND:
ATTRIBUTE^NAME ':=' "USE ";
ATTRIBUTE^VALUE ':=' "EXTEND" -> @S^PTR;
ERROR := DEFINESETATTR(ATTRIBUTE^NAME,
ATTRIBUTE^VALUE,
@S^PTR '-' @ATTRIBUTE^VALUE,
DEFAULT^NAMES);
IF ERROR <> 0 THEN ...
!Set the RECFORM attribute to F:
ATTRIBUTE^NAME ':=' "RECFORM ";
ATTRIBUTE^VALUE ':=' "F";
ATTRIBUTE^LEN := 1;
ERROR := DEFINESETATTR(ATTRIBUTE^NAME,
ATTRIBUTE^VALUE,
ATTRIBUTE^LEN,
DEFAULT^NAMES);
IF ERROR <> 0 THEN ...
!Set the RECLEN attribute to 512:
ATTRIBUTE^NAME ':=' "RECLEN ";
ATTRIBUTE^VALUE ':=' "512" -> @S^PTR;
ERROR := DEFINESETATTR(ATTRIBUTE^NAME,
ATTRIBUTE^VALUE,
@S^PTR '-' @ATTRIBUTE^VALUE,
DEFAULT^NAMES);
IF ERROR <> 0 THEN ...
!Set the BLOCKLEN attribute to 2048:
ATTRIBUTE^NAME ':=' "BLOCKLEN ";
ATTRIBUTE^VALUE ':=' "2048" -> @S^PTR;
ERROR := DEFINESETATTR(ATTRIBUTE^NAME,
ATTRIBUTE^VALUE,
@S^PTR '-' @ATTRIBUTE^VALUE,
DEFAULT^NAMES);
IF ERROR <> 0 THEN ...
!Set the DENSITY attribute to 1600:
ATTRIBUTE^NAME ':=' "DENSITY ";
ATTRIBUTE^VALUE ':=' "1600" -> @S^PTR;
ERROR := DEFINESETATTR(ATTRIBUTE^NAME,
ATTRIBUTE^VALUE,
@S^PTR '-' @ATTRIBUTE^VALUE,
DEFAULT^NAMES);
IF ERROR <> 0 THEN ...
!Create the DEFINE:
DEFINE^NAME ':=' "=TAPEFILE^APPEND ";
ERROR := DEFINEADD(DEFINE^NAME);
IF ERROR <> 0 THEN ...