rem
rem $Header: L:\\\\model\\repman40\\api\\RCS\\rmtextp.ops 1.2 1998/12/16 14:11:38 cvanes Exp $
rem
Rem  Copyright (c) 1993 by Oracle Corporation
Rem    NAME
Rem      rmotext.pkh - <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  rmotextp as

-- read all the text of a certain type for an element
procedure readall(
  ref in  rm.REFERENCE,     -- id of element
        txt_type IN     VARCHAR2,         -- type of text (eg 'CDIDSC')
  buffer  in out  VARCHAR2,         -- buffer for text to be read into
  buflen  in  INTEGER,          -- maximum length of buffer
  bufret  out INTEGER);         -- number of bytes of text retrieved

-- truncate or delete all the text of a certain type for an element
procedure truncall(
  ref in  rm.REFERENCE,     -- id of element
        txt_type IN     VARCHAR2);        -- type of text (eg 'CDIDSC')

-- writes new text or replaces all existing text of a certain type for
--   an element
procedure writeall(
  ref in  rm.REFERENCE,         -- id of element
  txt_type IN     VARCHAR2,     -- type of text (eg 'CDIDSC')
  element_type_for IN varchar2, -- short name of the owning element type (eg 'COL')
  buffer  in  VARCHAR2,         -- buffer for new text
  buflen  in  INTEGER,          -- length of new text
  bufwrt  out INTEGER);         -- number of bytes written

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