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

如何使用ISPF服务LMCOPY复制PDS成员


IBM大型机论坛 -> TSO / ISPF
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
chan

新的用户


已加入:2007年6月6日
帖子:58
地点:海得拉巴

 发布 发表:2007年6月7日星期四上午11:32
引用回复

你好
有人可以建议我如何使用ISPF服务LMCOPY将PDS的成员复制到另一个REXX中。如果使用LMCOPY,将删除源中的成员(即从中复制该成员)并将其复制到目标中??
回到顶部
查看用户资料 发送私信
外籍人士

全球主持人


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

 发布 发表:2007年6月7日,星期四,12:24 pm
引用回复

这是您想要的手册的链接

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ISPZSG40/CCONTENTS?DT=20050713030339

LMCOPY(按名称)默认情况下执行COPY操作而不是MOVE
回到顶部
查看用户资料 发送私信
chan

新的用户


已加入:2007年6月6日
帖子:58
地点:海得拉巴

 发布 发表:2007年6月7日,星期四,下午1:17
引用回复

谢谢。
您能举个例子说明如何在rexx中使用此命令吗
回到顶部
查看用户资料 发送私信
外籍人士

全球主持人


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

 发布 发表:2007年6月7日,星期四,下午1:30
引用回复

使用此论坛上的搜索工具,SEARCH按钮位于页面顶部,并使用LMCOPY作为搜索关键字。
回到顶部
查看用户资料 发送私信
chan

新的用户


已加入:2007年6月6日
帖子:58
地点:海得拉巴

 发布 发表:2007年6月7日星期四下午3:54
引用回复

谢谢。
我在论坛上找到了LMCOPY的示例,并尝试了以下代码,但未复制pds的成员。在这方面有人可以帮助我吗?
代码如下:

码:

地址ISPEXEC                                           
'LMINIT DATAID(INDD) DATASET('''dsin''') ENQ(SHRW)'         
'LMINIT DATAID(OUTDD) DATASET('''dsout''') ENQ(SHRW)'     
'LMCOPY FROMID('INDD') TODATAID('OUTDD') FROMMEM('mbrin')   
托姆('mbrout') REPLACE PACK'     
说rc                                
如果rc?= 0,则执行                                         
   say 'failed to copy'                                   
    其他                      
    说“已复制”          
 'LMFREE DATAID('INDD')' 
 'LMFREE DATAID('OUTDD')'


O / P:
10
无法复制
回到顶部
查看用户资料 发送私信
超级

全球主持人


已加入:2004年4月26日
帖子:4650
地点:美国北卡罗来纳州罗利

 发布 发表:2007年6月7日星期四下午6:00
引用回复

代码本身看起来不错。您是否为LMCOPY服务查询了RC = 10的含义?
回到顶部
查看用户资料 发送私信
chan

新的用户


已加入:2007年6月6日
帖子:58
地点:海得拉巴

 发布 发表:2007年6月7日,星期四,下午6:14
引用回复

嗨,天哪,
我找不到LMCOPY的RC = 10的含义。
回到顶部
查看用户资料 发送私信
ofer71

全球主持人


已加入:2005年12月27日
帖子:2359
地点:以色列

 发布 发表:2007年6月7日星期四晚上7:10
引用回复

您是否尝试过 国际泳联手册 ?

回到顶部
查看用户资料 发送私信
外籍人士

全球主持人


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

 发布 发表:2007年6月7日,星期四,7:58 pm
引用回复

国际泳联手册

是高级手册的下一个版本 icon_rolleyes.gif
回到顶部
查看用户资料 发送私信
chan

新的用户


已加入:2007年6月6日
帖子:58
地点:海得拉巴

 发布 发表:2007年6月8日星期五,上午11:22
引用回复

谢谢ofer71,抱歉回复晚。
我尝试打印两个LMINIT语句的返回码,并且iam将两个语句的rc都设为8
我已经尝试过手册
RC-10表示“没有数据集与给定的数据ID相关联。 '
RC-8表示找不到“发件人”成员。
指定的“到成员名称”与指定的“来自成员名称”相同。
但是所需的所有数据集和成员已经存在。
回到顶部
查看用户资料 发送私信
超级

全球主持人


已加入:2004年4月26日
帖子:4650
地点:美国北卡罗来纳州罗利

 发布 发表:2007年6月8日,星期五3:50 pm
引用回复

发布您的执行程序的TRACE输出。
回到顶部
查看用户资料 发送私信
chan

新的用户


已加入:2007年6月6日
帖子:58
地点:海得拉巴

 发布 发表:2007年6月11日星期一6:45 pm
引用回复

谢谢你,我很抱歉收到这么晚答复。
但是该代码进行了一些更改。存在一些语法错误。.Iam发布了该代码,以便对其他人有所帮助。
地址ISPEXEC
“ LMINIT DATAID(INDD1)DATASET('MSC.PDS.CREREXX')”
说RC
“ LMINIT DATAID(OUTDD1)DATASET('MSC.JCLS.EXAMPLES')”
说RC
说INDD1
“ LMCOPY FROMID(” INDD1“)TODATAID(” 外出1“)FROMMEM(REXMEM)
托姆(REXMEM) REPLACE PACK"
说RC
如果RC?= 0
说“无法复制”
/ *离开* /
其他

“ LMFREE DATAID(” INDD1“)”
"LMFREE DATAID("外出1")"
说RC
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> TSO / ISPF

 


类似主题
话题 论坛 回覆
该主题已锁定:您无法编辑帖子或回复。 将文件列表从PS复制到另一个... 清单和REXX 11
没有新帖 DB2组成员用法 DB2 0
没有新帖 ISPF面板命令DDLIST / LISTBOX TSO / ISPF 11
没有新帖 我正在ISPF SC中获得一条垂直线... TSO / ISPF 3
没有新帖 确定哪个库成员在其中,... JCL和VSAM 9
搜索我们的论坛:

 回到顶部