
{* ZCYPTF  cyp$tab_file *}

  PROCEDURE [XREF] cyp$tab_file ALIAS 'ZCYPTF'
   (    file: cyt$file;
        tab_column: cyt$page_width;
    VAR status: ost$status);

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