× 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: SQL Embedded in RPG ILE.

Thanks.  That helps. 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Mike Troxclaire
Sent: Wednesday, March 15, 2006 8:34 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: SQL Embedded in RPG ILE.

Tom,
I am a Java programmer but I am now trying to get into RPG and I am
loving it. I have been programming in Java for the past four years and
never got into RPG until now but now I need to and have taken it as a
challenge to learn RPG and guess what? It is not as bad as people try to
project it..:-0). Here is some code in Java and my VB is kinda rusty so
I will leave it for somebody else. I would appreciate some input from
the RPG pro's, I think it would be a healthy and beneficial discussion.

============================================================
package mypackage;

import java.sql.* ;

class myclass
{
public static void main( String args[] ) {
  try
     {
      // Load the database driver
      Class.forName("com.ibm.as400.access.AS400JDBCDriver");

      // Get a connection to the database
      Connection conn =
DriverManager.getConnection("jdbc:as400://xxx.xxx.xxx.xxx","usr","pwd");

      // Print all warnings
      for( SQLWarning warn = conn.getWarnings(); warn != null; warn =
warn.getNextWarning() )
         {
          System.out.println( "SQL Warning:" ) ;
          System.out.println( "State  : " + warn.getSQLState()  ) ;
          System.out.println( "Message: " + warn.getMessage()   ) ;
          System.out.println( "Error  : " + warn.getErrorCode() ) ;
         }

      // Get a statement from the connection
      Statement stmt = conn.createStatement() ;

      // Execute the query
      ResultSet rs = stmt.executeQuery("SELECT * FROM MYLIB.CUSTOMER") ;


      // Loop through the result set
      while(rs.next())
         System.out.println( rs.getString("CNUM"));

         System.out.println( rs.getString("FNAME"));

         System.out.println( rs.getString("LNAME"));

      // Close the result set, statement and the connection
      rs.close() ;
      stmt.close() ;
      conn.close() ;
     }
  catch( SQLException se )
     {
      System.out.println( "SQL Exception:" ) ;

      // Loop through the SQL Exceptions
      while( se != null )
         {
          System.out.println( "State  : " + se.getSQLState()  ) ;
          System.out.println( "Message: " + se.getMessage()   ) ;
          System.out.println( "Error  : " + se.getErrorCode() ) ;

          se = se.getNextException() ;
         }
     }
  catch(Exception e)
     {
      System.out.println( e ) ;
     }
}
}

=============================================================

Cheers,

Mike.


>From: rpg400-l-request@xxxxxxxxxxxx
>Reply-To: rpg400-l@xxxxxxxxxxxx
>To: rpg400-l@xxxxxxxxxxxx
>Subject: RPG400-L Digest, Vol 5, Issue 322
>Date: Wed, 15 Mar 2006 07:51:53 -0600
>MIME-Version: 1.0
>Received: from mail.midrange.com ([69.3.23.28]) by 
>bay0-mc4-f12.bay0.hotmail.com with Microsoft SMTPSVC(6.0.3790.1830); 
>Wed,
>15 Mar 2006 06:01:03 -0800
>Received: from rivendell.midrange.com (localhost [127.0.0.1])by 
>mail.midrange.com (8.13.4/8.13.4) with ESMTP id k2FDpwUX023143;Wed, 15 
>Mar
>2006 07:51:58 -0600
>X-Message-Info: jl7Vrt/mfsr+KMrlH2HmxhwslKKR5SMH6hf4z5Tt0Ig=
>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: 15 Mar 2006 14:01:03.0586 (UTC) 
>FILETIME=[E5B52420:01C64838]
>
>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: Field interpreted differentlybetweenphysicalandlogical
>       (Barbara Morris)
>    2. Re: CPF4182 (Avis Ramuk)
>    3. Re: CPF4182 (Jim Franz)
>    4. RE: SQL Embedded in RPG ILE. (Tom Huff)
>    5. RE: *MDY date issue (Weber, Richard)
>    6. RE: Passing Multi Occurance DS as parm btw modules (Jeff Young)
>
>
>----------------------------------------------------------------------
>
>message: 1
>date: Tue, 14 Mar 2006 20:12:20 -0500
>from: Barbara Morris <bmorris@xxxxxxxxxx>
>subject: Re: Field interpreted differentlybetweenphysicalandlogical
>
>Jon Paris wrote:
> >
> >  >> The DS is externally described and exists solely so that I can
>reference
> > the prototype fields back to the data file.
> >
> > This seems like a good idea until you encounter the kinds of 
> > problems
>you
> > are seeing!  In practice using LIKE on protos is probably not a good
>idea on
> > the whole.
> >
>
>Jon, I think using LIKE on /copy prototypes is ok, as long as the base 
>type is defined in the /copy file too, as it was in Ricks' case.
>
>Rick's problem wasn't with the prototype being interpreted differently,

