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

LMCOPY到临时数据集


IBM大型机论坛 -> 清单& REXX
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
罗希特·沙玛(Rohit Sharma)

新的用户


加入时间:2009年5月28日
帖子:5
地点:海得拉巴

发布发表:2012年3月19日星期一12:41上午
引用回复

大家好 ,

我需要使用LMCOPY命令将PDS复制到临时数据集,然后使用IEBCOPY命令,我需要再次将临时数据集复制到
相同的PDS。我需要在Rexx程序中执行此操作。我正在学习Rexx,但是我需要执行从真实到临时以及从临时到真实PDS的此副本,以紧急解决空间问题?

任何人都可以通过代码/示例或其他任何方向来帮助我完成上述任务吗?
提前致谢 !!!
回到顶部
查看用户资料 发送私信
普里诺
警告:1

高级会员


已加入:2009年2月7日
职位:1241
地点:立陶宛维尔纽斯

发布发表:2012年3月19日星期一12:47上午
引用回复

“紧急” ...

您有时间在这里发帖,但不麻烦去拿手册吗?

嘘,如果您真的很想紧急,我可以给您发送我的PayPal帐户,您可以每天至少500欧元的价格转账汇率,每天至少两天,我可以为您提供执行此操作的代码。
回到顶部
查看用户资料 发送私信
恩里科·索里切蒂

高级主持人


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

发布发表:2012年3月19日星期一1点14分
引用回复

如何复制PDS已经讨论了很多次了...
为什么要使用临时...
正确的过程是
分配 喜欢 当前 (如果需要,可提供更多空间)
复制 当前
改名 当前
改名 当前

检查一切正常后...删除

为什么用REXX做这个愚蠢的要求?
IEBCOPY和IDCAMS不会做的任何事情,为什么是LMCOPY ???
在论坛中搜索示例

并记住你的紧迫感只是你的...
我们不能不在乎 icon_cool.gif
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


已加入:2006年10月20日
帖子:6967
位置:瓷宝座

发布发表:2012年3月19日星期一1点56分
引用回复

为什么对ISPF选项3.3(复制/ MOVE)?
回到顶部
查看用户资料 发送私信
罗希特·沙玛(Rohit Sharma)

新的用户


加入时间:2009年5月28日
帖子:5
地点:海得拉巴

发布发表:2012年3月19日星期一11:35上午
引用回复

普里诺写道:
“紧急” ...

您有时间在这里发帖,但不麻烦去拿手册吗?

嘘,如果您真的很想紧急,我可以给您发送我的PayPal帐户,您可以每天至少500欧元的价格转账汇率,每天至少两天,我可以为您提供执行此操作的代码。




感谢您抽出时间“紧急”评论一个单词,而不是抽出时间在真实问题上发表评论..btw ..我提到了紧迫性,因为后来我写信尽可能提供代码/示例。
回到顶部
查看用户资料 发送私信
罗希特·沙玛(Rohit Sharma)

新的用户


加入时间:2009年5月28日
帖子:5
地点:海得拉巴

发布发表:2012年3月19日,星期一12:04 pm
引用回复

恩里科·索里切蒂写道:
如何复制PDS已经讨论了很多次了...
为什么要使用临时...
正确的过程是
分配 喜欢 当前 (如果需要,可提供更多空间)
复制 当前
改名 当前
改名 当前

检查一切正常后...删除

为什么用REXX做这个愚蠢的要求?
IEBCOPY和IDCAMS不会做的任何事情,为什么是LMCOPY ???
在论坛中搜索示例

并记住你的紧迫感只是你的...
我们不能不在乎 icon_cool.gif



谢谢。在Rexx中它是必需的,因为有一个数据集即使在程序结束后也不能释放空间。选项如Release和
“ TSO“ FREE F(DNS)”已经尝试过,但是没有用..所以可以尝试的下一个选项是我在这篇文章中问的。
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


已加入:2006年10月20日
帖子:6967
位置:瓷宝座

发布发表:2012年3月19日星期一1点23分
引用回复

亚达,亚达,亚达,

罗希特·沙玛(Rohit Sharma)
写道:
谢谢。在Rexx中是必需的,因为有一个数据集即使在程序结束后也不能释放空间


谈论对计算机中发生的一切一无所知!

找出 需求 基于这种白痴,
sorta使您甚至不想帮助别人。
很明显为什么很紧急。
TS的头如此之高,无法呼吸!
回到顶部
查看用户资料 发送私信
恩里科·索里切蒂

高级主持人


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

发布发表:2012年3月19日星期一1:43 pm
引用回复

引用:
感谢您抽出时间“紧急”评论一个单词,而不是抽出时间对实际问题发表评论


