How to print non duplicates record from file without sortin.

In this Mainframe Forum - You can post your queries on DFSORT, ICETOOL , SyncSort & JCL Utilities

Moderators: Frank Yaeger, Moderator Group

Post Reply
User avatar
anilanju
Member
Posts: 47
Joined: Mon Nov 10, 2008 6:59 pm

How to print non duplicates record from file without sortin.

Post by anilanju » Mon Jun 08, 2009 8:59 pm

Hi

I have 1 file.I need to eleminate the duplicate from it and move the rest of data to other file with same lenght record and record format.
this file has got header and trailer also.

But i dont want to perform any sort of sorting on it, i just want to remove the duplicate and move the rest data to other file.

eg :
FILE 1:

abcabc123123
abcabc123124
abcabc123124
abcabc123125

Out file:
abcabc123123
abcabc123124
abcabc123125

Thnx

User avatar
arcvns
Member
Posts: 28
Joined: Sat May 30, 2009 10:19 pm
Location: Chennai, India

Post by arcvns » Mon Jun 08, 2009 10:10 pm

Is there any way to identify your header and trailer? for e.g. 'HEADER' at pos 1-6 for a header record.
Arun

User avatar
anilanju
Member
Posts: 47
Joined: Mon Nov 10, 2008 6:59 pm

Post by anilanju » Tue Jun 09, 2009 7:52 pm

Hi

The structure of file is:

HANJU 200812W07/06

abcabc123123
abcabc123124
abcabc123124
abcabc123125

T123456

the record lenght of file is 38 and record lenght is 27968

Thnx

maheshvamsi
Active Member
Posts: 52
Joined: Wed Mar 25, 2009 11:56 pm
Location: Banglore

Post by maheshvamsi » Tue Jun 09, 2009 10:43 pm

Check below link, it will help you.

http://www.mainframegurukul.com/Mainfra ... t=datasort
Thanks

MaheshVamsi

User avatar
Frank Yaeger
Moderator
Posts: 812
Joined: Sat Feb 18, 2006 5:45 am
Location: San Jose, CA
Contact:

Post by Frank Yaeger » Wed Jun 10, 2009 8:24 pm

You can't remove duplicates without doing any type of sorting. You need to sort on the key (the entire record in your case) in order to remove duplicates. You can do what you want with a DFSORT/ICETOOL job like the following:

Code: Select all

//S1 EXEC  PGM=ICETOOL
//TOOLMSG   DD  SYSOUT=*
//DFSMSG    DD  SYSOUT=*
//IN DD DSN=...  input file (FB/38)
//OUT DD DSN=...  output file (FB/38)
//TOOLIN   DD    *
DATASORT FROM(IN) TO(OUT) HEADER TRAILER USING(CTL1)
/*
//CTL1CNTL DD *
  SORT FIELDS=(1,38,CH,A)
  SUM FIELDS=NONE
/*
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort

Post Reply

FREE TUTORIALS

Tutorials
Free tutorials from mainframegurukul
  • JCL Tutorial
    Covers all important JCL concepts.
  • Cobol Tutorial
    This tutorials covers all Cobol Topics from STRING to COMP-3.
  • DB2 Tutorial
    DB2 Tutorial focuses on DB2 COBOL Programming.
  • SORT Tutorial
    This Tutorial covers all important aspects of DFSORT with examples
  • CICS Tutorial
    This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions



Other References
Mainframe Tools and others