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