!=======================================================================
!     
!  Title:        BANNER command definition file
!                
!  Environment:  VMS
!                
!  Author:       Eric Andresen of General Research Corporation
!                
!  Date:         1-JUL-1985
!                
!-----------------------------------------------------------------------

DEFINE VERB BANNER

   IMAGE GRC$TOOLS:BANNER.EXE

      PARAMETER P1, LABEL=CLASSIFICATION, PROMPT="classification"
                    VALUE( REQUIRED )

      PARAMETER P2, LABEL=FILE, PROMPT="file", 
                    VALUE( REQUIRED, TYPE=$FILE, LIST )

      QUALIFIER QUEUE,             DEFAULT, VALUE( DEFAULT="SYS$PRINT" )
      QUALIFIER BATCH,                      VALUE( DEFAULT="SYS$BATCH" )
      QUALIFIER NOTIFY
      QUALIFIER SAVE

      QUALIFIER LINES_PAGE,        DEFAULT, VALUE( DEFAULT=62, TYPE=$NUMBER )
      QUALIFIER CARRIAGE_CONTROL,           VALUE( REQUIRED, TYPE=TYPES )

      QUALIFIER HEADER,            DEFAULT
      QUALIFIER OVERSTRIKE
      QUALIFIER UNDERLINE
      QUALIFIER PAGE_NUMBER,       DEFAULT
      QUALIFIER TOTAL_PAGES
      QUALIFIER FILL_CHAR,         DEFAULT, VALUE( DEFAULT="*" )
      QUALIFIER HANDLE,            DEFAULT, VALUE
      QUALIFIER CLASS_NOTE,        DEFAULT, VALUE
      QUALIFIER SIGN
      QUALIFIER DATE,              DEFAULT
      QUALIFIER CLASSBY,           DEFAULT, VALUE( TYPE=NUMBERS ) 
      QUALIFIER ADDRESS,           DEFAULT
      QUALIFIER WORK_ORDER,        DEFAULT, VALUE
      QUALIFIER DOC_NUMBER,                 VALUE
      QUALIFIER LOG_NUMBER,        DEFAULT, VALUE
      QUALIFIER USERNAME,          DEFAULT, VALUE
      QUALIFIER FILE_NAME,         DEFAULT, VALUE
      QUALIFIER FILE_CLASS,        DEFAULT, VALUE( DEFAULT="U" )

      DISALLOW  ( NEG SAVE ) AND ( NEG QUEUE )
      DISALLOW  OVERSTRIKE AND UNDERLINE
      DISALLOW  ( NEG PAGE_NUMBER ) AND ( TOTAL_PAGES )
      DISALLOW  LOG_NUMBER AND DOC_NUMBER

DEFINE TYPE TYPES
      KEYWORD FORTRAN
      KEYWORD LIST
      KEYWORD NONE

DEFINE TYPE NUMBERS
      KEYWORD 1, DEFAULT
      KEYWORD 2