
  PROCEDURE [XREF] ocp$create_transient_segment (kind: amt$pointer_kind;
    VAR segment: amt$segment_pointer;
    VAR status: ost$status);

*copyc AMT$SEGMENT_POINTER
*copyc OST$STATUS
