method DumpXmlRemoveFieldsNotForInput

Description

remove fields from the xml that are irrelevant to direct input

Parameters

ihTableNode

input

handle

x-noderef object

Internal usage

BLF

method database.DumpXmlRemoveFieldsNotForInput
method database.PopulateXDocument

program code (program1/database.p)

create x-noderef vhFieldNode in widget-pool "non-persistent".

do viFieldCount = ihTableNode:num-children to 1 by -1:
    ihTableNode:get-child(vhFieldNode,viFieldCount).
    if vhFieldNode:name = "tc_Status"
    or vhFieldNode:name matches "*_ID"
    then ihTableNode:remove-child(vhFieldNode).
    else if vhFieldNode:subtype = "ELEMENT"
    then do:
        <M-1 run DumpXmlRemoveFieldsNotForInput  (input  vhFieldNode (ihTableNode)) in database>
    end.
end.

delete object vhFieldNode.