> -----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 > On Thu, 23 Oct 2014 15:43:44 +0200, Thomas Berg wrote: > > > >I want to copy position 31 to 40 of all records but from record 8 and 9 I > > >want > > to copy also (concatenate) position 71 to 80 and from record 6 to 8 I also > > (concatenate in "front") want to copy position 1 to 3. > > //STEP1 EXEC PGM=SORT > //SYSOUT DD SYSOUT=* > //SORTIN DD * > 001aaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbb01cccccccccccccccccccccccccccc > ccdddddddd01 > 002aaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbb02cccccccccccccccccccccccccccc > ccdddddddd02 > 003aaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbb03cccccccccccccccccccccccccccc > ccdddddddd03 > 004aaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbb04cccccccccccccccccccccccccccc > ccdddddddd04 > 005aaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbb05cccccccccccccccccccccccccccc > ccdddddddd05 > 006aaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbb06cccccccccccccccccccccccccccc > ccdddddddd06 > 007aaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbb07cccccccccccccccccccccccccccc > ccdddddddd07 > 008aaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbb08cccccccccccccccccccccccccccc > ccdddddddd08 > 009aaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbb09cccccccccccccccccccccccccccc > ccdddddddd09 > 010aaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbb10cccccccccccccccccccccccccccc > ccdddddddd10 > //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 > /*
Thanks for the example. Although the numeric sequence numbers were there just to clarify the operation, rather than be an indication of the assumed format of an actual case. Do you have an example where you can’t rely on a key/sequence field and have to depend on the actual occurrence of the record order ? 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
