Author: Willy Jensen
Posted: Mon Jan 02, 2017 4:08 pm (GMT 5.5)
You must add the commands to the ISPF Command Table to make them work without having to enter TSO in front of the command.
You can add commands using the ISPF option 3.16, though I would recommend against it. The CBTTAPE.ORG website has a couple of command table update programs. I recommend the one found in file 349 as it updates the internal table, so if you make a mistake the worst case scenario is that you have to logout and back in.
To use the CBT349 program:
1. Download the CBT349.zip file to your pc and unzip it.
2. Transfer the XMI file to z/OS and RECEIVE it.
3. Copy the received members ISPCMDL and ISPCMDU to your REXX lib.
4. Create member ISPCOMND in you ISPF profile lib with this content:
\BDS\0\SELECT CMD(%@bevds B &zparm)\
\EDS\0\SELECT CMD(%@bevds E &zparm)\
\VDS\0\SELECT CMD(%@bevds V &zparm)\
5. Issue command TSO ISPCMDU to update the internal command table.
6. Replace the Screendsn section in the @BEVDS program with this (the original has a bug in it):
7. Try the BDS command with the cursor over a datasetname.
The CBT349 member $$$DOC contains more detailed instructions for how to use the ISPCMDU program.
_________________
WJ
Posted: Mon Jan 02, 2017 4:08 pm (GMT 5.5)
You must add the commands to the ISPF Command Table to make them work without having to enter TSO in front of the command.
You can add commands using the ISPF option 3.16, though I would recommend against it. The CBTTAPE.ORG website has a couple of command table update programs. I recommend the one found in file 349 as it updates the internal table, so if you make a mistake the worst case scenario is that you have to logout and back in.
To use the CBT349 program:
1. Download the CBT349.zip file to your pc and unzip it.
2. Transfer the XMI file to z/OS and RECEIVE it.
3. Copy the received members ISPCMDL and ISPCMDU to your REXX lib.
4. Create member ISPCOMND in you ISPF profile lib with this content:
\BDS\0\SELECT CMD(%@bevds B &zparm)\
\EDS\0\SELECT CMD(%@bevds E &zparm)\
\VDS\0\SELECT CMD(%@bevds V &zparm)\
5. Issue command TSO ISPCMDU to update the internal command table.
6. Replace the Screendsn section in the @BEVDS program with this (the original has a bug in it):
| Code: |
| ScreenDsn: address ispexec "vget (zscreeni zscreenc)" zscreeni=zscreeni '"' "),'" p1=max(lastpos(' ',left(zscreeni,zscreenc)),, lastpos('(',left(zscreeni,zscreenc)),, lastpos('"',left(zscreeni,zscreenc)),, lastpos("'",left(zscreeni,zscreenc)),, lastpos('=',left(zscreeni,zscreenc)))+1 p2=min(pos(' ',zscreeni,zscreenc),, pos(')',zscreeni,zscreenc),, pos('"',zscreeni,zscreenc),, pos("'",zscreeni,zscreenc),, pos(',',zscreeni,zscreenc)) ds=substr(zscreeni,p1,p2-p1) if pos('(',ds)>0 then ds=ds')' return ds |
7. Try the BDS command with the cursor over a datasetname.
The CBT349 member $$$DOC contains more detailed instructions for how to use the ISPCMDU program.
_________________
WJ