*******************************************************************************
*
*	Menu Documenter
*
*	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. 
*	12/14/90 7785  JWT kludge to eliminate extra heading
*	07/25/88   -    -  Maintenence log purged at 5.2.1, see release 5.1.10.
*
*******************************************************************************

$OPTIONS DEFAULT

	open "VOC" to f.voc else stop "Can't open the VOC file"
	kount = 0

	prompt "="
	h = "Menu Documentation Utility":space(30):"'tl'"
	heading h
1	print "Name of the Menu file ":; input file
	if file="" then stop

	open file to f.file else
		print "Can't open the '":file:" file."
		goto 1
	end

2	print "Name of the Menu ":; input menu
	if menu="" then goto 1

	read item from f.file,menu else
		print "Can't read item '":menu:"' from the '":file:"' file."
		goto 2
	end

	heading "Account = ":@who:"   MENU file = ":file:"    MENU = ":menu:" as of 'tl'" 
	page

	k = 0
	n = dcount(item<2>,@vm)
	for i = 1 to n

		if item<3,i> # "" then
			
			k += 1
			print
			print fmt(k,"r#2"):" = ":item<2,i>
			if item<4,i> # "" then
				print "     ":item<4,i>
			end
			c = item<3,i>
			print space(8):c
			if index(c," ",1)=0 then
				read vitem from f.voc,c then
					m = dcount(vitem,@am)
					for j = 1 to m
						print space(8):vitem<j>
					next
				end
			end
		end
	next
	heading ""
	page
	heading h
	goto 2