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

如何在不使用编辑宏的情况下从当前行获取数据


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

新的用户


已加入:2009年1月17日
帖子:3
地点:印度

发布发表:2010年3月9日,星期二,7:49 今天双色球开奖结果
引用回复

你好

我需要开发一个rexx代码,以便在Endevor上查看代码时自动跳转到cobol部分。
例如:

......

PEFRORM A100-PARA。

.....

A100-PARA。

当光标位于“ PERFORM A100-PARA”行上时,应调用此rexx代码,以便它自动指向该行下方的实际cobol段落。

我自己还停留在初始阶段,因为我没有获取方法
当前行中的数据,而无需使用ISPF编辑宏。为什么我不能使用“编辑”宏,是因为在Endevor中,源列表以“浏览”模式打开。

谁能帮忙吗?
回到顶部
查看用户资料 发送私信
外籍人士

全球主持人


已加入:2007年3月14日
帖子:8794
地点:威尔士威尔士

发布发表:2010年3月9日,星期二,8:12 今天双色球开奖结果
引用回复

我确实希望ZSCREENI可以显示光标位置,但是没有显示。不幸的是,我认为这可能是道路的尽头,因为我不知道这种动物叫做浏览宏。

与您的内勤人员简短地交谈一下,看看是否可以在“查看”模式下打开屏幕呢?
回到顶部
查看用户资料 发送私信
滴头

新的用户


已加入:2009年1月17日
帖子:3
地点:印度

发布发表:2010年3月9日,星期二,晚上8:45
引用回复

我已经与他们联系过,他们告诉您可以指定在视图模式下打开代码的选项。但是我希望将此rexx安装在系统范围内,并且所有系统用户(包括我:)都喜欢打开endevor元素仅在浏览模式下。

rexx中没有任何命令来捕获当前行中存在的数据吗?
回到顶部
查看用户资料 发送私信
恩里科·索里切蒂

高级主持人


已加入:2007年3月14日
帖子:10715
所在地:意大利

发布发表:2010年3月9日,星期二,8:54 今天双色球开奖结果
引用回复

在ISPF手册中搜索
ZSCREENI(屏幕内容)
ZSCREENC(光标位置)

publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/Shelves/ISPZPM61
www.sillysot.com/mvs
和文章 光标敏感的ISPF
www.cbttape.org/xephon/xephonm/mvs9911.pdf
www.cbttape.org/xephon/xephonm/mvs9912.pdf 第二部分
回到顶部
查看用户资料 发送私信
外籍人士

全球主持人


已加入:2007年3月14日
帖子:8794
地点:威尔士威尔士

发布发表:2010年3月9日,星期二,9:21 今天双色球开奖结果
引用回复

干杯恩里科(Cheers Enrico),老狗学到另一种新技巧 icon_biggrin.gif
回到顶部
查看用户资料 发送私信
马索

REXX主持人


已加入:2006年3月13日
帖子:1348
地点:以色列

发布发表:2010年3月9日,星期二,9:49 今天双色球开奖结果
引用回复

即使有了新的技巧,我也看不到它如何工作。 icon_question.gif
在BROWSE中,它不能是宏,而必须是TSO命令。
此命令将如何与BROWSE交互?
回到顶部
查看用户资料 发送私信
恩里科·索里切蒂

高级主持人


已加入:2007年3月14日
帖子:10715
所在地:意大利

发布发表:2010年3月9日,星期二,晚上10:00
引用回复

它可以作为通用ISPF应用程序而不是作为编辑宏使用
哎呀哎呀...我明白你的意思了

但即使没用,我的建议在技术上也是正确的 icon_biggrin.gif
ts问 如何在不使用编辑宏的情况下从当前行获取数据
和mi链接显示了
那是...当时的一小步
下次

就像房客和房东的玩笑
房东被要求参观公寓
房客看到一群老鼠跳来跳去,
突然一只青蛙跳到桌子上
和房东...那是青蛙,不是老鼠
房客...今晚让老鼠吃完,明天再谈湿度
回到顶部
查看用户资料 发送私信
佩德罗

全球主持人


已加入:2006年9月1日
帖子:2214
地点:硅谷

发布发表:2010年3月9日,星期二,10:34 今天双色球开奖结果
引用回复

我不熟悉Endevour ...

但是普通浏览面板的顶部是数据集名称。我认为您可以使用ZSCREENI和ZSCREENC来确定目标,然后针对相同的数据集启动VIEW,并在VIEW内转到该目标行。

这有点尴尬,因为您必须关闭VIEW,然后在完成后关闭BROWSE。
回到顶部
查看用户资料 发送私信
马索

REXX主持人


已加入:2006年3月13日
帖子:1348
地点:以色列

发布发表:2010年3月10日,星期三3:00 今天双色球开奖结果
引用回复

无论如何,很高兴知道这些变量。
我相信会有很多其他机会来使用它们。 icon_smile.gif
回到顶部
查看用户资料 发送私信
滴头

新的用户


已加入:2009年1月17日
帖子:3
地点:印度

发布发表:2010年3月10日,星期三5:39 今天双色球开奖结果
引用回复

