-- Copyright 2018 Tanel Poder. All rights reserved. More info at http://tanelpoder.com
-- Licensed under the Apache License, Version 2.0. See LICENSE.txt for terms & conditions.

col kglob_addrlen new_value kglob_addrlen

set termout off
select vsize(addr)*2 kglob_addrlen from x$dual;
set termout on

var printtab2_cursor varchar2(4000)

exec :printtab2_cursor:='select * from x$kglob where kglhdadr = hextoraw(upper(lpad(''&1'',&kglob_addrlen,''0'')))'

@@printtab2