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
Answers were Sorted based on User's Feedback
Answer / ram g [mind tree]
c is the correct answer ...
the result will be like this
f = 9589
e = 7
d = 9
bcoz num truncation will happen in left.
for eg: if you try to store 123 in 01 x pic 9.
the value of x should 3 not 1.
| Is This Answer Correct ? | 5 Yes | 0 No |
Answer / amaranatha reddy
this is AMAR(amaran.akg@gmail.com)9043264468
the correct ans: " C "
we 've 4 options, in that no need to check "f" value
next,about "E"
E pic 9(1)
A*C=E
9.5*0.8=7.6[9(1)=7]
hence E=7
now we go C&D for our solution
about "D":
---------
D=B+C+A=9+0.8+9.5=19.3
according to question
"D" i rounded
as per our answer data trunk-ed occur
for numeric literals data assigning is from right to left
-------------
(for integer positions)&left to right(for decimal positions)
------------------------------------------------------------
so Value of "D"=9
--------
hence solution is\ ""C"" \
----------
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / 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 |
A paragraph PARA-X is to be executed when none of the data names A, B and C have value of 1. Which of the following will achieve this ? (a) IF A NOT = 1 OR B NOT = 1 OR C NOT = 1 PERFORM PARA-X (B) IF NOT A= 1 AND B= 1 AND C = 1 PERFORM PARA-X (C) IF A NOT =1 IF NOT B = 1 OR C= 1 PERFORM PARA-X (C) IF A NOT = 1 AND B NOT = 1 AND C NOT = 1 PERFORM PARA-X
How to Pass table from a cobol program to another cobol program and how to use that table in called program
What are the pertinent COBOL commands?
what is the difference between Plan & package?
How do u debug a S0C7 abend? (aswered till we get the field which caused that) After knowing the field which caused that how do u know the record which caused that if it is in production env? (dumb) Ok let us assume that we got to know that 100th record caused that and I wanted to skip only 100th record from the file and process from 101th. How to do that in JCL using SORT? (tried with STOPAFT but ended up dumb when he said smthing else is ther)
what is the difference between COBOL2 AND COBOL390?
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?
A s9(4). B v9(4) value 0.21 can i move this?
Can anyone please give the example of Inline Perform.
Difference between cobol and cobol-ii?
How can we know that cobol program is using report file or simple file....?
wht is the diff b/w if and evaluate stmts ?