A*%%TS SD 19930923 114025 AF400 REL-V2R2M0 5738-PW1
A* 90/03/20 17:26:52 QSECOFR REL-R01M02 5728-PW1
A*%%EC
A DSPSIZ(24 80 *DS3)
A* 90/03/20 17:26:52 QSECOFR REL-R01M02 5728-PW1
A R SIGNON
A*%%TS SD 19930923 114025 AF400 REL-V2R2M0 5738-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 RESTE 128A H
A NEWS01 75A O 15 4MSGID(NEW 0001 AF4TOOL/NEWS)
A NEWS02 75A O 16 4MSGID(NEW 0002 AF4TOOL/NEWS)
A NEWS03 75A O 17 4MSGID(NEW 0003 AF4TOOL/NEWS)
A NEWS04 75A O 18 4MSGID(NEW 0004 AF4TOOL/NEWS)
A 21 4'Ceci est un test, appuyez sur ENTR-
A EE pour sortir.'
A DSPATR(HI)
A DSPATR(BL)
|
| 
