|
midrange.com
Ok SQLCOD is also related to a message in the QSQLMSG file. If you
lookup SQL0679 (SQL + 4 digit SQLCOD) this is the message:
Message ID . . . . . . . . . : SQL0679
Message file . . . . . . . . : QSQLMSG
Library . . . . . . . . . : QSYS
Message . . . . : Object &1 in &2 type *&3 not created due to pending
operation.
Cause . . . . . : The object &1 has an outstanding DROP or CREATE
under
commitment control which is preventing the create. This could have
occurred
in one of the following ways:
-- This application process has performed a DROP under commitment
control
which has not been committed and is now trying to create the same
object
using commitment control level *NONE.
-- A different application process has performed a DROP under
commitment
control which has not been committed.
-- This application process has performed a DROP under commitment
control
using a different commit definition and the DROP has not been
committed.
-- This application process has performed a CREATE under commitment
control which has not been committed and is now trying to use the
object on
a subsequent CREATE under commitment control level *NONE.
Recovery . . . : Do one of the following and try the request again:
-- If it was your application process which issued the uncommitted
DROP or
CREATE statement then issue a COMMIT before attempting the creation
of the
object or issue the CREATE statement from a program using a
commitment
control level other than *NONE.
-- If the application process that issued the DROP on this object
is not
your application, then that application process must perform a COMMIT
or a
ROLLBACK of the DROP statement.
-- If your application process issued the uncommitted DROP or
CREATE
statement under a different commit definition, issue a COMMIT or
ROLLBACK
for that commit definition.
Which still points to commitment control/journalling. What exactly
happened when you inserted the SQL OPTIONS statement? Did it compile? Or
did it have no affect on the program??
Thanks,
Tommy Holden
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Mike Troxclaire
Sent: Monday, March 27, 2006 11:24 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: RE: Create table not working....
Pros,
Thanks for all the responses. I tried removing the 'AS' and it does not
compile. I can execute it perfectly the way it is as a SQL Script. I
tried
the command in STRSQL going directly to the green screen and it works
just
fine. I tried to display the SQL codes and I am getting 57006 for SQLSTT
and
'679-' for SQLCOD. I tried to insert this block of code but in vain....
C/EXEC SQL
C+ Set Option
C+ Naming = *Sys,
C+ Commit = *None,
C+ UsrPrf = *User,
C+ DynUsrPrf = *User,
C+ Datfmt = *iso,
C+ CloSqlCsr = *EndMod
C/END-EXEC
any other suggestions???
Cheers,
Mike.
>From: rpg400-l-request@xxxxxxxxxxxx
>Reply-To: rpg400-l@xxxxxxxxxxxx
>To: rpg400-l@xxxxxxxxxxxx
>Subject: RPG400-L Digest, Vol 5, Issue 369
>Date: Mon, 27 Mar 2006 11:06:23 -0600
>MIME-Version: 1.0
>Received: from mail.midrange.com ([69.3.23.26]) by
>bay0-mc10-f15.bay0.hotmail.com with Microsoft SMTPSVC(6.0.3790.1830);
Mon,
>27 Mar 2006 09:06:29 -0800
>Received: from rivendell.midrange.com (localhost [127.0.0.1])by
>mail.midrange.com (8.13.6/8.13.6) with ESMTP id k2RH6RxA000822;Mon, 27
Mar
>2006 11:06:27 -0600
>X-Message-Info: vGzX0e+ktu4gX0CywIMLrHkpFA9XZ4cUtDBFLEAIOdw=
>X-BeenThere: rpg400-l@xxxxxxxxxxxx
>X-Mailman-Version: 2.1.7
>Precedence: list
>List-Id: RPG programming on the AS400 / iSeries <rpg400-l.midrange.com>
>List-Unsubscribe:
><http://lists.midrange.com/mailman/listinfo/rpg400-l>,<mailto:rpg400-l-
request@xxxxxxxxxxxx?subject=unsubscribe>
>List-Archive: <http://archive.midrange.com/rpg400-l>
>List-Post: <mailto:rpg400-l@xxxxxxxxxxxx>
>List-Help: <mailto:rpg400-l-request@xxxxxxxxxxxx?subject=help>
>List-Subscribe:
><http://lists.midrange.com/mailman/listinfo/rpg400-l>,<mailto:rpg400-l-
request@xxxxxxxxxxxx?subject=subscribe>
>Errors-To: rpg400-l-bounces@xxxxxxxxxxxx
>Return-Path: rpg400-l-bounces@xxxxxxxxxxxx
>X-OriginalArrivalTime: 27 Mar 2006 17:06:30.0289 (UTC)
>FILETIME=[CAB24810:01C651C0]
>
>Send RPG400-L mailing list submissions to
> rpg400-l@xxxxxxxxxxxx
>
>To subscribe or unsubscribe via the World Wide Web, visit
> http://lists.midrange.com/mailman/listinfo/rpg400-l
>or, via email, send a message with subject or body 'help' to
> rpg400-l-request@xxxxxxxxxxxx
>
>You can reach the person managing the list at
> rpg400-l-owner@xxxxxxxxxxxx
>
>When replying, please edit your Subject line so it is more specific
>than "Re: Contents of RPG400-L digest..."
>
>
>*** NOTE: When replying to this digest message, PLEASE remove all text
>unrelated to your reply and change the subject line so it is
meaningful.
>
>Today's Topics:
>
> 1. RE: GLOBAL TEMPORARY TABLE issues (Wilt, Charles)
> 2. RE: GLOBAL TEMPORARY TABLE issues (Tyler, Matt)
> 3. Create table not working.... (Mike Troxclaire)
> 4. RE: Create table not working.... (Fleming, Greg (ED))
> 5. RE: Create table not working.... (DeLong, Eric)
> 6. Re: Create table not working.... (Michael_Schutte@xxxxxxxxxxxx)
>
>
>----------------------------------------------------------------------
>
>message: 1
>date: Mon, 27 Mar 2006 07:58:06 -0500
>from: "Wilt, Charles" <CWilt@xxxxxxxxxxxx>
>subject: RE: GLOBAL TEMPORARY TABLE issues
>
> > -----Original Message-----
> > From: rpg400-l-bounces@xxxxxxxxxxxx
> > [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Tyler, Matt
> > Sent: Friday, March 24, 2006 11:38 AM
> > To: RPG programming on the AS400 / iSeries
> > Subject: RE: GLOBAL TEMPORARY TABLE issues
><snip>
> >
> > The solution we need must be compatible with our CMS product
> > from Aldon. So, during promotion time the model file object
> > must exist
> > because all promotions to the next environment must be done in
batch.
> > We do not want to build special exit program processing just for
this
> > one instance. We could create the model file using SQL and add it
to
> > Aldon as a non-source based object, but as I said before our current
> > standard is to use DDS only for files.
> >
>
>Matt,
>
>Why would you need to create the object as non-source based in Aldon?
>
>Unless you're on a really old version of Aldon, Aldon supports SQL
>objects, *TABLE, *VIEW, *INDEX, *FUNCTN, *PROC, and *TRIGGER as pseudo
>source objects. You can check them out, edit, create, and promote them
>just like DDS defined *FILEs.
>
>HTH,
>
>Charles
>
>
>
>
>
>------------------------------
>
>message: 2
>date: Mon, 27 Mar 2006 07:48:30 -0700
>from: "Tyler, Matt" <mattt@xxxxxxxxxxxxxx>
>subject: RE: GLOBAL TEMPORARY TABLE issues
>
>Yes I know, but our standards for source limit what type of source is
>used to create objects (for the moment). The only other way to get a
>non-DDS based object into Aldon (for us) is to make it non-source
based.
>
>
>Thanks, Matt
>
>
>-----Original Message-----
>From: rpg400-l-bounces@xxxxxxxxxxxx
>[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Wilt, Charles
>Sent: Monday, March 27, 2006 5:58 AM
>To: RPG programming on the AS400 / iSeries
>Subject: RE: GLOBAL TEMPORARY TABLE issues
>
> > -----Original Message-----
> > From: rpg400-l-bounces@xxxxxxxxxxxx
> > [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Tyler, Matt
> > Sent: Friday, March 24, 2006 11:38 AM
> > To: RPG programming on the AS400 / iSeries
> > Subject: RE: GLOBAL TEMPORARY TABLE issues
><snip>
> >
> > The solution we need must be compatible with our CMS product
> > from Aldon. So, during promotion time the model file object
> > must exist
> > because all promotions to the next environment must be done in
batch.
> > We do not want to build special exit program processing just for
this
> > one instance. We could create the model file using SQL and add it
to
> > Aldon as a non-source based object, but as I said before our current
> > standard is to use DDS only for files.
> >
>
>Matt,
>
>Why would you need to create the object as non-source based in Aldon?
>
>Unless you're on a really old version of Aldon, Aldon supports SQL
>objects, *TABLE, *VIEW, *INDEX, *FUNCTN, *PROC, and *TRIGGER as pseudo
>source objects. You can check them out, edit, create, and promote them
>just like DDS defined *FILEs.
>
>HTH,
>
>Charles
>
>
>
>--
>
>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.
>
>
>
>
>------------------------------
>
>message: 3
>date: Mon, 27 Mar 2006 10:37:23 -0600
>from: "Mike Troxclaire" <mike_troxclaire@xxxxxxxxxxx>
>subject: Create table not working....
>
>Pro's,
>
>I am trying to execute a simple SQL embedded RPG program and it
compiles
>and
>runs fine(It displays the final message 'PHYS FILE CREATED.....' but I
am
>not finding the physical file it is supposed to create. I do not know
what
>I
>am doing wrong. Any help is much appreciated. Please bear with me, I am
>still new to RPG so I might be doing something really wrong. This
code
>executes just fine when I run it as a standalone SQL script. The only
>difference is that library name and file name are separated by a '.'
>instead
>of '/'. Here is the code that I am trying to execute....
>==============================================================
> D EXTERNALDS E DS EXTNAME(MAR_2006)
> C/Exec Sql
> C+ CREATE TABLE TESTING/TTABL AS
> C+ (select CSTEQUIFAX.CSTNUM, CSTMST.CSNAME,
> C+ CSTMST.CSSTCD, CSTMST.CSADD2, CSTMST.CSCTST,
> C+ CSTMST.CSZIPA, CSTMST.CSPHON, CSTMST.CSDELT,
> C+ CSTMST.CSDNB2, CSTMST.CSDTAD, CSTMST.CSDELD,
> C+ CSTMST.CSCRLT, CSTMST.CSHCRD, CSTMST.CSDTMY,
> C+ CSTMST.CSLPYA, CSTMST.CSDTPY, CSTMST.CSTOTB,
> C+ CSTMST.CSBL30, CSTMST.CSBL60, CSTMST.CSBL90,
> C+ CSTMST.CSBL99, CSTMST.CSARTM, ARTERM1.ARTFDS,
> C+ CSTUDD.CSUD40, (CSTMST.CSBLCU+CSTMST.CSBLFU)
> C+ AS TOTAL,
> C+ (CSTMST.CSBL30+CSTMST.CSBL60+CSTMST.CSBL90+
> C+ CSTMST.CSBL99) AS TOTAL_PAST_DUE,CSTMST.CSHIST,
> C+ MAXINVOICE.MAXARINET, MAXINVOICE.ARDATE,
> C+ CSTUDD.CSUD03,CSTSHP.CSHP3, CSTSHP.CSHP6,
> C+ CSTSHP.CSHPZA from ec30data/cstequifax as
> C+ cstequifax left outer join ec30data/cstmst
> C+ as cstmst on cstequifax.cstnum = cstmst.cstnum
> C+ left outer join ec30data/cstudd as cstudd
> C+ on cstequifax.cstnum = cstudd.cstnum left
> C+ outer join ec30data/cstshp as cstshp on
> C+ cstequifax.cstnum = cstshp.cstnum left outer
> C+ join ec30data/maxinvoice as maxinvoice on
> C+ cstequifax.cstnum = maxinvoice.arcnum left
> C+ outer join ec30data/arterm1 as arterm1 on
> C+ cstmst.csartm = arterm1.artftc where
> C+ (cstmst.csctst like '%,%' and cstshp.cshp6
> C+ like '%,%' AND CSTMST.CSARTM NOT LIKE '% %')
> C+ and (CSTMST.CSDELT = '' or CSTMST.CSDELT = 'I'
> C+ or CSTMST.CSDELD > 20051218) GROUP BY
> C+ CSTEQUIFAX.CSTNUM, CSTMST.CSNAME, CSTMST.CSSTCD,
> C+ CSTMST.CSADD2, CSTMST.CSCTST, CSTMST.CSZIPA,
> C+ CSTMST.CSPHON, CSTMST.CSDELT, CSTMST.CSDNB2,
> C+ CSTMST.CSDTAD,CSTMST.CSDELD, CSTMST.CSCRLT,
> C+ CSTMST.CSHCRD, CSTMST.CSDTMY,CSTMST.CSLPYA,
> C+ CSTMST.CSDTPY, CSTMST.CSTOTB, CSTMST.CSBLCU,
> C+ CSTMST.CSBLFU, CSTMST.CSBL30, CSTMST.CSBL60,
> C+ CSTMST.CSBL90,CSTMST.CSBL99, CSTMST.CSHIST,
> C+ MAXINVOICE.MAXARINET, MAXINVOICE.ARDATE,
> C+ CSTUDD.CSUD03, CSTUDD.CSUD40, CSTSHP.CSHP3,
> C+ CSTSHP.CSHP6, CSTSHP.CSHPZA, ARTERM1.ARTFDS,
> C+ CSTMST.CSARTM) WITH DATA
> C/End-Exec
> /free
> dsply 'PHYS FILE CREATED, END OF PROGRAM';
> *inlr = *on;
> /end-free
>============================================================
>
>Cheers,
>
>Mike.
>
>_________________________________________________________________
>Express yourself instantly with MSN Messenger! Download today - it's
FREE!
>http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/
>
>
>
>------------------------------
>
>message: 4
>date: Mon, 27 Mar 2006 11:59:27 -0500
>from: "Fleming, Greg \(ED\)" <GFLEMING@xxxxxxxxxxxxxxxxxxxx>
>subject: RE: Create table not working....
>
>Mike,
>
>That code will display your message whether the SQL succeeds or fails.
>You can examine the SQL return codes in the SQLCOD and SQLSTT fields of
>the SQLCA data structure, and condition your display accordingly.
>
>Being somewhat new to embedded SQL myself, I don't see anything wrong
>right off the bat, but if you put the program in debug and put the
break
>on your display message, you can examine the aforementioned codes and
>see what you get.
>
>Follow the "SQL Messages and Codes" link from the following page to
>decipher their meaning:
>
>http://publib.boulder.ibm.com/infocenter/iseries/v5r3/index.jsp?topic=/
d
>b2/rbafzmstcksql.htm
>
>
>
>|-----Original Message-----
>|From: rpg400-l-bounces@xxxxxxxxxxxx
>[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
>|On Behalf Of Mike Troxclaire
>|Sent: Monday, March 27, 2006 11:37 AM
>|To: rpg400-l@xxxxxxxxxxxx
>|Subject: Create table not working....
>|
>|Pro's,
>|
>|I am trying to execute a simple SQL embedded RPG program and it
>compiles
>|and
>|runs fine(It displays the final message 'PHYS FILE CREATED.....' but
I
>am
>|not finding the physical file it is supposed to create. I do not know
>what
>|I
>|am doing wrong. Any help is much appreciated. Please bear with me, I
am
>|still new to RPG so I might be doing something really wrong. This
>code
>|executes just fine when I run it as a standalone SQL script. The only
>|difference is that library name and file name are separated by a '.'
>|instead
>|of '/'. Here is the code that I am trying to execute....
>|==============================================================
>| D EXTERNALDS E DS EXTNAME(MAR_2006)
>| C/Exec Sql
>| C+ CREATE TABLE TESTING/TTABL AS
>| C+ (select CSTEQUIFAX.CSTNUM, CSTMST.CSNAME,
>| C+ CSTMST.CSSTCD, CSTMST.CSADD2, CSTMST.CSCTST,
>| C+ CSTMST.CSZIPA, CSTMST.CSPHON, CSTMST.CSDELT,
>| C+ CSTMST.CSDNB2, CSTMST.CSDTAD, CSTMST.CSDELD,
>| C+ CSTMST.CSCRLT, CSTMST.CSHCRD, CSTMST.CSDTMY,
>| C+ CSTMST.CSLPYA, CSTMST.CSDTPY, CSTMST.CSTOTB,
>| C+ CSTMST.CSBL30, CSTMST.CSBL60, CSTMST.CSBL90,
>| C+ CSTMST.CSBL99, CSTMST.CSARTM, ARTERM1.ARTFDS,
>| C+ CSTUDD.CSUD40, (CSTMST.CSBLCU+CSTMST.CSBLFU)
>| C+ AS TOTAL,
>| C+ (CSTMST.CSBL30+CSTMST.CSBL60+CSTMST.CSBL90+
>| C+ CSTMST.CSBL99) AS TOTAL_PAST_DUE,CSTMST.CSHIST,
>| C+ MAXINVOICE.MAXARINET, MAXINVOICE.ARDATE,
>| C+ CSTUDD.CSUD03,CSTSHP.CSHP3, CSTSHP.CSHP6,
>| C+ CSTSHP.CSHPZA from ec30data/cstequifax as
>| C+ cstequifax left outer join ec30data/cstmst
>| C+ as cstmst on cstequifax.cstnum = cstmst.cstnum
>| C+ left outer join ec30data/cstudd as cstudd
>| C+ on cstequifax.cstnum = cstudd.cstnum left
>| C+ outer join ec30data/cstshp as cstshp on
>| C+ cstequifax.cstnum = cstshp.cstnum left outer
>| C+ join ec30data/maxinvoice as maxinvoice on
>| C+ cstequifax.cstnum = maxinvoice.arcnum left
>| C+ outer join ec30data/arterm1 as arterm1 on
>| C+ cstmst.csartm = arterm1.artftc where
>| C+ (cstmst.csctst like '%,%' and cstshp.cshp6
>| C+ like '%,%' AND CSTMST.CSARTM NOT LIKE '% %')
>| C+ and (CSTMST.CSDELT = '' or CSTMST.CSDELT = 'I'
>| C+ or CSTMST.CSDELD > 20051218) GROUP BY
>| C+ CSTEQUIFAX.CSTNUM, CSTMST.CSNAME, CSTMST.CSSTCD,
>| C+ CSTMST.CSADD2, CSTMST.CSCTST, CSTMST.CSZIPA,
>| C+ CSTMST.CSPHON, CSTMST.CSDELT, CSTMST.CSDNB2,
>| C+ CSTMST.CSDTAD,CSTMST.CSDELD, CSTMST.CSCRLT,
>| C+ CSTMST.CSHCRD, CSTMST.CSDTMY,CSTMST.CSLPYA,
>| C+ CSTMST.CSDTPY, CSTMST.CSTOTB, CSTMST.CSBLCU,
>| C+ CSTMST.CSBLFU, CSTMST.CSBL30, CSTMST.CSBL60,
>| C+ CSTMST.CSBL90,CSTMST.CSBL99, CSTMST.CSHIST,
>| C+ MAXINVOICE.MAXARINET, MAXINVOICE.ARDATE,
>| C+ CSTUDD.CSUD03, CSTUDD.CSUD40, CSTSHP.CSHP3,
>| C+ CSTSHP.CSHP6, CSTSHP.CSHPZA, ARTERM1.ARTFDS,
>| C+ CSTMST.CSARTM) WITH DATA
>| C/End-Exec
>| /free
>| dsply 'PHYS FILE CREATED, END OF PROGRAM';
>| *inlr = *on;
>| /end-free
>|============================================================
>|
>|Cheers,
>|
>|Mike.
>|
>|_________________________________________________________________
>|Express yourself instantly with MSN Messenger! Download today - it's
>FREE!
>|http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/
>|
>|--
>|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.
>
>
>
>
>------------------------------
>
>message: 5
>date: Mon, 27 Mar 2006 11:05:01 -0600
>from: "DeLong, Eric" <EDeLong@xxxxxxxxxxxxxxx>
>subject: RE: Create table not working....
>
>Not sure..... One of the most common of mistakes when starting with
>embedded SQL is making sure to specify the correct level of commitment
>control. Most developers do not journal in their test libraries, so
>commitment control should be set to *NONE on either the compile command
or
>in an SQL options block in the source member.
>
>Could this be your problem?
>
>Eric DeLong
>Sally Beauty Company
>MIS-Project Manager (BSG)
>940-297-2863 or ext. 1863
>
>
>
>-----Original Message-----
>From: rpg400-l-bounces@xxxxxxxxxxxx
>[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Mike Troxclaire
>Sent: Monday, March 27, 2006 10:37 AM
>To: rpg400-l@xxxxxxxxxxxx
>Subject: Create table not working....
>
>
>Pro's,
>
>I am trying to execute a simple SQL embedded RPG program and it
compiles
>and
>
>runs fine(It displays the final message 'PHYS FILE CREATED.....' but I
am
>not finding the physical file it is supposed to create. I do not know
what
>I
>
>am doing wrong. Any help is much appreciated. Please bear with me, I am
>still new to RPG so I might be doing something really wrong. This
code
>executes just fine when I run it as a standalone SQL script. The only
>difference is that library name and file name are separated by a '.'
>instead
>
>of '/'. Here is the code that I am trying to execute....
>==============================================================
> D EXTERNALDS E DS EXTNAME(MAR_2006)
> C/Exec Sql
> C+ CREATE TABLE TESTING/TTABL AS
> C+ (select CSTEQUIFAX.CSTNUM, CSTMST.CSNAME,
> C+ CSTMST.CSSTCD, CSTMST.CSADD2, CSTMST.CSCTST,
> C+ CSTMST.CSZIPA, CSTMST.CSPHON, CSTMST.CSDELT,
> C+ CSTMST.CSDNB2, CSTMST.CSDTAD, CSTMST.CSDELD,
> C+ CSTMST.CSCRLT, CSTMST.CSHCRD, CSTMST.CSDTMY,
> C+ CSTMST.CSLPYA, CSTMST.CSDTPY, CSTMST.CSTOTB,
> C+ CSTMST.CSBL30, CSTMST.CSBL60, CSTMST.CSBL90,
> C+ CSTMST.CSBL99, CSTMST.CSARTM, ARTERM1.ARTFDS,
> C+ CSTUDD.CSUD40, (CSTMST.CSBLCU+CSTMST.CSBLFU)
> C+ AS TOTAL,
> C+ (CSTMST.CSBL30+CSTMST.CSBL60+CSTMST.CSBL90+
> C+ CSTMST.CSBL99) AS TOTAL_PAST_DUE,CSTMST.CSHIST,
> C+ MAXINVOICE.MAXARINET, MAXINVOICE.ARDATE,
> C+ CSTUDD.CSUD03,CSTSHP.CSHP3, CSTSHP.CSHP6,
> C+ CSTSHP.CSHPZA from ec30data/cstequifax as
> C+ cstequifax left outer join ec30data/cstmst
> C+ as cstmst on cstequifax.cstnum = cstmst.cstnum
> C+ left outer join ec30data/cstudd as cstudd
> C+ on cstequifax.cstnum = cstudd.cstnum left
> C+ outer join ec30data/cstshp as cstshp on
> C+ cstequifax.cstnum = cstshp.cstnum left outer
> C+ join ec30data/maxinvoice as maxinvoice on
> C+ cstequifax.cstnum = maxinvoice.arcnum left
> C+ outer join ec30data/arterm1 as arterm1 on
> C+ cstmst.csartm = arterm1.artftc where
> C+ (cstmst.csctst like '%,%' and cstshp.cshp6
> C+ like '%,%' AND CSTMST.CSARTM NOT LIKE '% %')
> C+ and (CSTMST.CSDELT = '' or CSTMST.CSDELT = 'I'
> C+ or CSTMST.CSDELD > 20051218) GROUP BY
> C+ CSTEQUIFAX.CSTNUM, CSTMST.CSNAME, CSTMST.CSSTCD,
> C+ CSTMST.CSADD2, CSTMST.CSCTST, CSTMST.CSZIPA,
> C+ CSTMST.CSPHON, CSTMST.CSDELT, CSTMST.CSDNB2,
> C+ CSTMST.CSDTAD,CSTMST.CSDELD, CSTMST.CSCRLT,
> C+ CSTMST.CSHCRD, CSTMST.CSDTMY,CSTMST.CSLPYA,
> C+ CSTMST.CSDTPY, CSTMST.CSTOTB, CSTMST.CSBLCU,
> C+ CSTMST.CSBLFU, CSTMST.CSBL30, CSTMST.CSBL60,
> C+ CSTMST.CSBL90,CSTMST.CSBL99, CSTMST.CSHIST,
> C+ MAXINVOICE.MAXARINET, MAXINVOICE.ARDATE,
> C+ CSTUDD.CSUD03, CSTUDD.CSUD40, CSTSHP.CSHP3,
> C+ CSTSHP.CSHP6, CSTSHP.CSHPZA, ARTERM1.ARTFDS,
> C+ CSTMST.CSARTM) WITH DATA
> C/End-Exec
> /free
> dsply 'PHYS FILE CREATED, END OF PROGRAM';
> *inlr = *on;
> /end-free
>============================================================
>
>Cheers,
>
>Mike.
>
>_________________________________________________________________
>Express yourself instantly with MSN Messenger! Download today - it's
FREE!
>http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/
>
>--
>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.
>
>
>
>
>------------------------------
>
>message: 6
>date: Mon, 27 Mar 2006 12:06:12 -0500
>from: Michael_Schutte@xxxxxxxxxxxx
>subject: Re: Create table not working....
>
>Mike,
>
>Have you tried doing this command in STRSQL?
>
>Michael Schutte
>Work 614-492-7419
>email michael_schutte@xxxxxxxxxxxx
>
>
>
> "Mike Troxclaire"
> <mike_troxclaire@
> hotmail.com>
To
> Sent by: rpg400-l@xxxxxxxxxxxx
> rpg400-l-bounces@
cc
> midrange.com
>
Subject
> Create table not working....
> 03/27/2006 11:37
> AM
>
>
> Please respond to
> RPG programming
> on the AS400 /
> iSeries
> <rpg400-l@midrang
> e.com>
>
>
>
>
>
>
>Pro's,
>
>I am trying to execute a simple SQL embedded RPG program and it
compiles
>and
>runs fine(It displays the final message 'PHYS FILE CREATED.....' but I
am
>not finding the physical file it is supposed to create. I do not know
what
>I
>am doing wrong. Any help is much appreciated. Please bear with me, I am
>still new to RPG so I might be doing something really wrong. This
code
>
>executes just fine when I run it as a standalone SQL script. The only
>difference is that library name and file name are separated by a '.'
>instead
>of '/'. Here is the code that I am trying to execute....
>==============================================================
> D EXTERNALDS E DS EXTNAME(MAR_2006)
> C/Exec Sql
> C+ CREATE TABLE TESTING/TTABL AS
> C+ (select CSTEQUIFAX.CSTNUM, CSTMST.CSNAME,
> C+ CSTMST.CSSTCD, CSTMST.CSADD2, CSTMST.CSCTST,
> C+ CSTMST.CSZIPA, CSTMST.CSPHON, CSTMST.CSDELT,
> C+ CSTMST.CSDNB2, CSTMST.CSDTAD, CSTMST.CSDELD,
> C+ CSTMST.CSCRLT, CSTMST.CSHCRD, CSTMST.CSDTMY,
> C+ CSTMST.CSLPYA, CSTMST.CSDTPY, CSTMST.CSTOTB,
> C+ CSTMST.CSBL30, CSTMST.CSBL60, CSTMST.CSBL90,
> C+ CSTMST.CSBL99, CSTMST.CSARTM, ARTERM1.ARTFDS,
> C+ CSTUDD.CSUD40, (CSTMST.CSBLCU+CSTMST.CSBLFU)
> C+ AS TOTAL,
> C+ (CSTMST.CSBL30+CSTMST.CSBL60+CSTMST.CSBL90+
> C+ CSTMST.CSBL99) AS TOTAL_PAST_DUE,CSTMST.CSHIST,
> C+ MAXINVOICE.MAXARINET, MAXINVOICE.ARDATE,
> C+ CSTUDD.CSUD03,CSTSHP.CSHP3, CSTSHP.CSHP6,
> C+ CSTSHP.CSHPZA from ec30data/cstequifax as
> C+ cstequifax left outer join ec30data/cstmst
> C+ as cstmst on cstequifax.cstnum = cstmst.cstnum
> C+ left outer join ec30data/cstudd as cstudd
> C+ on cstequifax.cstnum = cstudd.cstnum left
> C+ outer join ec30data/cstshp as cstshp on
> C+ cstequifax.cstnum = cstshp.cstnum left outer
> C+ join ec30data/maxinvoice as maxinvoice on
> C+ cstequifax.cstnum = maxinvoice.arcnum left
> C+ outer join ec30data/arterm1 as arterm1 on
> C+ cstmst.csartm = arterm1.artftc where
> C+ (cstmst.csctst like '%,%' and cstshp.cshp6
> C+ like '%,%' AND CSTMST.CSARTM NOT LIKE '% %')
> C+ and (CSTMST.CSDELT = '' or CSTMST.CSDELT = 'I'
> C+ or CSTMST.CSDELD > 20051218) GROUP BY
> C+ CSTEQUIFAX.CSTNUM, CSTMST.CSNAME, CSTMST.CSSTCD,
> C+ CSTMST.CSADD2, CSTMST.CSCTST, CSTMST.CSZIPA,
> C+ CSTMST.CSPHON, CSTMST.CSDELT, CSTMST.CSDNB2,
> C+ CSTMST.CSDTAD,CSTMST.CSDELD, CSTMST.CSCRLT,
> C+ CSTMST.CSHCRD, CSTMST.CSDTMY,CSTMST.CSLPYA,
> C+ CSTMST.CSDTPY, CSTMST.CSTOTB, CSTMST.CSBLCU,
> C+ CSTMST.CSBLFU, CSTMST.CSBL30, CSTMST.CSBL60,
> C+ CSTMST.CSBL90,CSTMST.CSBL99, CSTMST.CSHIST,
> C+ MAXINVOICE.MAXARINET, MAXINVOICE.ARDATE,
> C+ CSTUDD.CSUD03, CSTUDD.CSUD40, CSTSHP.CSHP3,
> C+ CSTSHP.CSHP6, CSTSHP.CSHPZA, ARTERM1.ARTFDS,
> C+ CSTMST.CSARTM) WITH DATA
> C/End-Exec
> /free
> dsply 'PHYS FILE CREATED, END OF PROGRAM';
> *inlr = *on;
> /end-free
>============================================================
>
>Cheers,
>
>Mike.
>
>_________________________________________________________________
>Express yourself instantly with MSN Messenger! Download today - it's
FREE!
>http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/
>
>--
>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.
>
>
>
>
>
>------------------------------
>
>--
>This is the RPG programming on the AS400 / iSeries (RPG400-L) digest
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.
>
>
>
>End of RPG400-L Digest, Vol 5, Issue 369
>****************************************
_________________________________________________________________
Don't just search. Find. Check out the new MSN Search!
http://search.msn.click-url.com/go/onm00200636ave/direct/01/
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.
