superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
I think this is the proper SORT job:
Code: |
//STEP0001 EXEC PGM=SORT
//SORTIN DD DISP=SHR,DSN=vsamntb
//SORTOUT DD DSN=newntb,
// DISP=(,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(CYL,(1,1),RLSE)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTREC FIELDS=(1:1,40,41:41,20,121:61,20,
201:81,20,281:101,20,361:121,20,
441:141,20,521:161,20,601:181,20,
681:201,20,761:221,20,841:241,40,
881:281,60)
/*
|
|
|