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