pop1 = "Unable to allocate LOG file"
      pop2 = "Please resolve manually"
      pop3 = exec_name branch("ID")
      address ISPEXEC
      "VGET ZPFCTL"; save_zpf = zpfctl    /* save current setting    */
      zpfctl = "OFF"; "VPUT ZPFCTL"       /* PFSHOW OFF              */
      "CONTROL DISPLAY LOCK"
      "ADDPOP ROW(-1) COLUMN(-2)"
      "DISPLAY PANEL(POP40BY3)"
      "REMPOP ALL"
      zpfctl = save_zpf; "VPUT ZPFCTL"    /* restore                 */