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

Categories >> Software >> MainFrame >> IBM AS400 >> COBOL400
Suggest New Category

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

Question Posted / nallinie_s

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

Answers were Sorted based on User's Feedback

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

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

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

Answer / praneetha

by using move reference modification, we can easily convert if

Is This Answer Correct ?

2 Yes

1 No

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

Answer / naresh bandaru

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

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

Answer / taufeeq

DATA DIVISION.
WORKING-STORAGE SECTION.
77 DATE1 PIC 9(8).
PROCEDURE DIVISION.
ACCEPT DATE1 FROM DATE MMDDYYYY.
DISPLAY DATE1.

Is This Answer Correct ?

1 Yes

6 No

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

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