next up previous contents index
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)

IXSTOR
index of the store holding the title-structure (or index of any division in this store);
= zero for the primary store
!LR*
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;
ISELECT
selector to find the bank whose validity range matches this integer inclusively;
IFLAG
indicating the action to be taken for a missing title:
=0
: return with LR=0
>0
: TZFIND shall take the error-exit CALL \Rind{ZTELL (n,1)} with
n = 62 for IFLAG=1,
n = IFLAG for IFLAG>99.



next up previous contents index
Next: TZINIT - creating Up: Using the TZ Previous: Using the TZ


Janne Saarela
Mon May 15 08:34:47 METDST 1995