c -- pardef.inc ----------------------------------------------------------------
c
c     DESCRIPTION:
c        This include file contains constant definitions used by the 
c        subroutine SYSF_PARSE_FILENAME.
c
c     AUTHOR:
c        Gregory L. Wright
c
c     CREATION DATE:   10-SEP-1990
c
c
c                             C H A N G E    L O G
c
c            Date    |     Name     |              Description
c     --------------------------------------------------------------------------
c        XX-XXX-XXXX | XXXXXXXXXXXX | XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
c        25-SEP-1990 | WRIGHTGR     | Completed original release.
c
c Copyright 1990,1991 Gregory L. Wright
c This software may be freely copied and distributed with the
c following stipulations:
c     o No fee except to recover costs of media and delivery may
c       be charged for the use or possession of this software.
c     o Sources to this utility must be made available in machine-
c       readable form along with the executable form.
c     o No portion of this program may be used in any program sold
c       for a fee without written consent from the original author.
c     o The author is not held responsible for any damages incurred 
c       resulting from the installation and/or use of this software.
c     o This copyright notice must not be removed.
c ------------------------------------------------------------------------------
c
c  P a r a m e t e r s

      INTEGER*4  SYS_SUCCESS
      PARAMETER  (SYS_SUCCESS = 0)

c     Parameters for sysf_scan_filename and sysf_parse_filename functions.
c     The "K" parameters are constants.
c     The "V" parameters are bit positions.
c     The "M" parameters are bit masks.

      PARAMETER PAR_K_FILE     = '0000'X  ! All fields in filename.
      PARAMETER PAR_K_DIRSPEC  = '000F'X  ! Node + Device + Root + Directory
      PARAMETER PAR_K_FILESPEC = '0070'X  ! Name + Type + Version

      PARAMETER PAR_V_NODE = 0            ! Node field.
      PARAMETER PAR_M_NODE = '0001'X 
      PARAMETER PAR_V_DEV  = 1            ! Device field.
      PARAMETER PAR_M_DEV  = '0002'X
      PARAMETER PAR_V_ROOT = 2            ! Root directory field.
      PARAMETER PAR_M_ROOT = '0004'X
      PARAMETER PAR_V_DIR  = 3            ! Directory field.
      PARAMETER PAR_M_DIR  = '0008'X
      PARAMETER PAR_V_NAME = 4            ! Name field.
      PARAMETER PAR_M_NAME = '0010'X
      PARAMETER PAR_V_TYPE = 5            ! Type field.
      PARAMETER PAR_M_TYPE = '0020'X
      PARAMETER PAR_V_VER  = 6            ! Version field.
      PARAMETER PAR_M_VER  = '0040'X

      PARAMETER PAR_V_SYNTAX    = 0  ! Check syntax only.
      PARAMETER PAR_M_SYNTAX    = '0001'X
      PARAMETER PAR_V_NOCONCEAL = 1  ! Translate concealed device names.
      PARAMETER PAR_M_NOCONCEAL = '0002'X
      PARAMETER PAR_V_PWD       = 2  ! Print password in access control string.
      PARAMETER PAR_M_PWD       = '0004'X