A                                      REF(FICHREP)
     A                                      INDARA
 
     A          R TITRE
     A                                  2  2'RPGI04'
     A                                  2 22'** interrogation fichier principal-
     A                                       **'
     A                                      DSPATR(UL)
     A                                  2 65'le:'
     A                                  2 69DATE
     A                                      EDTCDE(Y)
 
     A          R F1
     A                                      CA03(03 'Exit')
     A                                      OVERLAY
     A                                 11  2'Saisissez votre clé . . . . . . :'
     A            CLE       R        I 11 37DSPATR(MDT)
     A  50                                  ERRMSG('Clé inconnue' 50)
     A                                 23  3'F3 = Exit.'
 
 
     A          R F2
     A                                      OVERLAY
     A                                  7  8'CLE . . . .:'
     A            CLE       R        O  7 22
     A                                  9  8'DESIGNATION:'
     A            LIB       R        O  9 22
     A                                 11  8'CODE. . . .:'
     A            CODE      R        O 11 22
     A                                 13  8'TYPE. . . .:'
     A            TYPE      R        O 13 22
     A                                 15  8'QUANTITE. .:'
     A            QTE       R        O 15 22
     A                                 23  7'Appuyez sur entrée pour revenir à -
     A                                      l''image précédente.'