cosorio
New User
Joined: 02 May 2006 Posts: 3
|
|
|
|
Hi ALL,
I have to obtain only the records with the maximum or minimum value in column (1,11,ch) into the output file.
Is their any way which we can do through jcl sort.
THANKS
Carlos |
|
cosorio
New User
Joined: 02 May 2006 Posts: 3
|
|
|
|
ON(1,11,CH)
INPUT:
55555555555XXXXX
99999999999BBBBB
22222222222ZZZZZ
12345678900BBBBB
99999999999CCCCC
33333333333XXXXX
12345678900AAAAA
99999999999AAAAA
OUTPUT (MAX CASE):
99999999999AAAAA
99999999999BBBBB
99999999999CCCCC
OUTPUT (MIN CASE):
12345678900AAAAA
12345678900BBBBB |
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Here's a DFSORT job that will do what you asked for:
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file
//SORTOUT DD DSN=&&S1,UNIT=SYSDA,SPACE=(TRK,(1,1)),DISP=(,PASS)
//SYSIN DD *
* Sort on key ascending.
SORT FIELDS=(1,11,CH,A)
* Create DFSORT Symbols as follows:
* MINKEY,'minimumkey'
* MAXKEY,'maximumkey'
OUTFIL REMOVECC,NODETAIL,OUTREC=(80X),
HEADER1=('MINKEY,''',1,11,''''),
TRAILER1=('MAXKEY,''',1,11,'''')
/*
//S2 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SYMNAMES DD DSN=&&S1,DISP=(OLD,PASS)
//SORTIN DD DSN=... input file
//MIN DD DSN=... output for minimum key
//MAX DD DSN=... output for maximum key
//SYSIN DD *
* Sort on key ascending.
SORT FIELDS=(1,11,CH,A)
* Use MINKEY to get the minimum key records.
OUTFIL FNAMES=MIN,INCLUDE=(1,11,CH,EQ,MINKEY)
* Use MAXKEY to get the maximum key records.
OUTFIL FNAMES=MAX,INCLUDE=(1,11,CH,EQ,MAXKEY)
/*
|
|
|