RE: dates as parms

I use date data types in subprocedures all the time (as parms) with no
problems.  I suspect you are defining the same date field both locally and
globally.  Check to see if you have the date field in any file you have
defined in an f-spec or any external ds defined outside the subprocedure.

Phil

> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On
> Behalf Of Smith, Mike
> Sent: Wednesday, August 15, 2001 3:07 PM
> To: 'rpg400-l@midrange.com'
> Subject: RE: dates as parms
>
>
> i too have programs that pass in the date.  My problem(and its probably
> something stupid) is i can't get a date to pass back to my
> calling program.
>
>
> i've tried making the formats the same in the calling pgm and procedure.
>
> I checked to make sure that at the point the return is being
> executed, there
> is a valid date in the return variable.
>
> i don't know what else to check.
>
> -----Original Message-----
> From: James Rich [mailto:james@eaerich.com]
> Sent: Wednesday, August 15, 2001 2:22 PM
> To: 'rpg400-l@midrange.com'
> Subject: Re: dates as parms
>
>
> On Wed, 15 Aug 2001, Smith, Mike wrote:
>
> > Is it possible to pass Date fields as parms.
> >
> > I have a procedure that gets the current date in the selected
> format.  It
> > currently passes the date back as a 10 char field.  I am trying
> to change
> it
> > to pass back a date field.  However, i am  getting a  'Date, time, or
> > timestamp invalid message'.
>
> One of our APIs includes the following function definition:
>
> Dchar2date        PR             1S 0
> D datechar                      10A
> D dateiso                       10D
>
> Passing dates as parms is no problem.
>
> James Rich
> james@eaerich.com
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
>


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com