How to code fscode 10 in cobol program? Where yoy code in your
pgm?give ans for the question.
- 2 Answers
- 9100 Views
- IBM, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
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.
| Is This Answer Correct ? | 8 Yes | 0 No |
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 .
| Is This Answer Correct ? | 8 Yes | 1 No |
If I want to increase the Limit in GDG. What should I do?
The disposition parameter in the jcl is share ( DISP+SHR ) and the program opens file in extend mode what will happen?
What care has to be taken to force program to execute above 16 Meg line?
what r the types of perform statement
IF there 5 to 6 files in a JCL and there is some space abends, how can we identify which file has space abend and what can be done to get off that abend or rectify that abend.
Can we move X(7) to S9(7) COMP?
Give some examples of command terminators?
how to fetch the record before the last record in a cobol file( its a huge file and if the key field is not known)
what is the advantage of sync class
how to run sub programs using static and dynamic call ...
What is the reference modification.
Why do we code s9 (4) comp. Inspite of knowing comp-3 will occupy less space?
COBOL 
