I want to add 10 days in current date. how it is possible in
CL program...?
Answer Posted / 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 |
Post New Answer View All Answers
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
what is the necessary keyword needed to scroll subfile records?
can you debug ile rpg program using isdb?
How many program bind in one module....
if there is a module object , how to find the program object for this module object.Assume the module object name and program object name is not same.
Program to read marks of 10 students for 4 subjects and compute and display total marks and status of each student in rpg
how do you use commitment control in rpg?
How to call one program from another program in RPG? please help me with the code
What is the difference between iter and do?
can any one help in hawkeye and turnover or any change management system plzzzzz or send the documents to my mail id :gvsp.as4@gmail.com
How would display prime numbers using CL program?
what are the key words you must use when using a subfile?
1. What is bound-by-call and bound-by-reference? 2. Where and why is *Nomain used? 3. What are the difficulties faced by programmers when using service programs? 4. Explain the different ways of parsing and compiling XML in iSeries.
What is the difference between copybooks and subprocedures in as400?
what happens when sflsiz = sflpag? What are the advantages and disadvantages?