Answer / adarsh

File status 10 specifies that there are no records to read
in a file.
We can use anywhere in the program after opening the file
and before closing the file.

Answer / manikandesvaran

After sucessfull read just check the file status code
associated.
For ex.
PERFORM UNTIL WS-FILE-REC-EOF
READ INP-DATA INTO WS-FLE-INP-REC
AT END
SET WS-FILE-REC-EOF TO TRUE
END-READ

IF WS-INP-FLE-STATUS = ZEROS OR 10
CONTINUE
ELSE
DISPLAY '------------ERROR-----------------------'
END-IF.

Hope this will help .

can we use 77 level no for Redefines?if we use give an example?

3 Answers   Mphasis,

---

how to convert vsam table into DB2 table?

1 Answers   IBM, Wipro,

---

COBOL Snippet: Tell where the control will when the below code execute IF (A=B) CONTINUE ELSE NEXT SENTENCE PERFORM <IMP-STMT> END-IF.

7 Answers   HCL,

---

There is a production file which has millions of records in it.The program that uses it ends up with an SOC7 abend.It is sure that the abend is due to some invalid data in the file.Is there any way to debugg the SOC7 abend with out giving displays? I need the record which is cause for the abend.

8 Answers   Danske, iGate,

---

What is the difference between write & move in COBOL?

3 Answers   CSC, HHB,

---

Which of the following EDITind and PICTURE symbols is to be used if a minus(-) is to appear before the value if the value is -ve and a plus(+) is to appear before the value if the value is +ve? (a) + (b) - (c) + OR (d) It is not possible

7 Answers   TCS,

---

What is comp-1 and comp-2?

0 Answers  

---

What is the difference between static call & Dynamic call?

2 Answers   CSC, TCS,

---

I have a field with data type X(10). I want to perform arithmetic operation on this field? I tried doing it by moving the value into a numeric field. but it didn't work out. I am getting a S0C7 abend. Pls let me know if there is any way of getting this done?

1 Answers  

---

what r the types of perform statement

4 Answers  

---

How to read records in reverse order in flat file? I know we can do it by reading all records into an array.... Then read records in reverse order by using subscript or index but can any body give me the exact code.

5 Answers   TCS,

---

What is the use of EVALUATE statement?

4 Answers   Tesco,

---