>it was with the parameters being passed on the call.  The parameters 
>were fields from the file which weren't mapped to any 
>externally-described DS, so they didn't get defined with the exact 
>types in the file.
>
>
>
>------------------------------
>
>message: 2
>date: Tue, 14 Mar 2006 19:00:05 -0800 (PST)
>from: Avis Ramuk <as400_techmails@xxxxxxxxx>
>subject: Re: CPF4182
>
>Can anyone help me with this.
>   The job lobgs shows error of MCH1210 with an ILE Procedure in QSYS. 
>And then I am getting this CPF4182 error. Could anyone has experieced 
>this error before?.
>   If so please let me know what are the reasons that cause this error 
>CMPF4182.
>   This would be greatly helpful to troubleshoot the issue in all
aspects.
>
>   Thanks,
>   Avis Ramuk.
>
>Avis Ramuk <as400_techmails@xxxxxxxxx> wrote:
>
>Thanks again Don. I will check this tommorw and let you know
>
>Thanks,
>Avis
>Don wrote:
>if you're having to resub this job, make sure to use LOG(4 00 *seclvl)
>logclpgm(*yes)
>
>you may also want to see if there's anything in QHST use the dsplog 
>command, chose the date/time areas you're concerned with.
>
>dspmsg qsysopr show anything?
>
>Also, while you're in these areas keep an eye out for any damaged 
>object messages...
>
>Don in DC
>
>
>At 07:53 PM 3/6/2006 -0800, you wrote:
> >Thanks for Don for your reply. The joblog has got nothing. It first 
> >given an error MCH1020 pointing to a system object. And then it 
> >triggered this error. I am in my home and I will check the member 
> >lock and let you know tommorrow.
> > The file FILWARH1 is opened only in Input mode in the program. Still

> >the member lock or Share(*yes) would be a concern?. Thanks again
> >
> > Avis
> >
> >Don wrote:
> > also check the job log...I'd be curios if the mbr is there...or 
> >locked exclusive by something else...
> >
> >Don in DC
> >
> >At 07:41 PM 3/6/2006 -0800, you wrote:
> > >Do anyone have any idea what are the reason for this error (CMF4182

> > >)
>to
> > >occur. A job which was running fine since it was created now ending

> > >up with this error. It first struck with the error MCH1210 and then

> > >ends
>with
> > >this.
> > >
> > > File FILWARH1 in library WARHLIB213 member or device *N not
opened.
> > > Error message
> > >CPF4182 appeared during OPEN (C S D F).
> > >
> > > Has anyone experienced this error before. Please let me know as 
> > > your help is greatly appreciated.
> > >
> > > Thanks,
> > > Avis
> > >
> > >
> > >---------------------------------
> > >Yahoo! Mail
> > >Bring photos to life! New PhotoMail makes sharing a breeze.
> > >--
> > >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) 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.
> >
> >
> >
> >__________________________________________________
> >Do You Yahoo!?
> >Tired of spam? Yahoo! Mail has the best spam protection around 
> >http://mail.yahoo.com
> >--
> >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) 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.
>
>
>
>__________________________________________________
>Do You Yahoo!?
>Tired of spam? Yahoo! Mail has the best spam protection around 
>http://mail.yahoo.com
>--
>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.
>
>
>
>
>---------------------------------
>  Yahoo! Mail
>  Use Photomail to share photos without annoying attachments.
>
>------------------------------
>
>message: 3
>date: Tue, 14 Mar 2006 22:19:57 -0500
>from: "Jim Franz" <jfranz@xxxxxxxxxxxx>
>subject: Re: CPF4182
>
>Can you show us the joblog? There are many reasons for a cpf4182, and 
>as the msg description says, the reason for the file not opening will 
>be in a previous message. If you dspjoblog interactively, make sure you

