创建临时blob以进行调试

Question

我正在尝试调试我创建的与blob一起使用的函数，但是我被抓住了因为我的blob的长度仍为0.这是我的代码：

DECLARE 

 PUSER VARCHAR2(10);
 PDOC BLOB;
 rawbuf RAW(10);
 an_offset   INTEGER;
 an_amount   BINARY_INTEGER;

BEGIN 
 PUSER := '1234';
 rawbuf := '1234567890123456789';
 an_offset  := 1;
 an_amount  := 10;
 -- ---------------------
 -- CREATE TEMPORARY BLOB
 -- ---------------------
 DBMS_LOB.CREATETEMPORARY(PDOC , true);  
 DBMS_LOB.OPEN(PDOC , DBMS_LOB.LOB_READWRITE);
 DBMS_LOB.WRITE(PDOC , an_amount, an_offset, rawbuf);
 DBMS_LOB.CLOSE (PDOC );
 DBMS_LOB.FREETEMPORARY(PDOC );

RetVal := test.my_function ( PUSER, PDOC );
COMMIT; 
END;

有没有人对调试时如何创建blob有任何见解？提前谢谢。