kolusu Site Admin
Joined: 26 Nov 2002 Posts: 12372 Topics: 75 Location: San Jose
|
Posted: Fri Sep 01, 2006 7:51 am Post subject: |
|
|
kingo,
Try this job .
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
----+----1----+----2----+----3----+----4----+----5
MATHS 100
MATHS 020
MATHS 096
MATHS 082
MATHS 099
SCIENCE 082
SCIENCE 099
SCIENCE 027
PHYSICS 027
PHYSICS 097
PHYSICS 097
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=(01,10,CH,A,
16,03,CH,D)
SUM FIELDS=NONE
OUTREC OVERLAY=(81:SEQNUM,8,ZD,RESTART=(1,10))
OUTFIL INCLUDE=(81,8,ZD,LE,3),
OUTREC=(01,80)
/*
|
Hope this helps...
Cheers
Kolusu
PS: Please choose approriate titles for your posts. A simple title "HI" is not going to help. I changed the title to reflect the requirement. _________________ Kolusu
www.linkedin.com/in/kolusu |
|