
{* ZCYPGPL  cyp$get_partial_line *}

  PROCEDURE [XREF] cyp$get_partial_line ALIAS 'ZCYPGPL'
   (    file: cyt$file;
    VAR partial_line: string ( * <= cyc$max_page_width);
    VAR number_of_characters_read: integer;
    VAR last_part_of_line: boolean;
    VAR status: ost$status);

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