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

what is the use of outrecord?

0 Answers  

---

01 xxx pic 9(4). 01 yyy pic 9(6). move 123456 into yyy. move yyy to xxx. display yyy. what would be the value of yyy

13 Answers   HSBC,

---

Have you code any new programs in COBOL ? What is the functionality of the programs?

2 Answers   Patni, Xansa,

---

what is index and how to use two tables using index?

1 Answers  

---

How to retain the Duplicates in the one records?

3 Answers   CS,

---

What are VS COBOL 11 special features?

1 Answers  

---

)If there are 10 steps in GDG, if I want to refer the step2 after step5 . what should I do?

0 Answers   IBM,

---

Read filea And file b write the same records in both files? Records in a but not in b record in b but not in a

3 Answers   TCS,

---

What is Redefines clause?

8 Answers  

---

When would you use in-line perform?

2 Answers  

---

how would find total records in files using seqientional

1 Answers   HSBC,

---

whn do i get soc7 abend while moving alphanumeric to numeric or while moving numeric to aplhanumeric please reply ASAP?

9 Answers  

---