project BLF > class Database Component > method ConvertXmlToTable
Description
read xml node and write to class temp-tables (t_s***)
Parameters
ihParentNode | input | handle | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program1/database.p)
if oiReturnStatus = 0
then oiReturnStatus = -98.
<M-1 run DataDescription
(input '' (icRowids),
input '' (icPkey),
input '' (icObjectIds),
input yes (ilAllTables),
output viFcReturnSuper (oiReturnStatus)) in database>
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then return.
for each tFcDynRel:
assign vcTables = vcTables + ",":U + string(tFcDynRel.thFcSBuffer)
+ ",":U + tFcDynRel.tcFcTo.
end.
assign vhFcComponent = ?.
<M-2 run MainBlock () in XML>
assign vhXMLhandle = vhFcComponent.
<M-4 run ConvertXmlToTable
(input {&TARGETPROCEDURE} (ihComponent),
input ihParentNode (ihParentNode),
input substring(vctables,2,-1,'CHARACTER':U) (icTables),
output tDBTableRef (tTableRef),
output viFcReturnSuper (oiReturnStatus)) in XML>
run gipr_DeleteProcedure in vhXMLhandle.
delete procedure vhXMLHandle.
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then return.
if oiReturnStatus = -98
then oiReturnStatus = 0.