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

Answer Posted / 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



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

If my rpg program has a date field, what extra care I have to take while compiling that rpg program? If the file is keyed and I have declared the file as well as key list properly in my program. Still am getting an error message like "chain/reade operation is not allowed" what may be the case?

626


what is the use of sflnxtchg?

807


How can we know running job is batch or interactive?

660


How to call one program from another program in RPG? please help me with the code

1265


can you debug ile rpg program using isdb?

743






How many program bind in one module....

2128


what was the robotech rpg?

689


how do I declare a table or array in rpg iv?

741


How can we override a file during runtime in rpg?

690


how do you use commitment control in rpg?

761


during execution, an rpg/400 program automatically follows a sequence of operations for each record that is processed. The built-in program cycle includes the following logical steps.

760


How to write record if no field or the field are different in physical file in rpgle ?

494


explain sflclr, sflend, sfldlt, and sflcsrrrn?

891


Program to read marks of 10 students for 4 subjects and compute and display total marks and status of each student in rpg

723


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...........

3291