      SUBROUTINE PLWS.LOGON(TARGET.PORT,PROCESS.STR,SSTR,ERR.STR)
*PIC-LAN
*
*ALL
*PC
*Y
*
*
*
*
      INCLUDE SYS.TYPE.INCLUDE
*
      INCLUDE PL.COMMON
      INCLUDE PL.COMMON.DEFS
      INCLUDE PL.DEFS
      INCLUDE PLIP.COMMON
      INCLUDE PLW.COMMON
*
      SSTR = ''
      ERR.STR = ''
*
      IF TARGET.PORT <> '*' THEN
         ERR.STR = 'Invalid target port specification ' : TARGET.PORT
         RETURN
      END
*
      EXECUTE 'PHANTOM PLW-MAIN ' : PROCESS.STR CAPTURING SSTR 
*
      RETURN
   END
