| 
A*%%TS SD 19940425 152329 AF400 REL-V2R2M0 5738-PW1
A*%%EC
A DSPSIZ(24 80 *DS3)
A REF(FICHREP)
A INDARA
A R TITRE
A*%%TS SD 19940425 145859 AF400 REL-V2R2M0 5738-PW1
A 1 2'RPG08'
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 ERASE(CTL)
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 145859 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 R CTL SFLCTL(SFL)
A*%%TS SD 19940425 152329 AF400 REL-V2R2M0 5738-PW1
A N32 ROLLUP(60 'Defil avant')
A CA12(12 'retour')
A OVERLAY
A 30 SFLDSP
A 31 SFLDSPCTL
A N31 SFLCLR
A 32 SFLEND(*MORE)
A SFLSIZ(0016)
A SFLPAG(0015)
A 6 6' CLE DESIGNATION -
A TYPE QUANTITE '
A DSPATR(UL)
A CODE R O 4 16
A 4 3'CODE. . . :'
|
|
A LIBCOD R O 4 23 A LIGNE 4S 0H SFLRCDNBR A R PIED A*%%TS SD 19940425 152329 AF400 REL-V2R2M0 5738-PW1 A OVERLAY A 23 3' F12 = Retour,' A N32 23 20'Defil AV = page suivante,' A 23 46'Defil Ar = page précédente.' |