因为我们回复 在我们自己的时间免费
我们有权对紧急性的愚蠢发表评论
如果我们不喜欢TS的态度,就不要回复
回到顶部
查看用户资料 发送私信
比尔·伍德格

主持人荣誉


加入时间:2011年3月9日
帖子:7311
位置:矩阵内部

发布发表:2012年3月19日星期一1:54 pm
引用回复

正如已经在诗意上指出的那样,您要描述的内容与在rexx中执行该操作之间没有任何联系。

当您遵循恩里科的建议时会发生什么?据我所知,您为什么仍然有问题?
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


已加入:2006年10月20日
帖子:6967
位置:瓷宝座

发布发表:2012年3月19日星期一1:55 pm
引用回复

这是一个很好的例子:
我不能修理你的刹车,所以我使你的喇叭更大声
(Thx McMillan)

罗希特·沙玛(Rohit Sharma),
你为什么不解释发生了什么,
然后有人可以建议您解决问题,
而不是绷带为您服务。

您需要确定为什么有问题的程序无法正确释放数据集
并修复它。
回到顶部
查看用户资料 发送私信
佩德罗

全球主持人


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

发布发表:2012年3月19日星期一6:16 pm
引用回复

使用PDSE而不是PDS。
回到顶部
查看用户资料 发送私信
罗希特·沙玛(Rohit Sharma)

新的用户


加入时间:2009年5月28日
帖子:5
地点:海得拉巴

发布发表:2012年3月20日,星期二2:09上午
引用回复

佩德罗写道:
使用PDSE而不是PDS。


谢谢佩德罗。以下是用于分配数据集的代码
码:
  ADDRESS TSO                                                     
  "ALLOC F(DNS) DS('"DESTPDS"') SPACE(90,50) TRACKS NEW 释放", 
  "REUSE DSORG(PO) DSNTYPE(LIBRARY) UNIT(SYSDA)",                 
  "RECFM(F,B) LRECL(80) "                                         
  IF RC \=0 THEN                                                   
  DO                                                               
   SAY "目标数据集的分配"DESTPDS"' FAILED."         
   SAY "RC FROM ALLOC: " RC                                       
   SAY "请联系技术应用支持。"             
   SAY "................................................... ........"
   SAY "EXITING...."                                               
   ADDRESS DSNREXX "DISCONNECT "SUBSYS                             
   EXIT                                                           
  END                                                             
  说"创建了目标数据集..." 数据传输协议*/                   
  ADDRESS TSO 'FREE F(DNS)'       



但是释放或释放命令都无法释放未使用的空间..完整地分配了90条轨道,当我们手动释放空间时,发现大部分时间的数量很少(<90) are used .
有什么办法解决这个问题?因为在程序运行时没有这样的错误,但是问题是大量的内存浪费,因为未使用的空间不能释放。

再次感谢您理解问题 icon_smile.gif
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


已加入:2006年10月20日
帖子:6967
位置:瓷宝座

发布发表:2012年3月20日,星期二2:23
引用回复

行,
pds和pds-e都不是可以释放未使用的已分配空间的对象。
这将破坏使用ds组织的库类型的目的。

令人难以置信的是,该线程已经持续了这么长时间。

TSO FREE释放了任务的文件分配,
它与大小分配无关。

这个REXX脚本与db2有什么关系吗?
YTF您正在这样做:
地址DSNREXX"断开"子系统

一个qsam文件可以从分配中释放未使用的空间,
作为处置参数的一部分,
但是您想拉起一根绳索,试图将这种废话拉到PDS或PDS-E上。

第三次:
你在用这个REXX做什么? PDS / PDS-E的目的是什么?
回到顶部
查看用户资料 发送私信
罗希特·沙玛(Rohit Sharma)

新的用户


加入时间:2009年5月28日
帖子:5
地点:海得拉巴

发布发表:2012年3月20日,星期二2:37 am
引用回复

dbzTHEdinosauer写道:
行,
pds和pds-e都不是可以释放未使用的已分配空间的对象。
这将破坏使用ds组织的库类型的目的。

令人难以置信的是,该线程已经持续了这么长时间。

TSO FREE释放了任务的文件分配,
它与大小分配无关。

这个REXX脚本与db2有什么关系吗?
YTF您正在这样做:
地址DSNREXX"断开"子系统

一个qsam文件可以从分配中释放未使用的空间,
作为处置参数的一部分,
但是您想拉起一根绳索,试图将这种废话拉到PDS或PDS-E上。

第三次:
你在用这个REXX做什么?目的是什么
PDS / PDS-E中的e?



是的。该脚本将信息保存在DB2表中。

此rexx通过Panels创建一个包,并将包信息保存在Db2表中。并且该PDSE是对应于包装元素分配的,即取决于元素的类型有不同的包装类型。因此,此PDSE包含我们输入要包含在包中的所有那些要素。

