TZSHUN - insert banks into a title structure

Although most commonly the banks in the TZ structure are created by TZINIT, it may sometimes be handier to set-up some titles directly in the program, rather than taking them from an external text file. The main advantage of introducing the titles via TZINIT is that they are easily changed without re-compilation of the program. But for a title which never changes one can lift a bank in the right division and hand it to TZSHUN to re-link it into the TZ structure:

CALL TZSHUN (IXSTOR, !L, IFLAG)

IXSTOR

index of the store holding the title structure (or index of any division in this store);

!L

address of the (linear structure of) new bank(s)

IFLAG

1: insert at the start,
0: insert at the end of the structure.

Example: create a default title bank TRAN in the system division of store IXSTOR if it does not already exist:

      DIMENSION    NAME(5)
      DATA NAME /4HTRAN, 0, 0, nd, 3/

      CALL TZFIND (IXSTOR,L,NAME,0,0)
      IF (L.EQ.0)  THEN
          CALL MZLIFT (IXSTOR+24, L, 0,2, NAME)
          Q(L+1) =  title word 1
          Q(L+2) =  title word 2
           ...       ...
          Q(L+nd)=  title word nd
          CALL TZSHUN (IXSTOR,L,0)
        ENDIF

Note: the system division of store IXSTOR is specified symbolically as IXSTOR+24.

Note: if L points in fact to a linear structure all banks are taken.