Re: /Free TESTN

[Hans Boldt <boldt@xxxxxxxxxx>]

Lurton wrote:
> Does anyone have an elagant way to do TESTN in /free?

rob@xxxxxxxxx replied:
> Monitor;
> MyNbr=%dec(MyChar);  // requires 5.2
> On-Error;
>   // oh crud, not numeric
> EndMon;
>
> Rob Berendt

No, that doesn't do exactly what TESTN does. For example, the input 
'123.45' is accepted by %DEC as a valid number but TESTN doesn't. 
Likewise, with input '1234J', %DEC throws up but TESTN likes it.

I can't think of any elegant way to replace TESTN within free-form 
calcs. You could check for digits 0-9 for the all the characters except 
the last, then check for 0-9, x'C0'-x'C9, and x'D0'-x'D9' as the last 
character. That is, you could do

%CHECK('0123456789':%SUBST(STR:1:%LEN(STR)-1) AND 
%CHECK(x'C0C1C2C3C4C5C6C7C8C9D0D1D2D3D4D5D6D7D8D9F0F1F2F3F4F5F6F7F8F9':%SUBST(STR:%LEN(STR)))

But that's not very elegant. Probably better to code a fixed-form TESTN 
in a procedure, and call that from within your free-form calcs.

Alternatively, you could assign the character string to a character 
subfield overlaying a zoned decimal subfield, and then monitor for an 
error trying to use the zoned subfield.

On the other hand, is TESTN *really* what you think you want?

Cheers! Hans