I need help Calculating Dates in CL

[jmeheski]

Hello,

I need some help to calculate a week ago in cl.

I want to use variables in cl and take todays date and subtract 7 days from it.

[jamief]

Re: I need help Calculating Dates in CL

use cvtdat to convert the date to *JUL
then subtract 7 days and convert back to the format of your choice.

[jmeheski]

Re: I need help Calculating Dates in CL

I tried to convert to *JUL but when I try a mathmatic operation on that number it fails.

When I changed my variabl to *DEC len(6) it also fails because it says it is not the right type of value and that I neeed to make it *CHAR minlen of 5.

does that make sense

[jamief]

Re: I need help Calculating Dates in CL

just remember you must take in account the when the day is like 1 jan 2007 and you subtract the year will be 2006.

anyway

          PGM                                                        
          DCL        VAR(&DATE) TYPE(*CHAR) LEN(6)                   
          DCL        VAR(&OUTDATE) TYPE(*CHAR) LEN(6)                
          DCL        VAR(&JULIAN) TYPE(*CHAR) LEN(5)                 
          DCL        VAR(&DECJULIAN) TYPE(*DEC) LEN(5)               
                                                                     
          RTVSYSVAL  SYSVAL(QDATE) RTNVAR(&DATE)                     
          CVTDAT     DATE(&DATE) TOVAR(&JULIAN) TOFMT(*JUL) +        
                       TOSEP(*NONE)                                  
          CHGVAR &DECJULIAN &JULIAN                                  
          CHGVAR     VAR(&DECJULIAN) VALUE(&DECJULIAN + 1)           
          CHGVAR &JULIAN  &DECJULIAN                                 
          CVTDAT     DATE(&JULIAN) TOVAR(&OUTDATE) FROMFMT(*JUL) +   
                       TOFMT(*YMD) TOSEP(*NONE)                      
                                                                     
          ENDPGM 

[jmeheski]

Re: I need help Calculating Dates in CL

Thank you that worked.

[jmeheski]

Re: I need help Calculating Dates in CL

Ok,

You stated earlier that if the date was near the beginning of the year the year would change. however when I tested this using a date of 010107 and converted to Julian i came up with 7001 for julian date.

When I subtracted 7 days i came up with 6994. this obviously is not correct for a Julian date. how can I solve for this case. I need to put this into my job schedule and dont want to have to remember that It wont work for the first week of the year.

Thank you in advance for all f your help here. This is a great site and has helped me to answer alot of my questions.

[jamief]

Re: I need help Calculating Dates in CL

Well your gonna have to test this but something like this
RPG is so much better at the date stuff and as anyone can tell you
I hate CL

             PGM
             DCL        VAR(&DATE) TYPE(*CHAR) LEN(6)
             DCL        VAR(&OUTDATE) TYPE(*CHAR) LEN(6)
             DCL        VAR(&JULIAN) TYPE(*CHAR) LEN(5)
             DCL        VAR(&DECJULIAN) TYPE(*DEC) LEN(5)
             DCL        VAR(&YEAR) TYPE(*CHAR) LEN(2)
             DCL        VAR(&DECYEAR) TYPE(*DEC) LEN(2)
             DCL        VAR(&DAYS) TYPE(*CHAR) LEN(3)
             DCL        VAR(&DAYS) TYPE(*CHAR) LEN(3)
             DCL        VAR(&DECDAYS) TYPE(*DEC) LEN(3)

             RTVSYSVAL  SYSVAL(QDATE) RTNVAR(&DATE)

             CHGVAR     VAR(&YEAR) VALUE(%SST(&DATE 1 2))
             CHGVAR     VAR(&DECYEAR) VALUE(&YEAR)
             CHGVAR     VAR(&DAYS) VALUE(%SST(&DATE 3 3))
             CHGVAR     VAR(&DECDAYS) VALUE(&DAYS)

             IF         COND(&DECDAYS <= 7) THEN(DO)
             CHGVAR     VAR(&DECYEAR) VALUE(&DECYEAR - 1)
             CHGVAR     VAR(&DECDAYS) VALUE(365 - (7 - &DECDAYS))
             ENDDO
             ELSE  CMD(DO)

             CVTDAT     DATE(&DATE) TOVAR(&JULIAN) TOFMT(*JUL) +
                          TOSEP(*NONE)
             CHGVAR &DECJULIAN &JULIAN
             CHGVAR     VAR(&DECJULIAN) VALUE(&DECJULIAN + 1)
             CHGVAR &JULIAN  &DECJULIAN
             CVTDAT     DATE(&JULIAN) TOVAR(&OUTDATE) FROMFMT(*JUL) +
                          TOFMT(*YMD) TOSEP(*NONE)
             ENDDO

             ENDPGM
 

