如何使用rexx复制加载模块

Question

我想使用REXX将加载模块从一个pd复制到另一个pd。

Answer 1

您可以从Rexx中调用IEBCOPY，在调用IEBCOPY之前将适当的数据集分配给适当的ddname。

我无法提供一个例子，因为我没有设施/通道。

请注意，这样做可能会占用您的终端/会话。

您还可以使用更复杂的解决方案来构建和提交批处理作业，甚至可能有一个面板前端，驱动文件裁剪/骨架。

Answer 2

正如@cshneid所说，您可以使用IEBCOPY。在rexx中使用IEBCCOPY基本上与JCL中相同，但：

• 使用TSO Alloc分配文件
• 调用/调用程序

---

如果在ISPF下运行，则可以使用LMCOPY。大致如下所示，您可能还需要对数据ID发出LMOPEN/LMClose？？？

Address ISPEXEC
'LMINIT DATAID(DIDFrom) Dataset(in.data.set)'
'LMINIT DATAID(DIDTo) Dataset(to.data.set)'
'LMCOPY FromId('DIDFrom') FROMMEM(mymem) toId('DIDTo') toMem(newMemberName)'
'LMFREE DATAID(DIDFrom)'
'LMFREE DATAID(DIDto)'

如果在前台运行，ISPF服务过去具有优势，因为它们与所有其他ISPF用户"协调"了这些操作——不太可能损坏PDS目录。不确定这是否是一个优势。

Answer 3

只使用REXX是不可能的，但是，您可以调用IEBCOPY（或等效的站点）来为您执行任务。您可能需要调查像IEBCOPY这样的调用程序，并将其传递给适当的控制卡以执行您的任务。