MEMBRE . . . . . . . . . RTVSCR SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0 100 *--------------------------------------------------------------------------------------------* 200 * Récup du buffer de l'écran encours * 300 * Ce PGM utilise le programme de service RTVSCRSRV * 400 *--------------------------------------------------------------------------------------------* 500 * Compilation = CrtRPGMod Module(YourLib/RTVSCR) * 600 * SrcFile(YourLib/QRPGLESRC) * 700 * CrtPgm Pgm(YourLib/RTVSCR) * 800 * BndSrvPgm(YourLib/RTVSCRSRV) * 900 * ActGrp(*New) * 1000 *--------------------------------------------------------------------------------------------* 1100 * Paramètres : * 1200 * * 1300 * TypEcran 1A '1'= 80*24 '2'= 132*27 * 1400 * LigDeb 2A Ligne de début (*BLANK si tout l'écran) * 1500 * LigFin 2A Ligne de fin (*BLANK si tout l'écran) * 1600 * BufferEcran 3565 Comme son nom l'indique * 1700 *--------------------------------------------------------------------------------------------* 1800 1900 D RtvScreen PR 1N 2000 D 1 2100 D 2 2200 D 2 2300 D 3565 2400 D 272 Options( *NoPass ) 2500 2600 D RtnCode S 1N 2700 D TypEcran S 1A 2800 D LigDeb S 2A 2900 D LigFin S 2A 3000 D BufferEcran S 3565A 3100 3200 D APIErrorDS DS 3300 D BytesProvided 10I 0 Inz( %Size( APIErrorDS ) ) 3400 D BytesAvail 10I 0 Inz( *Zero ) 3500 D MsgID 7 Inz( *Blanks ) 3600 D Reserved 1 Inz( X'00' ) 3700 D MsgDta 256 Inz( *Blanks ) 3800 C *Entry Plist 3900 C Parm TypEcran 4000 C Parm LigDeb 4100 C Parm LigFin 4200 C Parm BufferEcran 4300 C Eval RtnCode = RtvScreen( 4400 C TypEcran:LigDeb:LigFin:BufferEcran:APIErrorDS 4500 C ) 4600 C Eval *InLR = *On * * * * F I N D U S O U R C E * * * *