Interested to Buy Any Domain ? << Click Here >> for more details...
Consider the following COBOL entries
05 X PIC 99 VALUE 10.
ADD 40 X TO X.
COMPUTE X = 3 * X - 40.
The result in X is
- 12 Answers
- 18859 Views
- TCS, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / muhammad abdul aleem
I doubt if 05 level number will work or not.
But if it works the here is the answer.
Add 40,x to x means X = 10 + 40 + 10 =60
then
x = 60*3 -40
x=180-40
= 140
Since X = 99 so value will be 40
Therefore, Value of X will be 40...
| Is This Answer Correct ? | 26 Yes | 0 No |
Answer / rama krishna
Answer is again 10.
Add 40 to x :
x + 40 : 10 + 40 = 50
X = 3*X - 40
3 * x = 50 * 3 = 150, but since x declared as PIC 99, 1
will be truncated from 150. so now the value of x would be
50. so 50 - 40 is again 10.
| Is This Answer Correct ? | 22 Yes | 6 No |
Answer / varun v
I agree with Ans #4. I also checked the same..Value of X
will be 40...
Please please verify it thouroughly before publishing the
answers...Wrong answers will mislead people..
| Is This Answer Correct ? | 4 Yes | 1 No |
Answer / neelam
I agree with all of them who have answered 40.
It is a simple statement in cobol that
ADD A B TO C. (Means (A+B)+C moved in C)
Here,
ADD 40 X TO X ()
Value of X is 10
So, ADD 40 10 TO 10 (Gives 40+10+10 = 60)
Now, COMPUTE X = 3 * X - 40
Means X = 3 * 60 - 40 (Gives 180 - 40 = 140 )
Since PIC clause for X is 99, hence 140 can't be store in
variable X.
So answer is : 40
| Is This Answer Correct ? | 3 Yes | 0 No |
Answer / akhilesh
FRIENDS HAVE ATTENTION
DIRECTLY CODING 05 LEVEL ENTRY WILL SHOW ERROR
| Is This Answer Correct ? | 2 Yes | 1 No |
Answer / ram g
compiler wont support 05 level direct coding ..assuming
that its a 01 level .. ans is 40.
| Is This Answer Correct ? | 3 Yes | 2 No |
Answer / kumar l
ADD 40 X to X means : 40+X will add to X and result will
be stored in X - Result is 60
Compute X = 3 * X - 40 means : 3*60-40 = 140.
So X value is 140.
| Is This Answer Correct ? | 5 Yes | 6 No |
Answer / suputhru
I agree with Rama Krishna ans: 10
05 X PIC 99 VALUE 10.
ADD 40 X TO X. ----------- x=x+40 x=10+40 x=50
COMPUTE X = 3 * X - 40.------x=(3*50)-40 x=150-40 x=110 since x pic 99--
finally x=10
antheeeeeeeee.
| Is This Answer Correct ? | 1 Yes | 2 No |
Answer / geetanjali
ADD 40 X TO X
***********ADD 40 10 TO X
***********X=X+40+10=60
***********COMPUTE X=3*60-40=120
X=120
| Is This Answer Correct ? | 0 Yes | 1 No |
Suppose i have a Cobol field of 10 byte. it contains a decimal sign.How to know where is the point location?
What are the rules of the move verb?
What is cobol?
What is difference between comp & comp-4?
What is the maximum data length for Numeric DataType ?
example for sub strings ? and refernce modifications whit output pls
0 Answers College School Exams Tests, IBM,
How is sign stored in a comp-3 field?
what is the use of filler in cobol programing?
what is s013u000 for?
What is the difference between CONTINUE & NEXT SENTENCE ?
can anybody post me about file-aid and changemen tools pls and give me reference if any mainframe guys are there
How To move a value to an array using move verb?
COBOL 
