C************************************************************************
C*
C*  COPYRIGHT (c) 1981,1983,1984,1987,1988
C*  Westinghouse Electric Corporation
C*
C*  THIS SOFTWARE IS FURNISHED WITHOUT LICENSE AND MAY BE USED AND
C*  COPIED ONLY WITH THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE.
C*
C*  THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
C*  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY WESTINGHOUSE.
C*
C*  WESTINGHOUSE ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY
C*  OF THIS SOFTWARE.
C*
C****************************************************************************
C	IODEF.FOR
C
C	IODEF contains the I/O channel  definitions for the SOFTQUOTA database
C		manager.
C
      parameter INPUT_CHAN = 5		! input from keyboard
c      parameter SOFT_CHAN = 4		! Database file
c      parameter PRINT_CHAN = 12		! listing 
      parameter OUTPUT_CHAN = 6		! listing 
      parameter SOFT_FILE = '[000000]SOFTQUOTA.DAT'
      parameter PRINTOUT_FILE = 'SOFTQUOTA.LIS'
c      parameter HELP_FILE = 'MGRHELP$:SOFTDB.HLB'
      parameter HELP_FILE = 'SOFTDIR:SOFTDBFUL.HLB'
      parameter INIT_NAME = 'SOFTDBINI'

      character drive*40, DataFile*40
      logical soft_open, quota_file_active, overquota

      common /drive_name/ drive, DataFile
      common /drive_length/ drive_len
      common /channels/ hard_channel, soft_chan, print_chan
      common /exec/ file_channel, channel_count, channel_stack(10)
      common /flags/ soft_open, quota_file_active, list_flag, overquota