The above issue can be resolved by using REDEFINES clause. 01 DATE-FIELD

How to Convert 2010/02/11 to m/dd/yyy.. with string and
without string if any other method... code

Question Posted / mvrk

5 Answers
10933 Views
CGI, I also Faced
E-Mail Answers

Answer Posted / mvrk

The above issue can be resolved by using REDEFINES clause.

01 DATE-FIELD
05 DATE-YYYY PIC 9(04).
05 DATE-MM PIC 9(02).
05 DATE-DD PIC 9(02).
01 DATE-CONT REDEFINES DATE-FIELD
05 DATE-MM-CONT PIC 9(02).
05 DATE-DD-CONT PIC 9(02).
05 DATE-YYYY-CONT PIC 9(04).

I guess the above declaration will resolve it. I have not
tested it.

Friends, please correct me if i am wrong.

Is This Answer Correct ?

1 Yes

13 No

Post New Answer View All Answers

Please Help Members By Posting Answers For Below Questions

What are the types of perform?

1046

What is the syntax of sort?

907

Explain what all the conditiones required for using open opcode on a file?

970

Explain the difference between search and searchall?

875

Explain how to detect record is locked in cobol/400? What is the solution for that?

912

Explain how to update data area in cobol 400 program?

1028

Define perform? And its types?

995

Explain the syntax of redefine?

922

What is sort?

963

Explain the syntax of sort?

983

Define perform?

1012

Explain the output procedure?

1047

How to detect record is locked in cobol/400? What is the solution for that?

973

What is the actual use of fillers?

967

What is comp?

1160