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 |