|
查看上一个主题 :: 查看下一个主题
|
| 作者 |
信息 |
罗希特·沙玛（Rohit Sharma）
新的用户
加入时间：2009年5月28日
帖子：5
地点：海得拉巴
|
|
|
|
大家好 ，
我需要使用LMCOPY命令将PDS复制到临时数据集，然后使用IEBCOPY命令，我需要再次将临时数据集复制到
相同的PDS。我需要在Rexx程序中执行此操作。我正在学习Rexx，但是我需要执行从真实到临时以及从临时到真实PDS的此副本，以紧急解决空间问题？
任何人都可以通过代码/示例或其他任何方向来帮助我完成上述任务吗？
提前致谢 ！！！ |
|
| 回到顶部 |
|
 |
普里诺
警告：1
高级会员
已加入：2009年2月7日
职位：1241
地点：立陶宛维尔纽斯
|
|
|
|
“紧急” ...
您有时间在这里发帖，但不麻烦去拿手册吗？
嘘，如果您真的很想紧急，我可以给您发送我的PayPal帐户，您可以每天至少500欧元的价格转账汇率，每天至少两天，我可以为您提供执行此操作的代码。 |
|
| 回到顶部 |
|
|
恩里科·索里切蒂
高级主持人
已加入：2007年3月14日
帖子：10715
所在地：意大利
|
|
|
|
如何复制PDS已经讨论了很多次了...
为什么要使用临时...
正确的过程是
分配 新 喜欢 当前 （如果需要，可提供更多空间）
复制 当前 至 新
改名 当前 至 旧
改名 新 至 当前
检查一切正常后...删除 旧
为什么用REXX做这个愚蠢的要求？
IEBCOPY和IDCAMS不会做的任何事情，为什么是LMCOPY ???
在论坛中搜索示例
并记住你的紧迫感只是你的...
我们不能不在乎  |
|
| 回到顶部 |
|
|
dbzTHEdinosauer
全球主持人
已加入：2006年10月20日
帖子：6967
位置：瓷宝座
|
|
|
|
| 为什么对ISPF选项3.3（复制/ MOVE）？ |
|
| 回到顶部 |
|
|
罗希特·沙玛（Rohit Sharma）
新的用户
加入时间：2009年5月28日
帖子：5
地点：海得拉巴
|
|
|
|
| 普里诺写道： |
“紧急” ...
您有时间在这里发帖，但不麻烦去拿手册吗？
嘘，如果您真的很想紧急，我可以给您发送我的PayPal帐户，您可以每天至少500欧元的价格转账汇率，每天至少两天，我可以为您提供执行此操作的代码。 |
感谢您抽出时间“紧急”评论一个单词，而不是抽出时间在真实问题上发表评论..btw ..我提到了紧迫性，因为后来我写信尽可能提供代码/示例。 |
|
| 回到顶部 |
|
|
罗希特·沙玛（Rohit Sharma）
新的用户
加入时间：2009年5月28日
帖子：5
地点：海得拉巴
|
|
|
|
| 恩里科·索里切蒂写道： |
如何复制PDS已经讨论了很多次了...
为什么要使用临时...
正确的过程是
分配 新 喜欢 当前 （如果需要，可提供更多空间）
复制 当前 至 新
改名 当前 至 旧
改名 新 至 当前
检查一切正常后...删除 旧
为什么用REXX做这个愚蠢的要求？
IEBCOPY和IDCAMS不会做的任何事情，为什么是LMCOPY ???
在论坛中搜索示例
并记住你的紧迫感只是你的...
我们不能不在乎 |
谢谢。在Rexx中它是必需的，因为有一个数据集即使在程序结束后也不能释放空间。选项如Release和
“ TSO“ FREE F（DNS）”已经尝试过，但是没有用..所以可以尝试的下一个选项是我在这篇文章中问的。 |
|
| 回到顶部 |
|
|
dbzTHEdinosauer
全球主持人
已加入：2006年10月20日
帖子：6967
位置：瓷宝座
|
|
|
|
亚达，亚达，亚达，
罗希特·沙玛（Rohit Sharma）
写道： |
| 谢谢。在Rexx中是必需的，因为有一个数据集即使在程序结束后也不能释放空间 |
谈论对计算机中发生的一切一无所知！
找出 需求 基于这种白痴，
sorta使您甚至不想帮助别人。
很明显为什么很紧急。
TS的头如此之高，无法呼吸！ |
|
| 回到顶部 |
|
|
恩里科·索里切蒂
高级主持人
已加入：2007年3月14日
帖子：10715
所在地：意大利
|
|
|
|
| 引用： |
| 感谢您抽出时间“紧急”评论一个单词，而不是抽出时间对实际问题发表评论 |
因为我们回复 在我们自己的时间免费
我们有权对紧急性的愚蠢发表评论
如果我们不喜欢TS的态度，就不要回复 |
|
| 回到顶部 |
|
|
比尔·伍德格
主持人荣誉
加入时间：2011年3月9日
帖子：7311
位置：矩阵内部
|
|
|
|
正如已经在诗意上指出的那样，您要描述的内容与在rexx中执行该操作之间没有任何联系。
当您遵循恩里科的建议时会发生什么？据我所知，您为什么仍然有问题？ |
|
| 回到顶部 |
|
|
dbzTHEdinosauer
全球主持人
已加入：2006年10月20日
帖子：6967
位置：瓷宝座
|
|
|
|
这是一个很好的例子：
我不能修理你的刹车，所以我使你的喇叭更大声
（Thx McMillan）
罗希特·沙玛（Rohit Sharma），
你为什么不解释发生了什么，
然后有人可以建议您解决问题，
而不是绷带为您服务。
您需要确定为什么有问题的程序无法正确释放数据集
并修复它。 |
|
| 回到顶部 |
|
|
佩德罗
全球主持人
已加入：2006年9月1日
帖子：2214
地点：硅谷
|
|
|
|
| 使用PDSE而不是PDS。 |
|
| 回到顶部 |
|
|
罗希特·沙玛（Rohit Sharma）
新的用户
加入时间：2009年5月28日
帖子：5
地点：海得拉巴
|
|
|
|
谢谢佩德罗。以下是用于分配数据集的代码
| 码： |
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 .
有什么办法解决这个问题？因为在程序运行时没有这样的错误，但是问题是大量的内存浪费，因为未使用的空间不能释放。
再次感谢您理解问题  |
|
| 回到顶部 |
|
|
dbzTHEdinosauer
全球主持人
已加入：2006年10月20日
帖子：6967
位置：瓷宝座
|
|
|
|
行，
pds和pds-e都不是可以释放未使用的已分配空间的对象。
这将破坏使用ds组织的库类型的目的。
令人难以置信的是，该线程已经持续了这么长时间。
TSO FREE释放了任务的文件分配，
它与大小分配无关。
这个REXX脚本与db2有什么关系吗？
YTF您正在这样做：
地址DSNREXX"断开"子系统
一个qsam文件可以从分配中释放未使用的空间，
作为处置参数的一部分，
但是您想拉起一根绳索，试图将这种废话拉到PDS或PDS-E上。
第三次：
你在用这个REXX做什么？ PDS / PDS-E的目的是什么？ |
|
| 回到顶部 |
|
|
罗希特·沙玛（Rohit Sharma）
新的用户
加入时间：2009年5月28日
帖子：5
地点：海得拉巴
|
|
|
|
| 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
位置：矩阵内部
|
|
|
|
尝试对PDS / PDSE进行一些自己的研究，然后看看您是否可以理解dbz告诉您的内容。
如果您认为需要从PDS或PDSE释放“未使用”空间，请首先不要分配太多空间。或在知道数据大小后进行分配。
对于PDS，您可能需要重新分配空间“等待”的负载以重新使用，但是从某个范围根本没有可用于“ rlse”（或其他任何东西）的空间，即最后一个扩展可能已被完全使用，到那里的所有其他辅助节点以及主要节点，但PDS仍可以包含少量成员或更少的成员。没有Reorg，请为空间唱歌。
PDSE更好地重用了空间，但不是以一种可以轻易“取回”已分配内容的方式。
使它们“较小”，并具有较小的辅助范围。但是，然后您必须仔细观察它们。要么
忍受它。要么
请执行enrico在此线程中更早提出的建议，如果有能力，请使用他们当时使用的空间来执行。 |
|
| 回到顶部 |
|
|
佩德罗
全球主持人
已加入：2006年9月1日
帖子：2214
地点：硅谷
|
|
|
|
我提出了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
位置：瓷宝座
|
|
|
|
因此，何时删除“多余/未使用”空间。
当第一个成员关闭或最后一个成员关闭时？ |
|
| 回到顶部 |
|
|
达夫波塞兰
活跃的成员
加入时间：2006年12月1日
职位：747
所在地：宾夕法尼亚州
|
|
|
|
我们在这里只说几首。
90条轨道只有6个圆柱体，在我的书中很小。
为什么不分配它的SPACE（1,3）CYL？
在PDS / PDSE上没有发布。
那么最多可以“浪费”的是3个气缸。
如果45个气缸不足，则增加辅助分配。 |
|
| 回到顶部 |
|
|
佩德罗
全球主持人
已加入：2006年9月1日
帖子：2214
地点：硅谷
|
|
|
|
我同意6个气缸很小，可以忽略不计。但是，它仍应按文档所述工作。我们应该能够讨论这个概念。
ALLOCATE的RELEASE操作数记录得不好。但是JCL具有与RLSE参数类似的功能：
| 码： |
| 空格=({TRK,}(primary-qty[,second-qty][,directory])[,RLSE] |
RLSE有更好的文档记录，并且对为什么它不能释放空间有一些解释。请参阅《 JCL参考》。
注意：我不建议您从rexx切换到JCL。我只是指出，与JCL等效的文献被更好地记录了下来，它可能会更好地解释这种情况，从而帮助您解决问题。 |
|
| 回到顶部 |
|
|
达夫波塞兰
活跃的成员
加入时间：2006年12月1日
职位：747
所在地：宾夕法尼亚州
|
|
|
|
我认为是时候锁定这个话题了。
TS不见了，不太可能返回。
我认为真正的问题是整个过程设计不当，甚至描述得更糟。
试图将数据复制并重新复制到“空闲”未使用空间的事实浪费了资源。
关于释放pds中未使用空间的尝试，我们正在进行的讨论是最荒谬的。
这只是我的看法。
如果TS希望使用Rexx与我联系有关包裹的装订，我有很多这样做的经验。
我的服务可应紧急要求提供（当然需要付费）。 |
|
| 回到顶部 |
|
|
|
|
