BoTTom |
     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




©AF400