>? Test('aaaBBBccc') >? Test('aaa123ddd') > >PROCEDURE Test(ss) >RETURN EMPTY(AT("0",CHRTRAN(m.ss, "123456789", "000000000"))) >
procedure test(ss) return ss==chrtran(ss, "0123456789","**********")