CALL MZWORK (IXSTOR,DFIRST,DLAST,IFLAG)
Let NQREF be the number of permanent links in the store NL be the number of wsp links derived from DFIRST ND be the number of data words derived from DLAST NEWL = NQREF + NL NEWD = NQREF + NL + ND case 1 : the value of parameter IFLAG is illegal case 2 : NEWL is less than NQREF, ie. NL is negative case 3 : NEWD is less than NEWL, ie. ND is negative case 4 : NEWD reaches beyond the end of division 2
The following numbers are given in /QUEST/
IQUEST(11) = NQREF (12) = NEWL (13) = NEWD (14) = IFLAG