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 |
Can a REDEFINES clause be used along with an OCCURS clause? if yes, 01 WS-TABLE. 03 WS-TABLE-EL OCCURS 5 TIMES PIC X(1) VALUE 'A'. 03 WS-EX REDEFINES WS-TABLE-EL PIC X(5). What can you expect? if no,why?
how do you define single dimensional array and multidimensional array in your cobol?
We have 3 programms A,B,C.In the middle of the program A the controls goes to program B and in the middle of the program B control wants to go program C,after completion of program C again control comes to program B and again after completion of program B control comes to program A.How the process will takes and what are the controls we use for that process.If it is possible anybody of you explain with example?
what is sync clause?
Please let me know how the Eject verb works for page break.. I want to know the code, how it is used.
what is the difference between perform varying and perform until
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
How to read the last 100 records from a COBOL file. The file contains N number of records.
how do you move only numeric data from A to B 01 A pic x(10) value 'a1b2c34d5e'. 01 B pic x(5).
how to transfer the file from pc to mainframe??
can we use 77 level no for Redefines?if we use give an example?
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)?