Re: easier SQL statements in CL

On 11 May 2012 12:01, Stone, Joel wrote:

There MUST be a better method of coding SQL in a CL source member.

Here is what an SQL stmt might look like that I created today:

PGM
DCL &SQLCMD type(*CHAR) len(1000)
chgvar &sqlCmd ('create table qtemp/sqltemp1' +
*tcat ' (fld1 char(1),' +
*tcat ' fld2 char(1),' +
*tcat ' fld3 char(1),' +
*tcat ' clientN numeric(6,0))')

RUNSQL(&sqlCmd)

<<SNIP>>

What is with all the *TCAT and extra apostrophes? Just use standard line continuation to allow the literal\constant string to span lines:

chgvar &sqlCmd ( +
'create table qtemp/sqltemp1 +
(fld1 char(1) +
,fld2 char(1) +
,fld3 char(1) +
,clientN numeric(6,0))' )

Or move the line continuation characters way to the right, optionally adding blank lines:

chgvar &sqlCmd (' +
+
create table qtemp/sqltemp1 +
(fld1 char(1) +
,fld2 char(1) +
,fld3 char(1) +
,clientN numeric(6,0)) +
+
' )

Regards, Chuck