[dhuesman]

Re: I need help Calculating Dates in CL

I believe Julian is 5 digits (YYDDD) not 4.

[jamief]

Re: I need help Calculating Dates in CL

It is 5 Im not paying attention
plus I forgot to turn back to a "real date"

              PGM
             DCL        VAR(&DATE) TYPE(*CHAR) LEN(6) VALUE('010107')
             DCL        VAR(&OUTDATE) TYPE(*CHAR) LEN(6)
             DCL        VAR(&JULIAN) TYPE(*CHAR) LEN(5)
             DCL        VAR(&DECJULIAN) TYPE(*DEC) LEN(5)
             DCL        VAR(&YEAR) TYPE(*CHAR) LEN(2)
             DCL        VAR(&DECYEAR) TYPE(*DEC) LEN(2)
             DCL        VAR(&DAYS) TYPE(*CHAR) LEN(3)
             DCL        VAR(&DAYS) TYPE(*CHAR) LEN(3)
             DCL        VAR(&DECDAYS) TYPE(*DEC) LEN(3)

       /*    RTVSYSVAL  SYSVAL(QDATE) RTNVAR(&DATE) */
             CVTDAT     DATE(&DATE) TOVAR(&JULIAN) FROMFMT(*MDY) +
                          TOFMT(*JUL) TOSEP(*NONE)

             CHGVAR     VAR(&YEAR) VALUE(%SST(&JULIAN 1 2))
             CHGVAR     VAR(&DECYEAR) VALUE(&YEAR)
             CHGVAR     VAR(&DAYS) VALUE(%SST(&JULIAN 3 3))
             CHGVAR     VAR(&DECDAYS) VALUE(&DAYS)

             IF         COND(&DECDAYS <= 7) THEN(DO)
             CHGVAR     VAR(&DECYEAR) VALUE(&DECYEAR - 1)
             CHGVAR     VAR(&DECDAYS) VALUE(365 - (7 - &DECDAYS))
             chgvar &YEAR &DECYEAR
             chgvar &DAYS &DECDAYS
             CHGVAR     VAR(&JULIAN) VALUE(&YEAR || &DAYS)
             CVTDAT     DATE(&JULIAN) TOVAR(&OUTDATE) FROMFMT(*JUL) +
                          TOFMT(*YMD) TOSEP(*NONE)
             ENDDO
             ELSE  CMD(DO)
             CHGVAR &DECJULIAN &JULIAN
             CHGVAR     VAR(&DECJULIAN) VALUE(&DECJULIAN + 1)
             CHGVAR &JULIAN  &DECJULIAN
             CVTDAT     DATE(&JULIAN) TOVAR(&OUTDATE) FROMFMT(*JUL) +
                          TOFMT(*YMD) TOSEP(*NONE)
             ENDDO

             ENDPGM

 

[dhuesman]

Re: I need help Calculating Dates in CL

relax...go back to wake boarding!

you pointed the person in the correct direction.

[jamief]

Re: I need help Calculating Dates in CL

Your right........... went to a lake yesterday with a 225 horsepower boat..
we spent as much time in the air as we did in the water....summer ROCKs!

[jmeheski]

Re: I need help Calculating Dates in CL

Thanks again that worked wonderfully. I wish I were an RPG programmer and could work it this way. However I work mostly with CL and feel more comfortable with creating my utlities in this manner.

RPG would take ME 8 times as long to figure out.

Thanks again you are great!!

[FaStOnE]

Re: I need help Calculating Dates in CL

*tsk* *tsk* *tsk*...

There goes his ego again!!