RE: Udate Processing

["Compton, John" <john.compton@xxxxxxxxxxxxxxxx>]

I don't believe the *dateval reserved words work in the S/36
environment.  You are going to have to convert the code to OS/400
native.

John Compton <john.compton@heiligmeyers.com>
IBM Certified Specialist - RPG
The opinions expressed by me are not necessarily those of my employer


> -----Original Message-----
> From: Jon Erickson [SMTP:jonerickson@vikingindustries.com]
> Sent: Wednesday, June 17, 1998 11:45 AM
> To:   'MIDRANGE-L@midrange.com'
> Subject:      RE: Udate Processing 
> 
> How about *YEAR to get the 4 digit year vs. UYEAR which retrieves the
> 2-digit 
> year.
> 
> Regards,
> -=-=-=-=-=-=-=-=-=-=-=-=-=-
> Jon A. Erickson
> http://www.vikingindustries.com
> -=-=-=-=-=-=-=-=-=-=-=-=-=-
> 
> 
> On Wednesday, June 17, 1998 7:43 AM, Don [SMTP:dr2@access.digex.net]
> wrote:
> >
> > Pete,
> >
> > The UDATE should return MMDDYY   *DATE should return MMDDCCYY...
> And
> > should be moved to the appropriate length fields...
> >
> > IFF they just need the year, look at UYEAR....  Also, checkout the
> TIME
> > op code in the manual...
> >
> > You can get there just depends on how/what you want...
> >
> > Don in DC metro
> >
> >
> > On Wed, 17 Jun 1998, Pete Massiello wrote:
> >
> > > I have a customer that is trying to do Udate processing on their
> > > machine.  They are a small shop, still using S/36 (which I am not
> > > familiar with).  They are on V3R2, and are trying to get the 4
> digit
> > > year, but always comes up with 2 digit year.
> > >
> > > Is the 4 digit option only available in the 400 version of RPG.
> > >
> > >   Thanks in advance.
> > > --
> > > Pete Massiello
> > > OS Solutions International
> > > Phone: (203)-744-7854  Ext 11.
> > > http://www.os-solutions.com
> > > mailto:pmassiello@os-solutions.com
> > > +---
> > > | This is the Midrange System Mailing List!
> > > | To submit a new message, send your mail to
> MIDRANGE-L@midrange.com.
> > > | To subscribe to this list send email to
> MIDRANGE-L-SUB@midrange.com.
> > > | To unsubscribe from this list send email to 
> MIDRANGE-L-UNSUB@midrange.com.
> > > |
> > > | Questions should be directed to the list owner/operator:
> > > | david@midrange.com
> > > +---
> > >
> >
> > +---
> > | This is the Midrange System Mailing List!
> > | To submit a new message, send your mail to
> MIDRANGE-L@midrange.com.
> > | To subscribe to this list send email to
> MIDRANGE-L-SUB@midrange.com.
> > | To unsubscribe from this list send email to
> MIDRANGE-L-UNSUB@midrange.com.
> > | Questions should be directed to the list owner/operator:
> david@midrange.com
> > +---
> 
> 
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
> MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---