Subroutine Pltprg_VMS
c
      Integer*4 Status,Lib$Spawn
      Include'($SSDEF)'
c
      Status = Lib$Spawn(' @DP:PLTPRG.SPN')
      If (.NOT. Status) Call Lib$Signal(%Val(Status))
c
      Return
      End