NAME	XUHGPRT
DESCRIPTION	Prints a list of Hunt Groups.
BY	'INTERNAL(#2)="HG",.01
CREATOR	USER,ONE
DHD	HUNT GROUP LIST
DIC {DIP}	%ZIS(1,
FLDS	.01
FR	""
L.	0
MENU TEXT	List Hunt Groups
TYPE	print
UPPERCASE MENU TEXT	LIST HUNT GROUPS