@ tefigel

|--
|   Return array cardinality of given property.
|--
interface(JPROP)

set RVAL=1

ungroup(JPROP,|,ID,TYPE,T_CLASS,E_PATH,CARD,R_MIN,R_MAX,LABEL)

if TYPE=string
   if CARD>0
      set RVAL=CARD
   endif
endif

retvalue=RVAL