Is there a better way to run SQL in a CL pgm?

To do this in CL gets a bit messy with the single-quotes, 2x single quotes, etc.

I am using the RJS software command DOCSQL.

Does IBM provide an SQL interface for running in directly in CL similar to what is shown below?

(without storing commands in a source file member?)

Any idea why they dont?

Is there a better way to do this in CL?

Thanks again!

chgvar &sqlCmd ('select client_n,' +
*tcat 'max(case when client_act = ''S'' then ''S'' else '' '' end) ' +
*tcat ' as Settlement_Act,' +
*tcat 'max(case when client_act = ''M'' then ''M'' else '' '' end) ' +
*tcat ' as Memo_Act,' +
*tcat 'max(case when client_act = ''C'' then ''C'' else '' '' end) ' +
*tcat ' as Contract_Act' +
*tcat ' from clientact group by client_n order by client_n')

RJSIMAGE/DOCSQL SQLSTM(&SQLCMD) OUTPUT(*OUTFILE) +
SRCF(QTEMP/SQLOUTFILE)


______________________________________________________________________
This outbound email has been scanned for all viruses by the MessageLabs Skyscan service.
For more information please visit http://www.symanteccloud.com
______________________________________________________________________