PROC 0 TABLE(ISPCMDS)                                                           
/*                                       */                                     
/* AUTHOR: MARK ZELDEN                   */                                     
/*                                       */                                     
/*****************************************/                                     
/* UPDATED ON 03/20/2007                 */                                     
/*  TO ADD "SET &SEL = &Z"               */                                     
/*  JUST BEFORE THE TBDISPL AT THE END   */                                     
/*  I'M NOT SURE WHEN IT BROKE.          */                                     
/*****************************************/                                     
/* LAST UPDATED ON 04/27/2007            */                                     
/*****************************************/                                     
/*                                                                  */          
/*  ADD TEMPORARY COMMANDS TO THE ISPF COMMAND TABLE                */          
/*                                                                  */          
CONTROL MAIN NOCAPS                                                             
ISPEXEC CONTROL ERRORS RETURN                                                   
ISPEXEC TBBOTTOM &TABLE                                                         
/********************************************************************/          
/*   MY COMMANDS AND EDIT MACROS                                    */          
/********************************************************************/          
/*                                                                  */          
/*   ADD AMBLIST (AMB) COMMAND                                      */          
/*                                                                  */          
SET &ZCTVERB = AMBLIST                                   /* COMMAND */          
SET &ZCTTRUNC = 3                                        /* MIN LEN */          
SET &ZCTACT = &STR(SELECT CMD(%AMBCLIST))                /* ACTION  */          
SET &ZCTDESC = &STR(INVOKE INTERACTIVE AMBLIST)          /* DESC.   */          
ISPEXEC TBADD &TABLE                                                            
/*                                                                  */          
/*   ADD XEFMENU (XEF) COMMAND                                      */          
/*                                                                  */          
SET &ZCTVERB = XEFMENU                                   /* COMMAND */          
SET &ZCTTRUNC = 3                                        /* MIN LEN */          
SET &ZCTACT = &STR(SELECT PANEL(XEFMENU) NEWAPPL(ISR))   /* ACTION  */          
SET &ZCTDESC = &STR(INVOKE XEF)                          /* DESC.   */          
ISPEXEC TBADD &TABLE                                                            
/*                                                                  */          
/*   ADD XEDIT (XE) COMMAND                                         */          
/*                                                                  */          
SET &ZCTVERB = XEDIT                                     /* COMMAND */          
SET &ZCTTRUNC = 2                                        /* MIN LEN */          
SET &ZCTACT= &STR(SELECT CMD(%XEDIT &&ZPARM) NEWAPPL(ISR)) /* ACTION */         
SET &ZCTDESC = &STR(EDIT ANY DATASET FROM ANY PANEL)     /* DESC.   */          
ISPEXEC TBADD &TABLE                                                            
/*                                                                  */          
/*   ADD XVIEW (XV) COMMAND                                         */          
/*                                                                  */          
SET &ZCTVERB = XVIEW                                     /* COMMAND */          
SET &ZCTTRUNC = 2                                        /* MIN LEN */          
SET &ZCTACT= &STR(SELECT CMD(%XVIEW &&ZPARM) NEWAPPL(ISR)) /* ACTION */         
SET &ZCTDESC = &STR(VIEW ANY DATASET FROM ANY PANEL)     /* DESC.   */          
ISPEXEC TBADD &TABLE                                                            
/*                                                                  */          
/*   ADD XBROWSE (XB) COMMAND                                       */          
/*                                                                  */          
SET &ZCTVERB = XBROWSE                                   /* COMMAND */          
SET &ZCTTRUNC = 2                                        /* MIN LEN */          
SET &ZCTACT= &STR(SELECT CMD(%XBROWSE &&ZPARM) NEWAPPL(ISR)) /*ACTION*/         
SET &ZCTDESC = &STR(BROWSE ANY DATASET FROM ANY PANEL)   /* DESC.   */          
ISPEXEC TBADD &TABLE                                                            
/*                                                                  */          
/*   ADD XDSLIST (XD) COMMAND                                       */          
/*                                                                  */          
SET &ZCTVERB = XDSLIST                                   /* COMMAND */          
SET &ZCTTRUNC = 2                                        /* MIN LEN */          
SET &ZCTACT= &STR(SELECT CMD(%XDSLIST &&ZPARM) NEWAPPL(ISR)) /*ACTION*/         
SET &ZCTDESC = &STR(DSLIST FROM ANY PANEL)               /* DESC.   */          
ISPEXEC TBADD &TABLE                                                            
/*                                                                  */          
/*   ADD XMEMLIST (XM) COMMAND                                      */          
/*                                                                  */          
SET &ZCTVERB = XMEMLIST                                  /* COMMAND */          
SET &ZCTTRUNC = 2                                        /* MIN LEN */          
SET &ZCTACT=&STR(SELECT CMD(%XMEMLIST &&ZPARM) NEWAPPL(ISR)) /*ACTION*/         
SET &ZCTDESC = &STR(GET A DSN MEMBER LIST FROM ANY PANEL) /* DESC.   */         
ISPEXEC TBADD &TABLE                                                            
/*                                                                  */          
/*   ADD XLISTC (XL) COMMAND                                        */          
/*                                                                  */          
SET &ZCTVERB = XLISTC                                    /* COMMAND */          
SET &ZCTTRUNC = 2                                        /* MIN LEN */          
SET &ZCTACT=&STR(SELECT CMD(%XLISTC &&ZPARM) NEWAPPL(ISR)) /*ACTION  */         
SET &ZCTDESC = &STR(IDCAMS LISTCAT ALL FROM ANY PANEL)   /* DESC.   */          
ISPEXEC TBADD &TABLE                                                            
/*                                                                  */          
/*   ADD ZEDIT (ZE) COMMAND                                         */          
/*                                                                  */          
SET &ZCTVERB = ZEDIT                                     /* COMMAND */          
SET &ZCTTRUNC = 2                                        /* MIN LEN */          
SET &ZCTACT = &STR(ALIAS ZEDIT)                          /* ACTION  */          
SET &ZCTDESC = &STR(EDIT DSN SPECIFIED OR AT CURSOR)     /* DESC.   */          
ISPEXEC TBADD &TABLE                                                            
/*                                                                  */          
/*   ADD ZVIEW (ZV) COMMAND                                         */          
/*                                                                  */          
SET &ZCTVERB = ZVIEW                                     /* COMMAND */          
SET &ZCTTRUNC = 2                                        /* MIN LEN */          
SET &ZCTACT = &STR(ALIAS ZVIEW)                          /* ACTION  */          
SET &ZCTDESC = &STR(VIEW DSN SPECIFIED OR AT CURSOR)     /* DESC.   */          
ISPEXEC TBADD &TABLE                                                            
/*                                                                  */          
/*   ADD ZBROWSE (ZB) COMMAND                                       */          
/*                                                                  */          
SET &ZCTVERB = ZBROWSE                                   /* COMMAND */          
SET &ZCTTRUNC = 2                                        /* MIN LEN */          
SET &ZCTACT = &STR(ALIAS ZBROWSE)                        /* ACTION  */          
SET &ZCTDESC = &STR(BROWSE DSN SPECIFIED OR AT CURSOR)   /* DESC.   */          
ISPEXEC TBADD &TABLE                                                            
/*                                                                  */          
/*   ADD CNTL COMMAND                                               */          
/*                                                                  */          
SET &ZCTVERB = CNTL                                      /* COMMAND */          
SET &ZCTTRUNC = 0                                        /* MIN LEN */          
SET &ZCTACT = &STR(SELECT CMD(%FVE CNTL &&ZPARM) NEWAPPL(ISR))                  
SET &ZCTDESC = &STR(INVOKE CNTL CLIST TO EDIT MY CNTL DSN) /* DESC. */          
ISPEXEC TBADD &TABLE                                                            
/*                                                                  */          
/*   ADD PARM COMMAND                                               */          
/*                                                                  */          
SET &ZCTVERB = PARM                                      /* COMMAND */          
SET &ZCTTRUNC = 0                                        /* MIN LEN */          
SET &ZCTACT = &STR(SELECT CMD(%FVE PARM &&ZPARM) NEWAPPL(ISR))                  
SET &ZCTDESC = &STR(INVOKE PARM CLIST TO EDIT SYS1.PARMLIB) /*DESC. */          
ISPEXEC TBADD &TABLE                                                            
/*                                                                  */          
/*   ADD PROC COMMAND                                               */          
/*                                                                  */          
SET &ZCTVERB = PROC                                      /* COMMAND */          
SET &ZCTTRUNC = 0                                        /* MIN LEN */          
SET &ZCTACT = &STR(SELECT CMD(%FVE PROC &&ZPARM) NEWAPPL(ISR))                  
SET &ZCTDESC = &STR(INVOKE PARM CLIST TO EDIT SYS1.PARMLIB) /*DESC. */          
ISPEXEC TBADD &TABLE                                                            
/*                                                                  */          
/*   ADD PREFIX (PRE) COMMAND                                       */          
/*                                                                  */          
SET &ZCTVERB = PREFIX                                    /* COMMAND */          
SET &ZCTTRUNC = 3                                        /* MIN LEN */          
SET &ZCTACT = &STR(ALIAS PREFIX)                         /* ACTION  */          
SET &ZCTDESC = &STR(ABBREV FOR PREFIX EDIT MACRO)        /* DESC.   */          
ISPEXEC TBADD &TABLE                                                            
/*                                                                  */          
/*   ADD SUFFIX (SUF) COMMAND                                       */          
/*                                                                  */          
SET &ZCTVERB = SUFFIX                                    /* COMMAND */          
SET &ZCTTRUNC = 3                                        /* MIN LEN */          
SET &ZCTACT = &STR(ALIAS SUFFIX)                         /* ACTION  */          
SET &ZCTDESC = &STR(ABBREV FOR SUFFIX EDIT MACRO)        /* DESC.   */          
ISPEXEC TBADD &TABLE                                                            
/*                                                                  */          
/*   ADD TSOB COMMAND                                               */          
/*                                                                  */          
SET &ZCTVERB = TSOB                                      /* COMMAND */          
SET &ZCTTRUNC = 0                                        /* MIN LEN */          
SET &ZCTACT = &STR(SELECT CMD(%TSOB &&ZPARM) NEWAPPL(ISR))  /*ACTION*/          
SET &ZCTDESC = &STR(BROWSE OUTPUT FROM TSO COMMAND)      /* DESC.   */          
ISPEXEC TBADD &TABLE                                                            
/*                                                                  */          
/*   ADD TSOE COMMAND                                               */          
/*                                                                  */          
SET &ZCTVERB = TSOE                                      /* COMMAND */          
SET &ZCTTRUNC = 0                                        /* MIN LEN */          
SET &ZCTACT = &STR(SELECT CMD(%TSOE &&ZPARM) NEWAPPL(ISR))  /*ACTION*/          
SET &ZCTDESC = &STR(EDIT OUTPUT FROM TSO COMMAND)        /* DESC.   */          
ISPEXEC TBADD &TABLE                                                            
/*                                                                  */          
/*   ADD TSOR COMMAND                                               */          
/*                                                                  */          
SET &ZCTVERB = TSOR                                      /* COMMAND */          
SET &ZCTTRUNC = 0                                        /* MIN LEN */          
SET &ZCTACT = &STR(SELECT CMD(%TSOR &&ZPARM) NEWAPPL(ISR))  /*ACTION*/          
SET &ZCTDESC = &STR(REVIEW OUTPUT FROM TSO COMMAND)      /* DESC.   */          
ISPEXEC TBADD &TABLE                                                            
/*                                                                  */          
/*   ADD TSOV COMMAND                                               */          
/*                                                                  */          
SET &ZCTVERB = TSOV                                      /* COMMAND */          
SET &ZCTTRUNC = 0                                        /* MIN LEN */          
SET &ZCTACT = &STR(SELECT CMD(%TSOV &&ZPARM) NEWAPPL(ISR))  /*ACTION*/          
SET &ZCTDESC = &STR(VIEW OUTPUT FROM TSO COMMAND)        /* DESC.   */          
ISPEXEC TBADD &TABLE                                                            
/*                                                                  */          
/*   ADD FINDMOD COMMAND                                            */          
/*                                                                  */          
SET &ZCTVERB = FINDMOD                                   /* COMMAND */          
SET &ZCTTRUNC = 0                                        /* MIN LEN */          
SET &ZCTACT = &STR(SELECT CMD(%FINDMOD &&ZPARM))         /*ACTION   */          
SET &ZCTDESC = &STR(FIND A MODULE FROM ANY PANEL)        /* DESC.   */          
ISPEXEC TBADD &TABLE                                                            
/*                                                                  */          
/*   ADD FINDMOD (FM) COMMAND                                       */          
/*                                                                  */          
SET &ZCTVERB = FM                                        /* COMMAND */          
SET &ZCTTRUNC = 0                                        /* MIN LEN */          
SET &ZCTACT = &STR(SELECT CMD(%FINDMOD &&ZPARM))         /*ACTION   */          
SET &ZCTDESC = &STR(FIND A MODULE FROM ANY PANEL)        /* DESC.   */          
ISPEXEC TBADD &TABLE                                                            
/*                                                                  */          
/*   ADD ISPF COMMAND                                               */          
/*                                                                  */          
SET &ZCTVERB = ISPF                                      /* COMMAND */          
SET &ZCTTRUNC = 0                                        /* MIN LEN */          
SET &ZCTACT = &STR(SELECT PANEL(ISR@PRIM) NEWAPPL(ISR) OPT(&&ZPARM))            
SET &ZCTDESC = &STR(INVOKE RECURSIVE ISPF PRIMARY PANEL) /* DESC.   */          
ISPEXEC TBADD &TABLE                                                            
/********************************************************************/          
/*   OTHER PRODUCTS                                                 */          
/********************************************************************/          
/*                                                                  */          
/*   ADD BLKDISK                                                    */          
/*                                                                  */          
SET &ZCTVERB = BLKDISK                                   /* COMMAND */          
SET &ZCTTRUNC = 3                                        /* MIN LEN */          
SET &ZCTACT=&STR(SELECT CMD(%BLKCLIST))                  /* ACTION  */          
SET &ZCTDESC = &STR(INVOKE BLKDISK BLOCKSIZE CALCULATOR) /* DESC.   */          
ISPEXEC TBADD &TABLE                                                            
/*                                                                  */          
/*   ADD PHONE                                                      */          
/*                                                                  */          
SET &ZCTVERB = PHONE                                     /* COMMAND */          
SET &ZCTTRUNC = 0                                        /* MIN LEN */          
SET &ZCTACT=&STR(SELECT CMD(%PHONE &&ZPARM))             /* ACTION  */          
SET &ZCTDESC = &STR(FIND NAME IN WHO PHONE LIST)         /* DESC.   */          
ISPEXEC TBADD &TABLE                                                            
/*                                                                  */          
/*   ADD PDS COMMAND                                                */          
/*                                                                  */          
SET &ZCTVERB = PDS                                       /* COMMAND */          
SET &ZCTTRUNC = 0                                        /* MIN LEN */          
SET &ZCTACT = &STR(SELECT PANEL(PDS@PRIM) NEWAPPL(ISR))  /* ACTION  */          
SET &ZCTDESC = &STR(INVOKE PDS)                          /* DESC.   */          
ISPEXEC TBADD &TABLE                                                            
/*                                                                  */          
/*   ADD SDSF COMMAND                                               */          
/*                                                                  */          
SET &ZCTVERB = SDSF                                      /* COMMAND */          
SET &ZCTTRUNC = 2                                        /* MIN LEN */          
SET &ZCTACT=&STR(SELECT PGM(ISFISP) NOCHECK NEWAPPL(ISF) PARM(&&ZPARM))         
SET &ZCTDESC = &STR(INVOKE SDSF)                         /* DESC.   */          
ISPEXEC TBADD &TABLE                                                            
/*                                                                  */          
/*   ADD SMPE COMMAND                                               */          
/*                                                                  */          
SET &ZCTVERB = SMPE                                      /* COMMAND */          
SET &ZCTTRUNC = 0                                        /* MIN LEN */          
SET &ZCTACT=&STR(SELECT PGM(GIMSTART) NOCHECK PARM(&&ZPARM))                    
SET &ZCTDESC = &STR(INVOKE SMPE)                         /* DESC.   */          
ISPEXEC TBADD &TABLE                                                            
/*                                                                  */          
/*   ADD TMS COMMAND                                                */          
/*                                                                  */          
SET &ZCTVERB = TMS                                       /* COMMAND */          
SET &ZCTTRUNC = 0                                        /* MIN LEN */          
SET &ZCTACT = &STR(SELECT PGM(TMSIOPRI) NEWAPPL(TMS) NOCHECK)                   
SET &ZCTDESC = &STR(INVOKE CA-1 (TMS))                   /* DESC.   */          
ISPEXEC TBADD &TABLE                                                            
/*                                                                  */          
/*   ADD CA1 COMMAND                                                */          
/*                                                                  */          
SET &ZCTVERB = CA1                                       /* COMMAND */          
SET &ZCTTRUNC = 0                                        /* MIN LEN */          
SET &ZCTACT = &STR(SELECT PGM(TMSIOPRI) NEWAPPL(TMS) NOCHECK)                   
SET &ZCTDESC = &STR(INVOKE CA-1 (TMS))                   /* DESC.   */          
ISPEXEC TBADD &TABLE                                                            
/*                                                                  */          
/*   ADD WLM COMMAND                                                */          
/*                                                                  */          
SET &ZCTVERB = WLM                                       /* COMMAND */          
SET &ZCTTRUNC = 0                                        /* MIN LEN */          
SET &ZCTACT = &STR(SELECT CMD(%IWMARIN0))                                       
SET &ZCTDESC = &STR(INVOKE WLM)                          /* DESC.   */          
ISPEXEC TBADD &TABLE                                                            
/*                                                                  */          
/*   ADD DDLIST COMMAND                                             */          
/*                                                                  */          
SET &ZCTVERB = DDLIST                                    /* COMMAND */          
SET &ZCTTRUNC = 2                                        /* MIN LEN */          
SET &ZCTACT = &STR(SELECT PGM(ISRDDN) NEWAPPL(ISP) SUSPEND)                     
SET &ZCTDESC = &STR(INVOKE ISRDDN)                       /* DESC.   */          
ISPEXEC TBADD &TABLE                                                            
/*                                                                  */          
/*   ADD LPROG COMMAND                                              */          
/*                                                                  */          
SET &ZCTVERB = LPROG                                     /* COMMAND */          
SET &ZCTTRUNC = 0                                        /* MIN LEN */          
SET &ZCTACT = &STR(SELECT CMD(%LPROG &&ZPARM) NEWAPPL(ISP))                     
SET &ZCTDESC = &STR(INVOKE LPROG)                        /* DESC.   */          
ISPEXEC TBADD &TABLE                                                            
/*                                                                  */          
/*   ADD IPLINFO COMMAND                                            */          
/*                                                                  */          
SET &ZCTVERB = IPLINFO                                   /* COMMAND */          
SET &ZCTTRUNC = 3                                        /* MIN LEN */          
SET &ZCTACT = &STR(SELECT CMD(%IPLINFO &&ZPARM) NEWAPPL(ISP))                   
SET &ZCTDESC = &STR(INVOKE IPLINFO)                      /* DESC.   */          
ISPEXEC TBADD &TABLE                                                            
/*                                                                  */          
/*  STORE TABLE NAME IN PANEL DISPLAY AND DISPLAY IT                */          
/*                                                                  */          
SET &TABLE = &STR(&TABLE)                                                       
ISPEXEC VPUT (TABLE)                                                            
SET &SEL = &Z                                                                   
ISPEXEC TBDISPL &TABLE PANEL(ISPUCMC)