Skolusu
Senior Member
Joined: 07 Dec 2007
Posts: 2205
Location: San Jose
|
|
|
|
Ambili S,
Use the following DFSORT JCL which will give you the desired results.
| Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//INA DD *
11111 ANJU
22222 MANISH
33333 RAVI
44444 DEEPA
55555 ASHA
//INB DD *
11111 00010 15/12/2010
22222 00020 01/01/2011
33333 00030 20/12/2010
04444 00040 16/12/2010
11111 00050 01/01/2011
22222 00060 21/11/2010
33333 00070 20/12/2010
44444 00010 16/12/2010
11111 00020 01/01/2011
22222 00030 21/11/2010
33333 00010 15/12/2010
44444 00020 01/01/2011
55555 00030 20/12/2010
11111 00040 16/12/2010
11111 00050 01/01/2011
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
JOINKEYS F1=INA,FIELDS=(1,5,A)
JOINKEYS F2=INB,FIELDS=(1,5,A)
REFORMAT FIELDS=(F1:1,20,F2:10,5)
OUTFIL REMOVECC,BUILD=(1,25,80:X),
SECTIONS=(1,5,
TRAILER3=(//,40:'TOT = ',TOT=(21,5,ZD,M11,LENGTH=8),//))
//* |
|
|
