1. Categories >> Software >> MainFrame >> IBM AS400 >> RPG400
  2. Suggest New Category

I want to add 10 days in current date. how it is possible in
CL program...?

Question Posted / krunalcool4u

Answers were Sorted based on User's Feedback



I want to add 10 days in current date. how it is possible in CL program...?..

Answer / arjun

hi kumar and prakash, there is No ADDDATE command in cl.How
can u give? plz tell me? i wanted know.how 2 add days?

Is This Answer Correct ?    7 Yes 1 No

I want to add 10 days in current date. how it is possible in CL program...?..

Answer / s kumar

Opps!! by mistake i left the one line to add. that is...

PGM
DCL VAR(&DATE) TYPE(*Char) Len(6)
RTVSYSVAL SYSVAL(QDATE) RTNVAR(&DATE)
ADDDATE DAYS(10) TOVAR(&DATE) TOVARFMT(*SYSVAL) +
DATEFMT(*SYSVAL)
ENDPGM

Is This Answer Correct ?    13 Yes 10 No

I want to add 10 days in current date. how it is possible in CL program...?..

Answer / kanika

convert the date to julian format ,chg varaible from char to dec , add 10 using chgvar,again chgvar to char type,do cnvtdat from julain to whatever format you want the output.

Is This Answer Correct ?    2 Yes 2 No

I want to add 10 days in current date. how it is possible in CL program...?..

Answer / nallurus

its a ADDDAT not ADDDATE
ADDDAT DAYS(10) TOVAR(&DATE)

Is This Answer Correct ?    3 Yes 4 No

I want to add 10 days in current date. how it is possible in CL program...?..

Answer / c4

TAATOOLS are nice but can get lost, messed up or not be loaded.
This gets the date a week back.
To add change date to YY001 if days are greater than 365 or 366 depending on leap year.


/* GO BACK A WEEK*/
DOFOR VAR(&INT) FROM(1) TO(7)
CVTDAT DATE(&DATE) TOVAR(&JULIAN) TOFMT(*JUL) +
TOSEP(*NONE)
CHGVAR VAR(&DECJULIAN) VALUE(&JULIAN)
CHGVAR VAR(&DECJULIAN) VALUE(&DECJULIAN - 1)
CHGVAR VAR(&JULIAN) VALUE(&DECJULIAN)

