REV = REVERSE(PRODUCTION.CONTROL.VSAM.DATABASE.INDEX) PARSE VALUE REV WITH LASTNODE '. ' . LASTNODE = REVERSE(LASTNODE)
On Sat, May 23, 2020 at 7:16 AM Wayne Bickerdike <wayn...@gmail.com> wrote: > 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 > > -- Wayne V. Bickerdike ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
