H            D/J
     FFICH1L0 IP  F      39  4AI     1 DISK
     FQSYSPRT O   F     132     OV     PRINTER
     IFICH1L0 NS  01
     I                                        1   4 CLE
     I                                        5  29 LIB
     I                                       30  34 CODE
     I                                       35  35 TYPE
     I                                    P  36  390QTE
     C                     ADD  1         TOTAL   70
     C                     ADD  QTE       QTETOT 132
     CLR         QTETOT    DIV  TOTAL     MOYEN   72H
     OQSYSPRT H   02   1P
     O       OR        OV
     O                                   10 'RPGB01'
     O                                   45 'LISTE DU FICHIER PRINCIP'
     O                                      'AL'
     O                                   80 'LE :'
     O                         UDATE Y
     O        H 31     1P
     O       OR        OV
     O                                   10 'CLE'
     O                                   23 'DESIGNATION'
     O                                   40 'CODE'
     O                                   45 'T'
     O                                   52 'QUANTITÉ'
     O        D 1      01
     O                         CLE       11
     O                         LIB       35
     O                         CODE      42
     O                         TYPE      45
     O                         QTE   3   55
     O        T 3      LR
     O                                   20 'NOMBRE LISTÉ'
     O                         TOTAL Z   30
     O                                   40 'TOTAL :'
     O                         QTETOT3   55
     O        T 2      LR
     O                                   40 'MOYENNE'
     O                         MOYEN 3   55