CREATE OR REPLACE FUNCTION zoo.addr_add_list (amid INTEGER, astr IN CLOB)
   RETURN INTEGER
IS
   mres                       INTEGER;
   mid                        INTEGER;
   mclobpointer               CLOB := EMPTY_CLOB;
BEGIN
  ...................
   RETURN mres;
END;

  $mSQL = "
DECLARE
  mres INTEGER;
  mstr CLOB := EMPTY_CLOB();
BEGIN
  DBMS_LOB.CREATETEMPORARY(mstr, true);
  DBMS_LOB.OPEN(mstr, DBMS_LOB.LOB_READWRITE);
  DBMS_LOB.write(mstr, $mlen, 1, :liststr);

  mres := zoo.addr_add_list($mmid, mstr);

  DBMS_LOB.FREETEMPORARY(mstr);

  COMMIT;
END;
";

  $stmt = oci_parse($conn, $mSQL);
 
  $mclob = oci_new_descriptor($conn, OCI_D_LOB);
  oci_bind_by_name($stmt, ':liststr', $mclob, -1, OCI_B_CLOB);

  $mclob->writetemporary($maddrlist);

  oci_execute($stmt, OCI_DEFAULT);

DECLARE
   mres               INTEGER;
   mstr               CLOB := EMPTY_CLOB ();
BEGIN
   DBMS_LOB.createtemporary (mstr, TRUE);
   DBMS_LOB.open (mstr, DBMS_LOB.lob_readwrite);
   DBMS_LOB.write (mstr,
                   DBMS_LOB.getlength (:liststr),
                   1,
                   :liststr);
   mres := zoo.addr_add_list (-222, mstr);
   DBMS_LOB.freetemporary (mstr);
   COMMIT;
END;

DECLARE
  mres INTEGER;
  mstr CLOB := EMPTY_CLOB();
  mlen integer;
BEGIN
  mres := zoo.addr_add_list($mmid, :liststr);

  COMMIT;
END;