/* pi-tfx-read-2.p */
/* Verifies XML Schema against a static temp-table. */ {pi-tfx-parameterVarDefs.i} DEFINE VARIABLE lReturn AS LOGICAL NO-UNDO. DEFINE TEMP-TABLE ttCustomer NO-UNDO FIELD CustNum LIKE Customer.CustNum FIELD Name LIKE Customer.Name FORMAT "X(30)". ASSIGN cSourceType = "FILE" cFile = "ttCustomer.xsd" lOverrideDefaultMapping = ? cFieldTypeMapping = ? cVerifySchemaMode = "STRICT". DISPLAY "Reading XML Schema..." SKIP. lReturn = TEMP-TABLE ttCustomer:READ-XMLSCHEMA(cSourceType, cFile, lOverrideDefaultMapping, cFieldTypeMapping, cVerifySchemaMode). IF lReturn THEN DISPLAY "Success: Temp-table definition verified against XML Schema.". END. |