How to code fscode 10 in cobol program? Where yoy code in your
pgm?give ans for the question.
Answer Posted / 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 |
Post New Answer View All Answers
INREC AND OUTREC? HOW TO SPLIT 5K RECORDS TO DIFFERENT FILES IN A FILE IN COBOL? RESTART IN COBOL-DB2? ISOLATION LEVELS?
what is the difference between COBOL2 AND COBOL390?
What is the usage of comp fields in cobol?
What are 77 levels used for?
Name the sections present in data division.
what are decleratives in cobol?
What is the utilization of copybook in cobol?
what is amode(24), amode(31), rmode(24) and rmode(any)?
Write a program that uses move corresponding.
What is rmode(24)
What are the different rules of SORT operation?
What kind of error is trapped by on size error option?
Difference between cobol and cobol-ii?
how do you reference the variable unblock file formats from cobol programs
What is the compute verb? How is it used?