IBM大型机论坛索引
 
登录
 
IBM大型机论坛索引 大型机:搜索 IBM Mainframe论坛:常见问题解答 寄存器
 

使用JCL中的Fileaid复制实用程序删除X'40'


IBM大型机论坛 -> 电脑软件& Other Tools
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
ksouren007

新的用户


已加入:2010年6月30日
帖子:85
地点:安大略省多伦多

发布发表:2011年1月11日,星期二,下午1:41
引用回复

你好

我有以下要求,必须在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
所在地:荷兰,阿姆斯特尔芬

发布发表:2011年1月11日,星期二,下午1:53
引用回复

$$ DD01 DROP IF =(1,EQ,C’’)
回到顶部
查看用户资料 发送私信
ksouren007

新的用户


已加入:2010年6月30日
帖子:85
地点:安大略省多伦多

发布发表:2011年1月11日,星期二,下午3:11
引用回复

谢谢彼得...效果很好..你们摇滚!!
回到顶部
查看用户资料 发送私信
恩里科·索里切蒂

高级主持人


已加入:2007年3月14日
帖子:10715
所在地:意大利

发布发表:2011年1月11日,星期二,下午3:17
引用回复

引用:
我有以下要求,必须在我的JCL中使用Fileaid复制实用程序(不排序)


我不知道为什么有人定义了这种愚蠢的要求?
有一项任务要做,为什么要强制执行限制!
除此之外,除了稳定性和资源保障之外,SORT是最佳选择

FILEAID可能已删除(试图节省预算)
SORT ...不太可能
回到顶部
查看用户资料 发送私信
彼得·荷兰

全球主持人


已加入:2009年10月27日
帖子:2475
所在地:荷兰,阿姆斯特尔芬

发布发表:2011年1月11日,星期二,下午3:29
引用回复

ksouren007写道:
谢谢彼得...效果很好..你们摇滚!!


我知道 icon_rolleyes.gif
回到顶部
查看用户资料 发送私信
ksouren007

新的用户


已加入:2010年6月30日
帖子:85
地点:安大略省多伦多

发布发表:2011年1月11日,星期二,下午3:45
引用回复

引用:
我不知道为什么有人定义了这种愚蠢的要求?


Coz连同上述空间删除一起,我也有一个空文件检查条件,对此我没有DFSORT(ICETOOL)可用,而且我不知道IDCAMS在REPRO期间是否同时允许这两种条件。
回到顶部
查看用户资料 发送私信
外籍人士

全球主持人


已加入:2007年3月14日
帖子:8794
地点:威尔士威尔士

发布发表:2011年1月11日,星期二,下午5:15
引用回复

我认为您会发现DFSORT和SYNCSORT都可以为空文件发出非零返回码。

使用任何页面顶部的SEARCH按钮进行查找。
回到顶部
查看用户资料 发送私信
ksouren007

新的用户


已加入:2010年6月30日
帖子:85
地点:安大略省多伦多

发布发表:2011年1月13日,星期四2:11 pm
引用回复

我检查了以下内容,但不确定在用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
所在地:荷兰,阿姆斯特尔芬

发布发表:2011年1月13日,星期四,下午2:27
引用回复

忽略COND =(1,1,CH,EQ,C'')
排序字段=复制
回到顶部
查看用户资料 发送私信
阿努·达万(Anuj Dhawan)

高级会员


已加入:2006年4月22日
帖子:6250
地点:印度孟买

发布发表:2011年1月13日,星期四,下午3:50
引用回复

ksouren007写道:
我检查了以下内容,但不确定在用SYNCTOOL动态替换后它是否还能正常工作。
这意味着您的站点(或者至少是您执行工作的LPAR)正在使用SyncSort作为SORT产品。 SyncSort网站通常将ICETOOL别名为SYNCTOOL。即使您编写了PGM = ICETOOL的代码,也不意味着DFSORT的ICETOOL将为您服务(因为始终未安装支持产品);并在幕后调用SYNCTOOL。


引用:
如果以上方法在SYNCSORT上正常运行,您能否让我知道如何在上面添加$$ DD01 DROP IF =(1,EQ,C’’)?
好吧,您正在混合事情-$$ DD01是用于文件辅助的,您显示了ICETOOL(SYNCTOOL)示例,并要求替换ICETOOL作业... icon_neutral.gif 这并没有给我清晰的画面,您在寻找什么?
回到顶部
查看用户资料 发送私信
阿努·达万(Anuj Dhawan)

高级会员


已加入:2006年4月22日
帖子:6250
地点:印度孟买

发布发表:2011年1月13日,星期四,下午3:52
引用回复

引用:
Coz连同上述空间删除一起,我也有一个空文件检查条件,对此我没有DFSORT(ICETOOL)可用,而且我不知道IDCAMS在REPRO期间是否同时允许这两种条件。
您是否想执行其他步骤,做不同的事情,当文件为空时,映射到文件不为空时?如果不是-为什么您担心文件为空?
回到顶部
查看用户资料 发送私信
ksouren007

新的用户


已加入:2010年6月30日
帖子:85
地点:安大略省多伦多

发布发表:2011年1月13日,星期四,下午4:14
引用回复

也许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
所在地:荷兰,阿姆斯特尔芬

发布发表:2011年1月13日,星期四,下午4:16
引用回复

这就是我对您的同步排序的答复。我想您没有阅读所有评论。



彼得·荷兰(PeterHolland)写道:
忽略COND =(1,1,CH,EQ,C'')
排序字段=复制
回到顶部
查看用户资料 发送私信
ksouren007

新的用户


已加入:2010年6月30日
帖子:85
地点:安大略省多伦多

发布发表:2011年1月13日,星期四,下午4:38
引用回复

引用:
5.并希望等价于$$ DD01 DROP IF =(1,EQ,C’)以添加到Peter所答复的以下排序卡中。


感谢你的帮助!!
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> 电脑软件& Other Tools

 


类似主题
话题 论坛 回覆
没有新帖 哪个SORT实用程序可以改善性能? DFSORT / ICETOOL 16
该主题已锁定:您无法编辑帖子或回复。 将文件列表从PS复制到另一个... 清单和REXX 11
没有新帖 COBOL VS SORT实用程序,用于文件格式... COBOL程式设计 6
没有新帖 复制过多EXCP期间VSAM打开... JCL和VSAM 1
没有新帖 批处理JCL以从Unix目录复制... JCL和VSAM 5
搜索我们的论坛:


回到顶部