!*******************************************************************************
!
!  JUMP_CLD - CLD file for JUMP.
!
!  Author: Jonathan Ridler
!
!  History:
!       25-Sep-2001	JER	JUMP V4.0 version.
!	07-May-2002	JER	Allow escape and notify after.
!	28-May-2004	JER	Add UPDATE_UAF.
!	14-Sep-2004	JER	JUMP V5.0.
!*******************************************************************************

MODULE Jump_CLD

DEFINE VERB JUMP

       PARAMETER  P1, LABEL=USERNAME, VALUE (TYPE=$QUOTED_STRING),
		      PROMPT="Username"

       QUALIFIER  ALL, NEGATABLE
       QUALIFIER  AUDIT, NEGATABLE, DEFAULT
       QUALIFIER  ESCAPE_CHARACTER, NEGATABLE, VALUE (TYPE=ESC_CHAR)
       QUALIFIER  EXACT, NEGATABLE
       QUALIFIER  LOG, NEGATABLE, DEFAULT
       QUALIFIER  NOTIFY, NEGATABLE, VALUE (LIST,TYPE=NOTIFY_KEYWORD)
       QUALIFIER  OVERRIDE_UAF, NEGATABLE
       QUALIFIER  RECORD, NEGATABLE
       QUALIFIER  SECURE_MODE, NEGATABLE
       QUALIFIER  SETUSER, NEGATABLE
       QUALIFIER  UPDATE_UAF, NEGATABLE
       QUALIFIER  VERSION, NEGATABLE

       DISALLOW  ALL AND SETUSER
       DISALLOW  EXACT AND (ALL OR SETUSER)
       DISALLOW  ESCAPE_CHARACTER AND (NOT EXACT)
       DISALLOW  RECORD AND NOT EXACT
       DISALLOW  NOTIFY AND NOT EXACT
       DISALLOW  SECURE_MODE AND ((NOT EXACT) OR (NEG RECORD) OR (NEG NOTIFY))

DEFINE TYPE NOTIFY_KEYWORD
       KEYWORD  AFTER, NEGATABLE
       KEYWORD  BEFORE, NEGATABLE
       KEYWORD  EXIT_ON_MAIL_ERROR, NEGATABLE
       KEYWORD  INCLUDE, NEGATABLE
       KEYWORD  MAIL, NEGATABLE
       KEYWORD  OPCOM, NEGATABLE

DEFINE TYPE ESC_CHAR
       KEYWORD  D, NONNEGATABLE
       KEYWORD  F, NONNEGATABLE
       KEYWORD  G, NONNEGATABLE
       KEYWORD  I, NONNEGATABLE
       KEYWORD  K, NONNEGATABLE
       KEYWORD  L, NONNEGATABLE
       KEYWORD  N, NONNEGATABLE
       KEYWORD  P, NONNEGATABLE
       KEYWORD  U, NONNEGATABLE
       KEYWORD  V, NONNEGATABLE