[archive] before time | Rocket Forum

[Migrated content. Thread originally posted on 10 February 2006]

I want to execute a procedure when a certain amount of time has passed in an accept screen command.

I set up the "before time" parameter in Workbench to the appropriate time interval but I can't get AcuCobolGT to generate the evaluate code in the Evaluate Function paragraph for the screen. It needs to check the evaluate function of "When Screen-time-out" which is exception 99. But how do I get AcuCobolGT to generate the code ?

The Extend6 manual RM 6-78 only describes the "before time" phrase without explaining how to get the exception to execute.

Thanks...

John C.

you may need to set the runtime configuration variable renew-timeout.

When set to "1" (on, true, yes), this variable restarts the timeout used by ACCEPT BEFORE TIME after each keystroke that the user makes. The default setting is "0" (off, false, no), which means that the timeout is canceled as soon as the user starts typing.

[Migrated content. Thread originally posted on 10 February 2006]

I want to execute a procedure when a certain amount of time has passed in an accept screen command.

I set up the "before time" parameter in Workbench to the appropriate time interval but I can't get AcuCobolGT to generate the evaluate code in the Evaluate Function paragraph for the screen. It needs to check the evaluate function of "When Screen-time-out" which is exception 99. But how do I get AcuCobolGT to generate the code ?

The Extend6 manual RM 6-78 only describes the "before time" phrase without explaining how to get the exception to execute.

Thanks...

John C.

you may need to set the runtime configuration variable renew-timeout.

When set to "1" (on, true, yes), this variable restarts the timeout used by ACCEPT BEFORE TIME after each keystroke that the user makes. The default setting is "0" (off, false, no), which means that the timeout is canceled as soon as the user starts typing.

[Migrated content. Thread originally posted on 10 February 2006]

I want to execute a procedure when a certain amount of time has passed in an accept screen command.

I set up the "before time" parameter in Workbench to the appropriate time interval but I can't get AcuCobolGT to generate the evaluate code in the Evaluate Function paragraph for the screen. It needs to check the evaluate function of "When Screen-time-out" which is exception 99. But how do I get AcuCobolGT to generate the code ?

The Extend6 manual RM 6-78 only describes the "before time" phrase without explaining how to get the exception to execute.

Thanks...

John C.

Thanks for the info. The timer is timeing out as I want it to in my program but I can't get the system to execute the procedure I want to execute.

What's happening in my program is that when the screen is idle and the timer kicks in, the program goes thru the evaluate-function routine, sees there is no routine associated with the screen-time-out and returns to the accept command. So in essence it just keeps looping back to the accept screen statement.

[Migrated content. Thread originally posted on 10 February 2006]

I want to execute a procedure when a certain amount of time has passed in an accept screen command.

I set up the "before time" parameter in Workbench to the appropriate time interval but I can't get AcuCobolGT to generate the evaluate code in the Evaluate Function paragraph for the screen. It needs to check the evaluate function of "When Screen-time-out" which is exception 99. But how do I get AcuCobolGT to generate the code ?

The Extend6 manual RM 6-78 only describes the "before time" phrase without explaining how to get the exception to execute.

Thanks...

John C.

This is probably not the most elegant way, but it does work. Attached an image of the property window for the screen, I created an link-to paragraph called time-out. In time-out I placed this syntax:

evaluate key-status
when 99
display message box "Timed out"
when other
continue
end-evaluate

[Migrated content. Thread originally posted on 10 February 2006]

I want to execute a procedure when a certain amount of time has passed in an accept screen command.

I set up the "before time" parameter in Workbench to the appropriate time interval but I can't get AcuCobolGT to generate the evaluate code in the Evaluate Function paragraph for the screen. It needs to check the evaluate function of "When Screen-time-out" which is exception 99. But how do I get AcuCobolGT to generate the code ?

The Extend6 manual RM 6-78 only describes the "before time" phrase without explaining how to get the exception to execute.

Thanks...

John C.

Thanks for the response. The link-to was the only event I didn't try because I thought it would break me out of my previous perform statement. I'll try it and let you know.

Thanks
JC

[Migrated content. Thread originally posted on 10 February 2006]

I want to execute a procedure when a certain amount of time has passed in an accept screen command.

I set up the "before time" parameter in Workbench to the appropriate time interval but I can't get AcuCobolGT to generate the evaluate code in the Evaluate Function paragraph for the screen. It needs to check the evaluate function of "When Screen-time-out" which is exception 99. But how do I get AcuCobolGT to generate the code ?

The Extend6 manual RM 6-78 only describes the "before time" phrase without explaining how to get the exception to execute.

Thanks...

John C.

Thanks for the response. The link-to was the only event I didn't try because I thought it would break me out of my previous perform statement. I'll try it and let you know.

Thanks
JC

Sign up

Please log in or register:

Welcome to the Rocket Forum!

Please log in or register:

Scanning file for viruses.

This file cannot be downloaded