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
- 10869 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 |
Can we open close file in COBOL any number of times?
Explain how to convert 2010/02/11 to m/dd/yyy.. With string and without string if any other method... Code?
What is sort? And its syntax?
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.
Explain the input procedure and output procedure?
Explain the difference between section, paragraph and sentences?
define sort? and its syntax?
What is sort?
What is the actual use of fillers?
What are Fillers ? What is the actual use of Fillers ? With small/simple Example..
When search all is used in cobol program without sorted input data
RPG400 
