I HAVE FOLLOWING DECLARATION.
02. A PIC X(10) VALUE 'XXXXXXXXXX'.
02. B REDEFINES A.
05. C PIC X(3).
05. D PIC X(3).
05. E PIC 9(3).
IN MY PROG, I HAVE
MOVE 1 TO E.
DISPLAY A.
WHAT WILL BE DISPLAYED AS A RESULT OF THIS?
PLEASE EXPLAIN THE ANSWER. THANKS.

Answer Posted / garry

Correct answer is : (As already explained and corrected by Duboisa )

C = xxx
D = xxx
e = 001
So A = xxxxxx001x

100% assured!!

Any difference can be routed or discussed at : thespider390@hotmail.com

Is This Answer Correct ?    4 Yes 0 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

How can i load all the data from a file to Table (array) in cobol.How i manage the occurs clause with out reading the file.Any options avilable ? Please can any one help me it is urgent?

2215


2 input fles: 2 flat files, with different number of records. both are having unique key for each record and already sorted in ascending order . match these files using unique key and in output only matching key value has to be written. please procide cobol logic

2257


What rules are followed by the search verb.

719


What guidelines should be followed to write a structured cobol prgm?

766


if we have " ibm mainframe ",in that how to remove first and last leading space eg:"ibm mainframe" like that the answer we need

943






What is Pic 9v99 Indicates in COBOL?

838


Write a program that uses move corresponding.

773


Why would you use find and get rather than to obtain?

777


I have to write to a outfile where the number of records in that file should be the header of that file using IMS.. can anyone help me in this issue

2034


How to fetch 1000 error records from VSAM file(Eg: 1000000 records present) while getting SOC7 abend ?

2129


In which area will you utilize 88 level items in cobol?

809


) How do u handle errors in BMS macro

1588


How can you get the ksds file records into your cobol program?

727


What is the Purpose of Pointer in the string?

721


Difference between array and sub-script ?

1251