RE: SQL prepared statement

Thanks for your reply Charles
A parameter marker had initially been used, but that resulted in the
run-time error
SQL0418
Use of parameter marker not valid

I'll have the guy try second suggestion



Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx
"If you're going through Hell, keep going" - Winston Churchill

midrange-l-bounces@xxxxxxxxxxxx wrote on 12/14/2007 12:00:53 PM:

Alan,

Don't understand what you are trying to do. But you can't use
program variable in any prepared
statements.

You use program variables only in Static SQL statements and
parameter markers in prepared statements.
You can't mix and match.

Can't you just use another parameter marker?
Stmt = 'Insert into FILEA SELECT X.*,? from FILEB X
+ 'where X.Field1 = ? and X.Field2 = ? and X.Field3 = ?'

If not then you'll have to prepare this statement each time
progfield changes (assuming progfield is
alpha):
Stmt = 'Insert into FILEA SELECT X.*, ' + QUOTE + progfield + QUOTE
+ ' from FILEB X '
+ 'where X.Field1 = ? and X.Field2 = ? and X.Field3 = ?'

Where QUOTE is a const defined like so:
D QUOTE c ''''

HTH,
Charles

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-
bounces@xxxxxxxxxxxx] On Behalf Of Alan Shore
Sent: Friday, December 14, 2007 11:40 AM
To: Midrange Systems Technical Discussion
Subject: SQL prepared statement

Hi guys
I have a question with embedded SQL that my instinct says is not

possible,

but I will go ahead and ask anyway
I have 2 files that are almost identical in their record formats
FILEA consists of the fields
Field1
Field2
Field3
Field4

FILEB consists of the fields
Field1
Field2
Field3

The difference is that FILEB does not have Field4

Using embedded SQL, can I create a prepared statement something like

the

following

INSERT INTO FILEA X.*, :progfield from FILEB X
WHERE X.Field1 = ? and X.Field2 = ? and X.Field3 = ?

where progfield is a program defined variable.

Thanks in advance



Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx
"If you're going through Hell, keep going" - Winston Churchill
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

This e-mail transmission contains information that is intended to be
confidential and privileged. If you receive this e-mail and you are
not a named addressee you are hereby notified that you are not
authorized to read, print, retain, copy or disseminate this
communication without the consent of the sender and that doing so is
prohibited and may be unlawful. Please reply to the message
immediately by informing the sender that the message was
misdirected. After replying, please delete and otherwise erase it
and any attachments from your computer system. Your assistance in
correcting this error is appreciated.

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing

list

To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.