I'm not aware of one but that would be a very trivial rexx program to do so.
This should get you started: /* rexx */ 'alloc f(in) ds(lionel.doc(concinp)) shr reuse' 'execio * diskr in (finis stem in.' 'free f(in)' do i = 1 to in.0 if substr(in.i,72,1) /= '+' then say in.i else do data = substr(in.i,1,71) i = i + 1 data = data''in.i say data end end Lionel B. Dyck <sdg>< Website: https://www.lbdsoftware.com "Worry more about your character than your reputation. Character is what you are, reputation merely what others think you are." - John Wooden -----Original Message----- From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of kekronbekron Sent: Saturday, July 11, 2020 6:37 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Concatenating lines Hi, Is there any program in any of the CBT tapes, or perhaps on someone's GitHub .. that makes concatenating lines easy? If a continuating character is found in column 72, append the next line to current line, and so on. Thanks, - KB ---------------------------------------------------------------------- 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