Hi All,
I have a sort card as below.
INCLUDE COND=(1,13,CH,EQ,C'abc-xyz-data')
SORT FIELDS=(15,4,CH,D,19,2,CH,D,21,2,CH,D,24,6,CH,D)
SORT FIELDS=COPY
It will pickup the rows which contains charector 'abc-xyz-data' in 1 to 13th position and then it will sort the as per the above condition and finally it will write all records to SORTOUT file.
After sorting i want only first record to placed in the SORTOUT. How it can be achived.
Please suggest.
Thanks
Husen
How to copy only one record after sorting to SORTOUT.
Moderators: Frank Yaeger, Moderator Group
-
- Member
- Posts: 3
- Joined: Thu Dec 30, 2010 11:30 am
-
- Moderator
- Posts: 1625
- Joined: Sat Aug 09, 2008 9:02 am
- Location: Mumbai, India
-
- Member
- Posts: 3
- Joined: Thu Dec 30, 2010 11:30 am
- Frank Yaeger
- Moderator
- Posts: 812
- Joined: Sat Feb 18, 2006 5:45 am
- Location: San Jose, CA
- Contact:
STOPAFT is processed before sorting so it won't do what you want.
OUTFIL is processed after sorting so ENDREC=1 will do what you want.
If you have the Oct, 2010 DFSORT PTF, ACCEPT=1 will also work.
For more information on the order of processing for various DFSORT functions, see:
http://publibz.boulder.ibm.com/cgi-bin/ ... FIGSTMTSEQ
OUTFIL is processed after sorting so ENDREC=1 will do what you want.
Code: Select all
INCLUDE COND=(1,13,CH,EQ,C'abc-xyz-data')
SORT FIELDS=(15,4,CH,D,19,2,CH,D,21,2,CH,D,24,6,CH,D)
OUTFIL ENDREC=1
For more information on the order of processing for various DFSORT functions, see:
http://publibz.boulder.ibm.com/cgi-bin/ ... FIGSTMTSEQ
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
-
- Moderator
- Posts: 1625
- Joined: Sat Aug 09, 2008 9:02 am
- Location: Mumbai, India
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