RE: Passing Parms

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.