Guardian Programmer's Guide

Table Of Contents
Communicating With Magnetic Tape
Guardian Programmer’s Guide 421922-014
12 - 36
Writing to a File on a Multiple-File
Labeled Tape Volume
DEFAULT^NAMES);
IF ERROR <> 0 THEN ...
!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 EBCDIC attribute to OUT:
ATTRIBUTE^NAME ':=' "EBCDIC ";
ATTRIBUTE^VALUE ':=' "OUT" -> @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 ...