It might be helpful to display the return code value which is set after the LOCATE & CURSOR ISREDIT commands are issued.
For example: /* rexx */ address isredit "macro" "FIND WS-MODULE-IDENTIFIER" "locate 401" lrc = RC "cursor = 412 21" Say 'locate returned RC='lrc' cursor returned RC='RC to see if either of those commands encountered a problem. Bill On Wed, 18 Feb 2009 16:19:57 -0600, Bass, Walter W <[email protected]> wrote: ><snip> >> >> >> I would expect it to leave the member with line 401 at the >> top, and the >> cursor on line 412, pos21. The FIND string is on line 412 - >> I want the >> cursor to stay with the FOUND string, but to change the line >> that appears >> at the top of the display. >> >> /* rexx */ >> address isredit >> "macro" >> "FIND WS-MODULE-IDENTIFIER" >> "locate 401" >> "cursor = 412 21" >> ><snip> >> >> *With* the FIND command, it positions the display according to my >> EDITSETting "Target Line for Find/etc", ignoring the LOCATE command. >> > >I created a test member in a COBOL source code PDS with a comment line >412 that has the string WS-MODULE-IDENTIFIER in column 21. I ran your >macro while editing this member and I got the expected results exactly >as you describe above. > >I tried several different permutations of this including altering my >EDITSETing for the find position but was not able to reproduce your >error. It always worked as expected here. > >We are on ISPF release 5.9 > >Bill Bass >Senior Applications Developer >United Health Care >Greenville, SC > >This e-mail, including attachments, may include confidential and/or >proprietary information, and may be used only by the person or entity >to which it is addressed. If the reader of this e-mail is not the intended >recipient or his or her authorized agent, the reader is hereby notified >that any dissemination, distribution or copying of this e-mail is >prohibited. If you have received this e-mail in error, please notify the >sender by replying to this message and delete this e-mail immediately. > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
