function ptr_chk, var

return, size(/tname, var) eq 'POINTER'

en