Diagnostics for ZSHUNT

CALL ZSHUNT (IXSTOR,LSH,LSUP,JB,IFLAG)

#ZFATAL>ZFATAL termination

  case 1 :  LSH does not contain a valid bank address
                (see /MZCN/ in the post-mortem dump)
  case 2 :  LSUP does not contain a valid address (see /MZCN/)
  case 3 :  the bank at LSUP has less than -JB str. links (see /MZCN/)
  case 4 :  LSH is not in the same division as the bank at L of the
            target linear stucture
  case 5 :  LNEX, the link 0 of the bank at L, is an invalid address

The following numbers are given in /QUEST/

for cases 1 to 5 :

 IQUEST(11) = LSH  - the input parameters
       (12) = LSUP
       (13) = JB
       (14) = IFLAG

for cases 4 and 5 :

 IQUEST(15) = L

for case 5 :

 IQUEST(16) = LNEX