create procedure pivot_str(
  sel varchar( 4000 )
, grp_cols varchar( 128 )
, fact_col varchar( 128 )
, out rc int
, out msg varchar( 4000 )
, out stmt varchar( 4000 ))
begin
  declare sqlcode int;
  declare dist_val varchar( 128 );
  declare c1 cursor for s1;
  declare c2 cursor with return for s2;

  declare exit handler for sqlexception
  begin
    get diagnostics exception  1  msg = message_text;
    set rc = sqlcode;
  end;
  
  set rc =  0 ;
  set stmt = 'declare global temporary table session.$tmp as ('||sel||') definition only with replace not logged';
  execute immediate stmt;
  set stmt=
    'select distinct '||fact_col||' '
  ||'from new table(insert into session.$tmp '||sel||')';
  prepare s1 from stmt;
  set stmt='select '||grp_cols;
  open c1;
  fetch c1 into dist_val;
  while (sqlcode!= 100 ) do
    set stmt = stmt||', sum(case '||fact_col||' when '''||dist_val||''' then 1 else 0 end) as "'||dist_val||'"';
    fetch c1 into dist_val;
  end while;
  close c1;
  set stmt = stmt||' from session.$tmp group by '||grp_cols;
  prepare s2 from stmt;
  open c2;
end@

call pivot_str('select tabname, typename from syscat.columns where tabschema=''SYSCAT'' and tabname like ''TAB%''', 'tabname', 'typename', ?, ?, ?)@