kolusu Site Admin
![Site Admin Site Admin](images/ranks/adminpic.jpg)
Joined: 26 Nov 2002 Posts: 12369 Topics: 75 Location: San Jose
|
Posted: Wed Aug 16, 2023 9:53 am Post subject: |
|
|
erasani,
Use the following DFSORT JCL which will give you the desired results.
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
11510000 ABC
22330000 BCC
44332255 DEF
1111 CDC
2222 NED
3333 MM
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC PARSE=(%01=(ENDBEFR=C' ',FIXLEN=12),
%02=(ENDBEFR=C' ',FIXLEN=08)),
BUILD=(C'|',
%01,JFY=(SHIFT=RIGHT),
C'|',
%02,JFY=(SHIFT=LEFT),
C'|')
OUTREC FINDREP=(INOUT=(C' ',C'$'))
/* |
_________________ Kolusu
www.linkedin.com/in/kolusu |
|