kolusu Site Admin
Joined: 26 Nov 2002 Posts: 12359 Topics: 75 Location: San Jose
|
Posted: Sun Dec 03, 2017 11:44 pm Post subject: |
|
|
chmscrbbr,
Unless this is a trick question it is quite simple. You can use RESIZE or OUTFIL build with "/" and you will get the desired results.
Here is an untested DFSORT JCL which will give you the desired results
Code: |
//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD *
RECORD1 10 20 30 40
RECORD2 40 30 50 10
RECORD3 05 20 30 40
//OUT DD SYSOUT=*
//TOOLIN DD *
RESIZE FROM(IN) TO(OUT) TOLEN(10) USING(CTL1)
//CTL1CNTL DD *
INREC BUILD=(1,8,09,02,
1,8,12,02,
1,8,15,02,
1,8,18,02)
/* |
OUTFIL BUILD
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
RECORD1 10 20 30 40
RECORD2 40 30 50 10
RECORD3 05 20 30 40
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTFIL BUILD=(1,8,09,02,/,
1,8,12,02,/,
1,8,15,02,/,
1,8,18,02)
/* |
_________________ Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
www.linkedin.com/in/kolusu |
|