Use REXX REVERSE function. Then parse out the first value. Reverse it again.
On Sat, May 23, 2020 at 5:57 AM Billy Ashton <bill00ash...@gmail.com> wrote: > Hi folks! This should be easy, but it escapes me... > > I have an 80-byte LRECL list of filenames (starting in col 1, varying > lengths), and I need to capture just the last node of the file, and > store it as a separate word on the record, in col 51. > > For example, if the file has > JOSEPH.CONTROL.SAMPLIB.JCL > PRODUCTION.CONTROL.VSAM.DATABASE.INDEX > > I would like the records to be > JOSEPH.CONTROL.SAMPLIB.JCL(now here 24 spaces)JCL > PRODUCTION.CONTROL.VSAM.DATABASE.INDEX(12 spaces)INDEX > > I expect I can use a Parse statement, but not sure how to get the last > occurrence of something... > > Thanks for your help! > Billy > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- Wayne V. Bickerdike ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN