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
- 9 Answers
- 13623 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / sandy
It will not show variable mismatch error.
It will display KLMNOPQRES.
| Is This Answer Correct ? | 16 Yes | 2 No |
Answer / jibin jacob
there is no error.....
it will display 'klmnopqrst'
***********code************
identification division.
program-id. fst.
environment division.
data division.
working-storage section.
01 qs pic x(30) value
'abcdefghijklmnopqrstuvwxyzabcd'.
01 qs-r redefines qs.
02 qs-r1 pic x(10).
02 qs-r2 pic 9(10).
02 qs-r3 pic x(10).
01 aa pic 9.
procedure division.
p1.
accept aa.
display "r1=" qs-r1.
display "r2=" qs-r2.
display "r3=" qs-r3.
stop run.
| Is This Answer Correct ? | 5 Yes | 0 No |
Answer / mr.perfect
i have compiled and run it , it is workign fine.
the output format is
B1:ABCDEFGHIJ
B2:KLMNOPQRES
B3:TUVWXYZ
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / anand
isn't this a compilation error? A value clause cannot be
associated with a variable that is redefined.
| Is This Answer Correct ? | 1 Yes | 6 No |
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)
What is the difference between copy and include in cobol?
what is index and how to use two tables using index?
. How do we cast a variable in COBOL
what are the utilities for load and unload the DB2 tables
can we use 77 level no for Redefines?if we use give an example?
How do you define a variable of COMP-1? COMP-2?
I had 100 records and i want to execute last three records by using cobol programming?what will be coding?
What is the difference between comp and comp-3?
What is the size of s9(19)comp3? explain
What are 77 levels used for?
How many bytes will be allocated for the following record description entries? 01 REC-A. 05 A PIC S9(4). 05 B PIC XXXBXXX. 05 C PIC ____9.99. 05 D PIC S9(5) COMP-3. 05 E PIC 9(3) COMP.
16 Answers IBM, TCS,
COBOL 