>F10 to display detailed messages.
>jim franz
>
>CPF4182
>Message . . . . :   File &2 in library &3 member or device &4 not
opened.
>Cause . . . . . :   File was not opened because an error occurred.  If
this
>i
>   a device file, the device may not be usable.
>Recovery  . . . :   See the previously listed messages, correct any
errors,
>   and then try the request again.  If the problem continues, report
the
>   problem (ANZPRB command).
>
>
>----- Original Message -----
>From: "Avis Ramuk" <as400_techmails@xxxxxxxxx>
>To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
>Sent: Tuesday, March 14, 2006 10:00 PM
>Subject: Re: CPF4182
>
>
> > Can anyone help me with this.
> >  The job lobgs shows error of MCH1210 with an ILE Procedure in QSYS.

> > And then I am getting this CPF4182 error. Could anyone has 
> > experieced this error before?.
> >  If so please let me know what are the reasons that cause this error

> > CMPF4182.
> >  This would be greatly helpful to troubleshoot the issue in all
aspects.
> >
> >  Thanks,
> >  Avis Ramuk.
> >
> > Avis Ramuk <as400_techmails@xxxxxxxxx> wrote:
> >
> > Thanks again Don. I will check this tommorw and let you know
> >
> > Thanks,
> > Avis
> > Don wrote:
> > if you're having to resub this job, make sure to use LOG(4 00 
> > *seclvl)
> > logclpgm(*yes)
> >
> > you may also want to see if there's anything in QHST use the dsplog 
> > command, chose the date/time areas you're concerned with.
> >
> > dspmsg qsysopr show anything?
> >
> > Also, while you're in these areas keep an eye out for any damaged 
> > object messages...
> >
> > Don in DC
> >
> >
> > At 07:53 PM 3/6/2006 -0800, you wrote:
> >>Thanks for Don for your reply. The joblog has got nothing. It first
>given
> >>an error MCH1020 pointing to a system object. And then it triggered 
> >>this error. I am in my home and I will check the member lock and let

