What I've done is have an ISPF startup (zstart) command that dynamically
adds the commands I want to the active ISPF command table. This way each
user can do their own and it is easy and you don't have to 'bother' the
sysprog (who may not allow the updates to the real command tables).

I call it ISPFCMDS - available at http://lbdsoftware.com/ispftools.html or
www.cbttape.org in file 312.

Function:  Add user ispf commands to an active ispf        
           command table.                                  
                                                           
           It is recommended that all commands be added    
           to the User command table if it is available.   
                                                           
           This is intended to be called from a user exec  
           to add their own commands to the specified      
           ispf command table.                             
                                                           
           If the command to be added already exists then  
           the existing command entry in the table will    
           be replaced with the new command.               
                                                           
Syntax:    %ispfcmds table ispf-command-table-entry \ desc 
                                                           
           if table = * then default to (in order)         
              User table                                   
              Site table                                   
              Current Applid Table or ISPCMDS           

           if table = USER then the user table is updated
           if table = SITE then the site table is updated
           if table = ISPF then the ISPCMDS Table is     
                      updated                            
                                                         
           The ispf-command-table-entry is in the format:
                                                         
           verb trunc action \ description               
                                                         
           each separated by a space                     
                                                         
Usage:     Sample usage:                                 
                                                         
           from an exec:                                 
           "%ispfcmds * dd 0 select pgm(isrddn)"  ,      
                   "\ quick dd list"                     
           "%ispfcmds user dd 0 select pgm(isrddn)"      
           "%ispfcmds * ee 0 edit dataset(&zparm)"          


Lionel B. Dyck <sdg><
Website: http://www.lbdsoftware.com

"Worry more about your character than your reputation.  Character is what
you are, reputation merely what others think you are." - John Wooden

-----Original Message-----
From: IBM Mainframe Discussion List <[email protected]> On Behalf Of
Frank Swarbrick
Sent: Friday, January 17, 2020 11:38 AM
To: [email protected]
Subject: Re: Starting an application in ISPF

Apparently I knew how to do this once upon a time, but how do you close a
user command table in order to allow editing of it?

________________________________
From: IBM Mainframe Discussion List <[email protected]> on behalf of
ITschak Mugzach <[email protected]>
Sent: Thursday, January 16, 2020 11:20 PM
To: [email protected] <[email protected]>
Subject: Re: Starting an application in ISPF

And even simpler, add it's and select cmd options to your ispf command
table. This way you can type a short name to invoke it.

ITschak

בתאריך יום ו׳, 17 בינו׳ 2020, 2:44, מאת Frank Swarbrick ‏<
[email protected]>:

> This works.  Thanks much.
>
> ________________________________
> From: IBM Mainframe Discussion List <[email protected]> on 
> behalf of Steve Smith <[email protected]>
> Sent: Thursday, January 16, 2020 5:16 PM
> To: [email protected] <[email protected]>
> Subject: Re: Starting an application in ISPF
>
> Just write and invoke a simple exec (or clist if that's your thing):
>
>  /* REXX */
>  ADDRESS ISPEXEC
>  'SELECT PGM(DGTFMD01) NEWAPPL(DGT) SCRNAME(ISMF)'
>  EXIT
>
> You could also invoke it from option 7.1 (Dialog Test), but that adds 
> some overhead.
>
> sas
>
>
> On Thu, Jan 16, 2020 at 6:47 PM Frank Swarbrick < 
> [email protected]>
> wrote:
>
> > Doesn't work for me.  Must not be in my "profile" or something.
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to [email protected] with the message: INFO IBM-MAIN
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to [email protected] with the message: INFO IBM-MAIN
>

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to [email protected] with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to [email protected] with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to