ISREDIT MACRO PROCESS                                                   00010000
    CONTROL NOFLUSH NOPROMPT NOLIST NOMSG                               00020000
/*  CONTROL MSG LIST CONLIST SYMLIST                                    00030000
/*  ISPEXEC CONTROL ERRORS RETURN                                       00040000
     SET &ZEDSMSG = &STR(RECURSIVE ISPF MODE)                           00050000
     SET &ZEDLMSG = &STR(MUST SUPPLY STRING OR PLACE CURSOR IN)         00060000
     ISPEXEC SETMSG MSG(ISRZ000)                                        00070000
  ISPEXEC  SELECT  PANEL(ISR@PRIM) OPT(S.DA)                            00080000
EXIT CODE(0)                                                            00090000
STOP: +                                                                 00100000
END                                                                     00110000
