RPGB02P

     A          R FTITRE
     A                                      SKIPB(002)
     A                                     1
     A                                      'RPG02'
     A                                   +19
     A                                      'Liste du fichier principal'
     A                                    +9
     A                                      'le:'
     A                                    +3
     A                                      DATE
     A                                      EDTCDE(Y)
     A                                     8
     A                                      'CLE '
     A                                      SPACEB(004)
     A                                   +11
     A                                      'DESIGNATION'
     A                                   +18
     A                                      '  CODE   '
     A                                   +11
     A                                      'QUANTITE'
     A          R FDETAIL
     A                                      SPACEB(002)

     A            CLE       R        O     8
     A                                      REFFLD(FICH1F1/CLE AF4SRCT/FICH1P1)
     A            LIB       R        O    +9
     A                                      REFFLD(FICH1F1/LIB AF4SRCT/FICH1P1)
     A            CODE      R        O    +8
     A                                      REFFLD(FICH1F1/CODE AF4SRCT/FICH1P1)
     A            TYPE      R        O    +5
     A                                      REFFLD(FICH1F1/TYPE AF4SRCT/FICH1P1)
     A            QTE       R        O    +7
     A                                      REFFLD(FICH1F1/QTE AF4SRCT/FICH1P1)
     A          R FTOTAL
     A                                      SPACEB(003)
     A                                     8
     A                                      'Nombre listé'
     A            TOTAL          7S 0O    +2
     A                                      EDTCDE(Z)
     A                                   +24
     A                                      'Total'
     A            QTETOT        11S 2O   +10
     A                                      EDTCDE(3)
     A                                    53
     A                                      'Moyenne'

     A                                      SPACEB(001)
     A            MOYEN          7S 2O   +12
     A                                      EDTCDE(3)