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
- 18876 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 |
In a program, variables are used but no DB2 involved in it. Can you call it as host variables??
How does IDMS insure data integrity?
why do u need inspect verb?
how to pass 100 to s9(4) how r they inserted ?
What is binary search?
i have a sequencial file contains multiple records, i want to extract one row which contains various fields like order number,date,warehouse,.ect.. in to the another file by accepting the order number from jcl. how can i do it. pls help me..
can we use COPY statement in w-s section? how?
Write a cobol program making use of the redefine clause.
can we use the two 01 level in file discription ?
What will happen if we move SPACES to numeric field and ZEROES to alphabetic field?
What is reference modification? What is UNION in sql and syntax? What is the difference between GDGS and VSAM? Which is prefer one? What is processing groups in endevor?
can anybody post me about file-aid and changemen tools pls and give me reference if any mainframe guys are there
COBOL 
