given the following:
77 A PIC 9V9 VALUE 9.5
77 B PIC 9 VALUE 9.
77 C PIC V9 VALUE 0.8
77 D PIC 9
77 E PIC 9
77 F PIC 9V999
what are the contenta of D E nad F after the following
statements are
executed:
COMPUTE F ROUNDED=A+C/B
MULTIPLY A BY C GIVING E
ADD B C A GIVING D ROUNDED
a.F=9.589 E=8 D=1
b.F=9.589 E=8 D=9
c.F=9.589 E=7 D=9
d.F=9.589 E=7 D=1

Answer Posted / ulhas

Its 100 % 'd' only.
Third statement 'ADD B C A GIVING D ROUNDED' gives
19.3 but as D is declared as pic 9. it will have only 1.

Is This Answer Correct ?    1 Yes 5 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

Give some examples of command terminators?

926


What are the pertinent COBOL

2224


Whats the difference between search & search ALL?

5831


What are the different data types in cobol?

1024


what is s000 u4087 error? please give the all error codes in cobol,jcl.

17496






What are the pertinent COBOL commands?

2814


State the various causes of s0c1, s0c5 and s0c7.

833


write a cobol logic. i have file that has 10 records .1 record go to first output file and second record goes to 2 output and etc

966


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

4325


input 1 input2 ouput1 output2 output 3 1 re 300 1 re 200 1 re 300 3 rc 500 1 re 200 2 rr 400 1 re 300 2 rr 400 1 rc 400 3 rc 500 1 rc 400 2 rr 700 2 rr 700 5 tt 900 5 tt 900 2 inputs r in flat file and output 1 is matched records,ouptput2 is unmatched of input1,output3 is unmatched of input2! how vl u get the output files using sequential order and to check with each and every records! let me know the procedure division ?

2080


How to know whether the module is dynamical or statistical?

856


In COBOL programming, what is PERFORM? What is VARYING?

851


i want to learn mainframe..any websites and material to learn from basic..? my mail id : rajeswaribe2010@gmail.com

1964


There are 5 fields and 1000 records in a file. Unload it into an array. Write the syntax for declaration and how will you unload it.

1151


What is cobol?

931