RE: SQL Issue in CL Pgm -- RPG400-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

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 = '' '' "')

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

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!

J

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.