#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
#STRM STRUCT |CI!h !2
#POP H$
#ELSE
#STRM SCALAR |CI!q !2
#ENDIF
#ENDIF
#POP Q$