How to increase 3 days from my current date in RPG Program?

Answer Posted / vivek

TRY THIS CODE...
F1 Opcode F2 Result
Z-ADD *DATE A 8
A DSPLY
A retrieve current sysdate then 'subst' and increase day or month or year as per your requirement.
@Viv

Is This Answer Correct ?    1 Yes 3 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

what is full form for dds?

745


Why we have multiple data types in As400 and why we use numeric, packed, decimal, zoned the basic difference between this?

614


If i change any file through application after entering data , how to check which file is updated through applications . For call stack we takes esc 3 then we chose 11..But What is answer of below qtn..?

1480


define the purpose of the %sst function?

944


how will you search an array?

650






which are the string manipulation opcodes?

634


What is the difference between iter and do? We know both are used to execute set of statements repeatedly, but what is the main difference?

552


define the purpose of the iter operation?

1039


Can we debug the MSGW JOBS?

935


what is a spool file?

676


what is meant by object lock requests,held locks and locks waiting to be applied(wrkobjlck) why should we apply for locks.Please explain sir.

5957


What are the types of data structure in as400?

543


Service Program : S1 Modules in S1 : M1 M1 having two procedures : ADD, SUB Current Binder Language STRPGMEXP PGMLVL(*CURRENT) EXPORT SYMBOL("ADD") EXPORT SYMBOL("SUB") ENDPGMEXP Doubt: I need to add one new Module to the Service Program M2 having one procedure ‘MULT’ How to add this new module to the service program S1 ? If I need to recreate the service program again, Do I need to mention the Module M1 again while recreating along with new Module M2? There is no Binding Directory. Binder language structure will be like this STRPGMEXP PGMLVL(*CURRENT) EXPORT SYMBOL("ADD") EXPORT SYMBOL("SUB") EXPORT SYMBOL("MULT") ENDPGMEXP STRPGMEXP PGMLVL(*PREVIOUS) EXPORT SYMBOL("ADD") EXPORT SYMBOL("SUB") ENDPGMEXP

1933


when would you use or not use this approach?

895


How do I remove a flag or check no. or name when a user opens too many sessions?

1774