A*%%TS  DD  20030407  164321  QUSER       REL-V4.0    WDSCi
     A*%%FD DSPF pour RPGI10
     A*%%EC
     A                                      DSPSIZ(24 80 *DS3)
     A                                      REF(FICHREP)
     A                                      INDARA
     A          R TITRE
     A*%%TS  SD  19940425  153304  AF400       REL-V2R2M0  5738-PW1
     A                                  1  2'RPG10'
     A                                  1 26' ** Interrogation par code ** '
     A                                      DSPATR(UL)
     A                                  1 63'le:'
     A                                  1 67DATE
     A                                      EDTCDE(Y)
     A*%%GP SCREEN1    01
     A*%%GP SCREEN2    01
     A          R F1
     A*%%TS  SD  19940425  145859  AF400       REL-V2R2M0  5738-PW1
     A                                      CA03(03 'Exit')
     A                                      OVERLAY
     A                                      ERASE(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*%%GP SCREEN1    02
     A          R SFL
     A*%%TS  SD  19940425  153304  AF400       REL-V2R2M0  5738-PW1
     A                                      SFL
     A            CLE       R        O  7  7
     A*%%WB 12 FLD 2 fld=OPTION|value=2
     A            TYPE      R        O  7 46
     A            LIB       R        O  7 16
     A            QTE       R        O  7 51
     A            OPTION         1   B  7  4
     A*%%WB 14 FLD ' '= Effacer|'2'=Modifier|'5'=Voir détail
     A                                      VALUES(' ' '2' '5')
     A*%%GP SCREEN2    02
     A          R CTL
     A*%%TS  SD  19940425  152329  AF400       REL-V2R2M0  5738-PW1
     A                                      SFLCTL(SFL)
     A N32                                  PAGEDOWN(60 'Defil avant')
     A                                      CA12(12 'retour')
     A                                      OVERLAY

     A  30                                  SFLDSP
     A  31                                  SFLDSPCTL
     A N31                                  SFLCLR
     A  32                                  SFLEND(*MORE)
     A                                      SFLSIZ(16)
     A                                      SFLPAG(15)
     A                                  6  3' v  CLE      DESIGNATION          -
     A                                             TYPE   QUANTITE '
     A                                      DSPATR(UL)
     A            CODE      R        O  3 16
     A                                  3  3'CODE. . . :'
     A            LIBCOD    R        O  3 23
     A                                  5  4'!-2=modifier,5=afficher'
     A            LIGNE          4S 0H      SFLRCDNBR
     A*%%GP SCREEN2    03
     A          R PIED
     A*%%TS  SD  19940425  152329  AF400       REL-V2R2M0  5738-PW1
     A                                      OVERLAY
     A                                 23  3'   F12 = Retour,'
     A N32                             23 20'Defil AV = page suivante,'
     A                                 23 46'Defil Ar = page précédente.'
     A*%%GP SCREEN2    04