01 date-input 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 / naresh bandaru

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

01 date-input
05 DATE-YYYY PIC 9(04).
05 FILLER PIC X(1).
DATE-MM PIC 9(02).
FILLER PIC X(1).
DATE-DD PIC 9(02).
01 date-output
05 DATE-YYY PIC 9(03).

05 DATE-M PIC 9(01).
05 DATE-DD1 PIC 9(02).
accept date-input.
move date-yyyy to date-yyy.
move date-mm to date-m.
move date-dd to date-dd1.
display date-output

Is This Answer Correct ?

1 Yes

0 No

Post New Answer View All Answers

Please Help Members By Posting Answers For Below Questions

What is the syntax of redefine?

531

Explain the input procedure?

531

What is sort? And its syntax?

665

Explain the syntax of sort?

552

Define sort?

578

why icetool be used in programmer view?

2136

Explain the difference between search and searchall?

508

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

524

Define redefine and its syntax?

536

What is redefine?

549

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

521

Define redefine?

553

What are fillers? What is the actual use of fillers? With mall/simple example?

546

Explain the output procedure?

568

Explain the syntax of redefine?

516