我想使用 REXX将加载模块从一个 pds 复制到另一个。
问问题
515 次
3 回答
1
您可以从 Rexx 中调用 IEBCOPY，在调用 IEBCOPY 之前将适当的数据集分配给适当的 ddname。
我无法提供示例，因为我没有设施/访问权限。
请注意，这样做可能会占用您的终端/会话。
您还可以使用更精细的解决方案来构建和提交批处理作业，甚至可能有一个面板前端，驱动文件剪裁/骨架。
于 2016-02-01T10:17:12.880 回答
0
仅使用 REXX 是不可能的，但是，您可以调用 IEBCOPY（或您的站点等效项）来为您执行任务。您可能需要调查调用 IEBCOPY 之类的程序并将其传递给适当的控制卡以执行您的任务。
于 2016-01-01T20:49:30.227 回答
0
正如@cshneid 所说，您可以使用IEBCOPY在 rexx 中使用 IEBCOPY 与在 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 目录。不确定这是否还有优势。
于 2015-12-07T22:26:57.377 回答