IBM大型机论坛索引
 
登录
 
IBM大型机论坛索引 大型机:搜索 IBM Mainframe论坛:常见问题解答 寄存器
 

如何发出非阻塞弹出窗口


IBM大型机论坛 -> 清单& REXX
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
克里斯_70

新的用户


加入:2021年2月9日
帖子:3
地点:意大利

发布发表:2021年2月9日星期二5:32 pm
引用回复

大家好,尽管我作为读者一直在关注这些论坛,但我还是新来者。

我正在开发一个Rexx程序,该程序需要连接到外部(即,在远程服务器上)资源才能执行某些操作。
该操作可能很长(最多一分钟),因此我想在用户等待时向其显示弹出消息。
我的问题是htat ISPF让我显示一个弹出窗口,但阻止执行直到该弹出窗口被用户关闭。
我一直在网上寻找样本,我尝试了各种方法,但到目前为止仍未成功。

但是,我看到某些程序(例如SRCHFOR)显示弹出窗口以使用户了解其进度,因此我认为可以做到。也许不在rexx中?
有什么建议么?

先感谢您
克里斯
回到顶部
查看用户资料 发送私信
谢尔盖肯

活跃的成员


已加入:2008年4月29日
帖子:944
所在地:马里兰

发布发表:2021年2月9日星期二6:55 pm
引用回复

SRCHFOR在运行时会显示自己的消息。您无法在SRCHFOR结束之前开始任何其他活动。
您可以使用自己的REXX进行相同的操作,但是不能让“远程操作”在后台继续进行,并且不允许您的单个TSO会话同时执行其他操作。
回到顶部
查看用户资料 发送私信
克里斯_70

新的用户


加入:2021年2月9日
帖子:3
地点:意大利

发布发表:2021年2月9日星期二8:00 pm
引用回复

非常感谢sergeyken的回复。
我很乐意在我的rexx代码运行时能够做到这一点,因为冗长的操作通常需要轮询外部源的结果,因此我的代码大部分时间都在运行(嗯, 如果它没有被挂起,则在等待用户关闭弹出窗口。
您能很好地为我指出正确的方向吗?

先感谢您
克里斯
回到顶部
查看用户资料 发送私信
唐·雷西

活跃的成员


已加入:2010年7月6日
帖子:698
地点:加拿大安大略省惠特比

发布发表:2021年2月9日星期二下午8:18
引用回复

查找ISPF服务CONTROL DISPLAY LOCK。
回到顶部
查看用户资料 发送私信
达夫波塞兰

活跃的成员


加入时间:2006年12月1日
帖子:754
所在地:宾夕法尼亚州

发布发表:2021年2月9日星期二8:21下午
引用回复

在这种情况下,我要做的是拥有两个Rexx程序。

第一个由用户启动:TSO REXX1。这可能会从用户那里收集信息(我使用一个弹出面板)。

REXX1将提交一个批处理作业以执行其余工作(我使用Skeleton JCL)。
REXX1将告诉用户“正在提交批处理作业以执行工作”

批处理作业将调用REXX2以执行其余工作。

使用批处理作业上的通知和/或TSO发送,让用户知道作业已完成。

对于您而言,我不确定您如何连接到外部服务器,以及该远程操作如何与大型机保持联系,并在完成时通知您。
回到顶部
查看用户资料 发送私信
谢尔盖肯

活跃的成员


已加入:2008年4月29日
帖子:944
所在地:马里兰

发布发表:2021年2月9日星期二8:54下午
引用回复

达夫波塞兰写道:
在这种情况下,我要做的是拥有两个Rexx程序。

第一个由用户启动:TSO REXX1。这可能会从用户那里收集信息(我使用一个弹出面板)。

REXX1将提交一个批处理作业以执行其余工作(我使用Skeleton JCL)。
REXX1将告诉用户“正在提交批处理作业以执行工作”

批处理作业将调用REXX2以执行其余工作。

使用批处理作业上的通知和/或TSO发送,让用户知道作业已完成。

对于您而言,我不确定您如何连接到外部服务器,以及该远程操作如何与大型机保持联系,并在完成时通知您。

可以,但是组织(以及首先了解这些方法的)所需的精力通常不值得取得成果。 icon_rolleyes.gif
回到顶部
查看用户资料 发送私信
达夫波塞兰

活跃的成员


加入时间:2006年12月1日
帖子:754
所在地:宾夕法尼亚州

发布发表:2021年2月9日星期二9:12下午
引用回复

引用:
可以,但是组织(以及首先了解这些方法的)所需的精力通常不值得取得成果。


引用:
您能很好地为我指出正确的方向吗?


我提供了一个潜在的解决方案。

通过不遗余力地帮助发布者,您可以获得什么?

我有没有完全平息你的努力?

这对任何愿意提供帮助的人都是非常沮丧的。

我相信主持人会支持您的。

这样的论坛。
回到顶部
查看用户资料 发送私信
唐·雷西

活跃的成员


已加入:2010年7月6日
帖子:698
地点:加拿大安大略省惠特比

发布发表:2021年2月9日星期二11:31下午
引用回复

塞尔吉肯写道:

可以,但是组织(以及首先了解这些方法的)所需的精力通常不值得取得成果。 icon_rolleyes.gif
认真吗Dave的方法比让前台流程运行要简单得多,它可以在查询可能永远不会出现的结果时占用您的TSO会话。

我建议的使用CONTROL DISPLAY LOCK的方法可以满足规定的要求,但会带来一些挑战。例如,如果外部实体的响应从未到达,则您需要找出一种解锁TSO会话的方法。

Dave的方法还允许用户在等待响应的同时执行其他工作。以我的经验,如果响应时间超过10秒,您的用户将变得不耐烦,并且只想这样做。
回到顶部
查看用户资料 发送私信
克里斯_70

新的用户


加入:2021年2月9日
帖子:3
地点:意大利

发布发表:2021年2月10日星期三4:18 pm
引用回复

唐·雷西写道:
查找ISPF服务CONTROL DISPLAY LOCK。


唐,非常感谢您的建议!
我能够使用它来精确编码所需的行为。
我还引入了超时功能,以确保在未收到回复的情况下可以解锁显示屏。

克里斯
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> 清单& REXX

 


类似主题
话题 论坛 回覆
该主题已锁定:您无法编辑帖子或回复。 语法错误的问题 同步排序 2
没有新帖 提取列时发生问题(Nullabl ... DB2 18
没有新帖 在浏览器中读取文件时出现问题... TSO / ISPF 7
没有新帖 在SFTP中发布文件 所有其他大型机主题 1
没有新帖 创建KWIKKEY实用程序时出现问题... JCL和VSAM 2
搜索我们的论坛:


回到顶部