×

Good News Everybody!

The new search engine is LIVE!

Please report any problems to david (at) 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-2026 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.