Interested to Buy Any Domain ? << Click Here >> for more details...
how to display date in reverse order if the pic clause of
the is numeric
suppose date is 09032010 ==> need to print in 20100309
(pic clause is numeric)
- 6 Answers
- 9100 Views
- I also Faced
- E-Mail Answers
Answer Posted / reshma j.
INPUT-DATE has value of 09032010.
In working storage:
01 INPUT-DATE.
03 MM1 PIC 9(2).
03 DD1 PIC 9(2).
03 CCYY1 PIC 9(4).
01 PRINT-DATE.
03 CCYY2 PIC 9(4).
03 DD2 PIC 9(2).
03 MM2 PIC 9(2).
In Procedure Division:
MOVE MM1 TO MM2.
MOVE DD1 TO DD2.
MOVE CCYY1 TO CCYY2.
After Moving values,PRINT-DATE value will be 20100309.
In this cond,Its totally depend on how we declare format in
working storage section.
plz let me know,if i m wrong.
| Is This Answer Correct ? | 14 Yes | 1 No |
Post New Answer View All Answers
When is inspect verb is used in cobol?
What is amode(24)?
How do u write test cases?
What is amode(24), amode(31), rmode(24) and rmode(any) (applicable to only mvsesa enterprise server) ?
What are declaratives and what are their uses in cobol?
What are the various section in data division and briefly explain them.
How many sections are there in data division in COBOL?
Write a program to explain size error.
how do you reference the fixed unblock file formats from cobol programs
Why do we code s9 (4) comp. Inspite of knowing comp-3 will occupy less space?
Why did you choose to work with ibm mainframe cobol programming?
State the various causes of s0c1, s0c5 and s0c7.
What kind of error is trapped by on size error option?
For rewrite, why is it mandatory that file needs to be opened?
explain sorting techniques in cobol program?