> >>you know tommorrow.
> >> The file FILWARH1 is opened only in Input mode in the program. 
> >>Still  the member lock or Share(*yes) would be a concern?. Thanks 
> >>again
> >>
> >> Avis
> >>
> >>Don wrote:
> >> also check the job log...I'd be curios if the mbr is there...or 
> >>locked exclusive by something else...
> >>
> >>Don in DC
> >>
> >>At 07:41 PM 3/6/2006 -0800, you wrote:
> >> >Do anyone have any idea what are the reason for this error 
> >> >(CMF4182 )
>to
> >> >occur. A job which was running fine since it was created now 
> >> >ending up with this error. It first struck with the error MCH1210 
> >> >and then ends with this.
> >> >
> >> > File FILWARH1 in library WARHLIB213 member or device *N not
opened.
> >> > Error message
> >> >CPF4182 appeared during OPEN (C S D F).
> >> >
> >> > Has anyone experienced this error before. Please let me know as 
> >> > your help is greatly appreciated.
> >> >
> >> > Thanks,
> >> > Avis
> >> >
> >> >
> >> >---------------------------------
> >> >Yahoo! Mail
> >> >Bring photos to life! New PhotoMail makes sharing a breeze.
> >> >--
> >> >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) 
> >>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.
> >>
> >>
> >>
> >>__________________________________________________
> >>Do You Yahoo!?
> >>Tired of spam? Yahoo! Mail has the best spam protection around 
> >>http://mail.yahoo.com
> >>--
> >>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) 
> > 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.
> >
> >
> >
> > __________________________________________________
> > Do You Yahoo!?
> > Tired of spam? Yahoo! Mail has the best spam protection around 
> > http://mail.yahoo.com
> > --
> > 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.
> >
> >
> >
> >
> > ---------------------------------
> > Yahoo! Mail
> > Use Photomail to share photos without annoying attachments.
> > --
> > 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: 4
>date: Tue, 14 Mar 2006 21:02:53 -0800
>from: "Tom Huff" <tehuff@xxxxxxxxxxxxx>
>subject: RE: SQL Embedded in RPG ILE.
>
>Here is an interesting challenge. Anyone care to write this in java and
vb.
>As an old RPG programmer, I would be interested in seeing the
difference.
>Thanks
>Tom
>
>-----Original Message-----
>From: rpg400-l-bounces@xxxxxxxxxxxx 
>[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
>On Behalf Of Lim Hock-Chai
>Sent: Tuesday, March 14, 2006 9:42 AM
>To: RPG programming on the AS400 / iSeries
>Subject: RE: SQL Embedded in RPG ILE.
>
>Mike:
>Welcome to the RPG world.  Just to illustrate why we rpg people love
>rpg: Below is how simple that is to do the same thing in RPG (Compare 
>to using sql or java, vb...).
>
>FCUSTOMER  IF   E           K disk
>
>D SampleCust                          like(cnum) inz(12345)
>
>C     SampleCust    chain(n)  CUSTOMER
>C                   if        %found
>  *                  .... normal processing here...
>C                   endif
>
>C                   eval      *inlr = *on
>
>....
>The power of using embedded SQL in rpg start to come in when you want 
>to do fetch all records where last name sounded like 'Berendt', as Rob 
>indicated below.
>
>-----Original Message-----
>From: rpg400-l-bounces+lim.hock-chai=usamobility.com@xxxxxxxxxxxx
>[mailto:rpg400-l-bounces+lim.hock-chai=usamobility.com@xxxxxxxxxxxx] On

>Behalf Of rob@xxxxxxxxx
>Sent: Tuesday, March 14, 2006 11:01 AM
>To: RPG programming on the AS400 / iSeries
>Subject: Re: SQL Embedded in RPG ILE.
>
>That's a single record fetch, right?  There's only 1 customer in your 
>CUSTOMER file with that customer number?
>
>Then the following would work.  If, however, you wanted to fetch all 
>records where last name sounded like 'Berendt' then let me know.  That 
>involves using a cursor and I can whip up a sample like that also.
>
>      H ActGrp(*CALLER)
>      H DftActGrp(*NO)
>
>      D Customer      e ds                  EXTNAME(CUSTOMER)
>      D OpenStuff       PR              n
>      D FetcuStuff      PR              n
>      D SampleCust                          like(cnum) inz(12345)
>
>       /free
>        *inlr=*on;
>        if not OpenStuff();
>          // perform error routine to alert the troops
>          // ...
>        Else;
>          If FetchStuff(SampleCust);
>
>            // normal processing here...
>
>          EndIf;
>        EndIf;
>        return;
>       /end-free
>       // End of program is right here.
>
>
>      P OpenStuff       B
>      D OpenStuff       PI                  like(ReturnVar)
>      D ReturnVar       s               n
>
>      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
>
>
>       /free
>        stmt1='select cnum, lname, fname ' +
>              'into :cnum, :lname, :fname ' +
>              'from customer where cnum=?';
>       /end-free
>      C/EXEC SQL
>      C+ Prepare S1 from :stmt1
>      C/END-EXEC
>
>       /free
>        Select;
>          When SqlStt='00000';
>            return *on;
>          Other;
>            return *off;
>        EndSl;
>       /end-free
>      P OpenStuff       E
>
>       /eject
>      D FetchStuff      PI                  like(ReturnVar)
>      D  ThisCust                           like(cnum)
>      D ReturnVar       s               n
>
>      C/EXEC SQL
>      C+ Execute S1 using :ThisCust
>      C/END-EXEC
>
>      P FetchStuff      E
>
>
>Rob Berendt
>--
>Group Dekko Services, LLC
>Dept 01.073
>PO Box 2000
>Dock 108
>6928N 400E
>Kendallville, IN 46755
>http://www.dekko.com
>
>
>
>
>
>"Mike Troxclaire" <mike_troxclaire@xxxxxxxxxxx> Sent by: 
>rpg400-l-bounces@xxxxxxxxxxxx
>03/14/2006 11:30 AM
>Please respond to
>RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
>
>
>To
>rpg400-l@xxxxxxxxxxxx
>cc
>
>Subject
>SQL Embedded in RPG ILE.
>
>
>
>
>
>
>Hello Gurus,
>I am a novice RPG programmer. I think I have got the basics down and 
>starting to appreciate the language. I want to explore the power of SQL

>in
>
>RPG. I am looking for a very basic program to follow. For example if I 
>have a file called CUSTOMER in a library MYLIB.
>
>
>My SQL statement would be :
>
>select * from MYLIB.CUSTOMER where CNUM = '12345'
>
>I want to create a report using a RPG program which utilizes the above 
>SQL
>
>statement. The output file could be QPRINT.
>
>The CUSTOMER table has only 3 fields. CNUM, FNAME, LNAME.
>
>Any help in this matter would be much appreciated.
>
>Cheers,
>
>Mike.
>
>_________________________________________________________________
>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) 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) 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) 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: Wed, 15 Mar 2006 08:34:39 -0500
>from: "Weber, Richard" <Weberr@xxxxxxxxxxx>
>subject: RE: *MDY date issue
>
>"Come over here and turn around so I can hit you in the back of the
head!"
>Paul Teutel Sr.
>
>Rick Weber  |  TOYS '?' US International
>
>-----Original Message-----
>From: Douglas W. Palme [mailto:dpalme@xxxxxxxxxxx]
>Sent: Tuesday, March 14, 2006 4:37 PM
>To: RPG programming on the AS400 / iSeries
>Subject: Re: *MDY date issue
>
>Someone slap the snot out of me please....figured it out....I need to 
>pass a
>
>value to the DDS first since I am prompting the user for a date entry.
>
>Although I would prefer to have blank dates, it'll work.
>
>
>On Tue, 14 Mar 2006 13:03:38 -0800, Douglas W. Palme wrote
> > We have several fields that are defined in both the PF and the DDS 
> > as *MDY with a type L designation.  When atempeting to update the 
> > record in DFU we are getting a date time stamp error message.
> >
> > I believe that for a two digit year the limitation is 1940 through 
> > 28xx correct?
> >
> > So how in the world do I represent 2006? it will not take 06 for 
> > whatever reason.
> >
> > Suggestions, hints, or tell me I am too much trouble and need to
>leave.....
> >
> > Douglas
> >
> > If you bought it, it was hauled by a truck - somewhere, sometime.
> >
> > --
> > 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.
>
>
>If you bought it, it was hauled by a truck - somewhere, sometime.
>
>--
>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 email message is for the sole use of the intended recipient (s) 
>and may contain confidential and privileged information. Any 
>unauthorized review, use, disclosure or distribution is prohibited. If 
>you are not the intended recipient, please contact the sender by reply 
>email and destroy all copies of the original message. To reply to our 
>email administrator directly, send an email to EmailAdmin@xxxxxxxxxxxx
>Toys "R" Us, Inc.
>
>
>
>------------------------------
>
>message: 6
>date: Wed, 15 Mar 2006 05:51:43 -0800 (PST)
>from: Jeff Young <cooljeff913@xxxxxxxxx>
>subject: RE: Passing Multi Occurance DS as parm btw modules
>
>Roger,
>   I am doing a multiple row SQL FETCH in the second module, and the 
>only thing it will accept is a MODS.
>   I do not think it will accept a MODS with the BASED keyword, but I 
>will check.
>
>   Thanks,
>
>
>"Mackie, Roger L. (Precision Press)" <RLMackie@xxxxxxxxxxxxx> wrote:
>   Jeff,
>
>You can pass the pointer to a MODS in one module and base an identical 
>MODS in the other module on that pointer. I had to do that once and it 
>works well. However, As Scott pointed out before, it is much easier to 
>pass DS arrays if your code does not need to be compatible with earlier

