Golgappa.net | Golgappa.org | BagIndia.net | BodyIndia.Com | CabIndia.net | CarsBikes.net | CarsBikes.org | CashIndia.net | ConsumerIndia.net | CookingIndia.net | DataIndia.net | DealIndia.net | EmailIndia.net | FirstTablet.com | FirstTourist.com | ForsaleIndia.net | IndiaBody.Com | IndiaCab.net | IndiaCash.net | IndiaModel.net | KidForum.net | OfficeIndia.net | PaysIndia.com | RestaurantIndia.net | RestaurantsIndia.net | SaleForum.net | SellForum.net | SoldIndia.com | StarIndia.net | TomatoCab.com | TomatoCabs.com | TownIndia.com
Interested to Buy Any Domain ? << Click Here >> for more details...

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

Write a program that uses move corresponding.

1145


How do we get current date from system with century in COBOL?

1379


Can you please let me know the centre name of INS certification in Kolkata.

2244


i want a program using by if, evaluate , string, unstring, perform, occurs?

4722


Differentiate cobol and cobol-ii. (Most of our programs are written in cobolii, so, it is good to know, how, this is different from cobol)?

1117


How many bytes S(8) comp field occupy and its maximum value?

2140


Which Search verb is equivalent to PERFORM…VARYING?

1043


What is the compute verb? How is it used?

1147


Write a program to explain size error.

1199


what is search and searchall?what is the diffrence between them?give an best example?

6825


What is the difference between Call and a Link?

1196


How to remove 2 duplicate records and copy only one using job control language?

1219


What is rmode(24)

1145


) How do u handle errors in BMS macro?

1969


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

1216