>> 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 <[email protected]> wrote on 06/07/2015 07:34:08 AM: > From: Martin Packer <[email protected]> > To: [email protected] > 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 <[email protected]> > > 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: [email protected] > > Twitter / Facebook IDs: MartinPacker > Blog: > https://www.ibm.com/developerworks/mydeveloperworks/blogs/MartinPacker > > > > From: Minoru Massaki <[email protected]> > To: [email protected] > Date: 07/06/2015 14:28 > Subject: DFSORT - How to select last 8 bytes in variable length > records > Sent by: IBM Mainframe Discussion List <[email protected]> > > > > 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: [email protected] > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] 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 [email protected] with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
