!
! Copyright © 1993, 1994 by Eric M. LaFranchi.  All Rights Reserved.
!
! This software is Copyright 1993, 1994 by Eric M. LaFranchi.  Permission
! to use, copy, and freely redistributed this software in its entirety is
! hereby granted provided that the above copyright notice and this
! permission notice are retained.  This software may not be sold for profit
! or incorporated in commercial software products without the written
! permission of the author.  This software is provided "as is", the author
! nor his employer make any representation of warranty, express or implied,
! with respect to any code or other information herein.  In addition, the
! author disclaim's any liability whatsoever for any use of such code or
! other information.
!
!+-+
!
! Module: VMS_CLDTABLES
!
! Abstract:
!       Command definition file for the PACKASM utility.
!
! Author:
!       Eric M. LaFranchi
!
! Creation Date:
!       11-JAN-1993
!
! Modification History
!	EML006		Eric M. LaFranchi	14-JAN-1994
!	Added /MAIL_FILE qualifier
!	Added /SEPARATOR qualifier in version 2.3
!
!	EML005		Eric M. LaFranchi	25-OCT-1993
!	Added /REMOVE_HEADERS qualifier
!
!	EML004		Eric M. LaFranchi	09-AUG-1993
!	Added /ARTICLES and /OVERRIDE qualifiers. Updated disallow list
!
!	EML003 		Eric M. LaFranchi	18-AUG-1993
!	Add $DATETIME builtin type to /SINCE and /BEFORE qualifiers
!
!	EML002		Eric M. LaFranchi	02-JUL-1993
!	Updated for version 2.0. Added qualifier /ANU_NEWS
!
!	EML001		Eric M. LaFranchi	30-APR-1993
!	Updated for version 2.0. Added qualifiers /BEFORE, /SINCE,
!	/EXCLUDE, /UNPACK, /DECODE, /NNTP_SERVER, and /NEWSGROUPS
!
!-+-
!
module vms_cldtables
ident "Packasm V2.3"
!
define type PROTOCOL_NAMES
    keyword TCP, default
    keyword DECNET
!
define verb PACKASM
    routine   process_command_line
!
    parameter P1, label = PACKAGE_LIST,
              value( required, list ), prompt = "Package(s)"
!
    qualifier ARTICLES, label = ARTICLE_QUALIFIER
              nonnegatable, placement = global
!
    qualifier ANU_NEWS
              negatable, placement = global
!
    qualifier BEFORE, label = BEFORE_DATE
	      value( type = $datetime )
              nonnegatable, placement = global
!
    qualifier CONFIRM, label = CONFIRM_QUALIFIER
	      negatable, placement = global
!
    qualifier DECODE_PACKAGE, label=DECODE_QUALIFIER
	      negatable, placement = global
!
    qualifier DELETE, label = DELETE_QUALIFIER
	      negatable, placement = global
!
    qualifier EXCLUDE, label = EXCLUDE_LIST
              value( required, list )
              nonnegatable, placement = global
!
    qualifier FOLDERS, label = FOLDER_LIST
              value( required, list )
              nonnegatable, placement = global
!
    qualifier LOG, label = LOG_QUALIFIER
	      negatable, placement = global
!
    qualifier MAIL_FILE
              value( required )
              nonnegatable, placement = global
!
    qualifier NEWS_GROUPS
              value( required, list )
              nonnegatable, placement = global
!
    qualifier NNTP_SERVER
              value( required, list )
              nonnegatable, placement = global
!
    qualifier OUTPUT, label = OUTPUT_FILE
              value( required, type = $file )
              nonnegatable, placement = global
!
    qualifier OVERRIDE, label = OVERRIDE_QUALIFIER
              negatable, placement = global
!
    qualifier PROTOCOL
	      value( type = PROTOCOL_NAMES )                 
              nonnegatable, placement = global
!
    qualifier REMOVE_HEADERS, label = REMOVE_QUALIFIER
              nonnegatable, placement = global
!
    qualifier SEPARATOR, label = SEPARATOR
	      value ( required )
              nonnegatable, placement = global
!
    qualifier SINCE, label = SINCE_DATE
	      value ( type = $datetime )
              nonnegatable, placement = global
!
    qualifier UNPACK_PACKAGE, label=UNPACK_QUALIFIER
	      negatable, placement = global
!
    disallow  ((ARTICLE_QUALIFIER and NOT OUTPUT_FILE) or
	       (ARTICLE_QUALIFIER and OVERRIDE_QUALIFIER) or
	       (ARTICLE_QUALIFIER and (SINCE_DATE or BEFORE_DATE)) or
	       (DECODE_QUALIFIER and NEG UNPACK_QUALIFIER) or
	       (DELETE_QUALIFIER and (ANU_NEWS or NNTP_SERVER)) or
	       (FOLDER_LIST and (ANU_NEWS or NNTP_SERVER)) or
	       (MAIL_FILE and (NNTP_SERVER or ANU_NEWS)) or
	       (NEWS_GROUPS and (NOT ANU_NEWS and NOT NNTP_SERVER)) or
	       (NNTP_SERVER and ANU_NEWS) or
	       (NNTP_SERVER and (SINCE_DATE or BEFORE_DATE)) or
	       (PROTOCOL and NOT NNTP_SERVER) or
	       (REMOVE_QUALIFIER and (NOT (NEG UNPACK_QUALIFIER))))