× 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.


  1.  Home
  2. RPG400-L
  3. March 2006

RE: Create table not working....

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 thread ...
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.