CASE var:
WHEN 'whatever' THEN
DO:
/* procedure block here */
/* select * from openquery(sosprogress, 'SELECT cl-code, a-name, a-full-address, IsNull(Contact1, Contact2) FROM clidb')*/
END.
WHEN 'whatever' THEN
DO:
/* procedure block here */
/* select * from openquery(sosprogress, 'SELECT...