01 DATE-FIELD 05 DATE-YYYY PIC 9(04). 05 FILLER

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

Question Posted / kishore

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

Answer Posted / kishore

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

ACCEPT DATE-FIELD

MOVE DATE-DD TO DATE-DD-CONT
MOVE DATE-MM TO DATE-MM-CONT
MOVE DATE-YYYY TO DATE-YYYY-CONT

DISPLAY DATE-CONT

Is This Answer Correct ?

6 Yes

0 No

Post New Answer View All Answers

Please Help Members By Posting Answers For Below Questions

Explain the types of perform?

929

Explain how to update data area in cobol 400 program?

960

I like to know if possible to use %TRIM or any statement with prefiv "%" like RPG ile programs. thanks

2421

Explain the output procedure?

969

Explain the difference between search and searchall?

814

What is redefine?

1121

What is sort?

896

What is perform?

1047

What is output procedure?

938

Explain the syntax of redefine?

858

Define redefine and its syntax?

916

seqence numbers in cobol

3051

What are fillers?

974

Explain the difference between comp & comp-3?

903

What is sort? And its syntax?

985