Hello Packer-san, Thank you for your suggestion.
Same as your suggestion, I thought to use a bunch of IFTHEN for checking record length. At this point, unfortunately I cannot figure out how many different record lengths out there. The question came from a customer, they like to use DFSORT without E15/E35 exits. Thank you for your suggestion. Minoru Massaki - (M*M) 2015-06-07 23:34 GMT+09:00 Martin Packer <[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 > -- 全先 実 - 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
