/* REXX       FIXTBL    Direct access to ISPF 3.9
*/
arg appid .
if appid = "?" then call HELP          /*                           -*/
parse value appid "TMP"  with  appid  .
address ISPEXEC
"SELECT PGM(ISPUCM) PARM("appid")"
exit
/*
.  ----------------------------------------------------------------- */
HELP:                                  /*@                           */
address TSO;"CLEAR"
 
ex_nam = "FIXTBL  "
 
say "  "ex_nam"      provides direct access to command tables for display   "
say "                and update.                                            "
say "                                                                       "
say "  Syntax:   "ex_nam"  <app-id>                               (Defaults)"
say "                                                                       "
say "            app-id    is the 3- or 4-byte prefix for the table.  If not"
say "                      specified, it defaults to 'TMP'.                 "
say "                                                                       "
address ISPEXEC "CONTROL DISPLAY REFRESH"
exit                                   /*@ HELP                      */