if(!($a =OCIParse($conn, "BEGIN :RES := 100; END;"))){
$err = OCIError($a);
echo $err["message"];
exit;
}
$res = 0;
echo $res.'<br>';
OCIBindByName($a, ":RES", $res, -1);
if (!OCIExecute($a)){
$err = OCIError($a);
echo $err["message"];
exit;
}
echo $res;