#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$