The banks in the linear TZ structure are identified by their normal Hollerith and numeric bank identifiers. To find a particular title bank, one calls:
CALL TZFIND (IXSTOR, !L*, IDH, IDN, IFLAG)
4Hxxxx
, or
a literal character string 'xxxx
' of 4 characters exactly
IDH
is returned,
otherwise the search continues to find the bank IDH
which has the numeric identifier IDN
;
L=0
CALL \Rind{ZTELL
(n,1)} with n = 61
for IFLAG=1
,n = IFLAG
for IFLAG>99
.
TZFIND returns the first bank with IDH
/IDN
in the linear structure.
If there are other banks with the same IDH
/IDN
further down,
they cannot be reached with TZFIND;
but they could be reached with TZVERS
or with LZFIND.
TZVERS is similar to TZFIND, but it allows one also to select
a particular version from a set of title banks all having the
same IDH
(and IDN
, maybe).
The use of TZVERS requires that the first two words of the title banks to be selected contain two integers specifying the validity range of the bank.
CALL TZVERS (IXSTOR, !LR*, IDH, IDN, ISELECT, IFLAG)
4Hxxxx
, or
a literal character string 'xxxx
' of 4 characters exactly
IDH
is returned,
otherwise the search continues to find the bank IDH
which has the numeric identifier IDN
;
LR=0
CALL \Rind{ZTELL
(n,1)} with n = 62
for IFLAG=1
,n = IFLAG
for IFLAG>99
.