H DECEDIT('0,') DATEDIT(*DMY/)
     FFICH1L0   IP   F   39     4AIDISK    KEYLOC(1)
     FQSYSPRT   O    F  132        PRINTER OFLIND(*INOV)
     IFICH1L0   NS  01
     I                                  1    4  CLE
     I                                  5   29  LIB
     I                                 30   34  CODE
     I                                 35   35  TYPE
     I                             P   36   39 0QTE
     C                   ADD       1             TOTAL             7 0
     C                   ADD       QTE           QTETOT           13 2
     CLR   QTETOT        DIV(H)    TOTAL         MOYEN             7 2
     OQSYSPRT   H    1P                       02
     O         OR    OV
     O                                           10 'RPGB01'
     O                                           45 'LISTE DU FICHIER PRINCIP'
     O                                              'AL'
     O                                           80 'LE :'
     O                       UDATE         Y
     O          H    1P                  3  1
     O         OR    OV
     O                                           10 'CLE'
     O                                           23 'DESIGNATION'
     O                                           40 'CODE'
     O                                           45 'T'
     O                                           52 'QUANTITÉ'
     O          D    01                  1
     O                       CLE                 11
     O                       LIB                 35
     O                       CODE                42
     O                       TYPE                45
     O                       QTE           3     55
     O          T    LR                  3
     O                                           20 'NOMBRE LISTÉ'
     O                       TOTAL         Z     30
     O                                           40 'TOTAL :'
     O                       QTETOT        3     55
     O          T    LR                  2
     O                                           40 'MOYENNE'
     O                       MOYEN         3     55