
{* ZCYPPRF  cyp$position_record_file *}

  PROCEDURE [XREF] cyp$position_record_file ALIAS 'ZCYPPRF'
    (    record_file: cyt$file;
         direction: cyt$skip_direction;
         count: integer;
         unit: cyt$skip_unit;
     VAR status: ost$status);

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