1. Categories >> Software >> MainFrame >> IBM MainFrame >> COBOL
  2. Suggest New Category

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)

Question Posted / mf123

Answers were Sorted based on User's Feedback



how to display date in reverse order if the pic clause of the is numeric suppose date is 0903201..

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

how to display date in reverse order if the pic clause of the is numeric suppose date is 0903201..

Answer / tata

id division.
program-id. exe.
data division.
working-storage section.
01 idate pic 9(8) value 10032010.
01 rdate pic 9(8).
procedure division.
move idate (1:2) to rdate (7:2).
move idate (3:2) to rdate(5:2).
move idate (5:4) to rdate(1:4).
display rdate.
stop run.

Is This Answer Correct ?    10 Yes 0 No

how to display date in reverse order if the pic clause of the is numeric suppose date is 0903201..

Answer / mf123

Thanks Reshma, ur absolutely correct,

Is This Answer Correct ?    6 Yes 1 No

how to display date in reverse order if the pic clause of the is numeric suppose date is 0903201..

Answer / rajesh

Both the answers are correct. But if we want to use the date
or month or year value alone in somewhere in our program
then we can go with Reshma's explanation.

Is This Answer Correct ?    3 Yes 1 No

how to display date in reverse order if the pic clause of the is numeric suppose date is 0903201..

Answer / nanda

*********************** Top of Data ****
ID DIVISION.
PROGRAM-ID. ALLINONE.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-DATE1.
05 DD PIC 9(2).
05 MM PIC 9(2).
05 YY PIC 9(4).
01 WS-DATE2.
05 YY PIC 9(4).
05 MM PIC 9(2).
05 DD PIC 9(2).
PROCEDURE DIVISION.
ACCEPT WS-DATE1.
MOVE CORR WS-DATE1 TO WS-DATE2.
DISPLAY WS-DATE1.
DISPLAY WS-DATE2.

STOP RUN.

Is This Answer Correct ?    1 Yes 0 No

how to display date in reverse order if the pic clause of the is numeric suppose date is 0903201..

Answer / aruna

both the ans are coreect.in reshma's ans directly we can
write corr mve statement behalf of those 3move
statements.simply we can write move corr input-date to
output-date.

Is This Answer Correct ?    0 Yes 1 No

Post New Answer

More COBOL Interview Questions

I got user abend U4038 while compiling my runjcl.. can anyone help me?

10 Answers   CGI,

Is It Possible to Update or change in VIEW Mode?

5 Answers   CSC,

1)what is the maximum limit for occurs? Eg: 01 A PIC X(10) OCCURS N TIME. What is the max value for N?

11 Answers   Wipro,

How to execute a set of JCL statements from a COBOL program?

2 Answers   Patni, Syntel,

What is the difference between SEARCH and SEARCH ALL?

6 Answers   Cognizant,




how to remove leading spaces and zeroes in a cobol variable.is there any easy way to do it

2 Answers  

What is LENGTH in COBOL II?

2 Answers   CSC,

How to traceback if I am getting SOC7 or SOC4 abend? List down the steps

0 Answers  

What will happen if we generate GDG +2 version instead of +1 version?

2 Answers   T systems,

how to pass 100 to s9(4) how r they inserted ?

3 Answers   TCS,

Why would you use find and get rather than to obtain?

0 Answers  

What is the maximum size of a 01 level item in COBOL I? in COBOL II?

2 Answers   IBM, RBS,

For more COBOL Interview Questions Click Here
Categories