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                 */