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)
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
What are INPUT PROCEDURE and OUTPUT PROCEDURE?
what is s000 u4087 error? please give the all error codes in cobol,jcl.
How do we get current date from system with century in COBOL?
What is the difference between external and global variables in COBOL?
Differentiate between structured cobol programming and object-oriented cobol programming.
how do you reference the printer file formats from cobol programs
How to read the 2nd last record of a VSAM file? (The file size is huge and we don't know the key)
How to remove 2 duplicate records and copy only one using job control language?
What is the difference between comp and comp-3?
What is cobol?
)If there are 10 steps in GDG, if I want to refer the step2 after step5 . what should I do?
What are different data types in cobol?
Write down the divisions of cobol program?
What rules are to be followed while using the corresponding options?
How to get the last record in vsam file in cluster? And how can you get the kids file records into your cobol program?