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

  PROCEDURE [XREF] clp$pop_utility
    (VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc cle$ecc_miscellaneous
*copyc ost$status
?? POP ??
