
{* ZCYPCF  cyp$close_file *}

  PROCEDURE [XREF] cyp$close_file ALIAS 'ZCYPCF' (file: cyt$file;
        file_position: cyt$open_close_position;
    VAR status: ost$status);

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