17 SUBPROGRAMS FOR SETS OF BANKS
Sets of banks are defined by lists of bank names which
are associated with a single character. This set may be
handled as a single entity, being read from permanent storage,
expanded or reduced in scope, copied or appended to other sets
or dropped by single subprogram calls. The typical
environment for the use of such sets is one where an event
record is read, analyzed in such a way as to add extra
information (in the form of banks) to the event (or perhaps
delete redundant banks), and is then written to further
permanent storage.
26 different sets may be defined, each being specified by
a single uppercase letter (A-Z).
The following subprograms are available:-
BLIST Manipulate bank sets
BDROP Drop set of banks
BKEEP Drop all except a set of banks
BPHEAD Print Headers of set of Banks
BPRNT Print set of banks
BSINDX Returns lowest bank given set and member number
BSINQU Inquire whether bank belongs to set of banks
BSMEMB Return all members of set of banks
BSMNUM Return member number of bank in set
BSNUMB Return number of members in bank set
BSINTR Intersect two bank sets
17.1 BLIST - Manipulate Bank Sets
This subprogram is used to manipulate sets of banks.
Several actions are possible including adding new members to a
set, copying one set to another set and deleting members from
a set.
Calling Sequence
STATUS = BLIST(JW,OPT,LIST)
Input Parameters
JW YBOS array name.
OPT (Character*2) Option specifier
LIST (Character) Set name or bank list
Output Parameters
None
Function Value
BLIST (Integer) YESUCC Success
YEOVRF Insufficient Space
YEBSIL Illegal Bank Set Name
YEILOP Illegal Operand
N.B.
1. The array name JW may be either the basic YBOS array
or a secondary YBOS array.
2. The option specifier is a string of two characters of
the form 'L=', 'L+' or 'L-' where L is one of the
allowed bank set names (A-Z) and '=' means copy, '+'
means add and '-' means delete.
3. The LIST parameter may be either a single letter bank
set name, "*" for all bank names, or a list of 4
character bank names. If a list of 4 character bank
names is passed, the "*" character can be used as a
wildcard. For examle, LIST='BI****RD' implies all
existing bank names that start with 'BI' (BI**), and
all bank names that end with 'RD' (**RD).
1. STATUS = BLIST(JW,'E=','ANDYB*RTCARL')
Sets the E list to contain banks 'ANDY', 'CARL',
and any existing bank names of the form 'B*RT'.
2. STATUS = BLIST(JW,'E+','C')
Adds all banks contained in the C set to the E
set.
3. STATUS = BLIST(JW,'E-','DAVEFRED')
Removes banks 'DAVE' and 'FRED' from the E set
(but does not delete them).
4. In the case of insufficient space, the set
manipulation will not be performed. The Application
Program should perform a a named bank garbage
collection or drop some banks before retrying.
5. A call to BVALON prior to using this routine will
result in named bank validation taking place upon
calling this routine. For example,
STATUS = BVALON(JW) (Turn validation on)
STATUS = .... (Call the routine)
STATUS = BVALOF(JW) (Turn validation off)
17.2 BDROP - Drop Set of Banks
This subprogram is used to drop all the banks in the
specified list.
Calling Sequence
STATUS = BDROP(JW,LIST)
Input Parameters
JW YBOS array name.
LIST (Character) Set name or bank list
Output Parameters
None
Function Value
BDROP (Integer) YESUCC Success
N.B.
1. The array name JW may be either the basic YBOS array
or a secondary YBOS array.
2. The LIST parameter may be either a single letter bank
set name, "*" for all bank names, or a list of 4
character bank names. If a list of 4 character bank
names is passed, the "*" character can be used as a
wildcard. For examle, LIST='BI****RD' implies all
existing bank names that start with 'BI' (BI**), and
all bank names that end with 'RD' (**RD).
3. Banks whose names begin with either a "+" character
or "$" character (e.g. '+DSK' or '$SAV') are
protected against being dropped via a call to BDROP
or BKEEP. They may only be dropped via calls to
MDROP or NDROP.
4. A call to BVALON prior to using this routine will
result in named bank validation taking place upon
calling this routine. For example,
STATUS = BVALON(JW) (Turn validation on)
STATUS = .... (Call the routine)
STATUS = BVALOF(JW) (Turn validation off)
17.3 BKEEP - Drop all except a Set of Banks
This subprogram is used to drop all the banks in the
specified YBOS array except those contained in the specified
list.
Calling Sequence
STATUS = BKEEP(JW,LIST)
Input Parameters
JW YBOS array name.
LIST (Character) Set name or bank list
Output Parameters
None
Function Value
BKEEP (Integer) YESUCC Success
N.B.
1. The array name JW may be either the basic YBOS array
or a secondary YBOS array.
2. The LIST parameter may be either a single letter bank
set name, "*" for all bank names, or a list of 4
character bank names. If a list of 4 character bank
names is passed, the "*" character can be used as a
wildcard. For examle, LIST='BI****RD' implies all
existing bank names that start with 'BI' (BI**), and
all bank names that end with 'RD' (**RD). All banks
may be dropped by specifying a null bank set name
(e.g. ' ').
3. Banks whose names begin with either a "+" character
or "$" character (e.g. '+DSK' or '$SAV') are
protected against being dropped via a call to BDROP
or BKEEP. They may only be dropped via calls to
MDROP or NDROP.
4. A call to BVALON prior to using this routine will
result in named bank validation taking place upon
calling this routine. For example,
STATUS = BVALON(JW) (Turn validation on)
STATUS = .... (Call the routine)
STATUS = BVALOF(JW) (Turn validation off)
17.4 BPHEAD - Print Headers of a Set of Banks
This subprogram is used to print the bank headers only of
the banks in the specified set or list of banks on the
currently specified YBOS Print Unit.
Calling Sequence
STATUS = BPHEAD(JW,LIST)
Input Parameters
JW YBOS array name.
LIST (Character) Set name or bank list
Output Parameters
None
Function Value
BPHEAD (Integer) YESUCC Success
N.B.
1. The array name JW may be either the basic YBOS array
or a secondry YBOS array.
2. The LIST parameter may be either a single letter bank
set name or a list of 4 character bank names.
3. BPHEAD is identical in action to BPRNT called in
conjunction with the BOPTN option setting subprogram
in order to turn off printing of the bank contents.
4. YBOS maintains a count of the number of banks that
have been printed. When this count reaches a preset
limit (default 100) then no further banks will be
printed. This limit may be modified from its default
setting of 100 by a call to subprogram BPLIMT.
5. The currently specified YBOS Print Unit (default 6)
may be modified by a call to subprogram BPUNIT.
6. A call to BVALON prior to using this routine will
result in named bank validation taking place upon
calling this routine. For example,
STATUS = BVALON(JW) (Turn validation on)
STATUS = .... (Call the routine)
STATUS = BVALOF(JW) (Turn validation off)
17.5 BPRNT - Print Set of Banks
This subprogram is used to print the banks in the
specified set or list of banks on the currently specified YBOS
Print Unit. All datawords will be printed as Integer
quantities.
Calling Sequence
STATUS = BPRNT(JW,LIST)
Input Parameters
JW YBOS array name.
LIST (Character) Set name or bank list
Output Parameters
None
Function Value
BPRNT (Integer) YESUCC Success
N.B.
1. The array name JW may be either the basic YBOS array
or a secondry YBOS array.
2. The LIST parameter may be either a single letter bank
set name or a list of 4 character bank names.
3. The YBOS option subprogram BOPTN may be used to
specify special options. This subprogram should be
called immediately prior to accessing BPRNT, thus:-
STATUS = BOPTN(JW,OPTION)
STATUS = BPRNT(...)
where OPTION is an Integer having the following
meanings:-
OPTION = 0 Print header and contents (default)
OPTION >< 0 Print header only
4. YBOS maintains a count of the number of banks that
have been printed. When this count reaches a preset
limit (default 100) then no further banks will be
printed. This limit may be modified from its default
setting of 100 by a call to subprogram BPLIMT.
5. The currently specified YBOS Print Unit (default 6)
may be modified by a call to subprogram BPUNIT.
6. A call to BVALON prior to using this routine will
result in named bank validation taking place upon
calling this routine. For example,
STATUS = BVALON(JW) (Turn validation on)
STATUS = .... (Call the routine)
STATUS = BVALOF(JW) (Turn validation off)
17.6 BSINDX - Return Index of lowest Bank given Set and
Member Number
This subprogram may be used to determine the index of the
lowest numbered bank of a particular name for a given set.
The name is given by way of its member number in the set.
Calling Sequence
STATUS = BSINDX(JW,LIST,MEMBER,BNKIND)
Input Parameters
JW YBOS array name.
LIST (Character) Set name or bank list
MEMBER (Character*4) Bank Name Member number
Output Parameters
BNKIND (Integer*4) Base Bank Index
Function Value
BINDX (Integer) YESUCC Success
YENONR Illegal Bank Member
YEBSIL Illegal Bank Set Name
N.B.
1. The array name JW may be either the basic YBOS array
or a secondary YBOS array.
2. The LIST parameter may be either a single letter bank
set name or a list of 4 character bank names.
3. The MEMBER parameter corresponds to the desired
name's location in the bank set. This number can be
determined by a call to BSMNUM.
4. The BNKIND parameter is the base bank index for the
name of interest.
5. A call to BVALON prior to using this routine will
result in named bank validation taking place upon
calling this routine. For example,
STATUS = BVALON(JW) (Turn validation on)
STATUS = .... (Call the routine)
STATUS = BVALOF(JW) (Turn validation off)
17.7 BSINQU - Inquire whether Bank belongs to Set
This subprogram may be used to determine whether the
specified bank name belongs to the specified bank set.
Calling Sequence
STATUS = BSINQU(JW,NAME,LIST)
Input Parameters
JW YBOS array name.
NAME (Character*4) Bank Name
LIST (Character) Set name or bank list
Output Parameters
None
Function Value
BSINQU (Integer) YESUCC Success
YENOBK Non-existent Bank
YEBSIL Illegal Bank Set Name
N.B.
1. The array name JW may be either the basic YBOS array
or a secondary YBOS array.
2. The LIST parameter may be either a single letter bank
set name or a list of 4 character bank names.
3. If the specified bank name belongs to the specified
bank set or list of names, then function value YESUCC
will be returned. This does not necessarily imply
that any banks with that name exist. This should be
verified by using BLOCAT to locate the first bank
with that name.
4. A call to BVALON prior to using this routine will
result in named bank validation taking place upon
calling this routine. For example,
STATUS = BVALON(JW) (Turn validation on)
STATUS = .... (Call the routine)
STATUS = BVALOF(JW) (Turn validation off)
17.8 BSMEMB - Return Members of Bank Set
This subprogram may be used to return as a concatenated
character string the names of all banks within the specified
set or list of bank names.
Calling Sequence
STATUS = BSMEMB(JW,SET,STRING,NMEMBR)
Input Parameters
JW YBOS array name.
SET (Character) Set name or bank list
Output Parameters
STRING (Character) Membership of Set
NMEMBR (Integer) No. of Members
Function Value
BSMEMB (Integer) YESUCC Success
YEBSIL Illegal Bank Set Name
YEOVRF String too short for names
N.B.
1. The array name JW may be either the basic YBOS array
or a secondary YBOS array.
2. The LIST parameter may be either a single letter bank
set name or a list of 4 character bank names. In the
latter case then STRING will be set equal to SET,
padded out with trailing spaces if necessary.
3. NMEMBR will give the number of members of the
specified bank set, or will be set to zero if the set
is empty or illegal.
4. STRING should be declared as CHARACTER*NUMNAM where
NUMNAM is four times the maximum no. of bank names as
specified in the call to BOS77. If this is not
adhered to, truncation may result and error YEOVRF
will be reported.
5. STRING will be padded out with trailing spaces if
necessary.
6. A call to BVALON prior to using this routine will
result in named bank validation taking place upon
calling this routine. For example,
STATUS = BVALON(JW) (Turn validation on)
STATUS = .... (Call the routine)
STATUS = BVALOF(JW) (Turn validation off)
17.9 BSMNUM - Return Member Number of Bank in Set
This subprogram may be used to determine the member
number of a bank within a particular bank set or list of
banks.
Calling Sequence
STATUS = BSMNUM(JW,LIST,MEMNUM,NAME)
Input Parameters
JW YBOS array name.
LIST (Character) Set name or bank list
NAME (Character*4) Bank Name
Output Parameters
MEMNUM (Integer*4) Bank Name Member Number
Function Value
BSMNUM (Integer) YESUCC Success
YENOBK Bank not a Set Member
YEBSIL Illegal Bank Set Name
N.B.
1. The array name JW may be either the basic YBOS array
or a secondary YBOS array.
2. The LIST parameter may be either a single letter bank
set name or a list of 4 character bank names.
3. The MEMNUM parameter corresponds to the desired
name's location in the bank set.
4. The NAME parameter is the bank name of interest.
5. A call to BVALON prior to using this routine will
result in named bank validation taking place upon
calling this routine. For example,
STATUS = BVALON(JW) (Turn validation on)
STATUS = .... (Call the routine)
STATUS = BVALOF(JW) (Turn validation off)
17.10 BSNUMB - Return Number of Members in Bank Set
This subprogram may be used to return the number of
members in the specified bank set.
Calling Sequence
STATUS = BSNUMB(JW,LIST,NMEMBR)
Input Parameters
JW YBOS array name.
LIST (Character) Set name or bank list
Output Parameters
NMEMBR (Integer) No. of Members
Function Value
BSNUMB (Integer) YESUCC Success
YEBSIL Illegal Bank Set Name
N.B.
1. The array name JW may be either the basic YBOS array
or a secondary YBOS array.
2. The LIST parameter may be either a single letter bank
set name or a list of 4 character bank names.
3. NMEMBR will give the number of members of the
specified bank set, or will be set to zero if the set
is empty or illegal.
4. A call to BVALON prior to using this routine will
result in named bank validation taking place upon
calling this routine. For example,
STATUS = BVALON(JW) (Turn validation on)
STATUS = .... (Call the routine)
STATUS = BVALOF(JW) (Turn validation off)
17.11 BSINTR - Form a Bank Set Intersection
This subprogram is used to form the intersection of two
Bank Sets.
Calling Sequence
STATUS = BSINTR(JW,LISTA,LISTB,INTER)
Input Parameters
JW YBOS array name.
LISTA (Character) Input Set name A
LISTB (Character) Input Set name B
INTER (Character) Intersection (output) Set name
Output Parameters
NONE
Function Value
BSINTR (Integer) YESUCC Success
YEBSIL Illegal bank set name
N.B.
1. The array name JW may be either the basic YBOS array
or a secondary YBOS array.
2. The LISTA, and LISTB parameters are the names of the
bank sets to intersect.
3. The INTER parameter is the name of the bank set that
holds the intersection of LISTA and LISTB.
4. A call to BVALON prior to using this routine will
result in named bank validation taking place upon
calling this routine. For example,
STATUS = BVALON(JW) (Turn validation on)
STATUS = .... (Call the routine)
STATUS = BVALOF(JW) (Turn validation off)
18 SUBPROGRAMS FOR SUBSETS OF BANKS
Subsets of banks are defined by lists of bank numbers
which are associated with a single bank name. One Bank Subset
is allowed per bank name. The members of a subset for a
particular name are stored in a work bank maintained
internally by YBOS. Bank subsets are used in conjunction with
BSWRIT. BSWRIT acts exactly like BLWRIT except that only
banks which are subset members for the current name are
written to the logical record.
The following subprograms are available:-
BSBADD Add a list of banks to a subset
BSBALD Add all current and future banks to a subset
BSBALS Add all current banks to a subset
BSBDRP Drop a list of banks from a subset
BSBPRG Drop all banks from a subset
BSWRIT Write one logical record to the specified
BFSWRT logical unit ... Bank Subset members only.
BSREAD Read one logical record from the specified
BFSRED logical unit forming the specified bank list
and subsets.
18.1 BSBADD - Add a List of Banks to a Subset
This subprogram adds the specified list of bank numbers
to the Bank Subset for the specified name.
Calling Sequence
STATUS = BSBADD(JW,NAME,NRLST,DIM)
Input Parameters
JW Secondary YBOS array name.
NAME (Character) Input bank name.
NRLST (Array-integer) List of bank numbers to add
DIM (Integer) The dimension of NRLST
Output Parameters
None
Function Value
BSBADD (Integer) YESUCC Success
YECORR Ybos array corrupted
N.B.
1. The JW array may be either the basic YBOS array in
COMMON/BCS/ or a secondary array.
2. The NAME parameter must be a valid bank name,
although no banks of this name need exist.
3. Entries in the NRLST(DIM) array must be greater than
or equal to zero. Numbers less than zero are
ignored. Again, the actual banks specified need not
exist.
4. Calls to BSWRIT, where NAME is part of the output
list, will write only those banks in the subset that
actually exist.
5. A call to BVALON prior to using this routine will
result in named bank validation taking place upon
calling this routine. For example,
STATUS = BVALON(JW) (Turn validation on)
STATUS = .... (Call the routine)
STATUS = BVALOF(JW) (Turn validation off)
18.2 BSBALD - Add All Current and Future Banks to a Subset
This subprogram adds all currently existing and future
banks to the Bank Subset for the specified name.
Calling Sequence
STATUS = BSBALD(JW,LIST)
Input Parameters
JW Secondary YBOS array name.
LIST (Character) Set name or bank list
Output Parameters
None
Function Value
BSBALD (Integer) YESUCC Success
YECORR Ybos array corrupted
N.B.
1. The JW array may be either the basic YBOS array in
COMMON/BCS/ or a secondary array.
2. The LIST parameter may be either a single letter bank
set name, "*" for all bank names, or a list of 4
character bank names.
3. Calls to BSWRIT will write all banks with names
common to the BSBALD and BSWRIT input lists.
4. Calls to BSBADD or BSBALS will superceed previous
calls to BSBALD.
5. A call to BVALON prior to using this routine will
result in named bank validation taking place upon
calling this routine. For example,
STATUS = BVALON(JW) (Turn validation on)
STATUS = .... (Call the routine)
STATUS = BVALOF(JW) (Turn validation off)
18.3 BSBALS - Add All Current Banks to a Subset
This subprogram adds all currently existing banks to the
Bank Subset for the specified name.
Calling Sequence
STATUS = BSBALS(JW,LIST)
Input Parameters
JW Secondary YBOS array name.
LIST (Character) Set name or bank list
Output Parameters
None
Function Value
BSBALS (Integer) YESUCC Success
YECORR Ybos array corrupted
N.B.
1. The JW array may be either the basic YBOS array in
COMMON/BCS/ or a secondary array.
2. The LIST parameter may be either a single letter bank
set name, "*" for all bank names, or a list of 4
character bank names.
3. Only those banks of name NAME that exist at the time
of the call to BSBALS will be added to the subset.
4. Calls to BSWRIT will write all banks with names
common to the BSBALS and BSWRIT input lists.
5. A call to BVALON prior to using this routine will
result in named bank validation taking place upon
calling this routine. For example,
STATUS = BVALON(JW) (Turn validation on)
STATUS = .... (Call the routine)
STATUS = BVALOF(JW) (Turn validation off)
18.4 BSBDRP - Drop a List of Banks from a Subset
This subprogram drops the specified list of bank numbers
from the Bank Subset for the specified name.
Calling Sequence
STATUS = BSBDRP(JW,NAME,NRLST,DIM)
Input Parameters
JW Secondary YBOS array name.
NAME (Character) Input bank name.
NRLST (Array-integer) List of bank numbers to drop
DIM (Integer) The dimension of NRLST
Output Parameters
None
Function Value
BSBDRP (Integer) YESUCC Success
YECORR Ybos array corrupted
N.B.
1. The JW array may be either the basic YBOS array in
COMMON/BCS/ or a secondary array.
2. The NAME parameter must be a valid bank name,
although no banks of this name need exist.
3. Entries in the NRLST(DIM) array must be greater than
or equal to zero. Numbers less than zero are
ignored. Again, the actual banks specified need not
exist. Banks specified in NRLST that are not part of
the subset for NAME are simply ignored.
4.
A BSBDRP call after a call to BSBALD freezes the
subset such that its' contents are all current banks
minus those specified in NRLST.
5. Note: No banks are droped by this routine.
6. A call to BVALON prior to using this routine will
result in named bank validation taking place upon
calling this routine. For example,
STATUS = BVALON(JW) (Turn validation on)
STATUS = .... (Call the routine)
STATUS = BVALOF(JW) (Turn validation off)
18.5 BSBPRG - Drop All Banks from a Subset
This subprogram drops all bank numbers from the Bank
Subset for the specified name.
Calling Sequence
STATUS = BSBPRG(JW,LIST)
Input Parameters
JW Secondary YBOS array name.
LIST (Character) Set name or bank list
Output Parameters
None
Function Value
BSBPRG (Integer) YESUCC Success
YECORR Ybos array corrupted
N.B.
1. The JW array may be either the basic YBOS array in
COMMON/BCS/ or a secondary array.
2. The LIST parameter may be either a single letter bank
set name, "*" for all bank names, or a list of 4
character bank names.
3. This routine cancels previous all calls to BSBADD,
BSBALD, and BSBALS for the specified name.
4. Note: No banks are droped by this routine.
5. A call to BVALON prior to using this routine will
result in named bank validation taking place upon
calling this routine. For example,
STATUS = BVALON(JW) (Turn validation on)
STATUS = .... (Call the routine)
STATUS = BVALOF(JW) (Turn validation off)
18.6 BSWRIT/BFSWRT - Write Logical Record, Subsets only
This subprogram writes the specified bank set or list of
banks to the specified logical unit in the form of a logical
record. Only banks that are members of the corresponding Bank
Subsets will actually be written. BFSWRT uses optimized I/O
while BSWRIT uses standard FORTRAN I/O .
Calling Sequence
STATUS = BSWRIT(LUNIT,JW,LIST)
STATUS = BFSWRT(LUNIT,JW,LIST)
Input Parameters
LUNIT (Integer) Logical Unit Number...opened by BLOPEN
JW YBOS array name
LIST (Character) Bank set name or Bank List
Output Parameters
None
Function Value
BSWRIT (Integer) YESUCC Success
BFSWRT YEILUN Illegal Unit Number
YEIOUS Attempting to use
input unit for output
YELRZL Zero Length Record
N.B.
1. The JW array may be either the basic YBOS array in
COMMON/BCS/ or a secondary array.
2. The LIST parameter may be etiher a single letter bank
set name or a list of 4 character bank names.
3. The Physical and Logical Record formats are described
in detail in Appendix E.
4. If no subset exists for some bank name in LIST or the
subset for this name is empty, no banks of this name
will be written.
5. A call to BVALON prior to using this routine will
result in named bank validation taking place upon
calling this routine. For example,
STATUS = BVALON(JW) (Turn validation on)
STATUS = .... (Call the routine)
STATUS = BVALOF(JW) (Turn validation off)
18.7 BSREAD/BFSRED - Read Logical Record and form Subsets
This subprogram reads the next logical record from the
specified logical unit number and creates the relevant banks
and bank set. It then modifies the correponding Bank Subsets
According to the MODE input. BFSRED uses optimized I/O while
BSREAD uses standard FORTRAN I/O .
Calling Sequence
STATUS = BSREAD(LUNIT,JW,LIST,NWORDS,MODE)
STATUS = BFSRED(LUNIT,JW,LIST,NWORDS,MODE)
Input Parameters
LUNIT (Integer) Logical Unit Number...opened by BLOPEN
JW YBOS array name
LIST (Character*1) Bank set name
MODE (Character*1) Mode equal "+" --> add to current subset
Mode equal "=" --> replace cuurent subset
Output Parameters
NWORDS (Integer) Logical record length
Function Value
BSREAD (Integer) YESUCC Success
BFSRED YEILUN Illegal Unit Number
YEIOUS Attempting to use
output unit for input
YEEOF End of File detected
YELROF Logical Record too
big for free space
YELRLN Logical Record length
inconsistency
YEPRBD Too many bad physical
records
YEBKOS Bank out of sequence
YEBKXD Bank length exceeds
data
YEBKNG Negative bank length
YEBKTS Bank length too small
YEBSIL Illegal bank set name
N.B.
1. The JW array may be either the basic YBOS array in
COMMON/BCS/ or a secondary array.
2. The LIST parameter must give one of the valid bank
set names.
3. If MODE is equal to "+" then existing subsets for the
specified names will be modified to include the read
banks. If it is equal to "=" existing subsets for
the specified names will be purged (BSBPRG) and
filled with only the read banks.
4. If MODE is not equal to "+" or "=" then "=" is
assumed.
5. NWORDS will return the length of the logical record
in Integer units.
6. A count is kept of the number of read errors
occurring. If this count exceeds 100 (since opening
the unit) then error code YEPRBD is returned.
7. If a bank is found to already exist then the previous
incarnation will be deleted and replaced by the
version read from the logical record.
8. The Physical and Logical Record formats are described
in detail in Appendix E.
9. A call to BVALON prior to using this routine will
result in named bank validation taking place upon
calling this routine. For example,
STATUS = BVALON(JW) (Turn validation on)
STATUS = .... (Call the routine)
STATUS = BVALOF(JW) (Turn validation off)
next page