BoTTom |
     H dftactgrp(*no) option(*NoDebugIO : *SrcStmt)
 
     FAF4OUTP1  if   e             Disk
 
     FQSYSPRT   o    f  132        printer
 
      /free
 
           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




©AF400