I had the same question in a german forum ...and I got this
It worked fine for me
GRIPSW/ DECLRV
ENTITY/ obj
NUMBER/ subtyp
NUMBER/ objori(3)
STRING/ ostr(255)
MASK/ 25
INEXTE/ ALL
loopob:
obj = NEXTE/ IFEND, allobj:
subtyp = &SUBTYP(obj)
IFTHEN/ subtyp == 1
ostr =...