Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
|
|
|
|
This is with DFSORT. Try it with your own Sort product, which you are keeping secret from us, for some reason.
Code: |
//PARSEIT EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC PARSE=(%=(ENDBEFR=BLANKS),
%01=(ENDBEFR=BLANKS,FIXLEN=30)),
BUILD=(%01)
//SORTIN DD *
SNO NAME AGE
1 SAB 12
2 RAM 18
3 KEN 34 |
Output:
|
|