Answer / shinoy sansilavose

EVALUATE
WHEN A=B AND C=D
imperative stmt

WHEN (D+X)/Y = 4
imperative stmt
WHEN OTHER
imperative stmt
END-EVALUATE

EVALUATE SQLCODE ALSO FILE-STATUS
WHEN 100 ALSO '00'
imperative stmt
WHEN -305 ALSO '32'
imperative stmt
WHEN OTHER
imperative stmt
END-EVALUATE

EVALUATE SQLCODE ALSO A=B
WHEN 100 ALSO TRUE
imperative stmt

WHEN -305 ALSO FALSE
imperative stmt
END-EVALUATE

EVALUATE SQLCODE ALSO TRUE
WHEN 100 ALSO A=B
imperative stmt
WHEN -305 ALSO (A/C=4)
mperative stmt
END-EVALUATE

Answer / ch.mohan

two forms
1)true
2)option

How To Separate The Numerics From An Alphanumric Data Item Which Contains Both Alphabates And Numerics ?

4 Answers  

---

how do you reference the ksds vsam file formats from cobol programs

0 Answers  

---

What is Redefines clause?

8 Answers  

---

can anybody post me about file-aid and changemen tools pls and give me reference if any mainframe guys are there

0 Answers  

---

If i have a variable A pic 9(2) value 10 Compute A = a - 100 what will be the value of A and will there be any error becoz of the Negative value

3 Answers   CTS,

---

What are the divisions in a cobol program? Which one is the mandatory division among them?

1 Answers  

---

diffrence between z(2) and z9(2)

4 Answers   Cap Gemini,

---

If I want to increase the Limit in GDG. What should I do?

2 Answers   IBM,

---

give the examples of strings in cobol

1 Answers   IBM,

---

i have mainprogram and subgram...if i compile mainprogram without stop run..what will u get in compilation time?

5 Answers   HCL,

---

Give some advantages of REDEFINES clause?

2 Answers   Syntel,

---

With in these three which one is the default one Call Reference, Call By Value, Call By Content.-Which one is default?

4 Answers   IBM,

---