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
|