#PUSH !q
#DTYPE Q$ !1 // get the property type in q
#IF (!q =-1)
#ERROR DFERR_COMP_INVALID_DATATYPE (!1)
#ELSE
#IF (!q=19)
#PUSH !h
#STRG H$ !1
#DPUSH |CI!h
#DPUSH |CI19
#POP H$
#ELSE
#DPUSH |CI!q
#ENDIF
#ENDIF
#POP Q$