
{* ZCYPPKB  cyp$put_keyed_binary *}

  PROCEDURE [XREF] cyp$put_keyed_binary ALIAS 'ZCYPPKB'
    (   binary_file: cyt$file;
        pointer_to_source: ^SEQ ( * );
        file_key: integer;
    VAR status: ost$status);

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