CALL MZLINK (IXSTOR,CHNAME,LAREA,LREF,LREFL) CALL MZLINT (IXSTOR,CHNAME,LAREA,LREF,LREFL)
case 1 : the parameters are inconsistent
case 2 : the new link-area overlaps with the table of some store
case 3 : the new link-area overlaps with some store
case 4 : the new link-area overlaps with a previously defined
link-area for some store
The following numbers are given in /QUEST/
for cases 1 to 4 :
IQUEST(11) = char 1:4
(12) = 5:8 of the printing name of the new link-area
(13) = absolute adr of parameter LAREA
(14) = absolute adr of parameter LREF
(15) = absolute adr of parameter LREFL
(16) = number of structural links derived
(17) = total number of links derived
for cases 2 to 4 :
IQUEST(18) = serial number of the clashing store;
= 0 for the primary store,
= 1 for the first secondary store, etc.
(19) = char 1:4
(20) = 5:8 of the printing name of the clashing store
for case 4 :
IQUEST(21) = char 1:4
(22) = 5:8 of the printing name of the clashing link-area
(23) = absolute adr of the start of the clashing link-area
(24) only for MZLINT : = initial content of LAREA(2)
Case 4 will happen with MZLINT if the user over-writes
the system word in LAREA(2),
in which case the link-area will appear to clash with itself.
CALL MZMARK (IXSTOR,L,CHOPT,NID,IDLIST)
See MZFLAG