RE: Passing Parms

Have you tried passing the first 2 parms as dates???

Call PGM Parm(D'10/10/2005', D'10/25/2005','med','air')

 


Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Douglas W. Palme
Sent: Thursday, October 27, 2005 12:50 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Passing Parms

 ****************************************************
C     *ENTRY        PLIST                            
C                   PARM                    DSDATE   
C                   PARM                    DEDATE   
C                   PARM                    DCLASS   
C                   PARM                    DCAT     

Those fields are defined as follows:

 DSDATE            S               D        DATFMT(*USA)    
 DEDATE            S               D        DATFMT(*USA)  
 DCLASS            S              3A  
 DCAT              S              3A  

On Thu, 27 Oct 2005 09:12:39 -0500, rob wrote
> Post either the *ENTRY PLIST, or the PI specs that your called program

> has.
> 
> Rob Berendt
> --
> Group Dekko Services, LLC
> Dept 01.073
> PO Box 2000
> Dock 108
> 6928N 400E
> Kendallville, IN 46755
> http://www.dekko.com
> 
> "Douglas W. Palme" <dpalme@xxxxxxxxxxx> Sent by: 
> rpg400-l-bounces@xxxxxxxxxxxx
> 10/27/2005 09:01 AM
> Please respond to
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> 
> To
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx> cc
> 
> Fax to
> 
> 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.