Re: Keyboard buffer

Hi Tim,

I think I had something like that "many moons ago".

And I think I solved it by having an extra display file for the "long-running-program" and attaching a data-queue to this display file by CRTDSPF .... DTAQ(...) DFRWRT(*NO).

After that, the program write out the "Please wait" screen and regains control directly after the write operation. Then I processed and updated the screen regularly with some sort of "progress-bar". Every time the user presses enter on the "Please wait" screen, an entry is written to the data-queue.

After everything is done, I think I read/emptied the data-queue and then closed the display file without ever reading the input buffer.

I don't remember exactly - but I think this worked, because the input buffer was associated to the display file and was never read.

But please don't nail me down on this. Here are some links:

https://www.ibm.com/docs/en/i/7.5?topic=eudq-example-waiting-input-from-display-file-data-queue

https://www.mcpressonline.com/programming/rpg/practical-rpg-queuing-part-iii-display-files-output-queues-and-the-alert-function

Just try it - seems like something fun.

Kind regards,
Daniel

Am 19.02.2024 um 17:41 schrieb Tim Adair <tadair@xxxxxxxxxxxxxxxx>:

In the middle of an interactive RPGLE program, I need to be able to purge the keyboard buffer. There is a point in the program where it calls a (possibly rather lengthy) function. During this time, it pops up a "DO NOT TOUCH THE KEYBOARD" window, which remains on the screen until the function completes. In the event that the user presses a key (or keys) anyway, I need to purge their keystroke(s) before the program continues. I'm hoping that at least one of the following is possible:

1. Is there a function or API that I can call that will purge the keyboard buffer?

2. Is there a way to directly read keystrokes from the buffer, so I can loop through, read all the keystrokes, and just ignore them? (Something similar to the BASIC INKEY$ function.

I'm open to other suggestions also.

Thank you in advance.

~TA~

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.