ram5er
New User
Joined: 14 Jul 2006 Posts: 14 Location: Dallas, Texas
|
|
|
|
Question...
I have an input file (TESTFILE.ALL.G0001V00). Is there a way to remove the spaces using syncsort from positions 07:7,63
Code: |
DEL 'TEST0112.FILE '
DEL 'TEST02334.FILE '
DEL 'TEST055677.FILE '
DEL 'TEST04.FILE '
DEL 'TEST0345.FILE '
|
Here's the desired output
Code: |
DEL 'TEST0112.FILE'
DEL 'TEST02334.FILE'
DEL 'TEST055677.FILE'
DEL 'TEST04.FILE'
DEL 'TEST0345.FILE'
|
Code: |
//JS010 EXEC PGM=SORT
//SORTIN DD DSN=&&LISTCA3,
// DISP=(OLD,PASS,DELETE)
//SYSIN DD *
OPTION COPY
OUTREC FIELDS=(01:1,6,
07:7,63,
CHANGE=(1,C' ',C''),
NOMATCH=(7,63))
//SORTOUT DD DSN=TEST.LISTING,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(2,1),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)
//OUTFIL01 DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SORTMSG DD SYSOUT=*
//SYSOUT DD SYSOUT=*
|
|
|