> -----Original Message----- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of > Norbert Friemel > Sent: Thursday, October 23, 2014 3:58 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: DFSORT/ICETOOL pondering
> //STEP1 EXEC PGM=SORT > //SYSOUT DD SYSOUT=* > //SORTIN DD * > 001aaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbb01ccccccccccccccccccccccccccccccdddddddd01 > 002aaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbb02ccccccccccccccccccccccccccccccdddddddd02 > 003aaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbb03ccccccccccccccccccccccccccccccdddddddd03 > 004aaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbb04ccccccccccccccccccccccccccccccdddddddd04 > 005aaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbb05ccccccccccccccccccccccccccccccdddddddd05 > 006aaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbb06ccccccccccccccccccccccccccccccdddddddd06 > 007aaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbb07ccccccccccccccccccccccccccccccdddddddd07 > 008aaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbb08ccccccccccccccccccccccccccccccdddddddd08 > 009aaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbb09ccccccccccccccccccccccccccccccdddddddd09 > 010aaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbb10ccccccccccccccccccccccccccccccdddddddd10 > //SORTOUT DD SYSOUT=* > //SYSIN DD * > INREC FIELDS=(1,80,SEQNUM,4,BI) > OUTREC IFTHEN=(WHEN=(81,4,BI,GE,6,&,81,4,BI,LE,7), > BUILD=(1,3,31,10,80:X)), > IFTHEN=(WHEN=(81,4,BI,EQ,8), > BUILD=(1,3,31,10,71,10,80:X)), > IFTHEN=(WHEN=(81,4,BI,EQ,9), > BUILD=(31,10,71,10,80:X)), > IFTHEN=(WHEN=NONE, > BUILD=(31,10,80:X)) > OPTION COPY > /* When looking at this a second time, it seems very promising and more customizable than SUBSET + other options. One question: you placed the BI-field at the end. If it was very long records, would it from a performance view be better to place it in front, at position 1 (or 5 if V records)? Best Regards, Thomas Berg ___________________________________________________________________ Thomas Berg Specialist zOS/RQM/IT Delivery Swedbank AB (Publ) ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
