Guardian Programmer's Guide

Table Of Contents
Using DEFINEs
Guardian Programmer’s Guide 421922-014
7 - 5
Example of a CLASS TAPE DEFINE
Example of a CLASS TAPE DEFINE
The following example sets up a DEFINE called =ANSITAPE1. When the DEFINE is
later passed to the FILE_OPEN_ procedure, the corresponding tape file is opened with
the DEFINE attributes automatically set.
ATTRIBUTE^NAME ':=' "CLASS ";
ATTRIBUTE^VALUE ':=' "TAPE";
ATTRIBUTE^LENGTH := 4;
ERROR := DEFINESETATTR(ATTRIBUTE^NAME,
ATTRIBUTE^VALUE,
ATTRIBUTE^LENGTH,
DEFAULT^NAMES);
IF ERROR <> 0 THEN ...
ATTRIBUTE^NAME ':=' "USE ";
ATTRIBUTE^VALUE ':=' "IN";
ATTRIBUTE^LENGTH := 2;
ERROR := DEFINESETATTR(ATTRIBUTE^NAME,
ATTRIBUTE^VALUE,
ATTRIBUTE^LENGTH,
DEFAULT^NAMES);
IF ERROR <> 0 THEN ...
ATTRIBUTE^NAME ':=' "VOLUME ";
ATTRIBUTE^VALUE ':=' "XT55";
ATTRIBUTE^LENGTH := 4;
ERROR := DEFINESETATTR(ATTRIBUTE^NAME,ATTRIBUTE^VALUE,
ATTRIBUTE^LENGTH,
DEFAULT^NAMES);
IF ERROR <> 0 THEN ...
ATTRIBUTE^NAME ':=' "LABELS ";
ATTRIBUTE^VALUE ':=' "ANSI";
ATTRIBUTE^LENGTH := 4;
ERROR := DEFINESETATTR(ATTRIBUTE^NAME,ATTRIBUTE^VALUE,
ATTRIBUTE^LENGTH,
DEFAULT^NAMES);
IF ERROR <> 0 THEN ...
DEFINE^NAME ':=' "=ANSITAPE1 ";
LENGTH := 10;
ERROR := DEFINEADD(DEFINE^NAME);
IF ERROR <> 0 THEN ...
.
.
ERROR := FILE_OPEN_(DEFINE^NAME:LENGTH,
FILENUM);
IF ERROR <> 0 THEN ...
CLASS DEFAULTS DEFINEs
CLASS DEFAULTS DEFINEs are used to pass default system, volume, subvolume,
and swap information to a process. The receiving process uses the system, volume,
and subvolume default values to expand any file names that are not fully qualified.