RE: SQL Issue in CL Pgm

["John Arnold (MFS)" <jarnold@xxxxxxxxxxxxxxxxxxxxxxxxxx>]

Try this

PGM        PARM(&PPDATE)

DCL        VAR(&PPDATE) TYPE(*CHAR) LEN(04)
DCL        VAR(&APOS) TYPE(*CHAR) LEN(01)
CHGVAR     VAR(&APOS) VALUE('''')  

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


John Arnold
(301) 354-2939

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of
lgoodbar@xxxxxxxxxxxxxx
Sent: Friday, March 06, 2009 8:24 AM
To: midrange-l@xxxxxxxxxxxx
Subject: 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!