|
查看上一个主题 :: 查看下一个主题
|
| 作者 |
信息 |
joy_deep
新的用户
已加入：2006年1月3日
帖子：14
|
|
|
|
你好
我想将选定的带图案的成员从一个PDS复制到另一个。
例如：我有一个PDS说A.B.C，其中有400个成员，我想复制250个成员，从INV *开始到另一个PDS说D.E.F。我们可以通过Rexx做到吗？
感谢致敬！ |
|
| 回到顶部 |
|
 |
恩里科·索里切蒂
高级主持人
已加入：2007年3月14日
帖子：10715
所在地：意大利
|
|
| 回到顶部 |
|
|
埃斯卡帕
高级会员
已加入：2007年2月16日
帖子：1399
所在地：美国IL
|
|
|
|
是。我们可以。
你还想要吗？ 
通过论坛搜索... |
|
| 回到顶部 |
|
|
joy_deep
新的用户
已加入：2006年1月3日
帖子：14
|
|
|
|
请帮忙。我是Rexx的新手，我在这里需要一些帮助。
谢谢！ |
|
| 回到顶部 |
|
|
Craq Giegerich
高级会员
加入时间：2007年5月19日
帖子：1512
地点：美国弗吉尼亚
|
|
|
|
| 仅使用ISPF Option 3.3有什么问题？ |
|
| 回到顶部 |
|
|
恩里科·索里切蒂
高级主持人
已加入：2007年3月14日
帖子：10715
所在地：意大利
|
|
|
|
为什么在ispf选项3.3仅通过询问提供这种功能时重新发明轮子
这是面板流程
| 码： |
Menu RefList Utilities Help
———————————————————————————————————————————————————— ——————————————————————————————
Move/Copy Utility
Option ===> c
C 复制数据集或成员(s) CP Copy and print
M 移动数据集或成员(s) MP Move and print
Specify "From"下面的数据集，然后按Enter键
From ISPF Library:
项目。 。 。恩里科 (-仅选项C和CP ---)
Group 。 。 。 . ISPF . . . 。 。 。 。 。 。
Type 。 。 。 . EXEC
Member 。 。 。 isf* (成员列表的空白或图案，
"*" for all members)
来自其他分区或顺序数据集:
Name 。 。 。 。 。 。 .
Volume Serial 。 。 。 (If not cataloged)
Data Set Password . . (如果密码保护) |
| 码： |
Menu RefList Utilities Help
———————————————————————————————————————————————————— ——————————————————————————————
COPY 来自ENRICO.ISPF.EXEC
Command ===>
Specify "To" Data Set Below
To ISPF Library: Options:
Project . . ENRICO Enter "/" to select option
Group 。 。 。 ISPF 替换同名成员
Type 。 。 。 . dummy / 流程成员别名
到其他分区或顺序数据集:
Name 。 。 。 。 。 。 .
Volume Serial 。 。 。 (If not cataloged)
Data Set Password . . (如果密码保护)
To Data Set 选件:
顺序处置 Pack Option SCLM Setting
1 1. Mod 3 1. Yes 3 1. SCLM
2. Old 2. No 2. Non-SCLM
3. Default 3. As is |
| 码： |
Menu RefList Utilities Help
— &＃9674; ———————————————————————————————————————————————— ————————————————————————◊ ——
C ◊ 分配目标数据集 ◊
C ◊ 命令===> ◊
◊ ◊
S &＃9674;指定的数据集ENRICO.ISPF.DUMMY ◊
&＃9674;不存在。 ◊
T &＃9674;如果您希望分配此数据集，请选择以下选项之一 ◊
◊ below. ◊
◊ ◊
&＃9674;分配选项: ◊
◊ 1.使用以下属性分配: ◊
T ◊ ENRICO.ISPF.EXEC ◊
◊ 2. 指定allocation attributes ◊
◊ ◊
◊ 使用现有的SMS属性作为选项1 ◊
D ◊ ◊
◊ Instructions: ◊
T ◊ 按ENTER分配数据集。 ◊
◊ 输入CANCEL或END取消分配。 ◊
&＃9674; ———————————————————————————————————————————————— ————————————————————————◊
2. Old 2. No 2. Non-SCLM
3. Default 3. As is |
| 码： |
Menu Functions Utilities Help
———————————————————————————————————————————————————— ——————————————————————————————
COPY ENRICO.ISPF.EXEC 到ENRICO.ISPF.DUMMY Row 00001 of 00004
Command ===>s * Scroll ===> CSR
Name Prompt Size Created Changed ID
. ISFT00 30 2011/09/15 2011/09/15 07:59:42 ENRICO
. ISFT01 42 2011/06/15 2011/09/14 17:50:24 ENRICO
. ISFT02 38 2011/06/15 2011/06/15 10:44:22 ENRICO
. ISFT03 47 2011/06/15 2011/06/15 10:53:19 ENRICO
**End** |
| 码： |
Menu Functions Utilities Help
———————————————————————————————————————————————————— ——————————————————————————————
COPY ENRICO.ISPF.EXEC 到ENRICO.ISPF.DUMMY Row 00001 of 00004
Command ===> Scroll ===> CSR
Name Prompt Size Created Changed ID
. ISFT00 *COPIED 30 2011/09/15 2011/09/15 07:59:42 ENRICO
. ISFT01 *COPIED 42 2011/06/15 2011/09/14 17:50:24 ENRICO
. ISFT02 *COPIED 38 2011/06/15 2011/06/15 10:44:22 ENRICO
. ISFT03 *COPIED 47 2011/06/15 2011/06/15 10:53:19 ENRICO
**End** |
|
|
| 回到顶部 |
|
|
joy_deep
新的用户
已加入：2006年1月3日
帖子：14
|
|
|
|
我必须手动选择150个成员。太累了。同样，这是重复的任务。每次如果我必须选择这么多成员...那么我需要一个Rexx程序来做到这一点。
谢谢！ |
|
| 回到顶部 |
|
|
恩里科·索里切蒂
高级主持人
已加入：2007年3月14日
帖子：10715
所在地：意大利
|
|
|
|
重读您的初始请求和我向您展示的面板顺序
非常适合您的要求
如果您没有在初始屏幕中填写蒙版，则在显示成员列表时，您可以使用任何<arbitrary> mask ,
例如 s * zzz *
和建议，然后再编写工具（或者在这种情况下使用其他人开发的工具）
学习使用您已有的那些 |
|
| 回到顶部 |
|
|
dbzTHEdinosauer
全球主持人
已加入：2006年10月20日
帖子：6967
位置：瓷宝座
|
|
|
|
| 码： |
从 ISPF Library:
项目。 。 。恩里科 (-仅选项C和CP ---)
Group 。 。 。 . ISPF . . . 。 。 。 。 。 。
Type 。 。 。 . EXEC
Member 。 。 。 isf* |
| 码： |
COPY ENRICO.ISPF.EXEC 到ENRICO.ISPF.DUMMY Row 00001 of 00004
Command ===>s * |
您将很少得到我们的同情。
六次击键，敲击两次
完成了。 |
|
| 回到顶部 |
|
|
超级
全球主持人
已加入：2004年4月26日
帖子：4650
地点：美国北卡罗来纳州罗利
|
|
|
|
joy_deep ，在此论坛上发布时，我们希望您已经了解了一定数量的背景材料，并且除非您明确声明，否则我们必须做出一些默认假设。您应该对使用REXX exec的环境有深入的了解。可能是批处理/ MVS，TSO，ISPF，DB2或许多其他之一。如果要管理数据集，我们希望您必须具有与这些过程相关的必要技术知识。
话虽如此，让我们继续前进。 REXX不处理数据集。它依靠外部环境来做到这一点。将PDS成员从一个PDS复制到另一个PDS的正常方法是使用IBM IEBCOPY实用程序。如果这是一个批处理过程（并且您没有告诉我们不是），则可以使用IEBCOPY，而几乎不用REXX exec。从那里开始，如果您熟悉ISPF库管理（LM）服务，尤其是LMMCOPY服务，则可以像在其他任何程序中一样在REXX程序中使用它们。如果您希望介于两者之间，可以使用IEBGENER，SORT甚至是基本的REXX EXECIO函数（但是我不建议这样做）一次一次制作成员的单个副本。一个循环结构，您可以在其中使用TSO分配输入和输出DD并调用适当的实用程序/程序。 |
|
| 回到顶部 |
|
|
恩里科·索里切蒂
高级主持人
已加入：2007年3月14日
帖子：10715
所在地：意大利
|
|
|
|
迪克
能够在简历中引用
技能... ISPF / REXX工具开发更多<exciting> isn' t it |
|
| 回到顶部 |
|
|
joy_deep
新的用户
已加入：2006年1月3日
帖子：14
|
|
|
|
是的，很合适。但是，我正在寻找一种更好，更轻松的方法。
谢谢。 |
|
| 回到顶部 |
|
|
恩里科·索里切蒂
高级主持人
已加入：2007年3月14日
帖子：10715
所在地：意大利
|
|
|
|
您必须告诉源数据集 是
您必须告诉目标数据集 是
您必须分配目标数据集 是
您必须指定要复制的成员 是
ISPF为您做所有的事情
如果您认为可以做得更好，那就继续吧 |
|
| 回到顶部 |
|
|
joy_deep
新的用户
已加入：2006年1月3日
帖子：14
|
|
|
|
| 谢谢！我不知道“ S *”选项。 |
|
| 回到顶部 |
|
|
恩里科·索里切蒂
高级主持人
已加入：2007年3月14日
帖子：10715
所在地：意大利
|
|
|
|
还要注意<arbitrary> pattern capability s * zzz *
清理最热的火焰  |
|
| 回到顶部 |
|
|
|
|
