Hi,
In windows files are sorted in a different order.
My I/P file contains:
137-28-430
16-101
16-101-001
16-101-010
504-36
504-36-020
504-36-020
It contains duplicates.
O/P expected is:
16-101
16-101-001
16-101-010
137-28-430
504-36
504-36-020
Is it possibel in SORT? The character '-' is creating problem in Sorting and in SUM FIELDS=NONE command.
Thanks,
Biswa.
SORTING Input file
Moderators: Frank Yaeger, DikDude, Moderator Group
-
- Active Member
- Posts: 52
- Joined: Wed Mar 25, 2009 11:56 pm
- Location: Banglore
-
- Member
- Posts: 20
- Joined: Thu Aug 28, 2008 10:41 am
-
- Active Member
- Posts: 52
- Joined: Wed Mar 25, 2009 11:56 pm
- Location: Banglore
could you please post sysout messages if you are still facing any issues after using below sort card.
At present i am not in front of my mainframes. I didn't tested it. I will check it tomoro.
If you are facing problems still, someone can assist you..
hope this will help you.
Code: Select all
SORT FIELDS=(1,13,CH,A)
SUM FIELDS=NONE
If you are facing problems still, someone can assist you..
hope this will help you.
Thanks
MaheshVamsi
MaheshVamsi
- Frank Yaeger
- Moderator
- Posts: 812
- Joined: Sat Feb 18, 2006 5:45 am
- Location: San Jose, CA
- Contact:
biswaranjan,
You can use a DFSORT job like the following to do what you asked for. I assumed your input file has RECFM=FB and LRECL=80, but the job can be changed for other attributes as appropriate.
You can use a DFSORT job like the following to do what you asked for. I assumed your input file has RECFM=FB and LRECL=80, but the job can be changed for other attributes as appropriate.
Code: Select all
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
137-28-430
16-101
16-101-001
16-101-010
504-36
504-36-020
504-36-020
/*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
INREC PARSE=(%01=(ENDBEFR=C'-',FIXLEN=3),
%02=(ENDBEFR=C'-',ENDBEFR=C' ',FIXLEN=3),
%03=(FIXLEN=3)),
OVERLAY=(81:%01,UFF,EDIT=(TTT),
%02,UFF,EDIT=(TTT),
%03,UFF,EDIT=(TTT))
SORT FIELDS=(81,9,ZD,A)
SUM FIELDS=NONE
OUTREC BUILD=(1,80)
/*
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
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
- Frank Yaeger
- Moderator
- Posts: 812
- Joined: Sat Feb 18, 2006 5:45 am
- Location: San Jose, CA
- Contact:
MaheshVamsi,
Your "solution" does not produce the correct results (and leads me to think that you don't even understand the situation). Please don't post untested jobs.
Your "solution" does not produce the correct results (and leads me to think that you don't even understand the situation). Please don't post untested jobs.
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
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
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
- Cobol Interview Questions
50+ Interview Questions - JCL Interview Questions
50+ Interview Questions - DB2 Interview Questions
100+ Interview Questions - CICS Interview Questions
70+ Interview Questions - VSAM Interview Questions
27 Interview Questions
Other References
Mainframe Tools and others
- XPEDITER Reference
Explains how we can debug a program - FILEAID Reference
Explains how to browse , edit and delete datasets - Change Man Reference
Quick Start tutorial on Changeman - Abend Reference
Important Abend codes explained - FaceBook Page
MainframeGurukul FaceBook Page - LinkedIn Page
MainframeGurkul Linkedin Page