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

    plpdf_barcode.pdf417(
     p_x => 20,
     p_y => 100,
     p_code => 'PL/PDF is a PL/SQL based PDF document generator from Oracle databases.',
     p_basewidth => 1,
     p_height => 5,
     p_secu => 0,
     p_nbcol => 3
     );
   
    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;
/