ORA_PConnect();
if (!$ora_res){
echo "
Error : " . htmlspecialchars($ora_obj->last_error_msg) . "
";
exit();
}
initParamTemplate();
$result = getList($ora_obj);
echo $result;
unset($_SESSION['TEMPLATE_ARRAY_ADDR']);
if ($ora_obj->conn) {
$ora_obj->ORA_Close();
#echo "connection closed.
";
}
function initParamTemplate(){
$paramTemplate['ELEMENT'] = <<< params
| <>. |
<> |
<> |
<> |
<> |
<> |
<> |
params;
$paramTemplate['CONTAINER'] = <<< params
| Kode Transaksi Treasury |
|
params;
$paramTemplate['NORESULT'] = <<< params
params;
$_SESSION['TEMPLATE_ARRAY_ADDR'] = &$paramTemplate;
}
function getList(&$ora_obj){
$templObj = new PregReplaceCallbackClass('');
$templObj->SetTemplateArray('TEMPLATE_ARRAY_ADDR');
$paramSQL = <<< sql
SELECT t.trans_code,
( SELECT trname FROM a2tr_staging WHERE trcode = t.trans_code) trans_code_desc,
t.trans_idr_code,
( SELECT trname FROM a2tr_staging WHERE trcode = t.trans_idr_code) trans_idr_code_desc,
DECODE(t.trans_type, 'B', 'Buy', 'Sell') trans_type_desc,
DECODE(t.bn_flag, 'B', 'Bank Note', 'TT') bn_flag_desc
FROM trsry_tran_code_tab t
ORDER BY t.trans_code
sql;
$paramArray = $ora_obj->ORA_SelectData($paramSQL,null,null,OCI_FETCHSTATEMENT_BY_ROW);
$_SESSION['ARRAY_ADDR_VAR'] = &$variable_array;
if ($ora_obj->nrows>0) {
foreach ($paramArray as $pkey => $pval) {
$variable_array['COUNTER']++;
foreach ($pval as $tkey => $tval) {
$variable_array[$tkey] = htmlspecialchars($tval);
}
$templObj->SetFormatName('ELEMENT');
$list .= $templObj->PregReplaceCallback();
}
$variable_array['LIST'] = $list;
$templObj->SetFormatName('CONTAINER');
$result = $templObj->PregReplaceCallback();
} else {
$templObj->SetFormatName('NORESULT');
$result = $templObj->PregReplaceCallback();
}
return $result;
}
?>