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.