I have had this issues before with some real old System 36 code that was converted badly.
What I ended up doing is creating a Data Area with a key of whatever you want. When that big program starts to run, write out to that data area and then exit the program. Have another step to initiate the next "program" but check the data area for a value.
Of course you want to clear the data area after that big program is done.
This may or may not work for you but its what I did.
---- Captain Ron
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of Tim Adair
Sent: Monday, February 19, 2024 11:41 AM
To: rpg400-l@xxxxxxxxxxxxxxxxxx
Subject: Keyboard buffer
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<mailto:RPG400-L@xxxxxxxxxxxxxxxxxx>
To subscribe, unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/rpg400-l<
https://lists.midrange.com/mailman/listinfo/rpg400-l>
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx<mailto:RPG400-L-request@xxxxxxxxxxxxxxxxxx>
Before posting, please take a moment to review the archives
at
https://archive.midrange.com/rpg400-l<
https://archive.midrange.com/rpg400-l>.
Please contact support@xxxxxxxxxxxxxxxxxxxx<mailto:support@xxxxxxxxxxxxxxxxxxxx> for any subscription related questions.
________________________________
The information contained in this e-mail is intended only for the individual or entity to whom it is addressed. Its contents (including any attachments) may contain confidential and/or privileged information. If you are not an intended recipient you shall not use, disclose, disseminate, copy or print its contents. If you receive this e-mail in error, please notify the sender by reply e-mail and delete and destroy the message. Continental Express, Inc. and its subsidiaries and affiliates will not be held liable for the unintended or unauthorized use of any information contained in this email or as a result of any additions or deletions of information originally contained in this email.
Disclaimer
The information contained in this communication from the sender is confidential. It is intended solely for use by the recipient and others authorized to receive it. If you are not the recipient, you are hereby notified that any disclosure, copying, distribution or taking action in relation of the contents of this information is strictly prohibited and may be unlawful.
This email has been scanned for viruses and malware, and may have been automatically archived by Mimecast, a leader in email security and cyber resilience. Mimecast integrates email defenses with brand protection, security awareness training, web security, compliance and other essential capabilities. Mimecast helps protect large and small organizations from malicious activity, human error and technology failure; and to lead the movement toward building a more resilient world. To find out more, visit our website.
midrange.com
