|
View previous topic :: View next topic
|
| Author |
Message |
joelacs1068
New User
Joined: 24 Aug 2006
Posts: 9
|
|
|
|
Hi,
Can anybody help me:
I have a file. I want to remove the Duplicate record and reformat the file using ICETOOL.
Sample:
RXXXX
DXXXX
DAAAA
RBBBB
The output should be
AAAA
since I will only include record with first byte = "D")
Can this be done in one step only?
Thank you in advance for your help. |
|
| Back to top |
|
 |
krisprems
Active Member
Joined: 27 Nov 2006
Posts: 649
Location: India
|
|
|
|
joelacs1068
The DFSORT/ICETOOL JCL for your requirement is here
| Code: |
//*******************************************************
//GETMATCH EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD *
RXXXX
DXXXX
DAAAA
RBBBB
/*
//OUT DD SYSOUT=*
//TOOLIN DD *
SELECT FROM(IN) TO(OUT) ON(2,4,CH) NODUPS USING(CP01)
/*
//CP01CNTL DD *
OUTFIL FNAMES=OUT,INCLUDE=(1,1,CH,EQ,C'D'),BUILD=(2,4)
/*
//*
|
|
|
| Back to top |
|
|
joelacs1068
New User
Joined: 24 Aug 2006
Posts: 9
|
|
|
|
Hi krisprems,
The job works fine now with the JCL you gave me. Thank you very much and more power. |
|
| Back to top |
|
|
krisprems
Active Member
Joined: 27 Nov 2006
Posts: 649
Location: India
|
|
|
|
Hi joelacs1068
You are welcome! |
|
| Back to top |
|
|
|
|
