Thank you, I appreciate it.
-- Radoslaw Skorupka Lodz, Poland W dniu 23.01.2024 o 15:03, Robert Prins pisze:
Here's the free-of-any errorchecking, I've only ever used it myself, small exec to update command tables using the standard ISPF dialog. Obviously, you still need to restart ISPF to enable the new commands. And of course saving them, like I do, in my private EXEC library could be omitted. Enjoy /* REXX exec to update my command tables */ /*** trace ?r ***************************************************** \| * * (C) Copyright Robert AH Prins, 2009-2010 * ************************************************************************ * ------------------------------------------------------------------ * * | Date | By | Remarks | * * |------------+------+----------------------------------------------| * * | | | | * * |------------+------+----------------------------------------------| * * | 2010-05-13 | RAHP | Use ISPTABL, not ISPPROF | * * |------------+------+----------------------------------------------| * * | 2009-04-16 | RAHP | Now RAHP- and HERECMDS | * * |------------+------+----------------------------------------------| * * | 2009-04-08 | RAHP | Initial version | * * |------------+------+----------------------------------------------| * ************************************************************************ * UCMDS is a REXX exec to update my site-independent (RAHPCMDS) and * * site-specific (HERECMDS) tables. Because it is not possible to * * update an open ISPF command table, this exec copies it to $$$$CMDS, * * invokes ISPUCM (the command table update program) with a parameter * * of $$$$ and then copies the updated table back to USERCMDS. Note * * that is necessary to restart ISPF to enable any new commands. * * * * Copies of the new command tables are saved to my exec library. * * * * Note: * * * * *"GETVAR" is my routine that retrieves site-dependent information,* * * *such as the names of my datasets allocated to ISPF etc.* * ************************************************************************ * Send questions, suggestions and/or bug reports to: * * * * rob...@prino.org / robert.ah.pr...@gmail.com * * * * Robert AH Prins * * Ozkiniu gatve 48 * * Vilnius 08405 * * Lithuania * ************************************************************************ * This program is free software: you can redistribute it and/or * * modify it under the terms of the GNU General Public License as * * published by the Free Software Foundation, either version 3 of * * the License, or (at your option) any later version. * * * * This program is distributed in the hope that it will be useful, * * but WITHOUT ANY WARRANTY; without even the implied warranty of * * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * * GNU General Public License for more details. * * * * You should have received a copy of the GNU General Public License * * along with this program. If not, see <http://www.gnu.org/licenses/> * ***********************************************************************/ parse source source parse value source with . . moi . user. = -1 user.1 = 'RAHP' user.2 = 'HERE' "ispexec vget (ucmds) shared" if rc = 0 then do "ispexec verase (ucmds) shared" temp = copies('$', length(ucmds)) "isredit macro" "isredit (MEM) = member" select when mem = temp'CMDS' then "isredit c '"temp"CMDS' '"ucmds"CMDS' first" /* irrelevant code removed */ otherwise end "isredit end" exit end !tabl = getvar('ispTABL') drop isptabl drop exec "ispexec lminit dataid("isptabl") ddname(isptabl) enq(shrw)" "ispexec lminit dataid("exec")", "dataset('"getvar('execRAHP')"') enq(shrw)" do u = 1 by 1 while user.u \= -1 temp = copies('$', length(user.u)) ucmds = user.u "alloc f(i) da('"!tabl"("user.u"cmds)') shr reu" "alloc f(o) da('"!tabl"("temp"cmds)') shr reu" "execio * diskr i (finis" "execio" queued() "diskw o (finis" "ispexec select pgm(ispucm) parm("temp")" "ispexec vput (ucmds) shared" "ispexec edit dataid("isptabl") member("temp"cmds) macro("moi")" "execio * diskr o (finis" "execio" queued() "diskw i (finis" "free f(i)" "free f(o)" "ispexec lmcopy fromid("isptabl") todataid("exec")", "frommem("temp"cmds) tomem("user.u"cmds) replace" end "ispexec lmfree dataid("exec")" "ispexec lmfree dataid("isptabl")" exit Robert
---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
