{
{ cmp$process_force_format
{

  PROCEDURE [XREF] cmp$process_force_format
    (    product_id: cmt$product_identification;
         element: cmt$element_name;
         logical_unit_number: iot$logical_unit;
         force_format: boolean;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc ost$name
*copyc cmt$product_identification
*copyc cmt$element_name
*copyc iot$logical_unit
?? POP ??
