MODULE DATE_CMD
IDENT  "24-MAR-93 VLB"

DEFINE VERB CDATE                           ! command to calculate new date    
        IMAGE "SYS$CALIB:CDATE"
        PARAMETER P1, LABEL=PERIOD, PROMPT="How many "
                    , VALUE(REQUIRED,TYPE=$NUMBER)
        PARAMETER P2, LABEL=DATE, VALUE(TYPE=$DATETIME)
        QUALIFIER HELP, NONNEGATABLE, SYNTAX=HELP
        QUALIFIER FUNCTION, VALUE(TYPE=FUNC), NONNEGATABLE, DEFAULT
        QUALIFIER TYPE, VALUE(TYPE=PER), NONNEGATABLE, DEFAULT

DEFINE SYNTAX HELP
        IMAGE "SYS$CALIB:CDATE"
        NOPARAMETERS

DEFINE TYPE PER
        KEYWORD WEEKS, DEFAULT
        KEYWORD DAYS
        KEYWORD MONTHS
        KEYWORD YEARS

DEFINE TYPE FUNC
        KEYWORD ADD, DEFAULT
        KEYWORD SUBTRACT