! ********************************************************************************************************************************
!  Created: 30-AUG-2007 11:29:32 by OpenVMS SDL IA64-2     
!  Source:  30-AUG-2007 11:29:32 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]CLI$ROUTINES.SDI;1 
! ********************************************************************************************************************************
 
!*** MODULE CLI$ROUTINES IDENT X-2 ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  Command Language Interpreter (CLI) Routines
 ! 
 ! 
 !  CLI$DCL_PARSE - Parse DCL command string
 ! 
 !  status = CLI$DCL_PARSE ([command_string], table [,param_routine]
 ! 		           [,prompt_routine] [,prompt_string])
 ! 
 !   command_string - Command string to parse
 !   table          - Command table
 !   param_routine  - Routine to obtain omitted parameters
 !   prompt_routine - Routine to prompt for input
 !   prompt_string  - Prompt string for display
 ! 
	INTEGER*4 CLI$DCL_PARSE
	EXTERNAL CLI$DCL_PARSE
 ! 
 !  CLI$DISPATCH - Dispatch to action routine
 ! 
 !  status = CLI$DISPATCH ([userarg])
 ! 
 !   userarg - User argument
 ! 
	INTEGER*4 CLI$DISPATCH
	EXTERNAL CLI$DISPATCH
 ! 
 !  CLI$GET_VALUE - Get value of entity in command string
 ! 
 !  status = CLI$GET_VALUE (entity_desc, retdesc [, retlength])
 ! 
 !   entity_desc - Entity to retrieve
 !   retdesc     - Returned value string
 !   retlength   - Length of returned value
 ! 
	INTEGER*4 CLI$GET_VALUE
	EXTERNAL CLI$GET_VALUE
 ! 
 !  CLI$PRESENT - Determine presence of entity in command string
 ! 
 !  status = CLI$PRESENT (entity_desc)
 ! 
 !   entity_desc - Entity to retrieve
 ! 
	INTEGER*4 CLI$PRESENT
	EXTERNAL CLI$PRESENT
	PARAMETER CLI$K_token_size_traditional = '000000FF'X
	PARAMETER CLI$C_token_size_traditional = '000000FF'X
	PARAMETER CLI$K_token_size_extended = '00000FA0'X
	PARAMETER CLI$C_token_size_extended = '00000FA0'X
	PARAMETER CLI$K_command_size_traditional = '000000FF'X  !  command size with no continuation charac
	PARAMETER CLI$C_command_size_traditional = '000000FF'X
	PARAMETER CLI$K_command_size_extended = '00001000'X  !  command size with no continuation character
	PARAMETER CLI$C_command_size_extended = '00001000'X
	PARAMETER CLI$K_buffer_size_traditional = '00000400'X  !  command size with continuation character(s)
	PARAMETER CLI$C_buffer_size_traditional = '00000400'X  !               or from input file   
	PARAMETER CLI$K_buffer_size_extended = '00002000'X  !  command size with continuation character(s)
	PARAMETER CLI$C_buffer_size_extended = '00002000'X  !               or from input file   
!DEC$ END OPTIONS