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 can u pass the values into db2 values from cobol ?

3 Answers   CTS,

---

Please let me know at which Scenarios we will go for STATIC call or DYNAMIC

3 Answers   IBM,

---

what are the limitations of Inline Perform?

3 Answers   Zensar,

---

What is a report item?

0 Answers  

---

SUPPOSE I HAVE 60 CHARACTERS STING. IN THAT I WANT FIND OUT HOW MANY TIMES 'A'(ASSUME)WILL REPEATED AND I HAVE TO PASS 'E' IN PLACE OF 'A'ALONG THAT STRING.

2 Answers   Wipro,

---

---

what if any ,is the syntex error in the following piece of code 01 B PIC A(7) 02 C PIC 9(4) ........ IF(B NUMERIC) ADD 10 TO C a.the condition in the if statement is wrong b.noting is wrong c.because C is initialised.ADD 10 TO C is wrong d.both B and C shoud have same size.

5 Answers   TCS,

---

what is the difference between COBOL2 AND COBOL390?

0 Answers   L&T,

---

I have a source program compiled with Cobol-2. The output file has a record length of 100 defined in the program but a record of 60 bytes getting written into it. i.e. The rest of 40 bytes I am not Writing anything. But it by default puts some values into the last 40 bytes. However it does not impact anything. But when Compiled the module with Enterprise Cobol the last 40 bytes were spaces as fillers. Can anyone explain?

5 Answers   Cognizant,

---

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?

6 Answers  

---

Determine the total no of bytes in the following. 01 rec1. 02 a pic x(6) 02 b redefines a. 03 c occus 6 times pic 9. 02 d occurs 6 times pic 9. 03 e pic x(5) 03 f pic 999.

12 Answers  

---

1.give the details about WHEN OTHER. 2. how many form are available in evaluate.

0 Answers   IBM,

---

what is label record is standard or omitted in file description of data division?

3 Answers   IBM, TCS,

---