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



Have you tested the program within debug to see what the values of the 4
parameters are?



Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx



                                                                       
             "Douglas W.                                               
             Palme"                                                    
             <dpalme@xxxxxxxxx                                          To
             om>                       RPG programming on the AS400 /  
             Sent by:                  iSeries <rpg400-l@xxxxxxxxxxxx> 
             rpg400-l-bounces+                                          cc
             alanshore=nbty.co                                       
             m@xxxxxxxxxxxx                                        Subject
                                       RE: Passing Parms               
                                                                       
             10/27/2005 02:43                                          
             PM                                                        
                                                                       
                                                                       
             Please respond to                                         
              RPG programming                                          
              on the AS400 /                                           
                  iSeries                                              
             <rpg400-l@midrang                                         
                  e.com>                                               
                                                                       
                                                                       




I thought of that, two copies of the same prg out there and I looked, there

is only one instance of the program.....


On Thu, 27 Oct 2005 13:12:35 -0500 (Central Standard Time), Booth Martin
wrote
> I would bet doughnuts to jelly beans that in the end you will say
> *duh* and realize the two programs are almost exactly alike, but not
> quite, and that difference will eat you up.
>
> Another remote possibility is that you are not using the program
> that you think you are?  Is there a wrkobj for your program higher
> in your library list that you have overlooked?
>
> ---------------------------------
> Booth Martin
> http://www.martinvt.com
> ---------------------------------
> -------Original Message-------
>
> From: RPG programming on the AS400 / iSeries
> Date: 10/27/05 12:59:27
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Passing Parms
>
> I am befuddled because it is exactly like another prog I have and it
> works
 fine in that one.
>
> On Thu, 27 Oct 2005 11:06:20 -0500, Bob Cozzi wrote
> > Douglas,
> > I just wrote a short test program, and it worked fine, no problems.
> > Called it like this:
> >  call test1 parm('02/01/2005' '01/31/2006' 'med' 'air')
> >
> > This is the code...
> > H OPTION(*NODEBUGIO:*SRCSTMT)   BNDDIR('XTOOLS')
> >       /INCLUDE QCPYSRC,UTILS
> >           D FromDate        s             10A
> >                D ToDate          s             10A
> >                     D Range           s              3A
> >                          D class           s              3A
> >
> > C                   eval      *INLR = *ON
> >      C     *ENTRY        PLIST
> >           C                   parm                    fromDate
> >                C                   parm                    toDate
> >                     C                   parm
> >  range                         C                   parm
> >       class
> >
> > C                   callp     WrtJoblog(FromDate +
> > todate+Range+Class)
> >
> > -Bob Cozzi
> > www.RPGxTools.com
> > RPG xTools - Enjoy programming again.
> >
> > -----Original Message-----
> > From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-
bounces@xxxxxxxxxxxx]
> > On Behalf Of Douglas W. Palme
> > Sent: Thursday, October 27, 2005 9:02 AM
> > To: RPG programming on the AS400 / iSeries
> > Subject: Re: Passing Parms
> >
> > Actually the four parms are being passed have a field length of 10,
> >  10, 3, 3
> >
> > and I am passing the following:
> >
> > '02/01/2005'
> > '01/31/2006'
> > 'med'
> > 'air'
> >
> > On Thu, 27 Oct 2005 07:54:49 -0400, Buck wrote
> > > > Odds are one of the parms is defined
> > >  > as more than 30 bytes and you're
> > > > passing in less than 30 characters
> > >  > from the command line (via "CALL"
> > >  > I would guess).
> > >
> > > There's a FAQ that talks about this sort of thing.
> > > http://faq.midrange.com  Search on the word garbage.
> > >    --buck
> > > --
> > > 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 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 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.


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

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.