/* REXX **************************************************************/
/*                                                                   */
/* MEMBER-NAME: IPCALIAS                                             */
/*                                                                   */
/* DESCRIPTIVE-NAME:                                                 */
/*                                                                   */
/*    EXEC to Set Command Aliases for Undocumented IPCS Commands     */
/*                                                                   */
/* FUNCTION:                                                         */
/*                                                                   */
/*    This EXEC creates aliases for the 71 undocumeted IPCS          */
/*    commands described in Ed Jaffe's presentation called:          */
/*                                                                   */
/*      "A Treasure Trove of Undocumented IPCS Commands"             */
/*                                                                   */
/*    First presented at GSE UK Region - November 4, 2024            */
/*                                                                   */
/* MODIFICATIONS:                                                    */
/*                                                                   */
/*    The only expected modification is to set the variable DSNAME   */
/*    at the top of the EXEC to the fully-qualified data set name    */
/*    of the library where your IPCS commands reside.                */
/*                                                                   */
/* CHANGE-ACTIVITY:                                                  */
/*                                                                   */
/*    2024-11-03 Ed Jaffe                                            */
/*      Authored the initial version of this EXEC.                   */
/*                                                                   */
/*********************************************************************/

IPCALIAS:


  DSNAME = "SYS1.SBLSCLI0"   /* Change as appropriate */


  address TSO

  "RENAME '" || DSNAME || "(IAXAR2D)'  (ALET2DSP) ALIAS"
  "RENAME '" || DSNAME || "(BLSXC2FI)' (CMD2FILE) ALIAS"
  "RENAME '" || DSNAME || "(IEAVCPUI)' (CPUINFO)  ALIAS"
  "RENAME '" || DSNAME || "(IEAVDAE)'  (DAEINFO)  ALIAS"
  "RENAME '" || DSNAME || "(BLSXDINF)' (DATAINFO) ALIAS"
  "RENAME '" || DSNAME || "(IEAVDISP)' (DISPINFO) ALIAS"
  "RENAME '" || DSNAME || "(IEAVDUMP)' (DUMPINFO) ALIAS"
  "RENAME '" || DSNAME || "(IEAVFRRS)' (FRRSDATA) ALIAS"
  "RENAME '" || DSNAME || "(IOSFSMGB)' (IOSBLKS)  ALIAS"
  "RENAME '" || DSNAME || "(BLSXIPLP)' (IPLPARMS) ALIAS"
  "RENAME '" || DSNAME || "(IEAVLOCK)' (LOCKSTAT) ALIAS"
  "RENAME '" || DSNAME || "(IEAVLOGD)' (LOGDATAS) ALIAS"
  "RENAME '" || DSNAME || "(BLSXSAVA)' (SAVEAREA) ALIAS"
  "RENAME '" || DSNAME || "(IEFDDSUM)' (SCTSIOT)  ALIAS"
  "RENAME '" || DSNAME || "(IEAVSVCM)' (SHOWVCM)  ALIAS"
  "RENAME '" || DSNAME || "(IEFSIOTP)' (SIOTPLUS) ALIAS"
  "RENAME '" || DSNAME || "(IEAVSLIP)' (SLIPDATA) ALIAS"
  "RENAME '" || DSNAME || "(ILRSLOTC)' (SLOTCNT)  ALIAS"
  "RENAME '" || DSNAME || "(IEFSVC99)' (SVC99RB)  ALIAS"
  "RENAME '" || DSNAME || "(IEAVTCBM)' (TCBMAP)   ALIAS"
  "RENAME '" || DSNAME || "(IGVVSMIN)' (VSMINFO)  ALIAS"
  "RENAME '" || DSNAME || "(IEAVWEBI)' (WEBINFO)  ALIAS"
  "RENAME '" || DSNAME || "(BPXWAMT)'  (WJSIPAMT) ALIAS"

  "RENAME '" || DSNAME || "(IEAVATME)' (ASIDTIME) ALIAS"
  "RENAME '" || DSNAME || "(IEAVASVT)' (ASVTONLY) ALIAS"
  "RENAME '" || DSNAME || "(BPXIPSUM)' (BPXWSUMM) ALIAS"
  "RENAME '" || DSNAME || "(IXLCF)'    (CFINFO)   ALIAS"
  "RENAME '" || DSNAME || "(IGVZCPLI)' (CPOOLINF) ALIAS"
  "RENAME '" || DSNAME || "(CSVASIDI)' (CSVASIDI) ALIAS"
  "RENAME '" || DSNAME || "(CSVDYNXI)' (CSVDYNEX) ALIAS"
  "RENAME '" || DSNAME || "(IEAVDIEI)' (DIEINF2)  ALIAS"
  "RENAME '" || DSNAME || "(BLSXD2HX)' (D2X)      ALIAS"
  "RENAME '" || DSNAME || "(IEAVECBI)' (ECBLISTI) ALIAS"
  "RENAME '" || DSNAME || "(IEAVFASB)' (FASBINFO) ALIAS"
  "RENAME '" || DSNAME || "(BLSXFIND)' (FINDDATA) ALIAS"
  "RENAME '" || DSNAME || "(IAXZFCTI)' (FRAMECT)  ALIAS"
  "RENAME '" || DSNAME || "(BLSXF1SA)' (F1SAFMT)  ALIAS"
  "RENAME '" || DSNAME || "(BLSXF4SA)' (F4SAFMT)  ALIAS"
  "RENAME '" || DSNAME || "(BLSXF5SA)' (F5SAFMT)  ALIAS"
  "RENAME '" || DSNAME || "(BLSXF7SA)' (F7SAFMT)  ALIAS"
  "RENAME '" || DSNAME || "(BLSXF8SA)' (F8SAFMT)  ALIAS"
  "RENAME '" || DSNAME || "(BLSX2TME)' (HEX2TIME) ALIAS"
  "RENAME '" || DSNAME || "(BLSXHSUM)' (HEXSUM)   ALIAS"
  "RENAME '" || DSNAME || "(IEAVHELP)' (IEAVHELP) ALIAS"
  "RENAME '" || DSNAME || "(IEAVMMTI)' (IEAVMMTI) ALIAS"
  "RENAME '" || DSNAME || "(BLSXJU2C)' (JUL2CAL)  ALIAS"
  "RENAME '" || DSNAME || "(IEAVLWEB)' (LCCACWEB) ALIAS"
  "RENAME '" || DSNAME || "(CSVLNKLS)' (LINKLIST) ALIAS"
  "RENAME '" || DSNAME || "(BLSXLPSW)' (LISTPSW)  ALIAS"
  "RENAME '" || DSNAME || "(BLSXLREG)' (LISTREGS) ALIAS"
  "RENAME '" || DSNAME || "(IEAVLOGR)' (LOGDATAR) ALIAS"
  "RENAME '" || DSNAME || "(IEAVLOG2)' (LOGDATAS) ALIAS"
  "RENAME '" || DSNAME || "(IAXZMEMI)' (MLIMUSE)  ALIAS"
  "RENAME '" || DSNAME || "(CNZMCACH)' (MSGCACHE) ALIAS"
  "RENAME '" || DSNAME || "(IGVZCOMW)' (OWNCOMMW) ALIAS"
  "RENAME '" || DSNAME || "(IEAVPSTS)' (POSTSRB)  ALIAS"
  "RENAME '" || DSNAME || "(IAXZRSMI)' (RSMINFO)  ALIAS"
  "RENAME '" || DSNAME || "(BLSXSA64)' (SAVEAR64) ALIAS"
  "RENAME '" || DSNAME || "(IEAVSELX)' (SELECTX)  ALIAS"
  "RENAME '" || DSNAME || "(IXCSPLEX)' (SYSPLEX)  ALIAS"
  "RENAME '" || DSNAME || "(IGVZGETM)' (SYSTGETM) ALIAS"
  "RENAME '" || DSNAME || "(IEAVSYSZ)' (SYSTRACZ) ALIAS"
  "RENAME '" || DSNAME || "(IGVZTVSM)' (SYSTVSM)  ALIAS"
  "RENAME '" || DSNAME || "(BLSXTIMD)' (TIMEMID)  ALIAS"
  "RENAME '" || DSNAME || "(IGVZVSMI)' (VSMINFO)  ALIAS"
  "RENAME '" || DSNAME || "(BPXIPSHL)' (BPXIPSHL) ALIAS"
  "RENAME '" || DSNAME || "(BPXIPAMT)' (BPXIPAMT) ALIAS"
  "RENAME '" || DSNAME || "(BPXIPUSE)' (BPXIPUSE) ALIAS"
  "RENAME '" || DSNAME || "(BLSX2CAR)' (X2C)      ALIAS"
  "RENAME '" || DSNAME || "(BLSX2COM)' (X2COMP)   ALIAS"
  "RENAME '" || DSNAME || "(BLSX2DEC)' (X2D)      ALIAS"

  exit