The value of LENGTH  defrined by J R can be assigned to an arithmetic
set symbol, give it the imaginative name/identifier &alength.  Then,
calling the arithmetic [set-symbol] value of the input-length
parameter &ilength.

|&el     seta  8    --error-mnote severity level
|&match setb (&alength eq &ilength)
|          aif   (&match).lengths_match   --if so, ok
|&abort setb 1       --no, set explicit quit switch
|          mnote  &el,' . . . . '  --error mnote

There is no language problem here, and the notion of triggering an
assembly error as a surrogate for writing an appropriate, fully
descriptive mnote is almost as ugly as that of triggering an ABEND by
using an irrelevant divide-by-zero operation.

John Gilmore, Ashland, MA 01721 - USA

Reply via email to