      SUBROUTINE PLW.INIT.FILEOPENS(FLG)
*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
*
*$*   MAT PLS$VARS = ''
*
      OPEN 'WWW.CTRL,STATES'    TO PL$STATE.FD        ELSE CALL PLXX.STOP(201,'WWW.CTRL,STATES')
      OPEN 'WWW.CTRL,WORK'      TO PL$WORK.FD         ELSE CALL PLXX.STOP(201,'WWW.CTRL,WORK')
      OPEN 'WWW.CTRL,CONN'      TO PL$CONN.FD         ELSE CALL PLXX.STOP(201,'WWW.CTRL,CONN')
      OPEN 'WWW.CTRL'           TO PL$CTRL.FD         ELSE CALL PLXX.STOP(201,'WWW.CTRL')
*
      OPEN 'WWW.CTRL,DTA'       TO PL$DATA.FD         ELSE CALL PLXX.STOP(201,'WWW.CTRL,DTA')
      OPEN 'WWW.CTRL,PROCESSES' TO PL$PROC.FD         ELSE CALL PLXX.STOP(201,'WWW.CTRL,PROCESSES')
      OPEN 'WWW.CTRL,PGCTRL'    TO PL$PGCTRL.FD       ELSE CALL PLXX.STOP(201,'WWW.CTRL,PGCTRL')
      OPEN 'WWW.CTRL,PGCACHE'   TO PL$PGCACHE.FD      ELSE CALL PLXX.STOP(201,'WWW.CTRL,PGCACHE')
      OPEN 'WWW.CTRL,PGDATA'    TO PL$PGDATA.FD       ELSE CALL PLXX.STOP(201,'WWW.CTRL,PGDATA')
      OPEN 'WWW.CTRL,PGBASIC'   TO PL$PGBASIC.FD      ELSE CALL PLXX.STOP(201,'WWW.CTRL,PGBASIC')
      OPEN 'WWW.CTRL,PGBASICXREF' TO PL$BASXREF.FD    ELSE CALL PLXX.STOP(201,'WWW.CTRL,PGBASICXREF')
      OPEN 'WWW.CTRL,LOCK'       TO PL$LOCK.FD        ELSE CALL PLXX.STOP(201,'WWW.CTRL,LOCK')
      OPEN 'WWW.CTRL,APP.STATES' TO PL$APP.FD         ELSE CALL PLXX.STOP(201,'WWW.CTRL,APP.STATES')
*
      OPEN 'WWW.LOG'            TO PL$LOG.FD          ELSE CALL PLXX.STOP(201,'WWW.LOG')
      OPEN 'WWW.LOG,BY.FNAME'   TO PL$LOGFNAME.FD     ELSE CALL PLXX.STOP(201,'WWW.LOG,BY.FNAME')
      OPEN 'WWW.LOG,BY.IP'      TO PL$LOGIP.FD        ELSE CALL PLXX.STOP(201,'WWW.LOG,BY.IP')
      OPEN 'WWW.LOG,USAGE'      TO PL$LOGUSAGE.FD     ELSE CALL PLXX.STOP(201,'WWW.LOG,USAGE')
*
      *$* OPEN 'PLIP.RPC'           TO PL$RPC.FD          ELSE CALL PLXX.STOP(201,'PLIP.RPC')
      *$* OPEN 'PLIP.RPC,SUBS'      TO PL$RPC.SUBS.FD     ELSE CALL PLXX.STOP(201,'PLIP.RPC,SUBS')
      *$* OPEN 'PLIP.RPC,SERVER.RESPONSES' TO PL$RPC.RESP.FD ELSE CALL PLXX.STOP(201,'PLIP.RPC,SERVER.RESPONSES')
*
      RETURN
   END
