Select Code to Download

 
sub build_sql
{
...
  return $sql_block;
}
$sql = build_sql ( \@layout, \%myfilter );

 $sql = qq { 
set quoted_identifier on use "smdb";
...
"_SMDBA_"."_TELMASTE_".STATUS = 'O'
ORDER BY "Problem #";
};