ISREDIT - Restore find command

Michael Jakob · Posted: Fri Apr 22, 2011 11:51 am

Hello folks,

I wrote an Edit-Macro. In this Macro I find/seek some to a point in the source of a programm. However, after this find command, the find of my macro is active for REFIND. I would like to restore the original find options. How can I manage this?

User:
====
COMMAND===> F 'ABC' .a .e

COMMAND ===> MyMacro

MyMacro:
======
ADDRESS 'ISPEXEC'
"ISREDIT MACRO"
"ISREDIT FIND 'END'"
/* somehow restore the original find - command (F 'ABC' .a .e) */
????

"ISREDIT MEND"

I Tried with USER_STATE. Unfortunately, it didn't work.

Stefan · Posted: Thu May 12, 2011 6:20 pm

ISPF Edit keeps the search string recently used at a specific storage address. It does not keep any history. So if you issue a FIND in your edit macro, the value recently entered by the user will always be overwritten.

You have to keep the "old" search argument in memory by yourself and re-activate it by issuing a "fake" FIND for that string after your own processing and immediately before your edit macro ends and thus control is given back to the user.

Use the following link and scroll to the very end of my web page to see an example of how to determine the recently used search string:

sites.google.com/site/schlabb/home/code-snippets/edit-utilities

Hope this helps.

Stefan

prino · Posted: Thu May 12, 2011 6:35 pm

Michael Jakob · Posted: Tue May 17, 2011 12:46 am

Hi Stefan,

it's amazing, it just worked.

Thank you very much

With kind regards

Michael