IBM Assembler Question:

for example we want to test if given variable is numeric we can do it by following code.

We can define a table with all FF execpt from 0 t0 9 00

Table1 DC 256c'ff'
org table1
dc 10c'00'

Now we can give
TRT var1,table1
BZ numeric