Block if not ( XMLValidate (File2Blb(‘my.xml’),’http://srvr/my.xsd’)) Update ErrorList XMLValidationError() Update Count VecSize (ErrorList)
Block While 1 .. Count Update ErrorList VecGet (ErrorList, loop-counter) Block End
Block Else Update Warnings XMLValidationError() Update Count VecSize (Warnings)
Block While 1 .. Count Update Warning VecGet (Warnings, loop-counter) Block End
Block End
|