RE: SQL Issue in CL Pgm

If MYDATE is character (as it appears in your example), you must put in
the quote marks just as you did manually. CL does not add quote marks to
character fields when concatenating strings.

STRQSH CMD('DB2 "UPDATE MYFILE SET +
MYDATE = "' *CAT &PPDATE *TCAT '" WHERE MYDATE = '' '' "')

HTH,
Loyd


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of VP
Sent: Thursday, March 05, 2009 5:18 PM
To: midrange-l@xxxxxxxxxxxx
Subject: Fwd: SQL Issue in CL Pgm

---------- Forwarded message ----------
From: VP <vlittlepp@xxxxxxxxx>
Date: Thu, Mar 5, 2009 at 4:41 PM
Subject: SQL Issue in CL Pgm
To: rpg400-l@xxxxxxxxxxxx


Hi

Would anyone help me on how to pass a *variable *in *Set* when I try to
do *SQL
Update* in a CL program, the detailed as:

I need to set the date in myfile, when I did the following it works
fine:

STRQSH CMD('DB2 "UPDATE MYFILE SET +
MYDATE = "0305" WHERE MYDATE = '' '' "')

But IF the Date is the input parameter of this CL program, it will NOT
update:

PGM PARM(&PPDATE)

DCL VAR(&PPDATE) TYPE(*CHAR) LEN(04)

STRQSH CMD('DB2 "UPDATE MYFILE SET +
MYDATE = *CAT &PPDATE *CAT WHERE MYDATE = '' '' "')

Would anybody helps... thanks a lot!