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'
|