      SUBROUTINE PLU.READ.FILE(W,OPT,DST)
*PIC-LAN
*
*ALL
*PC
*N
*
*
*
*
******************************************************************************
******************************************************************************
***                                                                        ***
*** (C) Copyright 1990-2005 Doug Dumitru, All Rights Reserved.             ***
***                                                                        ***
*** This program is licensed under the terms of the GNU General Public     ***
*** License, version 2.0 with attached notices.                            ***
***                                                                        ***
*** The full text can be found in the LICENSE.TXT file in the              ***
*** PLIP.BP database file (the /usr/qmweb/PLIP.BP/PLIP.BP directory).      ***
***                                                                        ***
******************************************************************************
******************************************************************************
*
      INCLUDE SYS.TYPE.INCLUDE
*
      INCLUDE PL.COMMON
      INCLUDE PL.COMMON.DEFS
      INCLUDE PL.DEFS
      INCLUDE PLIP.COMMON
      INCLUDE PLW.COMMON
*
      TP = FIELD(W,' ',1)
      BEGIN CASE
         CASE TP = 'FILE'
            OPEN FIELD(W,' ',2) TO PAGE.FD ELSE CALL PLXX.STOP(201,FIELD(W,' ',2))
            READ DST FROM PAGE.FD , FIELD(W,' ',3) ELSE CALL PLXX.STOP(202,FIELD(W,' ',3))
         CASE TP = 'HOST'
            CALL PLHOST.IMPORT(OCONV(FIELD(W,' ',2),'MCL'),OPT,DST)
         CASE YES
            PRINT 'Invalid page source type ' : TP
            STOP
      END CASE
*      
      RETURN
   END
