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

##</code><code>##

 $sql = qq { 
set quoted_identifier on use "smdb";
set TRANSACTION ISOLATION LEVEL READ UNCOMMITTED;
SELECT "_SMDBA_"."_TELMASTE_".SEQUENCE AS "Problem #",
"_SMDBA_"."_CUSTOMER_".FNAME + ' ' + "_SMDBA_"."_CUSTOMER_".NAME AS "Name",
"_SMDBA_"."_CUSTOMER_".EXT AS "Cl. Ext",
"_SMDBA_"."_TELMASTE_"."DESCRIPTION" AS "Problem Description",
"_SMDBA_"."_TELMASTE_"."DATE OPEN" AS "Opened",
"_SMDBA_"."_PERSONNEL_".CODE AS "Assigned To"
FROM "_SMDBA_"."_CUSTOMER_","_SMDBA_"."_TELMASTE_","_SMDBA_"."_PERSONNEL_"
WHERE "_SMDBA_"."_TELMASTE_"."SENT TO" = "_SMDBA_"."_PERSONNEL_".SEQUENCE AND 
"_SMDBA_"."_TELMASTE_".CLIENT = "_SMDBA_"."_CUSTOMER_".SEQUENCE AND 
"_SMDBA_"."_PERSONNEL_".CODE LIKE 'MUSER' AND 
"_SMDBA_"."_TELMASTE_".STATUS = 'O'
ORDER BY "Problem #";
};