Author: prino
Posted: Wed Mar 08, 2017 9:37 pm (GMT 5.5)
From my personal ISPF command table:
You still don't use SITE command tables introduced more than a decade ago? Sheesh...
With VBACKEND:
Want to browse JCL? VCB myjcl
Want to edit PL/I? VPE mypli
Want to view text? VT mytext
Easy, clean and infinitely extensible.
_________________
Robert AH Prins
robert.ah.prins @ the.17+Gb.Google thingy
At last, a tiny bit of programming here...![icon_smile.gif]()
Posted: Wed Mar 08, 2017 9:37 pm (GMT 5.5)
From my personal ISPF command table:
| Code: |
| VR 0 SELECT CMD(%VBACKEND exec,view,&ZPARM) NEWAPPL(ISR) SCRNAME(VREXX) VRE 0 SELECT CMD(%VBACKEND exec,edit,&ZPARM) NEWAPPL(ISR) SCRNAME(EREXX) VRB 0 SELECT CMD(%VBACKEND exec,browse,&ZPARM) NEWAPPL(ISR) SCRNAME(BREXX) VP 0 SELECT CMD(%VBACKEND pli,view,&ZPARM) NEWAPPL(ISR) SCRNAME(VPLI) VPE 0 SELECT CMD(%VBACKEND pli,edit,&ZPARM) NEWAPPL(ISR) SCRNAME(EPLI) VPB 0 SELECT CMD(%VBACKEND pli,browse,&ZPARM) NEWAPPL(ISR) SCRNAME(BPLI) VT 0 SELECT CMD(%VBACKEND text,view,&ZPARM) NEWAPPL(ISR) SCRNAME(VTEXT) VTE 0 SELECT CMD(%VBACKEND text,edit,&ZPARM) NEWAPPL(ISR) SCRNAME(ETEXT) VTB 0 SELECT CMD(%VBACKEND text,browse,&ZPARM) NEWAPPL(ISR) SCRNAME(BTEXT) VC 0 SELECT CMD(%VBACKEND cntl,view,&ZPARM) NEWAPPL(ISR) SCRNAME(VCNTL) VCE 0 SELECT CMD(%VBACKEND cntl,edit,&ZPARM) NEWAPPL(ISR) SCRNAME(ECNTL) VCB 0 SELECT CMD(%VBACKEND cntl,browse,&ZPARM) NEWAPPL(ISR) SCRNAME(BCNTL) VJ 0 SELECT CMD(%VBACKEND proc,view,&ZPARM) NEWAPPL(ISR) SCRNAME(VPROC) VJE 0 SELECT CMD(%VBACKEND proc,edit,&ZPARM) NEWAPPL(ISR) SCRNAME(EPROC) VJB 0 SELECT CMD(%VBACKEND proc,browse,&ZPARM) NEWAPPL(ISR) SCRNAME(BPROC) |
You still don't use SITE command tables introduced more than a decade ago? Sheesh...
With VBACKEND:
| Code: |
| /* REXX backend for the various Vx routines */ /*** trace ?r ***************************************************** \| * * (C) Copyright Robert AH Prins, 2009-2015 * ************************************************************************ * ------------------------------------------------------------------ * * | Date | By | Remarks | * * |------------+------+----------------------------------------------| * * | | | | * * |------------+------+----------------------------------------------| * * | 2015-09-13 | RAHP | Update comment | * * |------------+------+----------------------------------------------| * * | 2011-05-06 | RAHP | Cater for members moved to RAHP.CNTL | * * |------------+------+----------------------------------------------| * * | 2011-02-06 | RAHP | Handle '*' as membername | * * |------------+------+----------------------------------------------| * * | 2009-06-03 | RAHP | Explicitely lowercase the type | * * |------------+------+----------------------------------------------| * * | 2009-05-26 | RAHP | Initial version | * * |------------+------+----------------------------------------------| * ************************************************************************ * VBACKEND is the backend for the following command table entries: * * * * - VRx - View/edit/browse REXX source from anywhere * * - VPx - View/edit/browse PLI source from anywhere * * - VTx - View/edit/browse TEXT members from anywhere * * - VCx - View/edit/browse CNTL members from anywhere * * - VJx - View/edit/browse PROC members from anywhere * ************************************************************************ * 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/> * ************************************************************************ * For more z/OS tools and contact details go to: * * * * <https://prino.neocities.org/zOS/zOS%20Tools.html> * ***********************************************************************/ parse source source parse value source with . . moi . "ispexec control errors return" parse value space(arg(1)) with type ',' mode ',' parm ' ' . type = translate(type,, 'abcdefghijklmnopqrstuvwxyz',, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ') drop dsn if parm = '*' then parm = '' if mode = 'browse' then macro = '' else macro = 'macro(ecntl)' /* Replace by personal favorite, or '' */ /*********************************************************************** * GETVAR is a routine to retrieve a library, I wrote it to make all of * * my code (other than GETVAR) virtually site-independent. * ***********************************************************************/ "ispexec lminit dataid(dsn) dataset('"getvar(type'RAHP')"') enq(shr)" "ispexec" mode "dataid("dsn") member("parm")" macro "ispexec lmfree dataid("dsn")" exit |
Want to browse JCL? VCB myjcl
Want to edit PL/I? VPE mypli
Want to view text? VT mytext
Easy, clean and infinitely extensible.
_________________
Robert AH Prins
robert.ah.prins @ the.17+Gb.Google thingy
At last, a tiny bit of programming here...
