
{
{   NOTE:
{     ***********************************************************************
{     ***********************************************************************
{     ****** This program interface is obsolete.  Modules presently    ******
{     ****** using it should be changed to use CLP$BEGIN_UTILITY.      ******
{     ***********************************************************************
{     ***********************************************************************
{

  PROCEDURE [XREF] clp$push_utility
    (    utility_name: ost$name;
         search_mode: clt$command_search_modes;
         commands: ^clt$command_table;
         functions: ^clt$function_table;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc cle$ecc_utilities
*copyc clt$command_search_modes
*copyc clt$command_table
*copyc clt$function_table
*copyc ost$name
*copyc ost$status
?? POP ??
