SUBROUTINE GET_COMMAND_LINE(SEARCH_STRING, STRING_LENGTH, PRINTER)
!
!
!	****************************************************************
!
!		This routine will get the parameter and the qualifier 
!	from the command line that was entered by the user.
!
!	WRITTEN:	21-FEB-1983
!
!	LAST CHANGED:	24-FEB-1983
!
!	WRITTEN BY:	F. A. Kenney
!
!	****************************************************************
!
!
	CHARACTER	PARAM_NAME *11, QUALIFIER *7, SEARCH_STRING *(*)
	EXTERNAL	CLI$PRESENT
	INTEGER		CLI$PRESENT, CLI_STATUS, STRING_LENGTH
	LOGICAL		PRINTER
	INCLUDE 'CLIDEF.FOR'


	PARAM_NAME	=	'SEARCH_NAME'
	PRINTER		=	.FALSE.
	QUALIFIER	=	'PRINTER'



	CLI_STATUS = CLI$PRESENT(PARAM_NAME)
	IF ((CLI_STATUS .EQ. CLI$_PRESENT) .AND. 
     +	    (CLI_STATUS .NE. CLI$_DEFAULTED)) 		THEN

		CALL CLI$GET_VALUE(PARAM_NAME, SEARCH_STRING)
		CALL STR$UPCASE(SEARCH_STRING, SEARCH_STRING)
		CALL STR$TRIM(SEARCH_STRING, SEARCH_STRING, STRING_LENGTH)
		IF (STRING_LENGTH .GT. 12) THEN

			WRITE(6, 1000) 
			STRING_LENGTH = 12

		ENDIF

	ELSE

		STRING_LENGTH 		= 1
		SEARCH_STRING(1:1)	= ' '

	ENDIF



	CLI_STATUS = CLI$PRESENT(QUALIFIER)
	IF ((CLI_STATUS .EQ. CLI$_PRESENT) .AND.
     +	    (CLI_STATUS .NE. CLI$_NEGATED))      PRINTER = .TRUE.




	RETURN


1000	FORMAT( ' %USERS-I-SRCHNMTOLNG, search name truncated to 12',
     +	        ' characters')


	END