CREATE OR REPLACE PROCEDURE Test_barcode_EAN13 IS
  l_blob BLOB;
 BEGIN
    Plpdf.init;
    Plpdf.NewPage;
    Plpdf.SetPrintFont('Arial',NULL,10);

    plpdf_barcode.EAN13(
    20, -- p_x number, 
    30, -- p_y number, 
    '123456789012', -- p_code varchar2, 
    1, -- p_basewidth number, 
    10, -- p_height number, 
    3 -- p_gap number default 0
    );
   
    Plpdf.SendDoc(l_blob);

  -- print
	/*
	owa_util.mime_header('application/pdf',false);
        htp.p('Content-Length: ' || dbms_lob.getlength(l_blob)); 
        owa_util.http_header_close; 	
        wpg_docload.download_file(l_blob);
  */
    
  -- store  
  INSERT INTO STORE_BLOB (blob_file, created_date) VALUES (l_blob, SYSDATE);
	COMMIT;
 END;
/