superk
Global Moderator

Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
Here's an easy solution:
Code: |
//STEPXXXX EXEC PGM=SORT
//SORTIN DD DISP=SHR,DSN=input.gdg
//SORTOUT DD DISP=SHR,DSN=output.gdg
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTREC FIELDS=(1,11,80:X)
/*
//*
|
|
|