Dcl-S MonSchema_ID Char(256) INZ('BibSchema.MonSchema')
EXEC SQL UPDATE XML_FLUX SET FLUX = XMLVALIDATE(XMLPARSE(DOCUMENT GET_XML_FILE(RTRIM(CHEMIN))) ACCORDING TO XMLSCHEMA ID :MonSchema_ID) WHERE ID = :NewID;