Highlighted
Absent Member.
Absent Member.
186 views

[archive] General ACCEPT Question

[Migrated content. Thread originally posted on 12 March 2007]

Hello,
In a paragraph such as the following is there any way to force an end to the Perform loop without pushing the exit button on the screen?
Acu-WaitScrn-Choice-Proc.
PERFORM UNTIL Exit-Pushed
ACCEPT WaitScrn
ON EXCEPTION PERFORM Acu-WaitScrn-Evaluate-Func
END-ACCEPT
END-PERFORM
DESTROY WaitScrn-Handle
INITIALIZE Key-Status

Thanks
0 Likes
3 Replies
Highlighted
Absent Member.
Absent Member.

RE: [archive] General ACCEPT Question

There are many ways to have your exception routine fired off

EXCEPTION PERFORM Acu-WaitScrn-Evaluate-Func

Menus (exception values) and hot-keys can raise an exception without the user pressing the push button.
0 Likes
Highlighted
Absent Member.
Absent Member.

RE: [archive] General ACCEPT Question

Using the BEFORE TIME is an easy way of making the accept terminate with a condition you can test to terminate the perform.
0 Likes
Highlighted
Absent Member.
Absent Member.

RE: [archive] General ACCEPT Question

Hello,
In a paragraph such as the following is there any way to force an end to the Perform loop without pushing the exit button on the screen?
Acu-WaitScrn-Choice-Proc.
PERFORM UNTIL Exit-Pushed
ACCEPT WaitScrn
ON EXCEPTION PERFORM Acu-WaitScrn-Evaluate-Func
END-ACCEPT
END-PERFORM
DESTROY WaitScrn-Handle
INITIALIZE Key-Status

Thanks


I've done this

PERFORM UNTIL Exit-Pushed
Accept WaitScrn BEFORE TIME 1
ON EXCEPTION PERFORM EXCEPTION-ROUTINE
END-ACCEPT
IF NOT Exit-Pushed
perform check-for-condition
IF Condition-Met
SET Exit-Pushed TO TRUE
END-IF
END-IF
END-PERFORM.
0 Likes
The opinions expressed above are the personal opinions of the authors, not of Micro Focus. By using this site, you accept the Terms of Use and Rules of Participation. Certain versions of content ("Material") accessible here may contain branding from Hewlett-Packard Company (now HP Inc.) and Hewlett Packard Enterprise Company. As of September 1, 2017, the Material is now offered by Micro Focus, a separately owned and operated company. Any reference to the HP and Hewlett Packard Enterprise/HPE marks is historical in nature, and the HP and Hewlett Packard Enterprise/HPE marks are the property of their respective owners.