How to Convert 2010/02/11 to m/dd/yyy.. with string and
without string if any other method... code
- 5 Answers
- 9050 Views
- CGI, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
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 |
Answer / praneetha
by using move reference modification, we can easily convert if
| Is This Answer Correct ? | 2 Yes | 1 No |
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 |
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 |
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 |
Explain how to update data area in cobol 400 program?
01 A PIC 9. 01 B PIC 99V1. 01 C PIC 99. MOVE 1 TO A. MOVE 0.2 TO B. COMPUTE C ROUNDED TO 3/3 + A.
what is the difference between SEARCH and SEARCHALL?
Explain the types of perform?
Explain the syntax of redefine?
what is the difference between comp & comp-3?
Explain the input procedure and output procedure?
Explain what all the conditiones required for using open opcode on a file?
Deleting a record from a Sequential file.
Explain the difference between section, paragraph and sentences?
How we can update data area in cobol 400 program?
What is sort? And its syntax?
RPG400 
