create procedure get_temp_tab_list(tmptab varchar( 128 ))
dynamic result sets  1 
begin
  declare err_flag int;
  declare stmt varchar( 4000 );
  declare c1 cursor for s1;
  declare cout cursor with return for sout;
  declare continue handler for sqlstate '56098', sqlstate '42704'
  begin
    set err_flag =  1 ;
  end;
  set tmptab = 'session.'||coalesce(upper(nullif(tmptab, '')), 'GET_TEMP_TAB_LIST');
  -- declare GTT for result set
  set stmt = 'declare global temporary table '||tmptab||'(tabname varchar(128)) with replace not logged';
  execute immediate stmt;
  -- prepare insert into DGTT
  set stmt = 'insert into '||tmptab||' values (?)';
  prepare sins from stmt;
  -- loop through list of tables
  for v as 
    select distinct tabschema, tabname
    from sysibmadm.snaptab
    where tab_type='TEMP_TABLE'
  do
    set err_flag =  0 ;
    -- test for existence
    set stmt = 'select 1 from '||rtrim(v.tabschema)||'.'||v.tabname||' fetch first 1 row only';
    prepare s1 from stmt;
    open c1;
    if err_flag =  0  then
      -- table exists
      execute sins using v.tabname;
      close c1;
    end if;
  end for;
  -- get result set
  set stmt = 'select * from '||tmptab;
  prepare sout from stmt;
  open cout;
end@