SORTING Input file

In this Mainframe Forum - You can post your queries on JCL, OS/390 JCL, MVS JCL, z/OS JCL, JES2 & JES3

Moderators: Frank Yaeger, DikDude, Moderator Group

Post Reply
biswaranjan
Member
Posts: 20
Joined: Thu Aug 28, 2008 10:41 am

SORTING Input file

Post by biswaranjan » Tue May 12, 2009 10:37 am

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.

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

Post by maheshvamsi » Tue May 12, 2009 3:19 pm

could you please provide more information like, what is key length??

is the key length is 10?
Thanks

MaheshVamsi

biswaranjan
Member
Posts: 20
Joined: Thu Aug 28, 2008 10:41 am

Post by biswaranjan » Tue May 12, 2009 4:36 pm

Hi Mahesh,

The key length is 13.


My I/P file contains:

137-28-430
16-101
16-101-001
16-101-010
504-36
504-36-020
504-36-020
504-36-020918
504-36-020910

Thanks,
biswa.

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

Post by maheshvamsi » Tue May 12, 2009 4:45 pm

could you please post sysout messages if you are still facing any issues after using below sort card.

Code: Select all

SORT FIELDS=(1,13,CH,A)
SUM FIELDS=NONE
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.
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 » Tue May 12, 2009 8:06 pm

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.

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

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

Post by Frank Yaeger » Tue May 12, 2009 8:08 pm

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.
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