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
- 10348 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 |
What is the Purpose of Pointer in the string?
what is the minimum number of lines a Cobol program should have to successfully compile and run
11 Answers ABC, Societe Generale,
how to create temporary data set in jcl? what is the use?
3 Answers Cap Gemini, Temenos,
what is the advantage of using redefines instead of delaring the variables ?
What is the significance of the PROGRAM-ID paragraph? If this name doesnt match with the name of the COBOL program, does it make a difference? Is the name specified in the PROGRAM-ID paragraph used as a name for the load module or any such thing?
What is file status 92?
What will happen if a variable is declared as below.. Explain with an example? Working storage section:- 01 WS-VARX PIC X(10) VALUE 'ABCDEFGHIJ'. 01 WS-VARN REDEFINES WS-VARX PIC 9(5) VALUE '12345'. What will happen I want Display WS-VARX and WS-VARN?
Can a Search can be done on a table with or without Index?
how to code in cobol while using variable block file?
Describe the cobol database components?
What are decleratives in COBOL ?
when iam reading a flat file which has 100 records through cobol program when iam reading 50th records it gets abends .. so when i run the program again it should read from 50th record .where it got abened ? how it is possible
COBOL 
