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 |