Re: UYEAR

[Rob Berendt <rob@xxxxxxxxx>]

You can retrieve the current year using the ILE RPG operation:

¦        D LOGONDATE       S               D                                    
                   ¦
¦        
C*0N01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq....     
          ¦
¦                                                                               
                   ¦
¦         * Move the job date to LOGONDATE.  By default, LOGONDATE has an *ISO  
                   ¦
¦         * date format, which contains a 4-digit year.  *DATE also contains a  
                   ¦
¦         * 4-digit year, but in a different format, *USA.                      
                   ¦
¦                                                                               
                   ¦
¦        C     *USA          MOVE      *DATE         LOGONDATE                  
                   ¦
¦                                                                               
                   ¦
¦         *                                                                     
                   ¦
¦                                                                               
                   ¦
¦        C                   EXTRCT    LOGONDATE:*Y  LOGYEAR           4 0      
                   ¦




bmis06@MARYWOOD1.MARYWOOD.EDU on 09/09/98 10:13:57 AM
Please respond to MIDRANGE-L@midrange.com@Internet
To:     MIDRANGE-L@midrange.com@Internet
cc:      
Subject:        UYEAR

Does anyone know if UYEAR is going to 4/0?  Or will there be a *YEAR?  We're 
trying to finish up 2k & some old stuff is calculating 4/0 current calendar 
year & fiscal year from UYEAR & plugging century (If UYEAR *GE 50, movel 19 
year... else movel 20)  It works & I'd just as soon cross these programs off 
the "To Do" list...

Wendy Brenzel   
MARYWOOD UNIVERSITY
MIS Department
Senior Programmer/Analyst
bmis06@ac.marywood.edu
HTTP://WWW.MARYWOOD.EDU
Phone (717) 348-6221  Fax:  (717) 961-4736

+---
| 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
+---