/* SC  Set Customized Commands for ISPF Sessions  11/27/1991-12/17/1998
/* --------------------------------------------------------------------
/* Use option 3.9 to view contents of the Command Table  (Appl ID: ISP)

   PROC 1 M  /* Operation mode (required):
             /* L      - Display list of commands and abbreviations
             /*          (Equivalents: H, '?', '/')
             /* Other  - Set customized commands (non-empty)

   CONTROL NOCAPS
/* CONTROL SYMLIST,CONLIST,LIST,MSG

/* Display List of Commands and Abbreviations -------------------------

   IF ((&STR(&M)=     L )| +
       (&STR(&M)=     H )| +
       (&STR(&M)=&STR(?))| +
       (&STR(&M)=&STR(/))) +
      THEN DO
              ISPEXEC VIEW DATASET(PGMR.CLIST(SC)) MACRO(LISTCMD)
              EXIT
           END

/* Customized Commands ------------------------------------------------

   ISPEXEC TBTOP ISPCMDS
   SET ZCTVERB  =BR
   SET ZCTTRUNC =0
   SET ZCTACT   =SELECT CMD(%BR &&ZPARM)
   SET ZCTDESC  =BR   Browse library partition
   ISPEXEC TBADD ISPCMDS

   ISPEXEC TBTOP ISPCMDS
   SET ZCTVERB  =DL
   SET ZCTTRUNC =0
   SET ZCTACT   =SELECT CMD(%DL &&ZPARM)
/* SET ZCTACT   =SELECT PGM(ISRUDL) PARM(ISRUDLP)
   SET ZCTDESC  =DL   Data List dialog (option 3.4)
   ISPEXEC TBADD ISPCMDS

   ISPEXEC TBTOP ISPCMDS
   SET ZCTVERB  =ED
   SET ZCTTRUNC =0
   SET ZCTACT   =SELECT CMD(%ED &&ZPARM)
   SET ZCTDESC  =ED   Edit library partition
   ISPEXEC TBADD ISPCMDS

   ISPEXEC TBTOP ISPCMDS
   SET ZCTVERB  =GH
   SET ZCTTRUNC =0
   SET ZCTACT   =SELECT CMD(%GETHELP &&ZPARM)
   SET ZCTDESC  =GH   Get help on command or program
   ISPEXEC TBADD ISPCMDS

   ISPEXEC TBTOP ISPCMDS
   SET ZCTVERB  =PL
   SET ZCTTRUNC =0
   SET ZCTACT   =SELECT PGM(ISPLLP) PARM(LOG &STR(DELETE)) SUSPEND
   SET ZCTDESC  =PL   Purge current session log
   ISPEXEC TBADD ISPCMDS

   ISPEXEC TBTOP ISPCMDS
   SET ZCTVERB  =SAR
   SET ZCTTRUNC =0
   SET ZCTACT   =SELECT PANEL(SAR@PRIM) NEWAPPL(SAR)
   SET ZCTDESC  =SAR  SYSOUT Archival and Retrieval dialog
   ISPEXEC TBADD ISPCMDS

   ISPEXEC TBTOP ISPCMDS
   SET ZCTVERB  =SD
   SET ZCTTRUNC =0
   SET ZCTACT   =SELECT PGM(ISFISP) PARM(&&ZPARM) NOCHECK NEWAPPL(ISF)
   SET ZCTDESC  =SD   Spool Display and Search Facility dialog
   ISPEXEC TBADD ISPCMDS

   ISPEXEC TBTOP ISPCMDS
   SET ZCTVERB  =XP
   SET ZCTTRUNC =0
   SET ZCTACT   =SELECT CMD(%XPLIBDEF)
   SET ZCTDESC  =XP   Xpediter TSO or batch debugging session
   ISPEXEC TBADD ISPCMDS

/* Command Abbreviations ----------------------------------------------

   ISPEXEC TBTOP ISPCMDS
   SET ZCTVERB  =RT
   SET ZCTTRUNC =0
   SET ZCTACT   =ALIAS RETRIEVE
   SET ZCTDESC  =RT   RETRIEVE abbreviation
   ISPEXEC TBADD ISPCMDS

/* Environment Setup Commands -----------------------------------------

   ISPEXEC TBTOP ISPCMDS
   SET ZCTVERB  =SC
   SET ZCTTRUNC =0
   SET ZCTACT   =SELECT CMD(%SC &&ZPARM)
   SET ZCTDESC  =SC   Set customized commands for ISPF logical sessions
   ISPEXEC TBADD ISPCMDS

   ISPEXEC TBTOP ISPCMDS
   SET ZCTVERB  =SK
   SET ZCTTRUNC =0
   SET ZCTACT   =SELECT CMD(%SK &&ZPARM)
   SET ZCTDESC  =SK   Set standard and customized PF key commands
   ISPEXEC TBADD ISPCMDS
