Interested to Buy Any Domain ? << Click Here >> for more details...
Why we need to use redefine clause when we can define the
variable seperately... what is actual need....
- 5 Answers
- 14964 Views
- Accenture, I also Faced
- E-Mail Answers
Answer Posted / vaneesh
One more advantage of redefines is that we can use the same
value with different declarations.
For Example
lets say we receive input value as 'b123'. b is blank
and we want to display it as 01.23 in the spool. This can
be done with redefines as follows.
WORKING-STORAGE section
01 LEARNING
05 WS-RECIEVE-VAL PIC X(4).
05 WS-RECIEVE-RED REDEFINES WS-RECIEVE-VAL PIC 9(2)V
(2).
01 WS-FOR-DISPLAY PIC 9(2).9(2).
PROCEDURE DIVISION.
MOVE 'b123' TO WS-RECIEVE-VAL
MOVE WS-RECIEVE-RED TO WS-FOR-DISPLAY
DISPLAY WS-FOR-DISPLAY
STOP RUN.
| Is This Answer Correct ? | 4 Yes | 0 No |
Post New Answer View All Answers
can you please let me know if there is any walkins for COBOL/PLI/DB2/IMS/JCL in pune other than IBM and ITC infotech
explain sorting techniques in cobol program?
What are the access modes of START statement?
How arrays can be defined in COBOL?
How can we find that module can be called – whether DYNAMICALLY or STATICALLY?
How to get the last record in vsam file in cluster? And how can you get the ksds file records into cobol program?
Difference between array and sub-script ?
How can i load all the data from a file to Table (array) in cobol.How i manage the occurs clause with out reading the file.Any options avilable ? Please can any one help me it is urgent?
Write a program to enter and display the names of students in a class using the occurs clause.
I have program P1 which calls file F1 which has 100 records and following structure 001 .................. 002 .................. 003 .................. 098 .................... 099 ................... 100 .................... Now I want to read these files and write these records in file F2 in following manner. 001 ...... 051 ..... 002 ...... 052 ..... 003 ...... 053 ..... .......... ....... .......... ....... .......... ....... 048 ........ 098 ...... 049 .......... 099 ....... 050 .... 100 ......
What is the difference between comp and comp-3?
What is the difference between external and global variables in COBOL?
What are the cobol coding sheets?
What is a SSRANGE and NOSSRANGE?
What is the use of intialize verb?
