*******************************************************************************
*
*	New System Admin tools - this routine creates a Menubar structure
*	 	in a new, easier fashion, creates the sub-menu part
*
*	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. 
*	11/10/90 7673  DTM Initial programming
*******************************************************************************
*    This routine is used to fill in all the submenus off of the main menu
*    bar.  It should be called using the MB structure that was passed to
*    DEF.MNU.B.  It returns ACTION.ARRAY, which is an array of selection
*    values for each corresponding entry.  To determine which value was 
*     selected, you should check the return value from DO.MNU.BAR.B with
*   action.array.  
*   MB      - same Menu bar structure used in DEF.MNU.B
*   action.array<x,y>  - return values.  X defines main menu bar choice,
*                                        Y defines submenu choice
*   subvalue- which main menu bar selection to add subvalues to
*   sub.count-# of subvalues in this selection
*   text.array- array of labels for submenu
*   help.array- array of help strings for labels of submenu
*******************************************************************************

SUBROUTINE DEF.SUB.B(MB,action.array,subvalue,sub.count,text.array,help.array)

MB<subvalue+1,1,2>=sub.count
FOR i=1 TO sub.count
    MB<subvalue+1,i+1,1>=text.array<i>
    MB<subvalue+1,i+1,2>=(subvalue * 20)+i
    action.array<subvalue,i>=(subvalue * 20)+i
    MB<subvalue+1,i+1,3>=help.array<i>
NEXT i