FUNCTION CalcVal(#value)
message "in CalcVal #value is:"&str(#value)
  $value=str(fixed(#value,2)*100)		'
message "in CalcVal $value is:"&str($value)
  #lineval=right("000000000000000000"|$value,18)	'
message "in CalcVal #lineval is:"&str(#lineval)
END FUNCTION ' CalcVal()