| 
A*%%TS SD 19961028 172857 AF400CM REL-V3R6M0 5716-PW1
A*%%EC
A DSPSIZ(24 80 *DS3)
A REF(*LIBL/FICHREP)
A INDARA
A R TITRE
A*%%TS SD 19961028 172857 AF400CM REL-V3R6M0 5716-PW1
A 1 2'RPG07'
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') OVERLAY
A ERASE(SFL CTL)
A 9 2'Saisissez un code . . . . . :'
A* 2 Boutons (Entrée ou F3), le pgm ne traite pas CHOIX mais *IN03
A CHOIX 2Y 0B 23 2PSHBTNFLD
A PSHBTNCHC(1 'Entrée')
A PSHBTNCHC(2 'F3=EXIT' CA03)
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 19950424 172955 AF400CM REL-V3R1M0 5763-PW1
A OVERLAY
A ERASE(F1)
A 30 SFLDSP
A 31 SFLDSPCTL
A N31 SFLCLR
A* ASCENSEUR à droite du sous fichier
A 30 SFLEND(*SCRBAR)
A SFLSIZ(0006)
A SFLPAG(0005)
A 6 6' CLE DESIGNATION -
A TYPE QUANTITE '
A DSPATR(UL)
|
|
A CODE R I 4 16 A 4 3'CODE. . . :' A LIBCOD R O 4 23 A R PIED A*%%TS SD 19950424 172955 AF400CM REL-V3R1M0 5763-PW1 A OVERLAY A* A* Le pgm ne traite pas CHOIX. A* ROLLUP et ROLLDOWN sont gérés par le système. A* A CHOIX 2Y 0B 23 2PSHBTNFLD A PSHBTNCHC(1 'Entrée') A PSHBTNCHC(2 'Défil Av' ROLLUP) A PSHBTNCHC(3 'Défil Ar' ROLLDOWN) |
