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
- 11191 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 |
seqence numbers in cobol
What is the syntax of sort?
Define redefine and its syntax?
How we create file in COBAL400
Explain the input procedure and output procedure?
Define perform?
What are fillers?
Explain how to detect record is locked in cobol/400? What is the solution for that?
WHAT ALL THE CONDITIONES REQUIRED FOR USING OPEN OPCODE ON A FILE?
What is comp?
Explain the syntax of sort?
Trying to help a friend... How do you code screen I/O without a DDS? I know it can be done, because for a short time, I worked for a company that did it. It was just too long ago for me to remember what was involved.
RPG400 
