RE: Passing Parms

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