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
- 12105 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 |
record length in spool?
input:- 12233344445555566666... output:- 1=1,2=4,3=9... Here firstno i.e 1 should be displayed and after that the alikeno.s should be added n displayed.i.e 2+2=4 like tat it goeson.
Can we call a CICS program from a batch program or viceversa?If so, how?
diffrence between renames and redifnes with examples
Write a program to explain size error.
here is my requirement A1 is alphanumeric with value 'A1B2C3D4' as defined below 05 A1 PIC X(8) VALUE IS 'A1B2C3D4' but i need to have A2,A3 as ABCD & 1234 repectively...... A2 = ABCD A3 = 1234 Can you please explain me what are the different ways to do it?
how can i see junk values in dclgen or in hostvariable of comp ?
How do u debug a S0C7 abend? (aswered till we get the field which caused that) After knowing the field which caused that how do u know the record which caused that if it is in production env? (dumb) Ok let us assume that we got to know that 100th record caused that and I wanted to skip only 100th record from the file and process from 101th. How to do that in JCL using SORT? (tried with STOPAFT but ended up dumb when he said smthing else is ther)
Explain how to differentiate call by context by comparing it to other calls?
How to get the last record in vsam file in cluster? And how can you get the kids file records into your cobol program?
How To Separate The Numerics From An Alphanumric Data Item Which Contains Both Alphabates And Numerics ?
what happens if we dont close cursor in db2-cobol pgm?
COBOL 
