Interested to Buy Any Domain ? << Click Here >> for more details...
What will happen if a variable is declared as below..
Explain with an example?
Working storage section:-
01 WS-VARX PIC X(9) VALUE SPACES.
01 WS-VARN REDEFINES WS-VARX PIC 9(9).
- 8 Answers
- 11791 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / lalith
Working storage section:-
01 WS-VARX PIC X(9) VALUE SPACES.
01 WS-VARN REDEFINES WS-VARX PIC 9(9).
REDEFINES: It is used to save the memory space....
ur declearing like that ws-varn will take the same memory
of ws-varx...
when u used display statement
DISPLAY WS-VARN
it shows the spaces... WS-VARN will take same memory of WS-
VARX irrespective of data type....
| Is This Answer Correct ? | 6 Yes | 0 No |
It wont show any Abend, the main purpose of REDEFINES
clause is to use the same storage area with one or more
data item with different sizes and PIC 's. We will face
Abend if we try to MOVE WS-VARN TO WS-VAR.
| Is This Answer Correct ? | 4 Yes | 1 No |
Answer / neelam saini
WORKING-STORAGE SECTION.
01 WS-VARX PIC X(9) VALUE SPACE.
01 WS-VARN REDEFINES WS-VARX PIC 9(9).
01 I PIC 9(2).
01 J PIC 9(2).
PROCEDURE DIVISION.
MAIN-SECTION.
MAIN-PARA.
MOVE 123456789 TO WS-VARN.
DISPLAY WS-VARN.
STOP RUN.
ON RUN TIME. 123456789
O/P : 123456789
| Is This Answer Correct ? | 2 Yes | 0 No |
Answer / lalit
I am agreed with Rookie. It will abend if any mathematical
operation like add, subtract will be performed with
variable WS-VARX, but if any mathematical operation is
performed using WS-VARN then it will not abend because it
is numeric in nature.
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / ankur
after redefining we can also move alphabetic to numeric or
numeric to alphabetic field . mathematical operation is
different . if we go for that it will give s0c7.
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / anna
WORKING-STORAGE SECTION.
01 WS-VARX PIC X(9) VALUE SPACE.
01 WS-VARN REDEFINES WS-VARX PIC 9(9) value zeros.
in this case you can used any data, by using right
field for numeric data ws-varN, for alphabetic /alphanumeric
ws--varX.
| Is This Answer Correct ? | 0 Yes | 2 No |
wht do u mean by (*,intrdr) wht is * used for ?
What was removed from COBOL in the COBOL II implementation?
Hi All, Can anyone tell me how we can MOVE value of a X(19) variable to a S9(17) COMP-3 variable? Answer with an Example will be of great help.
what are the steps to sort in a cobol program?
what is Pic 9v99 Indicates?
What is Static,Dynamic linking ?
i have the following varibles in the working storage 05 ws-A PIC X(30) VALUE 'ABCDEFGHIJKLMNOPQRESTUVWXYZ ' 05 WS-B REDEFINES WS-A 10 WS-B1 PIC X(10). 10 WS-B2 PIC 9(10). 10 WS-B3 PIC X(10). If I Display B1, B2 and B3 respectively, what is the value displayed in B2
IF there 5 to 6 files in a JCL and there is some space abends, how can we identify which file has space abend and what can be done to get off that abend or rectify that abend.
77 a pic x(4) value '1234' -----> instead of this 'abcd' 77 b pic 9(4) value zeros. move a to b what is the answers for both cases? IS it possible? Give me elementary move rules briefly......
Suppose i want to declare a binary comp fild of 7 byte .how to write?
What is the utilization of copybook in cobol?
what do you mean by copybook? and what is the difference between the copybook which we are using in working storage and procedure division.
COBOL 
