× 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

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

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.