A
atuldalvi123
Guest
I tried that too as below but still not validating. CREATE SAX-READER hParser. RUN Service\ParseXML.p PERSISTENT SET hCallbacks. hParser:HANDLER = hCallbacks. hParser:SET-INPUT-SOURCE("FILE", "validate.xml"). hParser:VALIDATION-ENABLED = TRUE . /* no dtd validation, only XSD */ hParser:NONAMESPACE-SCHEMA-LOCATION = "validate.xsd". hParser:SCHEMA-PATH = "validate.xsd". hParser:SAX-PARSE-FIRST() NO-ERROR. REPEAT WHILE hParser
ARSE-STATUS = SAX-RUNNING: hParser:SAX-PARSE-NEXT() NO-ERROR. END. CASE hParserARSE-STATUS : WHEN SAX-COMPLETE THEN DO : MESSAGE "sax parser complete" VIEW-AS ALERT-BOX. END. WHEN SAX-PARSER-ERROR THEN DO : MESSAGE "sax parser error" VIEW-AS ALERT-BOX. END. OTHERWISE DO : MESSAGE "Unknown status" VIEW-AS ALERT-BOX. END. END CASE. IF ERROR-STATUS:ERROR THEN DO: IF ERROR-STATUS:NUM-MESSAGES > 0 THEN MESSAGE ERROR-STATUS:GET-MESSAGE(1) VIEW-AS ALERT-BOX. ELSE MESSAGE RETURN-VALUE VIEW-AS ALERT-BOX. END. ELSE MESSAGE "Document parsed successfully" VIEW-AS ALERT-BOX. DELETE OBJECT hParser. DELETE PROCEDURE hCallbacks.
Continue reading...
ARSE-STATUS = SAX-RUNNING: hParser:SAX-PARSE-NEXT() NO-ERROR. END. CASE hParserARSE-STATUS : WHEN SAX-COMPLETE THEN DO : MESSAGE "sax parser complete" VIEW-AS ALERT-BOX. END. WHEN SAX-PARSER-ERROR THEN DO : MESSAGE "sax parser error" VIEW-AS ALERT-BOX. END. OTHERWISE DO : MESSAGE "Unknown status" VIEW-AS ALERT-BOX. END. END CASE. IF ERROR-STATUS:ERROR THEN DO: IF ERROR-STATUS:NUM-MESSAGES > 0 THEN MESSAGE ERROR-STATUS:GET-MESSAGE(1) VIEW-AS ALERT-BOX. ELSE MESSAGE RETURN-VALUE VIEW-AS ALERT-BOX. END. ELSE MESSAGE "Document parsed successfully" VIEW-AS ALERT-BOX. DELETE OBJECT hParser. DELETE PROCEDURE hCallbacks.Continue reading...