你好
多亏了所有,所以我可以取得很大进步。

到目前为止,我可以通过使用
地址ISPEXEC
'VGET(ZSCREENI,ZSCREENC,ZENVIR)'
文本= SUBSTR(ZSCREENI,1,ZSCREENC)

并进一步进行字符串操作以获取正在执行的段落的名称。

现在,要分支到代码中的该位置,我打算运行find命令
的名称为“ 找paraname 25”,因为它对于我们而言始终位于第25列。

但是我如何在浏览模式下执行此操作?
回到顶部
查看用户资料 发送私信
马索

REXX主持人


已加入:2006年3月13日
帖子:1348
地点:以色列

发布发表:2010年3月10日,星期三9:31 今天双色球开奖结果
引用回复

滴头写道:
但是我如何在浏览模式下执行此操作?

这正是我问的意思:
马索写道:
此命令将如何与BROWSE交互?

恩里科回答了:
恩里科·索里切蒂写道:
哎呀哎呀...


对我们来说很明显,没有已知的方法可以将FIND命令发送到BROWSE程序。 icon_sad.gif

抱歉,在以前的帖子中没有更加明确!
回到顶部
查看用户资料 发送私信
姆巴布

活跃用户


已加入:2008年8月3日
帖子:401
地点:孟买

发布发表:2010年3月10日,星期三10:17 今天双色球开奖结果
引用回复

从技术上讲,您可以通过更改显示数据的浏览面板来做到这一点,但这是对ISPF或Endevor代码的一种更改,您的商店可能不赞成这样做。

更改是面板逻辑,以调用rexx面板出口来搜索屏幕,然后使用FIND命令设置zcmd,然后执行.RESP = ENTER。代码不多(如果我猜的话大约10到15行),但是由于支持问题,不太可能被接受为整个站点的更改。
回到顶部
查看用户资料 发送私信
佩德罗

全球主持人


已加入:2006年9月1日
帖子:2214
地点:硅谷

发布发表:2010年3月11日,星期四2:11
引用回复

引用:
您可以通过更改浏览面板来完成


同意。看起来很简单。我昨天曾尝试这样做,但是我无法获得面板的第二次调用来处理命令。如果您有可行的示例,请向我们展示。
回到顶部
查看用户资料 发送私信
姆巴布

活跃用户


已加入:2008年8月3日
帖子:401
地点:孟买

发布发表:2010年3月11日,星期四,上午4:28
引用回复

更改了面板ISRBROBA,以便在命令行上键入“ ff”并将光标移到数据上方时,它将找到光标移过的单词(例如xxx)并发出
码:
找"xxx." FIRST

码:
)PROC                                                                   
&ZCURSOR = .CURSOR                                                     
&ZCSROFF = .CSRPOS                                                     
VPUT(ZSCBR) PROFILE     /*                           */               
&ZLVLINE = LVLINE(ZDATA)                                               
if (&ZCMD = 'FF' or &ZCMD = 'ff')                                       
 &CMDD ='XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
 *REXX(CMDD,ZSCREENC,ZSCREENI)                                         
 trtable ='abcdefghijklmnopqrstuvwxyz'   / *设置有效的varname字符  */
 trtable = 可动 ||翻译(trtable)||'1234567890-'                     
 trtable=translate(xrange('00'x,'FF'x),,trtable,' ')                   
 zscreeni=translate(zscreeni ,, 可动,'')/ *删除非变量名称字符* /
 If substr(zscreeni,zscreenc + 1,1) <> ' ' Then                           
   Do                                   / *从屏幕提取varname * /
     name=word(substr(zscreeni,1+lastpos('',zscreeni,zscreenc)),1)     
     name=translate(strip(name))                                       
     cmdd='FIND "'name'." FIRST'                               
   End                                                                 
 *ENDREXX                                                               
 &ZCMD = &CMDD                                                         
 .RESP=ENTER                                                           
)END                                                                   
这实际上并没有经过很好的测试,但是这个想法很合理。注意缩进很重要。由于许多原因,这不是一个完美的解决方案,但是该示例仅满足Pedro提出的直接问题。
回到顶部
查看用户资料 发送私信
佩德罗

全球主持人


已加入:2006年9月1日
帖子:2214
地点:硅谷

发布发表:2010年3月11日,星期四,上午6:22
引用回复

谢谢。

我曾尝试使用外部rexx程序,但无法使其正常工作。
回到顶部
查看用户资料 发送私信
姆巴布

活跃用户


已加入:2008年8月3日
帖子:401
地点:孟买

发布发表:2010年3月11日,星期四,上午6:48
引用回复

我也无法使用外部程序。显示command()不能正常工作。
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> 清单& REXX

 


类似主题
话题 论坛 回覆
没有新帖 比较两个文件以查找位置/日期... 同步排序 2
没有新帖 加载D ...时二级索引错误 IMS数据库/ DC 2
没有新帖 DB2I面板中的命令行放置 TSO / ISPF 2
没有新帖 在UPDATE语句中跳过锁定的数据 DB2 9
没有新帖 文件辅助批处理如何重复一行... Compuware和其他工具 2
搜索我们的论坛:


回到顶部