The following entries appear in the WORKING-STORAGE SECTION:
01 DATE-TODAY.
05 YY PIC XX VALUE "90".
05 MM PIC XX VALUE "12".
05 DD PIC XX VALUE :31".
01 DATE-EDIT PIC XX/XX/XX.
MOVE DATE-TODAY TO DATE-EDIT.
(a) 901231
(b) 90/12/31
(c) 31/12/90
(d) 311290
- 4 Answers
- 7077 Views
- TCS, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
which one is the best of com and com-3.using of real time ?
Can anybody give me example of subscript and index
If my program receives input feed from program in other system.. if the receiving field size is less than the sending field.. what abend will be happening.
Why occurs can not be used in 01 level ?
How may divisions are there in JCL-COBOL?
Can we redefine the field of x(200) to less than 200?
can any one give good example for cond 88 level number and for renames pls urgent dudes ?
how to display the dataset information?
How to remove the spaces at end of each record in the output file Via COBOL program? note: The file has a VB length
what is a load module ?
What will happen if we generate GDG (+2) version without generating (+1) version?
How do you fetch current date in normal cobol pgm and in cobol-db2 pgm?
COBOL 
