H dftactgrp(*no) option(*NoDebugIO : *SrcStmt)
 
     FAF4OUTP1  if   e             Disk     Handler('CVS_HDLRI' : ifs_info1)
     F                                      UsrOpn
 
     FQSYSPRT   o    f  132        printer
      // 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;
 
           except titre;
           read AF4OUTF1;
 
           dow not %eof(AF4OUTP1);
              except ligne;
              read AF4OUTF1;
           enddo;
 
           *inlr = *On;
      /end-free
     o
     Oqsysprt   E            titre             2
     O                                           10 'Cours'
     O                                           20 'texte'
     O                                           75 'Mots-clés'
     O                                          130 'Date référence'
     Oqsysprt   E            ligne       2
     O                       AF4MBR              10
     O                       AF4TXT              65
     O                       MOTCL1              75
     O                       MOTCL1              85
     O                       MOTCL2              95
     O                       MOTCL3             105
     O                       MOTCL4             115
     O                       DATOUT             130