Re: Checking for existence of a global temporary table...

[rob@xxxxxxxxx]

Try to manipulate the file with SQL and check the sql state for the file 
isn't there.
Or, call the qusrobjd api to check for existence.
http://publib.boulder.ibm.com/infocenter/iseries/v5r3/ic2924/info/apis/qusrobjd.htm

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Dane Cox" <DCox@xxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces+rob=dekko.com@xxxxxxxxxxxx
09/22/2004 03:52 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Fax to

Subject
Checking for existence of a global temporary table...






I have an SQLRPGLE program that does the following...
 
C/exec sql 
C+ declare global temporary table mstable 
C+ (mspgnm char(10), 
C+  mscode dec(7,0), 
C+  mssevr char(10), 
C+  mstype char(10), 
C+  msdesc char(80), 
C+  msovrd char(1)) 
C/end-exec 
 
I would like to be able to check to see if this table already exists in
QTEMP before attempting to create it again...using RPG or embedded SQL
in RPG.
 
Any thoughts?
 
Thanks,
Dane
 



NOTICE: This electronic mail message and any files transmitted with it are 
intended exclusively for the individual or entity to which it is 
addressed. The message, together with any attachment, may contain 
confidential and/or privileged information. Any unauthorized review, use, 
printing, saving, copying, disclosure or distribution is strictly 
prohibited. If you have received this message in error, please immediately 
advise the sender by reply email and delete all copies.



--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.