if SWITCH("INSTALL") then do        /* set tmpcmds                */
      queue "CMDUPD"                   /* zctverb                    */
      queue "4"                        /* zcttrunc                   */
      queue "SELECT CMD(%CMDUPD  &ZPARM)"     /* zctact              */
      queue " ...                         "   /* zctdesc             */
      "FCCMDUPD"                       /* load the table             */
      exit
      end                              /* INSTALL                    */