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

EDIT 结束(SAVE) or 取消?


IBM大型机论坛 -> TSO / ISPF
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
史蒂夫·科伯兰

新的用户


已加入:2007年2月1日
帖子:89
地点:瑞典斯德哥尔摩

发布发表:星期六二月06,2016 7:11下午
引用回复

我已经进行了一段时间,在ISPF 7.6中进行建模,并完成* REXX节SAY诊断以及强制性RTFMing这样的工作...

我正在使用自定义面板编辑数据集。
我在这里发现无法从这里检测到CANCEL,END和RETURN之间的动作。全部显示.RESP为END。
我以为命令值可以作为ZCMD或ZVERB使用。在我的审判中并非如此。
并且...都返回RC = 4。
来吧,你们在哪里藏着这个秘密? icon_wink.gif
有趣的是,使用标准的ISREDDE2面板我从来没有遇到这个问题。
/史蒂夫
回到顶部
查看用户资料 发送私信
威利·詹森(Willy Jensen)

活跃用户


已加入:2015年9月1日
帖子:416
地点:丹麦

发布发表:星期六二月06,2016 9:18下午
引用回复

史蒂夫
您不会说您对编辑面板进行了哪种更改。
结束和RETURN给出相同的结果并不令我感到惊讶,就EDIT的结束方式而言,它们基本上是相同的。
我用修改后的ISREDDE面板做了一个小测试:

修改数据& 结束 ->rc = 0 zcmd = presp = 结束
没有变化& 结束 ->rc = 4 zcmd = presp = 结束
取消->rc = 4 zcmd = presp = ENTER

换句话说,如果文件已更改,则得到rc 0,否则得到rc 4。

威利
回到顶部
查看用户资料 发送私信
史蒂夫·科伯兰

新的用户


已加入:2007年2月1日
帖子:89
地点:瑞典斯德哥尔摩

发布发表于:2016年2月8日星期一1点02分
引用回复

谢谢威利。
该面板在ZDATA上方有两个额外的输入字段。
我在PROC部分的REXX部分以及之后的RC中测试各种值。
当我在命令字段中输入单词CANCEL时,我得到...
&ZCMD =
&ZVERB =
.CSRPOS = 00000004
.CURSOR = ZCMD
.PFKEY =
.RESP = 结束
然后编辑后得到 +++ RC(4)+++
当我在命令字段中输入单词END时,我得到...
&ZCMD =
&ZVERB =
.CSRPOS = 00000004
.CURSOR = ZCMD
.PFKEY =
.RESP = 结束
然后再次编辑得到 +++ RC(4)+++

我本来希望(希望)ZCMD或ZVERB的值都为CANCEL或END。

/史蒂夫
回到顶部
查看用户资料 发送私信
唐·雷西

活跃的成员


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

发布发表:2016年2月8日星期一6:07 pm
引用回复

我没有尝试您的确切方案,但是在自定义的“查看”面板上,我在共享池中看到了ZVERB =“ 取消”。函数(隐式)池中的值为空白。
回到顶部
查看用户资料 发送私信
威利·詹森(Willy Jensen)

活跃用户


已加入:2015年9月1日
帖子:416
地点:丹麦

发布发表:2016年2月8日星期一7:17 pm
引用回复

有趣。我的面板中没有REXX代码,我只是在显示后检查值。如果我按下END键,无论是否进行更改,我都会看到共享池中的ZVERB变量设置为END,但是如果我取消编辑,则将其设置为null。
我查看了手册(zOS 1.13),但它没有对共享池中的ZVERB进行任何说明。
回到顶部
查看用户资料 发送私信
米奇杜莎尔

活跃用户


已加入:2006年5月24日
帖子:258
地点:俄勒冈州塞勒姆

发布发表:2016年2月8日星期一8:47 pm
引用回复

在面板中,执行以下操作。

VGET(ZVERB) SHARED

&SMGCMDS = &ZVERB

VPUT(SMGCMDS) PROFILE

在Rexx中,我执行以下操作

"编辑数据集('"WRKFILE"') PANEL(ISPFEDIT) MIXED(YES)"

