FFICH1L0 IP  E           K        DISK
     FRPGB02P O   E             02     PRINTER
     C                     ADD  1         TOTAL
     C                     ADD  QTE       QTETOT
      * FIN DE PAGE ?
     C           *IN02     IFEQ *ON
     C                     WRITEFTITRE
     C                     MOVE *OFF      *IN02
     C                     ENDIF
     C                     WRITEFDETAIL
      * FIN DE FICHIER
     CLR         QTETOT    DIV  TOTAL     MOYEN     H
     CLR                   WRITEFTOTAL
      * SOUS PROGRAMME EXECUTÉ EN DEBUT DE PGM
     C           *INZSR    BEGSR
     C                     WRITEFTITRE
     C                     ENDSR