English Deutsch Français Italiano Español Português 繁體中文 Bahasa Indonesia Tiếng Việt ภาษาไทย
All categories

2006-11-29 22:42:37 · 1 answers · asked by baskar m 1 in Computers & Internet Software

1 answers

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

fedest.com, questions and answers