RTRNCODE = RC

如果RTRNCODE = 0 | RTRNCODE = 4
然后 DO
RTRNCODE = 0

"VGET(SMGCMDS)" PROFILE

如果SMGCMDS ='取消'| '能够'

您可以检查检查是否有任何类型的响应,例如END,SUB,SUBMIT
或任何其他命令
回到顶部
查看用户资料 发送私信
史蒂夫·科伯兰

新的用户


已加入:2007年2月1日
帖子:89
地点:瑞典斯德哥尔摩

发布发表:2016年2月9日(星期二)下午9:22
引用回复

谢谢你们。是的,我一直在查看ZVERB,但仅在FUNCTION池中查看,但我将在SHARED中重新进行介绍。
我不知道为什么只共享它?大概是个好理由。
优秀的,
谢谢/史蒂夫 icon_biggrin.gif
回到顶部
查看用户资料 发送私信
威利·詹森(Willy Jensen)

活跃用户


已加入:2015年9月1日
帖子:416
地点:丹麦

发布发表于:2016年2月10日星期三凌晨1:24
引用回复

只是做了一些测试。
change + save + change + cancel仍然以rc = 0结束,这很好,因为它告诉您成员已被修改。

不知道为什么在共享池中设置ZVERB,对我来说毫无意义。
回到顶部
查看用户资料 发送私信
史蒂夫·科伯兰

新的用户


已加入:2007年2月1日
帖子:89
地点:瑞典斯德哥尔摩

发布发表于:2016年2月10日星期三上午11:50
引用回复

我看不到任何价值 ZVERB 为一个 取消 键入或由PFK命令。
码:
Zverb = ""
地址ISPEXEC"VPUT (ZVERB) SHARED "
地址ISPEXEC"EDIT DATASET("mem") PANEL(MEMO) MACRO(MEMOM) "
erc = RC
-  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  5 Line(s) not Displayed
地址ISPEXEC"VGET (ZVERB) SHARED "
-  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  2 Line(s) not Displayed
选择
什么时候( erc=0 & Zverb="END" )THEN NOP
什么时候( erc=4 & (zverb=""!zverb="CANCEL") )THEN
   CALL ABEXIT "TERMINATED BY 取消",,
               "The 取消 command (or key) terminates 备忘录."
除此以外
   CALL ABEXIT "由未知终止",,
               "该操作已被“"zverb
             !!"'带有RC =的命令"eRC"."
结束/*SELECT*/
使用隐藏的调试程序(RESP 是从 .RESP 在“编辑”面板中)...
结束/返回 (PFK或键入)我得到...
RC=0
RESP =结束
ZVERB = 结束

为一个 取消 (PFK或键入)我得到...
RC=4
RESP =结束
ZVERB =

所以这是可以预见的,尽管我更愿意 ZVERB 原为 取消 并留下了代码...以防万一RTP的某个人很快对其进行了更改! icon_cool.gif
/史蒂夫
回到顶部
查看用户资料 发送私信
史蒂夫·科伯兰

新的用户


已加入:2007年2月1日
帖子:89
地点:瑞典斯德哥尔摩

发布发表:2016年8月8日星期一4:01 pm
引用回复

继续这个传奇。
我在浏览中尝试了相同的方法。
在BROWSE中发出CANCEL时,未在SHARED中设置ZVERB!
有点不一致?
或者,当无法在BROWSE中更改数据时,CANCEL的概念可能有点奇怪。
我仍然希望我输入的任何命令都可以在ZVERB中传递回来。
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> TSO / ISPF

 


类似主题
话题 论坛 回覆
没有新帖 使用配置文件命令的ISPF编辑宏... TSO / ISPF 14
没有新帖 需要使用REXX打开DSN& e... 清单和REXX 10
没有新帖 执行部分编辑的Rexx执行... 清单和REXX 14
没有新帖 用于修改JCL的ISPF Edit宏 TSO / ISPF 21
没有新帖 划分和编辑总和-OutRec DFSORT / ICETOOL 5
搜索我们的论坛:


回到顶部