Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
Borrowing Frank's code
| Code: |
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SYMNAMES DD *
ALPHA,' ABCDEFGHIJKLMNOPQRSTUVWXYZ'
WHOLERECORD,1,18,CH
//SORTIN DD *
ABCD1234
PQRS
PQRS8989
BNBUI
EWEWEW
9090909
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OMIT FORMAT=SS,
COND=(1,1,NE,ALPHA,OR,
2,1,NE,ALPHA,OR,
3,1,NE,ALPHA,OR,
4,1,NE,ALPHA,OR,
5,1,NE,ALPHA,OR,
6,1,NE,ALPHA,OR,
7,1,NE,ALPHA,OR,
8,1,NE,ALPHA,OR,
9,1,NE,ALPHA,OR,
10,1,NE,ALPHA,OR,
11,1,NE,ALPHA,OR,
12,1,NE,ALPHA,OR,
13,1,NE,ALPHA,OR,
14,1,NE,ALPHA,OR,
15,1,NE,ALPHA,OR,
16,1,NE,ALPHA,OR,
17,1,NE,ALPHA,OR,
18,1,NE,ALPHA,OR,
WHOLERECORD,EQ,C' ')
/* |
Untested. I don't have a syncsort manual, but maybe it just needs C' ' or something else to get all the spaces at once. |
|
