*******************************************************************************
*
*	Display help from SYS.HELP, USER.HELP, or BASIC.HELP
*
*	Module	%M%	Version	%I% 	Date	%H%
*
*	(c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
*	This is unpublished proprietary source code of Ardent Software Inc.
*	The copyright notice above does not evidence any actual or intended
*	publication of such source code.
*
*******************************************************************************
*
*	Maintenence log - insert most recent change descriptions at top
*
*	Date.... GTAR# WHO Description.........................................
*	10/14/98 23801 SAP Change copyrights. 
*	07/25/88   -    -  Maintenence log purged at 5.2.1, see release 5.1.10.
*
*******************************************************************************

$OPTIONS DEFAULT

dim line(1000)
		
open "ERRMSG" to f.ERRMSG else
	print 'Unable to open the ERRMSG file'
	stop
end

matparse line from trim(@sentence) , " "

tokens = inmat();

begin case

	case tokens = 1

	* check for active select list *

	if system(11) then
		10 *
		readnext id else stop
		read item from f.ERRMSG, id then
			errmsg id, "A","B","C","D","E","F","G","H","I","J","K","L","M","O","P","Q","R","S","T","U","V","W","X","Y","Z"
		end else
			print "Item '":id:"' not found in the ERRMSG file"
		end
		goto 10
	end else
		print "Item must be specifed."
	end

	case tokens = 2

	* check for '*' to select all items *
	*	else assume single item id  *

	if line(2) = '*' then
		select f.ERRMSG 
		20 *
		readnext id else stop
		read item from f.ERRMSG, id then
			errmsg id, "A","B","C","D","E","F","G","H","I","J","K","L","M","O","P","Q","R","S","T","U","V","W","X","Y","Z"
		end else
			print "Item '":id:"' not found in the ERRMSG file"
		end
		goto 20
	end else
		id = line(2)
		fst = id[1,1]
		if fst = '"' or fst = "'" or fst = "\" then
			max = len(id)
			lst = id[max,1]
			if fst = lst then id = id [2,max-2]
		end
		read item from f.ERRMSG, id then
			errmsg id, "A","B","C","D","E","F","G","H","I","J","K","L","M","O","P","Q","R","S","T","U","V","W","X","Y","Z"
		end else
			print "Item '":id:"' not found in the ERRMSG file"
		end
	end

	case 1

	* assume list of item ids *

		for x = 2 to tokens
			id = line(x)
			fst = id[1,1]
			if fst = '"' or fst = "'" or fst = "\" then
				max = len(id)
				lst = id[max,1]
				if fst = lst then id = id [2,max-2]
			end
			read item from f.ERRMSG, id then
				errmsg id, "A","B","C","D","E","F","G","H","I","J","K","L","M","O","P","Q","R","S","T","U","V","W","X","Y","Z"
			end else
				print "Item '":id:"' not found in the ERRMSG file"
			end
		next x

end case

stop
end