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.

  RXS_ResetDS( XsdValidateDS : RXS_DS_TYPE_XSDVALIDATION );
  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