Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1801498
  • 博文数量: 335
  • 博客积分: 4690
  • 博客等级: 上校
  • 技术积分: 4341
  • 用 户 组: 普通用户
  • 注册时间: 2010-05-08 21:38
个人简介

无聊之人--除了技术,还是技术,你懂得

文章分类

全部博文(335)

文章存档

2016年(29)

2015年(18)

2014年(7)

2013年(86)

2012年(90)

2011年(105)

分类: 系统运维

2013-06-23 11:20:18

The below job extracts records only if there is only one record for a key.


//************** TO ELIMINATE ALL DUPLICATES IN A FILE  ************
//STEP010  EXEC PGM=ICETOOL 
//TOOLMSG  DD SYSOUT=* 
//DFSMSG   DD SYSOUT=* 
//SYSPRINT DD DUMMY                                                  
//IN       DD DSN=XXXXXXX.TSTS.INPUT,DISP=SHR     
//OUT      DD DSN=XXXXXXX.TSTS.INPUT1,DISP=OLD    
//TOOLIN   DD *                                   
 SELECT FROM(IN) TO(OUT) ON(1,10,CH) NODUPS  
/*


The NODUPS option has to be used a little carefully, since it removes ALL the duplicate records, unlike the SUM FIELDS=NONE option in simple SORT, which retains ONE of the duplicate records.

eg) If the input is:

AAAAAAAAAA
BBBBBBBBBB
BBBBBBBBBB
BBBBBBBBBB
CCCCCCCCCC
CCCCCCCCCC
DDDDDDDDDD



The NODUPS option of ICETOOL returns:

AAAAAAAAAA
DDDDDDDDDD


whereas the SUM FIELDS=NONE option on simple SORT will return:

AAAAAAAAAA
BBBBBBBBBB
CCCCCCCCCC
DDDDDDDDDD


So, depending on your requirement, you may use either of them.
REF:http://mainframe-tips-and-tricks.blogspot.com/2011/12/sort-to-eliminate-all-duplicates.html


阅读(1893) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~