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

What is file identifier where we can use?

0 Answers  

What are the values of NUM1 and NUM2 after executing the following code? CLONO1NO2NO3 Factorl÷÷+OpcdeFactor2+÷+ResultLenDHHiLoEq C MOVE *LOVAL NUM1 50 C MOVE *J-fIVAL NtJM2 52

2 Answers   Fiserv, IBM,

Can anybody tell me in which scenario we have to use SQLRPG .(Embeded SQL)....?

2 Answers   HSBC,

1.What is referential Integrity? 2.What is Foreign Key? 3.What is Transfer Control? 4.What is Free format?

3 Answers  

use of PUTOVR,OVRDTA,KEEP keywords?

2 Answers   HCL,




i would like to know under what circumstance the object will get locked on AS400.

5 Answers   IBM,

Anyone help me for the below question:- If problem/error occur in *PSSR subroutine,how should I handel it in RPG program.

1 Answers  

1.Where we declare Variables in RPG/400,RPGIV,RPGILE.? 2.When do we use D-spec and I-spec in real time ?.what is difference between them?

1 Answers   HP,

wat is curser?? and its types???

4 Answers   HSBC,

How we will read call stack?

4 Answers  

what do you mean by SESSION/DEVOCE ERROR?

1 Answers   IBM,

suppose there are 100 records and i want to read records between 60-70 how we can read this 10 records in rpg

2 Answers   Polaris,

For more RPG400 Interview Questions Click Here
Categories