superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
I think a SORT would work well for you:
Code: |
//STEPXXXX EXEC PGM=ICEMAN
//SORTIN DD DSN=<5000-byte dataset>
//SORTOUT DD DSN=<80-byte dataset>,
// DISP=(,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(CYL,(1,1),RLSE)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTFIL OUTREC=(1,80,/,
81,80,/,
161,80,/,
241,80,/,
321,80,/,
401,80,/,
481,80,/,
561,80,/,
641,80,/,
721,80,/,
801,80,/,
881,80,/,
961,80,/,
1041,80,/,
1121,80,/,
1201,80,/,
1281,80,/,
1361,80,/,
1441,80,/,
1521,80,/,
1601,80,/,
1681,80,/,
1761,80,/,
1841,80,/,
1921,80,/,
2001,80,/,
2081,80,/,
2161,80,/,
2241,80,/,
2321,80,/,
2401,80,/,
2481,80,/,
2561,80,/,
2641,80,/,
2721,80,/,
2801,80,/,
2881,80,/,
2961,80,/,
3041,80,/,
3121,80,/,
3201,80,/,
3281,80,/,
3361,80,/,
3441,80,/,
3521,80,/,
3601,80,/,
3681,80,/,
3761,80,/,
3841,80,/,
3921,80,/,
4001,80,/,
4081,80,/,
4161,80,/,
4241,80,/,
4321,80,/,
4401,80,/,
4481,80,/,
4561,80,/,
4641,80,/,
4721,80,/,
4801,80,/,
4881,80,/,
4961,39)
/*
|
|
|