SORTING

UNSORTED

C3000SUNDAR10-01-2000SB20000HYD
C8000GANESH01-05-2001CA15000CHE
C1000SUHASH23-08-2003SB25000BNG
C7000HARISH05-05-2008FD12000CHE
C5000SUBASH11-11-2011SB20000HYD
C9000GANDHI01-01-2001CA15000CHE
C6000SURESH03-03-2003SB25000BNG
C2000RAMESH05-05-2005FD12000CHE





JCL CODE TO SORT

//TRNG111A JOB NOTIFY=TRNG111,TIME=10            
//S1 EXEC PGM=SORT                              
//SYSOUT DD SYSOUT=*                            
//SORTIN  DD DSN=TRNG111.FORSORT.UNSORT1,DISP=SHR
//SORTOUT DD DSN=TRNG111.FORSORT.SORT1,DISP=SHR  
//SYSIN DD *                                    
  SORT FIELDS=(6,6,CH,A) SKIPREC=1,STOPAFT=4    
/*                                              




SORTED

C8000GANESH01-05-2001CA15000CHE
C7000HARISH05-05-2008FD12000CHE
C5000SUBASH11-11-2011SB20000HYD
C1000SUHASH23-08-2003SB25000BNG