To change the value of flag JFL
in processor chID
one can call:
CALL JZSETF (chID, JFL, VALUE)
This routine acts only if the flag JFL
actually exists
in the processor chID
,
ie. if a title JZFL
of at least JFL
flags has been given.
In case of do-nothing it returns IQUEST(1)=0
.
In case of succesful operation it returns 3 values in
IQUEST(1/3)
in this order:
1 LFL adr of the flag JFL is IQ(LFL+JFL) 2 NFL length of the flag vector 3 OLD previous content of the changed flag