Diagnostics for MZCOPY

CALL MZCOPY (IXDVFR,LENTRY,options,IXDVTO,LSUP,JBIAS)

If an error exit occurs the space allocated for the copy, if any, is released.

#ZTELL>ZTELL termination

      CALL ZTELL (15,1)   with  IQUEST(2) = JERROR,

where JERROR :

        = 1 :  LENTRY invalid
                 IQUEST(11) = LENTRY

        = 2 :  bank chaining clobbered found in the input d/s
                 IQUEST(11) = store number
                 IQUEST(12) = division number

        = 3 :  not enough space to construct the relocation table

        = 4 :  d/s larger than the target space
                 IQUEST(11) = NW, size of the d/s
                 IQUEST(12) = NWMAX, size ot the target space

        = 5 :  d/s to be copied is empty

        = 6 :  bank chaining clobbered found in the copied d/s

        = 7 :  target division not specified

Error return

      If the P option was selected by the user to permit error return
      IQUEST(1) in COMMON /QUEST/IQUEST(100) is set non-zero :

                 IQUEST(1) = JERROR