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.