创建用于调试目的的临时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有任何见识吗？ 提前致谢。