问题是上述PDSE的“未使用空间无法获得自由”
回到顶部
查看用户资料 发送私信
比尔·伍德格

主持人荣誉


加入时间:2011年3月9日
帖子:7311
位置:矩阵内部

发布发表:2012年3月20日,星期二,凌晨3:36
引用回复

尝试对PDS / PDSE进行一些自己的研究,然后看看您是否可以理解dbz告诉您的内容。

如果您认为需要从PDS或PDSE释放“未使用”空间,请首先不要分配太多空间。或在知道数据大小后进行分配。

对于PDS,您可能需要重新分配空间“等待”的负载以重新使用,但是从某个范围根本没有可用于“ rlse”(或其他任何东西)的空间,即最后一个扩展可能已被完全使用,到那里的所有其他辅助节点以及主要节点,但PDS仍可以包含少量成员或更少的成员。没有Reorg,请为空间唱歌。

PDSE更好地重用了空间,但不是以一种可以轻易“取回”已分配内容的方式。

使它们“较小”,并具有较小的辅助范围。但是,然后您必须仔细观察它们。要么

忍受它。要么

请执行enrico在此线程中更早提出的建议,如果有能力,请使用他们当时使用的空间来执行。
回到顶部
查看用户资料 发送私信
佩德罗

全球主持人


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

发布发表:2012年3月20日,星期二,下午6:49
引用回复

我提出了PDSE问题,认为这是一个压缩问题。

但是现在,我意识到这是一个发布问题。
码:
"ALLOC F(DNS) DS('"DESTPDS"') SPACE(90,50) TRACKS NEW 释放",
"REUSE DSORG(PO) DSNTYPE(LIBRARY) UNIT(SYSDA)",
"RECFM(F,B) LRECL(80) "


从TSO命令参考中:
引用:
释放
指定关闭数据集时要删除的未使用空间。
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


已加入:2006年10月20日
帖子:6967
位置:瓷宝座

发布发表:2012年3月20日,星期二,下午6:59
引用回复

因此,何时删除“多余/未使用”空间。
当第一个成员关闭或最后一个成员关闭时?
回到顶部
查看用户资料 发送私信
达夫波塞兰

活跃的成员


加入时间:2006年12月1日
职位:747
所在地:宾夕法尼亚州

发布发表:2012年3月20日,星期二,晚上8:50
引用回复

我们在这里只说几首。

90条轨道只有6个圆柱体,在我的书中很小。

为什么不分配它的SPACE(1,3)CYL?

在PDS / PDSE上没有发布。

那么最多可以“浪费”的是3个气缸。

如果45个气缸不足,则增加辅助分配。
回到顶部
查看用户资料 发送私信
佩德罗

全球主持人


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

发布发表:2012年3月20日,星期二,9:21 pm
引用回复

我同意6个气缸很小,可以忽略不计。但是,它仍应按文档所述工作。我们应该能够讨论这个概念。

ALLOCATE的RELEASE操作数记录得不好。但是JCL具有与RLSE参数类似的功能:
码:
空格=({TRK,}(primary-qty[,second-qty][,directory])[,RLSE]

RLSE有更好的文档记录,并且对为什么它不能释放空间有一些解释。请参阅《 JCL参考》。

注意:我不建议您从rexx切换到JCL。我只是指出,与JCL等效的文献被更好地记录了下来,它可能会更好地解释这种情况,从而帮助您解决问题。
回到顶部
查看用户资料 发送私信
达夫波塞兰

活跃的成员


加入时间:2006年12月1日
职位:747
所在地:宾夕法尼亚州

发布发表:2012年3月20日,星期二,9:43 pm
引用回复

我认为是时候锁定这个话题了。

TS不见了,不太可能返回。

我认为真正的问题是整个过程设计不当,甚至描述得更糟。

试图将数据复制并重新复制到“空闲”未使用空间的事实浪费了资源。

关于释放pds中未使用空间的尝试,我们正在进行的讨论是最荒谬的。

这只是我的看法。

如果TS希望使用Rexx与我联系有关包裹的装订,我有很多这样做的经验。

我的服务可应紧急要求提供(当然需要付费)。
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> 清单& REXX

 


类似主题
话题 论坛 回覆
没有新帖 捕获GDG数据集名称 JCL和VSAM 10
没有新帖 从内部获取数据集名称... TSO / ISPF 18
没有新帖 全局临时表 DB2 1
没有新帖 什么是DSORG(Datset组织)... JCL和VSAM 8
没有新帖 IEBGENER不在PD中创建成员... JCL和VSAM 7
搜索我们的论坛:


回到顶部
© 2003-2021 IBM MAINFRAMES软件与支持部门
董事会规则 | FAQ | Downloads | Wiki | SiteMap | Contact Us