H dftactgrp(*no) option(*NoDebugIO : *SrcStmt)
 
      // IFS output file - file definition specifies fields to output
     FAF4OUTP1  o    e             Disk    Handler('XML_HDLR' : xml_info1)
     F                                     UsrOpn
 
     FAF4MBRp1  if   e             Disk
 
      // Definition of the additional IFS data (path)
      /copy AF4SRCT/EXEMPLEOAR,xml_cpy
 
     D xml_info1       ds                  likeds(xml_hdlr_info_t)
 
      /free
 
           xml_info1.path = '/temp/cours.xml';
           xml_info1.racine='AF400';
           xml_info1.ligne='COURS';
 
           open AF4OUTp1;
 
           read AF4MBRP1;
 
           dow not %eof(AF4MBRP1);
 
              datout = %date(datref : *CYMD);
              Write AF4OUTF1;
 
              // read next record
              read AF4MBRP1;
           enddo;
 
           *inlr = *On;
      /end-free