define a [new TConnection "uma.base.de.dados" "user" "pass"]

define b [$a prepareCall "ola"]

define c
define d
define e
define f

$b registerDate 1 c
$b registerInt 2 d
$b registerFloat 3 e
$b registerString 4 f

$b fetchOutParameters