Interested to Buy Any Domain ? << Click Here >> for more details...
I want to add 10 days in current date. how it is possible in
CL program...?
- 11 Answers
- 47418 Views
- CSC, I also Faced
- E-Mail Answers
Answer Posted / 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 |
Post New Answer View All Answers
which program rpg or cl is efficent to update a transaction onto a database file and why ?
what was the robotech rpg?
1. If there are two programs using same file and 2 users are using the file at the same time and what can be done to allow them both to access? 2. How can remove lock from the file for accessing it by both users?
What is the diff bw PF/LF Name and their Record format name? what is restriction in record format then file name?
write an RPG program to calculate the marks of 5 students (A,B, C, D, E)in 3 different subjects (eng, math, sci) an display on the screen
do you use message subfiles? What are the necessary keywords required coding a message subfile?
what are the key words you must use when using a subfile?
Interviewer asked me write down DDS for load all subfile .can anybody write dds
what is kids-rpg?
How to write record if no field or the field are different in physical file in rpgle ?
How can we know running job is batch or interactive?
what is an online rpg?
How can we override a file during runtime in rpg?
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...
give an eg of ACQ-(ACQUIRE),BIT OFF,BIT ON,DEALLOC,DUMP,FEOD,FORCE,MHHZO,MHLZO,MHLLZO,MLHZO,REL,RESET,TESTZ,TESTB,TESTN----GIVE SMALL EXAMPLE TO THE OPCODES...TO UNDERSTAND FUNCTIONING...........
