| 
A*%%TS SD 19940422 151440 AF400 REL-V2R2M0 5738-PW1
A*%%EC
A DSPSIZ(24 80 *DS3)
A REF(FICHREP)
A R TITRE
A*%%TS SD 19940422 151440 AF400 REL-V2R2M0 5738-PW1
A 2 2'RPGI06'
A 2 21'** maintenance du fichier principa-
A l **'
A DSPATR(UL)
A 2 65'le:'
A 2 69DATE
A EDTCDE(Y)
A R F1
A*%%TS SD 19940422 151440 AF400 REL-V2R2M0 5738-PW1
A CA03(03 'Exit')
A CF06(06 'ajout')
A CF23(23 'suppression')
A OVERLAY
A 11 2'Saisissez votre clé . . . . . . :'
A CLE R I 11 37
A DSPATR(MDT)
A 50 ERRMSG('Clé inconnue' 50)
A 55 ERRMSG('Clé existe déja' 55)
A 23 3'F3 = Exit. F6 = Ajout. F23 = retra-
A it du fichier.'
A R F2
A*%%TS SD 19940422 151440 AF400 REL-V2R2M0 5738-PW1
A CA12(12 'annul')
A OVERLAY
A 7 8'CLE . . . .:'
A CLE R B 7 22
A 9 8'DESIGNATION:'
A LIB R B 9 22
A 11 8'CODE. . . .:'
A CODE R B 11 22
A 51 ERRMSG('code invalide' 51)
A 13 8'TYPE. . . .:'
A TYPE R B 13 22
A 15 8'QUANTITE. .:'
A QTE R B 15 22
A 23 7'Appuyez sur entrée pour'
A N06 23 31'mettre à jour,'
A 23 46'F12 = Annulation.'
|
|
A 06 23 31'ajouter.' A R F3 A*%%TS SD 19940422 151440 AF400 REL-V2R2M0 5738-PW1 A CA12(12 'annul') A CF23(23 'confirmation') A CLRL(*END) A OVERLAY A PROTECT A 23 7'Appuyez sur F23 pour confirmer - A , F12 = Annulation.' |
