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>