A*  90/06/11  17:20:27    QSECOFR     REL-R01M02  5728-PW1
     A                                      DSPSIZ(24 80 *DS3)
     A          R SIGNON
     A*  90/06/11  17:20:27    QSECOFR     REL-R01M02  5728-PW1
     A                                      CHGINPDFT
     A                                      CLEAR
     A                                      BLINK
     A                                  1 23'             Ouverture           '
     A                                      DSPATR(HI)
     A                                  2 48'Système . . . . . :'
     A            SYSNAME        8A  O  2 70
     A                                  3 48'Sous-système  . . :'
     A            SBSNAME       10A  O  3 70
     A                                  4 48'Ecran . . . . . . :'
     A            DEVNAME       10A  O  4 70
     A                                  6 17'Utilisateur . . . . . . . . . . .'
     A            USERID        10A  B  6 53DSPATR(UL)
     A  01                              7 17'Mot de passe  . . . . . . . . . .'
     A  01        PASSWRD       10A  I  7 53DSPATR(ND)
     A                                  8 17'Programme/procédure . . . . . . .'
     A            PROGRAM       10A  B  8 53CHECK(LC)
     A                                      DSPATR(UL)
     A                                  9 17'Menu  . . . . . . . . . . . . . .'
     A            MENU          10A  B  9 53CHECK(LC)
     A                                      DSPATR(UL)
     A                                 10 17'Bibliothèque en cours . . . . . .'
     A            CURLIB        10A  B 10 53CHECK(LC)
     A                                      DSPATR(UL)
     A  02        QSNERROR      80A  O 24  1DSPATR(HI)
     A            COPYRIGHT     40A  O 24 40DSPATR(HI)
     A            MDP2          10A  I 11 53DSPATR(ND)
     A            RESTE        118A  H