rem
rem $Header: L:\\\\model\\repman40\\api\\RCS\\rmtextp.opb 1.2 1998/12/16 16:22:11 cvanes Exp $
rem
Rem  Copyright (c) 1993 by Oracle Corporation
Rem    NAME
Rem      rmotext.pkb - <one-line expansion of the name>
Rem    DESCRIPTION
Rem      <short description of component this file declares/defines>
Rem    RETURNS
Rem
Rem    NOTES
Rem      <other useful comments, qualifications, etc.>
Rem    MODIFIED   (MM/DD/YY)

create or replace package body rmotextp as

procedure readall(
  ref in  rm.REFERENCE,
        txt_type IN        varchar2,
  buffer  in out  VARCHAR2,
  buflen  in  INTEGER,
  bufret  out INTEGER) is
begin
  rmmtx.rmmtxra(ref,txt_type,buffer,buflen,bufret);
end;

procedure truncall(
  ref in  rm.REFERENCE,
        txt_type IN        varchar2) is
begin
  rmmtx.rmmtxta(ref,txt_type);
end;

procedure writeall(
  ref in  rm.REFERENCE,
  txt_type IN        varchar2,
  element_type_for IN varchar2,
  buffer  in  VARCHAR2,
  buflen  in  INTEGER,
  bufwrt  out INTEGER) is
begin
  rmmtx.rmmtxwa(ref,txt_type,element_type_for,buffer,buflen,bufwrt);
end;

PROCEDURE lengthall(
    ref      IN        rm.reference,   -- element id
    txt_type IN        varchar2,       -- text type
    buflen   OUT       integer         -- length of buffer
    ) IS
begin
  rmmtx.rmmtxla(ref,txt_type,buflen);
end;
end rmotextp;
/