/* CHECK IF DECEMBER 31 */
IF COND(%SST(&JULIAN 3 3) *EQ '000') THEN(DO)
CHGVAR VAR(&YEAR#) VALUE(&YEAR)
CHGVAR VAR(&YEAR#) VALUE(&YEAR# - 1)
CHGVAR VAR(&YEAR) VALUE(&YEAR#)
/* CHECK IF LEAP YEAR */
CHGVAR VAR(&REM) VALUE(&YEAR# / 4)
CHGVAR VAR(&REM) VALUE(&REM * 4)
IF COND((&YEAR# - &REM) *EQ 0) THEN(DO)
CHGVAR VAR(&JULIAN) VALUE(&YEAR || '366')
ENDDO
ELSE DO

Is This Answer Correct ?    1 Yes 2 No

I want to add 10 days in current date. how it is possible in CL program...?..

Answer / chandrababu

We can add 10 days to current date as below..

DCL VAR(&DAY) TYPE(*CHAR) LEN(2)
DCL VAR(&D1) TYPE(*DEC) LEN(2)
DCL VAR(&MONTH) TYPE(*CHAR) LEN(2)
DCL VAR(&YEAR) TYPE(*CHAR) LEN(2)


RTVSYSVAL SYSVAL(QDAY) RTNVAR(&DAY)
RTVSYSVAL SYSVAL(QMONTH) RTNVAR(&MONTH)
RTVSYSVAL SYSVAL(QYEAR) RTNVAR(&YEAR)
SNDUSRMSG MSG(&DAY *CAT &MONTH *CAT &YEAR)
CHGVAR &D1 &DAY
CHGVAR &D1 (&D1 + 10)
CHGVAR &DAY &D1
SNDUSRMSG MSG(&DAY *CAT &MONTH *CAT &YEAR)

Also you can covert this date by using CVTDAT to any date format you like...

Is This Answer Correct ?    4 Yes 6 No

I want to add 10 days in current date. how it is possible in CL program...?..

Answer / john bulloch

DCL VAR(&JOBDATE) TYPE(*CHAR) LEN(6)
DCL VAR(&JULCHAR) TYPE(*CHAR) LEN(5)
DCL VAR(&JULNUM) TYPE(*DEC) LEN(5 0)
DCL VAR(&ISODATE) TYPE(*CHAR) LEN(10)

RTVJOBA DATE(&JOBDATE)
CVTDAT DATE(&JOBDATE) TOVAR(&JULCHAR) FROMFMT(*DMY) +
TOFMT(*JUL) TOSEP(*NONE)
CHGVAR VAR(&JULNUM) VALUE(&JULCHAR)
CHGVAR VAR(&JULNUM) VALUE(&JULNUM -10)
CHGVAR VAR(&JULCHAR) VALUE(&JULNUM)
CVTDAT DATE(&JULCHAR) TOVAR(&ISODATE) FROMFMT(*JUL) +
TOFMT(*ISO)

Is This Answer Correct ?    0 Yes 2 No

I want to add 10 days in current date. how it is possible in CL program...?..

Answer / pushyami tulluri

PGM

DCL VAR(&DATE) TYPE(*CHAR) LEN(6)

DCL VAR(&NUMVAR) TYPE(*CHAR) LEN(8)

DCL VAR(&NUMVAR1) TYPE(*CHAR) LEN(5)

DCL VAR(&NUMVAR2) TYPE(*DEC) LEN(5)

RTVSYSVAL SYSVAL(QDATE) RTNVAR
(&DATE)
CVTDAT DATE(&DATE) TOVAR(&NUMVAR) FROMFMT
(*MDY) +
TOFMT(*YMD) TOSEP(*none)

CHGVAR &NUMVAR1 %SST(&NUMVAR 5 2)

SNDUSRMSG MSG('NUMVARIBLE' ||
&NUMVAR1)
CHGVAR &NUMVAR2
&NUMVAR1
CHGVAR &NUMVAR2 (&NUMVAR2 +
10)
/* CHGVAR &NUMVAR1 &NUMVAR2
*/
CHGVAR %SST(&NUMVAR 5 2)
&NUMVAR2
SNDUSRMSG MSG('CURRENT DATE:' ||
&NUMVAR)

ENDPGM

Is This Answer Correct ?    2 Yes 5 No

I want to add 10 days in current date. how it is possible in CL program...?..

Answer / vichu

TRY USING THE DATE FUNCTION FOLLOWED BY FUNCTION DATE-OF-
INTEGER /FUNCTION INTEGER-OF-DATE as per ur requirement

Is This Answer Correct ?    2 Yes 7 No

I want to add 10 days in current date. how it is possible in CL program...?..

Answer / prakash

PGM
DCL VAR(&DATE) TYPE(*Char) Len(6)
RTVSYSVAL SYSVAL(QDATE) RTNVAR(&DATE)
ADDDATE DAYS(10) TOVAR(&DATE) TOVARFMT(*SYSVAL) +
DATEFMT(*SYSVAL)
ENDPGM

Is This Answer Correct ?    1 Yes 9 No

Post New Answer

More RPG400 Interview Questions

how do u find whether a record is locked or not??

4 Answers   CTS,

How do you proceed in case your active AS400 session has got disconnected suddenly, how can you get back to your session ? Is it possible??

1 Answers  

how do u find whether a record is locked or not??/

5 Answers   CTS,

1.Coding in cl to send an message? 2..What is turnover and use? What are the different levels?

4 Answers   IBM,

How to create a login screen using a command instead of display file.... intention is to get a password field on a command..... how do you achieve this...

0 Answers  




Can AnyOne tell me how to read join logical file in rpg from starting to end?

2 Answers  

Hi guys, anybody know How RPG/400 code can be converted to RPG IV code with a single command?

1 Answers  

How to change the name of physical members Dynamically?

1 Answers  

what happens when sflsiz = sflpag? What are the advantages and disadvantages?

0 Answers   IBM,

list down and describe the sub systems vailable

5 Answers   IBM,

Maximum how many files declare in rpgle

3 Answers   TCS,

we are sending data of physical file to screen design and it is showing no record why?

1 Answers   NTT Data,

For more RPG400 Interview Questions Click Here
Categories