
{* ZCYPGPR  cyp$get_partial_record *}

  PROCEDURE [XREF] cyp$get_partial_record ALIAS 'ZCYPGPR'
   (    record_file: cyt$file;
        pointer_to_target: ^SEQ ( * );
    VAR number_of_cells_read: integer;
    VAR last_part_of_record: boolean;
    VAR status: ost$status);

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