For example, setting up SEC on a French version of Clarify, the following code is compiled:

Sub initialize_app()
Dim pc_menu As New AppMenu ' Policies & Customers menu bar
Dim cs_menu As New AppMenu ' ClearSupport menu bar

' Get the locale for the user
set_locale

' Add the new menu item and show the menu
pc_menu.MenuBarID = 1001 'Policies and Customers
pc_menu.AddItem "Configuration", "SEC Tags Setup", "SECSetup"
pc_menu.AddItem "Configuration", "SEC Subtag Setup", "SubtagSetup"
pc_menu.AddItem "Configuration", "SEC Error Setup", "ErrorSetup"
App.ShowDefaultMenu

End Sub

The following answer is courtesy of  Clarify Tech Support:

Generally, the default application for Clarify is ClearSupport. When you execute your code, although you set the menu bar id to 1001 (Policies and Customers) the application is still looking at the default menubar (i.e. ClearSupport) so that's why it's not working. To force the application to look at menubar 1001 when the AddItem is processed, you need to issue the Show method before executing the AddItem method. Here's the change you need to make:
******************
pc_menu.MenuBarID = 1001 'Policies and Customers
pc_menu.Show
pc_menu.AddItem "Configuration", "SEC Tags Setup", "SECSetup"
pc_menu.AddItem "Configuration", "SEC Subtag Setup", "SubtagSetup"
pc_menu.AddItem "Configuration", "SEC Error Setup", "ErrorSetup"

App.ShowDefaultMenu
******************