A*%%TS  SD  20000531  163736  AF400CM     REL-V4R4M0  5769-PW1
     A*%%EC
     A                                      DSPSIZ(24 80 *DS3)
     A                                      REF(*LIBL/FICHREP)
     A                                      INDARA
     A          R TITRE
     A*%%TS  SD  19940422  145545  AF400       REL-V2R2M0  5738-PW1
     A                                  2  2'RPGI04'
     A                                  2 21'** mise à jour du fichier principa-
     A                                      l **'
     A                                      DSPATR(UL)
     A                                  2 65'le:'
     A                                  2 69DATE
     A                                      EDTCDE(Y)
     A          R F1
     A*%%TS  SD  19940422  144552  AF400       REL-V2R2M0  5738-PW1
     A                                      CA03(03 'Exit')
     A                                      OVERLAY
     A                                 11  2'Saisissez votre clé . . . . . . :'
     A            CLE       R        I 11 37
     A                                      DSPATR(MDT)
     A  50                                  ERRMSG('Clé inconnue' 50)
     A                                 23  3'F3 = Exit.'
     A          R F2
     A*%%TS  SD  20000531  163736  AF400CM     REL-V4R4M0  5769-PW1
     A                                      CA12(12 'annul')
     A                                      OVERLAY
     A                                  7  8'CLE . . . .:'
     A            CLE       R        B  7 22
     A                                  9  8'DESIGNATION:'
     A            LIB       R        B  9 22
     A                                 11  8'CODE. . . .:'
     A            CODE      R        B 11 22
     A  51                                  ERRMSG('code invalide' 51)
     A                                 13  8'TYPE. . . .:'
     A            TYPE      R        B 13 22
     A                                 15  8'QUANTITE. .:'
     A            QTE       R        B 15 22
     A                                 23  7'Appuyez sur entrée pour mettre à j-
     A                                      our, F12 = Annulation.'