查找可从 TSO 大型机命令行执行的"HOLD" CLIST/REXX 逻辑



在IBM大型机上,我可以在命令行上键入"hold",按enter键,然后在不丢失原始屏幕的情况下显示一个新的TSO屏幕。要返回到上一个屏幕,我需要按F3。有人知道我在哪里可以找到CLIST/REXX代码吗?

假设你说"TSO"是指"ISPF",有几种方法可以在3270模式下获得新的逻辑ISPF屏幕。

一个是输入SWAP LIST命令。这会弹出一个窗口,您可以从中请求一个新的逻辑屏幕。

也可以输入SPLIT NEW命令。这将生成一个新的逻辑屏幕,并分割光标所在的屏幕——除非您在"设置"中取消选中"始终显示分割线"。设置通常是ISPF主菜单中的选项0。

所有这些都包含在ISPF用户指南中。

如果您真的想要编写一个ISPF对话框应用程序来做这类事情,我相信您会想熟悉ISPEXEC API。

在过去,您只能拥有2个ISPF分屏。例如,如果您在2个分屏中编辑2个数据集,并且需要在SDSF中检查某些内容,则您必须在其中一次编辑中选择PF3,然后在该分屏上进入SDSF。

我工作过的几个网站已经实现了一个命令,给你一个新的"伪"分屏,这样,如果你同时使用了两个分屏,你就可以很快做其他事情。听起来你的"保持"命令是这样的。

如今,你可以拥有许多分屏。在我上面的例子中,你可以简单地键入"split new"来获得一个新的分割屏幕(或者如果"s"是主选项菜单上SDSF的选项,则可以键入"start s"),在SDSF中执行你需要的操作,然后返回到你的2次编辑。以前这是不可能的。

如果您知道如何编辑ISPCMDS表,您可以在那里添加HOLD命令。

使用HOLD动词,T为0,动作为选择面板(ISR@PRIM)OPT(&ZPARM)NEWAPPL(ISR)SUSPEND

如果站点的主面板名称是其他名称,请使用该名称而不是ISR@PRIM.这将添加HOLD命令,就像EDS.一样

您可能必须将当前的ISPCMDS表复制到一个新的数据集,并将其重命名为其他数据集(如TSTCMDS),然后才能对其进行更改。您还必须将新数据集分配给ISPTABL。

在重命名的ISPCMDS表末尾添加新命令后,退出ISPF,将新表数据集的成员重命名为ISPCMDS,然后将数据集分配到安装提供的数据集之前。谷歌搜索可以为修改ISPCMDS提供更多信息。

如果你和网站的系统程序员关系很好,他可能会为你做这件事,并让每个人都可以使用。这是一个不错的破解,不需要任何新代码。

相关内容

  • 没有找到相关文章

最新更新