Good News Everybody!
A new search engine is coming soon.
As a stop gap measure, we are using Google's custom search engine service.
|
Mike, if you never logged off, then logged on again, then these transactions are still pending. You need to get a clear slate before you try again. 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 11:50 AM To: rpg400-l@xxxxxxxxxxxx Subject: RE: Create table not working.... Tommy, When I included the SQL OPTIONS, the program compiled just fine but like before the file/table was not created.... Regards, Mike. >From: rpg400-l-request@xxxxxxxxxxxx >Reply-To: rpg400-l@xxxxxxxxxxxx >To: rpg400-l@xxxxxxxxxxxx >Subject: RPG400-L Digest, Vol 5, Issue 370 >Date: Mon, 27 Mar 2006 11:26:38 -0600 >MIME-Version: 1.0 >Received: from mail.midrange.com ([69.3.23.26]) by >bay0-mc3-f13.bay0.hotmail.com with Microsoft SMTPSVC(6.0.3790.1830); Mon, >27 Mar 2006 09:26:50 -0800 >Received: from rivendell.midrange.com (localhost [127.0.0.1])by >mail.midrange.com (8.13.6/8.13.6) with ESMTP id k2RHQhJa002983;Mon, 27 Mar >2006 11:26:43 -0600 >X-Message-Info: vGzX0e+ktu7rFQVzLPIlLZA1uzrhcTpMr2tZXHh9cyM= >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-requ est@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-requ est@xxxxxxxxxxxx?subject=subscribe> >Errors-To: rpg400-l-bounces@xxxxxxxxxxxx >Return-Path: rpg400-l-bounces@xxxxxxxxxxxx >X-OriginalArrivalTime: 27 Mar 2006 17:26:52.0079 (UTC) >FILETIME=[A2F0A3F0:01C651C3] > >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: Create table not working.... (Alan Shore) > 2. Re: Create table not working.... (Michael_Schutte@xxxxxxxxxxxx) > 3. RE: Create table not working.... (Mike Troxclaire) > > >---------------------------------------------------------------------- > >message: 1 >date: Mon, 27 Mar 2006 12:10:25 -0500 >from: Alan Shore <AlanShore@xxxxxxxx> >subject: Re: Create table not working.... > > >Hi Mike - I'm not too sure if this will rectify your problem but how about >including >C/EXEC SQL >C+ Set Option Commit = *None >C/END-EXEC > >at the beginning > > >Alan Shore > >NBTY, Inc >(631) 244-2000 ext. 5019 >AShore@xxxxxxxx > > > > "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. > > >------------------------------ > >message: 2 >date: Mon, 27 Mar 2006 12:11:13 -0500 >from: Michael_Schutte@xxxxxxxxxxxx >subject: Re: Create table not working.... > >Mike, > >Your problem appears to be right at the beginning. > >CREATE TABLE TESTING/TTABL AS > >Delete the word "AS" > >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. > > > > > >------------------------------ > >message: 3 >date: Mon, 27 Mar 2006 11:24:12 -0600 >from: "Mike Troxclaire" <mike_troxclaire@xxxxxxxxxxx> >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-requ est@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-requ est@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/ > > > >------------------------------ > >-- >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 370 >**************************************** _________________________________________________________________ Express yourself instantly with MSN Messenger! Download today - it's FREE! http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2026 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.
midrange.com
