ExportItemListToXml Code

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

Pre Point Execute
 

ª+2 Go Sub Create root element
ª+2 Go Sub Fetch Item Data
ª+2 Go Sub Terminate
@@

Pre Point Subroutines
 

ª+1 Sub Create root element
ª+2 Set OutputDocument = Input
|0 10 48000236 Function: CommonXML.ItemList.InsertRow
|1 Input
|2 15 b000e38 Field: WSYDOM/ObjectStoreReference
|3 OutputDocument
|4 15 b000e38 Field: WSYDOM/ObjectStoreReference
|7 10 48000236 Function: CommonXML.ItemList.InsertRow
// Input<ObjectStoreReference> OutputDocument<ObjectStoreReference>
|1 Input
|2 15 a0006ef Field: WSYXML/ParentElement
|3 OutputDocument
|4 15 b000065 Field: WSYDOM/ObjectDocument
|7 10 48000236 Function: CommonXML.ItemList.InsertRow
// Input<ParentElement> OutputDocument<ObjectDocument>
|1 Input
|2 15 b000065 Field: WSYDOM/ObjectDocument
|3 OutputDocument
|4 15 b000065 Field: WSYDOM/ObjectDocument
|7 10 48000236 Function: CommonXML.ItemList.InsertRow
// Input<ObjectDocument> OutputDocument<ObjectDocument>
ª+2 Call CommonXML.ItemList.InsertRow
ª+2 Go Sub Error check
ª+2 Set OutputDocument<ObjectElement> = CommonXML.ItemList.InsertRow/Output<ObjectElement>
ª+1 Sub Fetch Item Data
ª+2 Set Local<ItemID> = <ItemID.*Blank>
ª+2 Set Local<Position> = <Position.Yes>
ª+2 Set Local<EndOfView> = <EndOfView.No>
|0 10 48000231 Function: Data.DistributorA.Item.Fetch.BlockFetch
|1 Position
|2 15 4800029d Field: ItemID
|3 Local
|4 15 4800029d Field: ItemID
|7 10 48000231 Function: Data.DistributorA.Item.Fetch.BlockFetch
// Position<ItemID> Local<ItemID>
|1 Control
|2 15 1500002f Field: FIELDS/Position
|3 Local
|4 15 1500002f Field: FIELDS/Position
|7 10 48000231 Function: Data.DistributorA.Item.Fetch.BlockFetch
// Control<Position> Local<Position>
|1 Control
|2 15 1500003c Field: FIELDS/RowsFetched
|3 Local
|4 15 1500003c Field: FIELDS/RowsFetched
|7 10 48000231 Function: Data.DistributorA.Item.Fetch.BlockFetch
// Control<RowsFetched> Local<RowsFetched>
|0 10 480001e8 Function: CommonXML.ItemList.Item.InsertRow
|1 Input
|2 15 b000e38 Field: WSYDOM/ObjectStoreReference
|3 OutputDocument
|4 15 b000e38 Field: WSYDOM/ObjectStoreReference
|7 10 480001e8 Function: CommonXML.ItemList.Item.InsertRow
// Input<ObjectStoreReference> OutputDocument<ObjectStoreReference>
|1 Input
|2 15 a0006ef Field: WSYXML/ParentElement
|3 OutputDocument
|4 15 b0000b1 Field: WSYDOM/ObjectElement
|7 10 480001e8 Function: CommonXML.ItemList.Item.InsertRow
// Input<ParentElement> OutputDocument<ObjectElement>
|1 Input
|2 15 b000065 Field: WSYDOM/ObjectDocument
|3 OutputDocument
|4 15 b000065 Field: WSYDOM/ObjectDocument
|7 10 480001e8 Function: CommonXML.ItemList.Item.InsertRow
// Input<ObjectDocument> OutputDocument<ObjectDocument>
|1 Input/Data
|2 15 4800026e Field: CommonXML.ItemList.Item.Fields.ItemID
|3 ItemList
|4 15 4800026e Field: CommonXML.ItemList.Item.Fields.ItemID
|7 10 480001e8 Function: CommonXML.ItemList.Item.InsertRow
// Input/Data<CommonXML.ItemList.Item.Fields.ItemID> ItemList<CommonXML.ItemList.Item.Fields.ItemID>
|1 Input/Data
|2 15 4800026c Field: CommonXML.ItemList.Item.Fields.Name
|3 ItemList
|4 15 4800026c Field: CommonXML.ItemList.Item.Fields.Name
|7 10 480001e8 Function: CommonXML.ItemList.Item.InsertRow
// Input/Data<CommonXML.ItemList.Item.Fields.Name> ItemList<CommonXML.ItemList.Item.Fields.Name>
ª+2 While Local<EndOfView> == <EndOfView.No>
|0 10 48000231 Function: Data.DistributorA.Item.Fetch.BlockFetch
|1 Position
|2 15 4800029d Field: ItemID
|3 Local
|4 15 4800029d Field: ItemID
|7 10 48000231 Function: Data.DistributorA.Item.Fetch.BlockFetch
// Position<ItemID> Local<ItemID>
|1 Control
|2 15 1500002f Field: FIELDS/Position
|3 Local
|4 15 1500002f Field: FIELDS/Position
|7 10 48000231 Function: Data.DistributorA.Item.Fetch.BlockFetch
// Control<Position> Local<Position>
|1 Control
|2 15 1500003c Field: FIELDS/RowsFetched
|3 Local
|4 15 1500003c Field: FIELDS/RowsFetched
|7 10 48000231 Function: Data.DistributorA.Item.Fetch.BlockFetch
// Control<RowsFetched> Local<RowsFetched>
ª+3 Call Data.DistributorA.Item.Fetch.BlockFetch
ª+3 Set Local<Position> = <Position.No>
ª+3 If Environment<*Returned status> IS <State: OBJECTS/*Returned status.*Abnormal>
ª+4 Set Local<EndOfView> = <EndOfView.Yes>
|0 10 480001e8 Function: CommonXML.ItemList.Item.InsertRow
|1 Input
|2 15 b000e38 Field: WSYDOM/ObjectStoreReference
|3 OutputDocument
|4 15 b000e38 Field: WSYDOM/ObjectStoreReference
|7 10 480001e8 Function: CommonXML.ItemList.Item.InsertRow
// Input<ObjectStoreReference> OutputDocument<ObjectStoreReference>
|1 Input
|2 15 a0006ef Field: WSYXML/ParentElement
|3 OutputDocument
|4 15 b0000b1 Field: WSYDOM/ObjectElement
|7 10 480001e8 Function: CommonXML.ItemList.Item.InsertRow
// Input<ParentElement> OutputDocument<ObjectElement>
|1 Input
|2 15 b000065 Field: WSYDOM/ObjectDocument
|3 OutputDocument
|4 15 b000065 Field: WSYDOM/ObjectDocument
|7 10 480001e8 Function: CommonXML.ItemList.Item.InsertRow
// Input<ObjectDocument> OutputDocument<ObjectDocument>
|1 Input/Data
|2 15 4800026e Field: CommonXML.ItemList.Item.Fields.ItemID
|3 ItemList
|4 15 4800026e Field: CommonXML.ItemList.Item.Fields.ItemID
|7 10 480001e8 Function: CommonXML.ItemList.Item.InsertRow
// Input/Data<CommonXML.ItemList.Item.Fields.ItemID> ItemList<CommonXML.ItemList.Item.Fields.ItemID>
|1 Input/Data
|2 15 4800026c Field: CommonXML.ItemList.Item.Fields.Name
|3 ItemList
|4 15 4800026c Field: CommonXML.ItemList.Item.Fields.Name
|7 10 480001e8 Function: CommonXML.ItemList.Item.InsertRow
// Input/Data<CommonXML.ItemList.Item.Fields.Name> ItemList<CommonXML.ItemList.Item.Fields.Name>
ª+3 If Local<RowsFetched> >> <RowsFetched.*Zero>
ª+4 Set Local<GridRow> = <GridRow.*One>
|0 10 480001e8 Function: CommonXML.ItemList.Item.InsertRow
|1 Input
|2 15 b000e38 Field: WSYDOM/ObjectStoreReference
|3 OutputDocument
|4 15 b000e38 Field: WSYDOM/ObjectStoreReference
|7 10 480001e8 Function: CommonXML.ItemList.Item.InsertRow
// Input<ObjectStoreReference> OutputDocument<ObjectStoreReference>
|1 Input
|2 15 a0006ef Field: WSYXML/ParentElement
|3 OutputDocument
|4 15 b0000b1 Field: WSYDOM/ObjectElement
|7 10 480001e8 Function: CommonXML.ItemList.Item.InsertRow
// Input<ParentElement> OutputDocument<ObjectElement>
|1 Input
|2 15 b000065 Field: WSYDOM/ObjectDocument
|3 OutputDocument
|4 15 b000065 Field: WSYDOM/ObjectDocument
|7 10 480001e8 Function: CommonXML.ItemList.Item.InsertRow
// Input<ObjectDocument> OutputDocument<ObjectDocument>
|1 Input/Data
|2 15 4800026e Field: CommonXML.ItemList.Item.Fields.ItemID
|3 ItemList
|4 15 4800026e Field: CommonXML.ItemList.Item.Fields.ItemID
|7 10 480001e8 Function: CommonXML.ItemList.Item.InsertRow
// Input/Data<CommonXML.ItemList.Item.Fields.ItemID> ItemList<CommonXML.ItemList.Item.Fields.ItemID>
|1 Input/Data
|2 15 4800026c Field: CommonXML.ItemList.Item.Fields.Name
|3 ItemList
|4 15 4800026c Field: CommonXML.ItemList.Item.Fields.Name
|7 10 480001e8 Function: CommonXML.ItemList.Item.InsertRow
// Input/Data<CommonXML.ItemList.Item.Fields.Name> ItemList<CommonXML.ItemList.Item.Fields.Name>
ª+4 While Local<GridRow> <= Local<RowsFetched>
ª+5 Use FetchedData, Local<GridRow>
ª+5 Cast ItemList<CommonXML.ItemList.Item.Fields.ItemID>, FetchedData<ItemID>
ª+5 Cast ItemList<CommonXML.ItemList.Item.Fields.Name>, FetchedData<MyName>
|0 10 480001e8 Function: CommonXML.ItemList.Item.InsertRow
|1 Input
|2 15 b000e38 Field: WSYDOM/ObjectStoreReference
|3 OutputDocument
|4 15 b000e38 Field: WSYDOM/ObjectStoreReference
|7 10 480001e8 Function: CommonXML.ItemList.Item.InsertRow
// Input<ObjectStoreReference> OutputDocument<ObjectStoreReference>
|1 Input
|2 15 a0006ef Field: WSYXML/ParentElement
|3 OutputDocument
|4 15 b0000b1 Field: WSYDOM/ObjectElement
|7 10 480001e8 Function: CommonXML.ItemList.Item.InsertRow
// Input<ParentElement> OutputDocument<ObjectElement>
|1 Input
|2 15 b000065 Field: WSYDOM/ObjectDocument
|3 OutputDocument
|4 15 b000065 Field: WSYDOM/ObjectDocument
|7 10 480001e8 Function: CommonXML.ItemList.Item.InsertRow
// Input<ObjectDocument> OutputDocument<ObjectDocument>
|1 Input/Data
|2 15 4800026e Field: CommonXML.ItemList.Item.Fields.ItemID
|3 ItemList
|4 15 4800026e Field: CommonXML.ItemList.Item.Fields.ItemID
|7 10 480001e8 Function: CommonXML.ItemList.Item.InsertRow
// Input/Data<CommonXML.ItemList.Item.Fields.ItemID> ItemList<CommonXML.ItemList.Item.Fields.ItemID>
|1 Input/Data
|2 15 4800026c Field: CommonXML.ItemList.Item.Fields.Name
|3 ItemList
|4 15 4800026c Field: CommonXML.ItemList.Item.Fields.Name
|7 10 480001e8 Function: CommonXML.ItemList.Item.InsertRow
// Input/Data<CommonXML.ItemList.Item.Fields.Name> ItemList<CommonXML.ItemList.Item.Fields.Name>
ª+5 Call CommonXML.ItemList.Item.InsertRow
ª+5 Go Sub Error check
ª+5 Set Local<GridRow> = Local<GridRow> + <GridRow.*One>
ª+1 Sub Error check
|0 10 b0006b9 Function: WSYDOM/DomServices.ErrorPop
|0 10 b0006b9 Function: WSYDOM/DomServices.ErrorPop
ª+2 If Environment<*Returned status> IS <State: OBJECTS/*Returned status.*Abnormal>
|0 10 b0006b9 Function: WSYDOM/DomServices.ErrorPop
ª+3 Call DomServices.ErrorPop
|0 10 b0006b9 Function: WSYDOM/DomServices.ErrorPop
ª+3 While DomServices.ErrorPop/Output<ExceptionCode2> IS NOT <State: WSYDOM/ExceptionCode2.ErrorStackEmpty>
ª+4 Cast Environment<*Message text>, DomServices.ErrorPop/Output<ErrorDescription>
|0 4 6000033f Message: OBJECTS/Message
|1 <none>
|2 15 60000355 Field: OBJECTS/*Message text
|3 Environment
|4 15 60000355 Field: OBJECTS/*Message text
|7 4 6000033f Message: OBJECTS/Message
// <*Message text> Environment<*Message text>
ª+4 Dialog Message Message: OBJECTS/Message
|0 10 b0006b9 Function: WSYDOM/DomServices.ErrorPop
ª+4 Call DomServices.ErrorPop
ª+3 Set Environment<*Returning status> = <*Returning status.*Error>
ª+3 Go Sub Terminate
@@