|
查看上一个主题 :: 查看下一个主题
|
| 作者 |
信息 |
ksouren007
新的用户
已加入：2010年6月30日
帖子：85
地点：安大略省多伦多
|
|
|
|
你好
我有以下要求，必须在JCL（不排序）中使用Fileaid复制实用程序，并且在复制时需要删除空格。
请问有人可以帮我使用SYSIN卡吗？
IP / OP平面文件：FB = 26
| 码： |
= COLS>---- + ---- 1 ---- + ---- 2 ---- +-
****** **************************
000001 00100095000000049866213001
000002
000003
000004
000005
000006
000007
000008
000009 00100095000000058209305001
000010
000011
000012
000013
000014
000015
000016
000017 00100095000000058209313001
|
两者之间的间隙是我要删除的空间，并且需要如下所示的OP文件。
| 码： |
= COLS>---- + ---- 1 ---- + ---- 2 ---- +-
****** **************************
000001 00100095000000049866213001
000009 00100095000000058209305001
000017 00100095000000058209313001
|
|
|
| 回到顶部 |
|
 |
彼得·荷兰
全球主持人
已加入：2009年10月27日
帖子：2475
所在地：荷兰，阿姆斯特尔芬
|
|
|
|
| $$ DD01 DROP IF =（1，EQ，C’’） |
|
| 回到顶部 |
|
|
ksouren007
新的用户
已加入：2010年6月30日
帖子：85
地点：安大略省多伦多
|
|
|
|
| 谢谢彼得...效果很好..你们摇滚！！ |
|
| 回到顶部 |
|
|
恩里科·索里切蒂
高级主持人
已加入：2007年3月14日
帖子：10715
所在地：意大利
|
|
|
|
| 引用： |
| 我有以下要求，必须在我的JCL中使用Fileaid复制实用程序（不排序） |
我不知道为什么有人定义了这种愚蠢的要求？
有一项任务要做，为什么要强制执行限制！
除此之外，除了稳定性和资源保障之外，SORT是最佳选择
FILEAID可能已删除（试图节省预算）
SORT ...不太可能 |
|
| 回到顶部 |
|
|
彼得·荷兰
全球主持人
已加入：2009年10月27日
帖子：2475
所在地：荷兰，阿姆斯特尔芬
|
|
|
|
| ksouren007写道： |
| 谢谢彼得...效果很好..你们摇滚！！ |
我知道  |
|
| 回到顶部 |
|
|
ksouren007
新的用户
已加入：2010年6月30日
帖子：85
地点：安大略省多伦多
|
|
|
|
Coz连同上述空间删除一起，我也有一个空文件检查条件，对此我没有DFSORT（ICETOOL）可用，而且我不知道IDCAMS在REPRO期间是否同时允许这两种条件。 |
|
| 回到顶部 |
|
|
外籍人士
全球主持人
已加入：2007年3月14日
帖子：8794
地点：威尔士威尔士
|
|
|
|
我认为您会发现DFSORT和SYNCSORT都可以为空文件发出非零返回码。
使用任何页面顶部的SEARCH按钮进行查找。 |
|
| 回到顶部 |
|
|
ksouren007
新的用户
已加入：2010年6月30日
帖子：85
地点：安大略省多伦多
|
|
|
|
我检查了以下内容，但不确定在用SYNCTOOL动态替换后它是否还能正常工作。在论坛上搜索等效的SYNCSORT解决方案以及减少空间并没有给我带来任何结果...可能是我搜索不好的结果！
// EXEC PGM = ICETOOL
// TOOLMSG DD SYSOUT = *
// DFSMSG DD SYSOUT = *
// INDD DD DSN = INPUT FILE，DISP = SHR
// TOOLIN DD *
空（INDD）个
/ *
如果文件为空，它将设置RC = 12
如果以上方法在SYNCSORT上正常运行，您能否让我知道如何在上面添加$$ DD01 DROP IF =（1，EQ，C’’）？ |
|
| 回到顶部 |
|
|
彼得·荷兰
全球主持人
已加入：2009年10月27日
帖子：2475
所在地：荷兰，阿姆斯特尔芬
|
|
|
|
忽略COND =（1,1，CH，EQ，C''）
排序字段=复制 |
|
| 回到顶部 |
|
|
阿努·达万（Anuj Dhawan）
高级会员
已加入：2006年4月22日
帖子：6250
地点：印度孟买
|
|
|
|
| ksouren007写道： |
| 我检查了以下内容，但不确定在用SYNCTOOL动态替换后它是否还能正常工作。 |
这意味着您的站点（或者至少是您执行工作的LPAR）正在使用SyncSort作为SORT产品。 SyncSort网站通常将ICETOOL别名为SYNCTOOL。即使您编写了PGM = ICETOOL的代码，也不意味着DFSORT的ICETOOL将为您服务（因为始终未安装支持产品）；并在幕后调用SYNCTOOL。
| 引用： |
| 如果以上方法在SYNCSORT上正常运行，您能否让我知道如何在上面添加$$ DD01 DROP IF =（1，EQ，C’’）？ |
好吧，您正在混合事情-$$ DD01是用于文件辅助的，您显示了ICETOOL（SYNCTOOL）示例，并要求替换ICETOOL作业...  这并没有给我清晰的画面，您在寻找什么？ |
|
| 回到顶部 |
|
|
阿努·达万（Anuj Dhawan）
高级会员
已加入：2006年4月22日
帖子：6250
地点：印度孟买
|
|
|
|
| 引用： |
| Coz连同上述空间删除一起，我也有一个空文件检查条件，对此我没有DFSORT（ICETOOL）可用，而且我不知道IDCAMS在REPRO期间是否同时允许这两种条件。 |
您是否想执行其他步骤，做不同的事情，当文件为空时，映射到文件不为空时？如果不是-为什么您担心文件为空？ |
|
| 回到顶部 |
|
|
ksouren007
新的用户
已加入：2010年6月30日
帖子：85
地点：安大略省多伦多
|
|
|
|
也许b从上至下阅读此页面上的所有帖子都可以清楚地看到我想要的内容。 Neways再次到达这一点表示如下所示：
1.我的站点安装了SYNCSORT。
2.如果文件为空，我随后将执行一些特定的操作。
3.我已经通过文件辅助实现了同样的目的。
4.现在，我正在寻找相同的SYNCSORT替代品。
5.并希望等价于$$ DD01 DROP IF =（1，EQ，C’）以添加到Peter所答复的以下排序卡中。
// EXEC PGM = ICETOOL
// TOOLMSG DD SYSOUT = *
// DFSMSG DD SYSOUT = *
// INDD DD DSN = INPUT FILE，DISP = SHR
// TOOLIN DD *
空（INDD）个
/ * |
|
| 回到顶部 |
|
|
彼得·荷兰
全球主持人
已加入：2009年10月27日
帖子：2475
所在地：荷兰，阿姆斯特尔芬
|
|
|
|
这就是我对您的同步排序的答复。我想您没有阅读所有评论。
| 彼得·荷兰（PeterHolland）写道： |
忽略COND =（1,1，CH，EQ，C''）
排序字段=复制 |
|
|
| 回到顶部 |
|
|
ksouren007
新的用户
已加入：2010年6月30日
帖子：85
地点：安大略省多伦多
|
|
|
|
| 引用： |
5.并希望等价于$$ DD01 DROP IF =（1，EQ，C’）以添加到Peter所答复的以下排序卡中。
|
感谢你的帮助！！ |
|
| 回到顶部 |
|
|
|
|
