  PROCEDURE [INLINE] fip#create_scratch_sequence
    (VAR seq_p: ^SEQ ( * );
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??

{Return SEQ_P to a random access scratch segment.

    VAR
      scratch_segment: amt$segment_pointer;

    mmp$create_scratch_segment (amc$sequence_pointer, mmc$as_random,
          scratch_segment, status);
    IF status.normal THEN
      seq_p := scratch_segment.sequence_pointer;
    IFEND;

  PROCEND fip#create_scratch_sequence;
*copyc ost$status
*copyc mmp$create_scratch_segment
?? POP ??


