Doubt in Sort

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
sivasaras
Member
Posts: 45
Joined: Tue Jun 15, 2010 3:07 pm

Doubt in Sort

Post by sivasaras » Wed Jun 23, 2010 1:20 pm

Hi,

I have an input file with fields a,b,c and i want the output file to be like C,B,A.

How we can do by using Sort?

Regards,
Siva

Anuj Dhawan
Moderator
Posts: 1625
Joined: Sat Aug 09, 2008 9:02 am
Location: Mumbai, India

Post by Anuj Dhawan » Wed Jun 23, 2010 1:54 pm

Well, it can be done - but it would be good if you show us some practical example of what you want? And also which sort-product do yo use?
Regards,
Anuj

sivasaras
Member
Posts: 45
Joined: Tue Jun 15, 2010 3:07 pm

Hi,

Post by sivasaras » Wed Jun 23, 2010 2:05 pm

input file

NAME COMPANY UNIT

these are the input fields and now i want the ouput like

UNIT COMPANY NAME

how it can be done through SORT?

Regards,
Siva

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 23, 2010 10:42 pm

Assuming that the fields are blank delimited and a maximum of 8 bytes each, you can use a DFSORT job like the following to do what you asked for:

Code: Select all

//S1 EXEC PGM=SORT                                           
//SYSOUT DD SYSOUT=*                                         
//SORTIN DD DSN=...  input file                                                
//SORTOUT DD DSN=...  output file                                        
//SYSIN DD *                                                 
  OPTION COPY                                                
  INREC IFTHEN=(WHEN=INIT,                                   
    PARSE=(%01=(ENDBEFR=BLANKS,FIXLEN=8),                    
               %02=(ENDBEFR=BLANKS,FIXLEN=8),                
               %03=(FIXLEN=8)),                              
    BUILD=(%03,X,%02,X,%01)),                                
  IFTHEN=(WHEN=INIT,BUILD=(1,26,SQZ=(SHIFT=LEFT,MID=C' ')))  
/*
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

sivasaras
Member
Posts: 45
Joined: Tue Jun 15, 2010 3:07 pm

Hi

Post by sivasaras » Thu Jun 24, 2010 10:50 am

Hi,

Thanks for the information :D .

Regards,
Siva

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