A*%%TS  SD  19940303  134835  AF400       REL-V2R3M0  5738-PW1
     A                                      DSPSIZ(24 80 *DS3)
     A          R BIDON
     A*%%TS  SD  19940303  133642  AF400       REL-V2R3M0  5738-PW1
     A                                      ASSUME
     A                                  1  3' '
     A          R FMT
     A*%%TS  SD  19940303  134835  AF400       REL-V2R3M0  5738-PW1
     A                                      CA03(03)
     A  31                                  CA12(12)
     A  30                                  CA10(10)
     A                                      WINDOW(*DFT 11 36)
     A            MEMOTXT      256A  B  2  2CNTFLD(32) LOWER
     A                                  1  1'Mémo'
     A                                  1  6':'
     A N31                              1  8'utilisateur'
     A N31        USER          10A  O  1 21DSPATR(HI)
     A  31                              1  8'- groupe - '
     A  31        GRP           10A  O  1 21DSPATR(HI)
     A                                 10  2'F3= Exit,'
     A  30                             10 12'F10 = Groupe.'
     A  31                             10 12'F12 = retour utilisateur'