>releases.
>
>Roger Mackie
>
>-----Original Message-----
>From: rpg400-l-bounces@xxxxxxxxxxxx
>[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jeff Young
>Sent: Tuesday, March 14, 2006 2:33 PM
>To: RPG programming on the AS400 / iSeries
>Subject: Re: Passing Multi Occurance DS as parm btw modules
>
>Scott,
>Typo on Occur. S/B Occurs.
>
>Occurs is not allowed on a prototype parm. How do I define it then?
>
>
>--
>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.
>
>
>
>
>Jeff Young
>Sr. Programmer Analyst
>Dynax Solutions, Inc.
>A wholly owned subsidiary of enherent Corp.
>IBM -e(logo) server Certified Systems Exper - iSeries Technical 
>Solutions
>V5R2
>IBM  Certified Specialist- e(logo) server i5Series Technical Solutions 
>Designer V5R3 IBM  Certified Specialist- e(logo)server i5Series 
>Technical Solutions Implementer V5R3
>
>
>
>
>
>
>
>
>
>
>
>
>---------------------------------
>  Yahoo! Mail
>  Use Photomail to share photos without annoying attachments.
>
>------------------------------
>
>--
>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 322
>****************************************

_________________________________________________________________
On the road to retirement? Check out MSN Life Events for advice on how
to get there! http://lifeevents.msn.com/category.aspx?cid=Retirement

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

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.