Interested to Buy Any Domain ? << Click Here >> for more details...
How to Convert 2010/02/11 to m/dd/yyy.. with string and
without string if any other method... code
- 5 Answers
- 10667 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 |
What are the types of perform?
WHAT ALL THE CONDITIONES REQUIRED FOR USING OPEN OPCODE ON A FILE?
What are fillers? What is the actual use of fillers? With mall/simple example?
define sort? and its syntax?
what is the difference between comp & comp-3?
What is sort? And its syntax?
what is the difference between SEARCH and SEARCHALL?
What is the actual use of fillers?
Deleting a record from a Sequential file.
Explain the input procedure?
can i anyone tell me how to use copybooks in cobol
What are fillers?
RPG400 
