RE: date function-clarify -- RPG400-L

This code will work - I've used it.  But...doing the same thing using RPG IV
is so much easier.  It's seventh heaven, it's nirvana, it's ... the bee's
knees.  Jon, I too am puzzled and echo your question: why isn't RPG IV an
option?

-----Original Message-----
From: owner-rpg400-l@midrange.com [mailto:owner-rpg400-l@midrange.com]On
Behalf Of Venkat Sreenivasan
Sent: Wednesday, October 13, 1999 7:00 PM
To: RPG400-L@midrange.com
Cc: Anandthirta@hotmail.com
Subject: Re: date function-clarify





I found a set of code published in the was published in Midrange Computing
in
November 1988 issue.  This is one of the code which works great.  Hope this
answer your question.  There are two programs involved one is to convert the
gregorian date to julian date (ie. this is not YYJJJ format it is relative
number to the date passed), and another is to convert the julian date to
gregorian date.

The program names used are the orginall code from Midrange Computing.

GTOJR1 (RPG)

C           *ENTRY    PLIST
C                     PARM           G$MM    20
C                     PARM           G$DD    20
C                     PARM           G$YYYY  40
C                     PARM           G$JD    50
C*
C                     Z-ADD0         G$JD
C           G$MM      SUB  3         G$MMWK  20
C                     Z-ADDG$MMWK    GMWKSV  20
C           G$MMWK    IFLT 0                           LVL-01
C                     ADD  12        G$MMWK
C                     END                              END-01
C           GMWKSV    IFNE 0                           LVL-01
C           G$MMWK    MULT 30.6      G$JD      H
C                     END                              END-01
C                     ADD  G$DD      G$JD    50
C           G$YYYY    SUB  1900      G$YYWK  30
C           G$YYWK    IFNE 0                           LVL-01
C           GMWKSV    IFLT 0                           LVL-02
C                     SUB  1         G$YYWK
C                     END                              END-02
C                     END                              END-01
C           G$YYWK    MULT 365.25    G$JYD   70
C                     ADD  G$JYD     G$JD
C           G$JD      DIV  7         G$WK7   70
C                     MVR            G$DW    10        0=Wed-6=Tue
C                     RETRN

JTOGR1 (RPG)

C           *ENTRY    PLIST
C                     PARM           J$JD    50
C                     PARM           J$MM    20
C                     PARM           J$DD    20
C                     PARM           J$YYYY  40
C*
C           J$JD      DIV  365.25    J$YYWK  30
C           J$JD      DIV  365.25    J$TST   99
C           J$TST     IFEQ 0                           LVL-01
C                     SUB  1         J$YYWK
C                     END                              END-01
C           J$YYWK    MULT 365.25    J$YD    70
C           J$JD      SUB  J$YD      J$YD
C           J$YD      IFGT 306                         LVL-01
C                     ADD  1         J$YYWK
C                     END                              END-01
C                     Z-ADD0         J$X     20
C           J$YD      DOULEJ$MD                        LVL-01
C                     ADD  1         J$X
C           J$X       MULT 30.6      J$MD    30H
C                     END                              END-01
C                     SUB  1         J$X
C           J$X       MULT 30.6      J$MD      H
C           J$YD      SUB  J$MD      J$DD    20
C           J$X       ADD  3         J$MM    20
C           J$MM      IFGT 12                          LVL-01
C                     SUB  12        J$MM
C                     END                              END-01
C           J$YYWK    ADD  1900      J$YYYY  40
C                     SETON                     LR
C                     RETRN

Hope this will answer your question.

Thanks to Midrange Computing.

Venkat Sreenivasan
vsreenivasan@yahoo.com





"keshava narasimha" <anandthirta@hotmail.com> on 10/13/99 12:51:03 PM

Please respond to RPG400-L@midrange.com

To:   RPG400-L@midrange.com
cc:    (bcc: Venkat Sreenivasan/IT/MIA/RCL)

Subject:  date function-clarify




Hi !


Let me be more clear on my question first...

I have a date  1999/12/12 o.k..When I convert this date into days I you get
a figure. (like 3457899)

Now if  need to display tomorrows date ,  I add 1 to this number and   how
do I display 1999/12/13 is the Question?(the function needs to be done using
RPG/400 only not ILERPG)


Thanks for all  your time.

Keshav


______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---






+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---