RE: Passing Parms

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.