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
