Re: Timeout/Cancel

[Gerald Magnuson <gmagqcy.midrange@xxxxxxxxx>]

> > > I recall reading, years ago, about attaching a VBA macro to the "X"
window close operation.

on_Red_X( shockUser {
volts: 220,
Duration: 20 seconds
)



On Thu, Mar 3, 2022 at 2:04 PM Roger Harman <roger.harman@xxxxxxxxxxx>
wrote:

> I recall reading, years ago, about attaching a VBA macro to the "X" window
> close operation.  Was likely Client Access so not sure if it would work
> with ACS.
>
>
>
> -----Original Message-----
> From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of
> DEnglander--- via RPG400-L
> Sent: Thursday, March 3, 2022 10:28 AM
> To: rpg400-l@xxxxxxxxxxxxxxxxxx
> Cc: DEnglander@xxxxxxxxxxxxxxx
> Subject: Timeout/Cancel
>
> I am able to automatically end a program when the screen sits idle for a
> specific amount of time.
>
> I am trying to have the same program end when the user clicks on the Red X
> [The windows X].
>
> I am not able to trap that condition successfully using %status or
> Monitor. When I test it, the job goes to DSC status. When I sign on to
> that display session again and enter an option 1 to attach to the prior
> job, my logic then runs and handles the prior Cancel. However, it leaves
> the files and job open until the user reattaches.
>
> Has anyone been able to have an RPG program gracefully end when the user
> clicks the windows Red X?
>
> Thank you,
>
> Doug
>
>
>
> "CONFIDENTIALITY NOTICE:  This e-mail transmission (and/or the attachments
> accompanying it) contain confidential information belonging to the sender.
> The information is intended only for the use of the intended recipient.  If
> you are not the intended recipient, you are hereby notified that any
> disclosure, copying, distribution or the taking of any action in reliance
> on the contents of the information is strictly prohibited.  Any
> unauthorized interception of this transmission is illegal under the law.
> If you have received this transmission in error, please promptly notify the
> sender by reply e-mail, and then destroy all copies of the transmission."
> --
> 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://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Flists.midrange.com%2Fmailman%2Flistinfo%2Frpg400-l&amp;data=04%7C01%7C%7Cb3c67ee689e44843887b08d9fd4395eb%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637819288980278325%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000&amp;sdata=Vvy%2BuzGKYJB8dt6b%2Fz7T%2BZodb7Xix1Fzs12%2FIkG7w74%3D&amp;reserved=0
> or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at
> https://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Farchive.midrange.com%2Frpg400-l&amp;data=04%7C01%7C%7Cb3c67ee689e44843887b08d9fd4395eb%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637819288980278325%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000&amp;sdata=lYdiSYYv3njVkUK7cm4cDVxZzpuV6sVBcZgb4OjhKBc%3D&amp;reserved=0
> .
>
> Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link:
> https://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Famazon.midrange.com%2F&amp;data=04%7C01%7C%7Cb3c67ee689e44843887b08d9fd4395eb%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637819288980278325%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000&amp;sdata=KtMp2hfqAubbseCkWWTBE7afq6ntcHvsN7NWaFo4c4w%3D&amp;reserved=0
> --
> 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.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: https://amazon.midrange.com