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