?? RIGHT := 110 ??
MODULE ocm$copy;
*copyc osd$default_pragmats
?? PUSH (LISTEXT := ON) ??
*copyc ost$status
*copyc mmp$set_access_selections
*copyc syp$advised_move_bytes
?? POP ??

*copyc och$copy
  PROCEDURE [XDCL] ocp$copy (old_ol: ^SEQ ( * );
    VAR new_ol: ^SEQ ( * );
    VAR status: ost$status);

    VAR
      length: integer;

    length := #SIZE (old_ol^);
    mmp$set_access_selections (old_ol, mmc$as_sequential, status);
    IF NOT status.normal THEN
      RETURN;
    IFEND;
    mmp$set_access_selections (new_ol, mmc$as_sequential, status);
    IF NOT status.normal THEN
      RETURN;
    IFEND;
    syp$advised_move_bytes (old_ol, new_ol, length, status);

  PROCEND ocp$copy;
MODEND ocm$copy;

