| 
A*%%TS SD 19940425 152505 AF400 REL-V2R2M0 5738-PW1
A*%%EC
A DSPSIZ(24 80 *DS3)
A REF(FICHREP)
A INDARA
A R TITRE
A*%%TS SD 19940425 152505 AF400 REL-V2R2M0 5738-PW1
A 1 2'RPG09'
A 1 26' ** Interrogation par code ** '
A DSPATR(UL)
A 1 63'le:'
A 1 67DATE
A EDTCDE(Y)
A R F1
A*%%TS SD 19940425 145859 AF400 REL-V2R2M0 5738-PW1
A CA03(03 'Exit')
A OVERLAY
A 9 2'Saisissez un code . . . . . :'
A 23 2'F3 = Exit.'
A CODE R I 9 36
A 50 ERRMSG('Code invalide' 50)
A R SFL SFL
A*%%TS SD 19940425 152505 AF400 REL-V2R2M0 5738-PW1
A CLE R O 7 7
A TYPE R O 7 46
A LIB R O 7 16
A QTE R O 7 51
A OPTION 1 B 7 4VALUES(' ' '2' '5')
A R CTL SFLCTL(SFL)
A*%%TS SD 19940425 152505 AF400 REL-V2R2M0 5738-PW1
A SFLSIZ(0016)
A SFLPAG(0015)
A OVERLAY
A 30 SFLDSP
A 31 SFLDSPCTL
A N31 SFLCLR
A 30 SFLEND(*MORE)
A CA12(12 'RETOUR')
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 R PIED A*%%TS SD 19940425 145859 AF400 REL-V2R2M0 5738-PW1 A OVERLAY A 23 3' F12 = Retour, Defil AV = page s- A uivante, Defil Ar = page précédente- A .' |
