ImportItemListFromXml Code

Copy and paste the code below into the designated edit point.

Edit Point Execute
 

ª+2 Set InputDocument = InputDoc
|0 10 480000c0 Function: CommonXML.ItemList.GetFirstOccurrence
|1 Parent
|2 15 a0006ef Field: WSYXML/ParentElement
|3 <none>
|4 20 a0006d9 Value: WSYXML/ParentElement.NULL
|7 10 480000c0 Function: CommonXML.ItemList.GetFirstOccurrence
// Parent<ParentElement> <ParentElement.NULL>
|1 Input
|2 0 0 <none>
|3 InputDocument
|4 0 0 <none>
|7 10 480000c0 Function: CommonXML.ItemList.GetFirstOccurrence
// Input InputDocument
ª+2 Call CommonXML.ItemList.GetFirstOccurrence
ª+2 Go Sub Error check
ª+2 Set InputDocument<ObjectElement> = CommonXML.ItemList.GetFirstOccurrence/Output<ObjectNode>
|0 10 48000496 Function: CommonXML.ItemList.Item.BrokerProcessGroup
|1 Input
|2 0 0 <none>
|3 InputDocument
|4 0 0 <none>
|7 10 48000496 Function: CommonXML.ItemList.Item.BrokerProcessGroup
// Input InputDocument
ª+2 Call CommonXML.ItemList.Item.BrokerProcessGroup
ª+2 Go Sub Error check
ª+2 Go Sub Terminate
@@
 

Pre Point Subroutines
 

ª+2 Sub Error check
|0 10 b0006b9 Function: WSYDOM/DomServices.ErrorPop
|0 10 b0006b9 Function: WSYDOM/DomServices.ErrorPop
ª+3 If Environment<*Returned status> IS <State: OBJECTS/*Returned status.*Abnormal>
|0 10 b0006b9 Function: WSYDOM/DomServices.ErrorPop
ª+4 Call DomServices.ErrorPop
|0 10 b0006b9 Function: WSYDOM/DomServices.ErrorPop
ª+4 While DomServices.ErrorPop/Output<ExceptionCode2> IS NOT <State: WSYDOM/ExceptionCode2.ErrorStackEmpty>
ª+5 Cast Environment<*Message text>, DomServices.ErrorPop/Output<ErrorDescription>
|0 10 b0006b9 Function: WSYDOM/DomServices.ErrorPop
ª+5 Call DomServices.ErrorPop
ª+4 Set Environment<*Returning status> = <*Returning status.*Error>
ª+4 Go Sub Terminate
@@