cat > script <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
set MSQLECHO to "batch conv";
create emt (dat1 date(0), i1 integer, dec1 decimal(14,3), flt1 float);
insert emt set dat1 to "01/01/87";
select substr('yes',1) from emt where is_white(" 	");
select substr('yes',1) from emt where is_white(" 	n");
select substr('yes',1) from emt where is_integer(" 	n");
select substr('yes',1) from emt where is_integer("12");
select substr('yes',1) from emt where is_integer("129",1);
select substr('yes',1) from emt where is_integer("129",2);
select substr('yes',1) from emt where is_integer("127",1);
select substr('yes',1) from emt where is_integer("-127",1);
select substr('yes',1) from emt where is_integer("-1279999",3);
select toupper('yes!') from emt where is_decimal("-1279999");
select toupper('yes!') from emt where is_decimal("-1279999",3);
select toupper('yes!') from emt where is_decimal("-127.9999",3);
select toupper('yes!') from emt where is_decimal("-1279.999",3);
select toupper('yes!') from emt where is_decimal("-1279.999",4,3);
select toupper('yes!') from emt where is_decimal("1279.999",4,3);
select toupper('yes!') from emt where is_decimal("-9.999",4,3);
select toupper('yes!') from emt where is_decimal("-9.999",4,2);
select toupper('yes!') from emt where '12' match '[0-9]{[0-9]}{[a-z]}';
select toupper('yes!') from emt where '12a' match '[0-9]{[0-9]}{[a-z]}';
select toupper('yes!') from emt where '12ac' match '[0-9]{[0-9]}{[a-z]}';
drop emt;
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 script
cat > stdout <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
* * create emt (dat1 date(0), i1 integer, dec1 decimal(14,3), flt1 float);
* insert emt set dat1 to "01/01/87";
* select substr('yes',1) from emt where is_white(" 	");
SUBSTR( 'yes', 1)

yes
* select substr('yes',1) from emt where is_white(" 	n");
SUBSTR( 'yes', 1)

* select substr('yes',1) from emt where is_integer(" 	n");
SUBSTR( 'yes', 1)

* select substr('yes',1) from emt where is_integer("12");
SUBSTR( 'yes', 1)

yes
* select substr('yes',1) from emt where is_integer("129",1);
SUBSTR( 'yes', 1)

* select substr('yes',1) from emt where is_integer("129",2);
SUBSTR( 'yes', 1)

yes
* select substr('yes',1) from emt where is_integer("127",1);
SUBSTR( 'yes', 1)

yes
* select substr('yes',1) from emt where is_integer("-127",1);
SUBSTR( 'yes', 1)

yes
* select substr('yes',1) from emt where is_integer("-1279999",3);
SUBSTR( 'yes', 1)

yes
* select toupper('yes!') from emt where is_decimal("-1279999");
TOUPPER( 'yes!')

YES!
* select toupper('yes!') from emt where is_decimal("-1279999",3);
TOUPPER( 'yes!')

* select toupper('yes!') from emt where is_decimal("-127.9999",3);
TOUPPER( 'yes!')

* select toupper('yes!') from emt where is_decimal("-1279.999",3);
TOUPPER( 'yes!')

* select toupper('yes!') from emt where is_decimal("-1279.999",4,3);
TOUPPER( 'yes!')

* select toupper('yes!') from emt where is_decimal("1279.999",4,3);
TOUPPER( 'yes!')

* select toupper('yes!') from emt where is_decimal("-9.999",4,3);
TOUPPER( 'yes!')

YES!
* select toupper('yes!') from emt where is_decimal("-9.999",4,2);
TOUPPER( 'yes!')

* select toupper('yes!') from emt where '12' match '[0-9]{[0-9]}{[a-z]}';
TOUPPER( 'yes!')

YES!
* select toupper('yes!') from emt where '12a' match '[0-9]{[0-9]}{[a-z]}';
TOUPPER( 'yes!')

YES!
* select toupper('yes!') from emt where '12ac' match '[0-9]{[0-9]}{[a-z]}';
TOUPPER( 'yes!')

YES!
* drop emt;
* 
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
Test msbool function expressions: is_white(),  is_integer(), is_decimal(), etc.
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
