DBB_PRE_LOAD
You can execute the DBB_PRE_LOAD exit point to provide a custom routine that loads XML data passed with the DBB_XMLInput(...) parameter on the ITPRun command.
In the following example, XML is a DATASTRUCTURE that describes the XML data structure.
DBB_PRE_LOAD PROC load_gax (XML xml)
DO
...
OD
If the DBB_PRE_LOAD exit point is not present, the DBB_XMLInput(...) parameter is used to fill _data.
DATASTRUCTURE GAX
BEGIN
TEXT PolicyNumber
NUMBER ExpirationDate
END
DBB_PRE_LOAD
PROC load_gax (GAX gax)
DO
ASSIGN _data.PolicyData.Policy := gax.PolicyNumber
IF gax.ExpirationDate <> "" THEN
ASSIGN _data.PolicyData.Expires := gax.ExpirationDate
FI
OD
The preceding example reads an XML file formatted as shown in the following example and uses its contents to fill _data.
<GAX>
<PolicyNumber>123.456.7890</PolicyNumber>
<ExpirationDate>20151231</ExpirationDate>
</GAX>