
{* ZCYPOF  cyp$open_file *}

  PROCEDURE [XREF] cyp$open_file ALIAS 'ZCYPOF'
   (    file_name: cyt$file_name;
        file_specifications: cyt$file_specifications;
    VAR file: cyt$file;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc ost$status
*copyc cyt$file_name
*copyc cyt$file_specifications
*copyc cyt$file
*copyc cye$exception_conditions
?? POP ??
