anchor.diff:  	       (oci-attr-get (deref-vp parmdp)
   			     +oci-dtype-param+ 
   			     colsize
  -			     (uffi:make-null-pointer :unsigned-int) ;;  (uffi:pointer-address colsizesize) 
  +			     +unsigned-int-null-pointer+
   			     +oci-attr-data-size+
   			     (deref-vp errhp))
   	       (let ((colsize-including-null (1+ (uffi:deref-pointer colsize :unsigned-long))))
  
positive.code: 		    (value
  		     (let* ((arb (foreign-resource-buffer (cd-indicators cd)))
  			    (indicator (uffi:deref-array arb '(:array :short) irow)))
  		       ;; b(declare (type short-array arb))
  		       (unless (= indicator -1)
  			 (ecase (cd-oci-data-type cd)
  			   (#.SQLT-STR  
  
negative.code: 	       (oci-attr-get (deref-vp parmdp)
  			     +oci-dtype-param+
  			     precision
  			     +unsigned-int-null-pointer+
  			     +oci-attr-precision+
  			     (deref-vp errhp))
  	       (oci-attr-get (deref-vp parmdp)
  			     +oci-dtype-param+
  			     scale
  			     +unsigned-int-null-pointer+
  			     +oci-attr-scale+
  			     (deref-vp errhp))
  	       (let ((*scale (uffi:deref-pointer scale :byte))
  