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

Answer Posted / 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



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

Which Search verb is equivalent to PERFORM…VARYING?

672


EXPLAIN MAIN FRAME TESTING PROCESS...HOW TO FIX THE MAINFRAME BUGS?

2048


Name some of the examples of COBOl 11?

2671


how do you reference the ksds vsam file formats from cobol programs

645


What is amode(24)?

676






How are the next sentence and continue different from each other?

753


) How do u handle errors in BMS macro?

1415


What is the difference between structured cobol programming and object alternativelyiented cobol?

745


What are the different data types in cobol?

776


How to find out the closest prime number of an input number? I believe it has something to do with SEARCH and COBOL Linear Array.

3706


Name the sections present in data division.

691


What is the use of intialize verb?

735


System Testing for Mainframe Developers What is System Testing? integration testing ? what's the procedure ..

1576


What is the difference between comp and comp-3?

688


In COBOL, what is the different between index and subscript?

749