RXS_Validate()

      *--------------------------------------------------------------
      * This example code validates XML data against a specified XSD.
      *--------------------------------------------------------------
     H DFTACTGRP(*NO) BNDDIR('RXSBND') ACTGRP(*CALLER)

      /copy QRPGLECPY,RXSCB

     D XsdValidateDS...
     D                 DS                  LikeDS(RXS_XsdValidationDS_t)
     D                                     Inz(*LikeDS)
     D goodXml         S                   Like(RXS_Var64Kv_t)
      /free
       // This example assumes that goodXml contains XML data.
       //  This data could be retrieved from RXS_GetStdIn(), or composed
       //  using the RXS composition engine.

       reset XsdValidateDS;
       XsdValidateDS.XsdLocation =
       'http://files.rpg-xml.com/example/xsdvalidate/validate.xsd';
       if RXS_Validate( goodXml : XsdValidateDS );
         RXS_JobLog( 'XML 1 Validated successfully');
       else;
         RXS_JobLog( 'XML 1 Validation failed');
         RXS_JobLog( 'Validation Error #%s: %s' :
           %Char( XsdValidateDS.ValidationErrorCode ) :
           XsdValidateDS.ValidationErrorText );
       endif;

       *INLR = *ON;
      /end-free