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

Answer / praneetha

by using move reference modification, we can easily convert if

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

Answer / taufeeq

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

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.

Code how to read 5th element of the array?

2 Answers   CGI,

Define redefine?

0 Answers  

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

0 Answers  

what is redefine and its syntax?

6 Answers   HCL,

seqence numbers in cobol

0 Answers   TCS,

what is the cobol compiler?

2 Answers   TCS,

what is the difference between comp & comp-3?

4 Answers  

Define perform?

0 Answers  

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

5 Answers   CGI,

How we can update data area in cobol 400 program?

12 Answers   Accenture,

Define sort?

0 Answers  

What is input procedure?

0 Answers