Next: TZINIT - creating Up: Using the TZ Previous: Using the TZ

TZFIND - access to title banks

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)

IXSTOR

index of the store holding the title-structure (or index of any division in this store);
= zero for the primary store

!L*

output parameter to contain the link pointing to the title bank found; = zero if not found

IDH

the Hollerith identifier, either an integer variable of the form 4Hxxxx, or a literal character string 'xxxx' of 4 characters exactly

IDN

the numeric identifier, if zero the first bank matching IDH is returned, otherwise the search continues to find the bank IDH which has the numeric identifier IDN;

IFLAG

indicating the action to be taken for a missing title:

=0: : return with L=0
>0: : TZFIND shall take the error-exit 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)