A                                      REF(*LIBL/FICHREP)
     A                                      INDARA
     A          R TITRE
     A                                  1  2'RPG07'
     A                                  1 26' ** Interrogation par code ** '
     A                                      DSPATR(UL)
     A                                  1 63'le:'
     A                                  1 67DATE
     A                                      EDTCDE(Y)
     A          R F1
     A                                      CA03(03 'Exit')
     A                                      OVERLAY
     A                                      ERASE(SFL CTL)
     A                                  9  2'Saisissez un code . . . . . :'
     A                                 23  2'F3 = Exit.'
     A            CODE      R        I  9 36
     A  50                                  ERRMSG('Code invalide' 50)
     A          R SFL                       SFL
     A            CLE       R        O  7  7
     A            TYPE      R        O  7 46
     A            LIB       R        O  7 16
     A            QTE       R        O  7 51
 
     A          R CTL                       SFLCTL(SFL)
     A                                      OVERLAY
     A                                      ERASE(F1)
     A  30                                  SFLDSP
     A  31                                  SFLDSPCTL
     A N31                                  SFLCLR
     A  30                                  SFLEND(*MORE)
     A                                      SFLSIZ(0006)
     A                                      SFLPAG(0005)
     A                                  6  6' CLE      DESIGNATION             -
     A                                          TYPE   QUANTITE '
     A                                      DSPATR(UL)
     A            CODE      R        O  4 16
     A                                  4  3'CODE. . . :'
     A            LIBCOD    R        O  4 23
 
     A          R PIED
     A                                      OVERLAY
     A                                 23  3'ENTREE = Retour, Defil AV = page s-
     A                                      uivante, Defil Ar = page précédente-
     A                                      .'