This will sort in ascending for 10 characters starting at col 1.
adjust JCL continued parameters at col. 4+
//step1 exec pgm=sort,region=1500K
//sortin dd dsn=sortin.filename,disp=shr
//sortout dd dsn=sortout.filename,
// unit=sysda,
// disp=(,catlg,delete),
// space=(cyl,(10,2),rlse)
//sortwk1 dd unit=sysda,
// space=(cyl,(500,100),rlse)
...
//sortwk4 dd unit=sysda,
// space=(cyl,(500,100),rlse)
//sysout dd sysout=*
//sysprint dd sysout=*
//sysin dd *
sort fields=(1,20,ch,a)
/*
or replacing //sysin by a pds, TSO member...
//sysin dd dsn=sortfields(filename),
// disp=shr
2006-11-30 03:56:57
·
answer #1
·
answered by toodd 4
·
0⤊
0⤋