Yes! Especially as I probably goaded him into doing it in the first place. :-)
But liking the solution. Cheers, Martin Martin Packer, zChampion, Principal Systems Investigator, Worldwide Banking Center of Excellence, IBM +44-7802-245-584 email: martin_pac...@uk.ibm.com Twitter / Facebook IDs: MartinPacker Blog: https://www.ibm.com/developerworks/mydeveloperworks/blogs/MartinPacker From: Sri h Kolusu <skol...@us.ibm.com> To: IBM-MAIN@LISTSERV.UA.EDU Date: 08/06/2015 06:48 Subject: Re: DFSORT - How to select last 8 bytes in variable length records Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> >> Other than that I don't see how to do it. Martin, Frank would be disappointed with you that you forgot the JFY feature. It is quite simple to do it without IFTHEN negotiating the RDW length. :) Thanks, Sri Hari IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on 06/07/2015 07:34:08 AM: > From: Martin Packer <martin_pac...@uk.ibm.com> > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 06/07/2015 07:34 AM > Subject: Re: DFSORT - How to select last 8 bytes in variable length records > Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > > How many different record lengths do you expect to see? If it's a few then > maybe doing a bunch of IFTHEN clauses on the length in the RDW helps move > these fields into place. > > By "a few" I once ran with 100 IFTHEN clauses and didn't notice the > difference. > > Other than that I don't see how to do it. > > Cheers, Martin > > Martin Packer, > zChampion, Principal Systems Investigator, > Worldwide Banking Center of Excellence, IBM > > +44-7802-245-584 > > email: martin_pac...@uk.ibm.com > > Twitter / Facebook IDs: MartinPacker > Blog: > https://www.ibm.com/developerworks/mydeveloperworks/blogs/MartinPacker > > > > From: Minoru Massaki <mmass...@gmail.com> > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 07/06/2015 14:28 > Subject: DFSORT - How to select last 8 bytes in variable length > records > Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > > > > Hello > > There is a input file of variable length records. > I want to insert the last 8 bytes of a record to front of the record as > following sample. > > Input file: > RECORD01X11AAAAAAAA > RECORD02Y2BBBBBBBB > RECORD03ZCCCCCCC > RECORD044A4444444DDDDDDDD > RECORD0555B55555555EEEEEEEE > > Output File I want to have: > AAAAAAAA RECORD01X11AAAAAAAA > BBBBBBBB RECORD02Y2BBBBBBBB > ZCCCCCCC RECORD03ZCCCCCCC > DDDDDDDD RECORD044A4444444DDDDDDDD > EEEEEEEE RECORD0555B55555555EEEEEEEE > > Record data before the last 8 bytes may contain x'00' thru x'FF', > there is no specific delimiter character for parsing the last 8 bytes. > The last 8 bytes is also binary. > > I'd like to hear any ideas how this to be done by DFSORT WITHOUT using > E15/E35. > > Your help would be highly appreciated. > > Minoru Massaki - M*M > > > > > > > -- > > 全先 実 - Minoru Massaki (M*M) > E-mail: mmass...@gmail.com > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > > Unless stated otherwise above: > IBM United Kingdom Limited - Registered in England and Wales with number > 741598. > Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Unless stated otherwise above: IBM United Kingdom Limited - Registered in England and Wales with number 741598. Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
