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


Please Help Members By Posting Answers For Below Questions

How can we find that module can be called – whether DYNAMICALLY or STATICALLY?

705


Write a program to explain size error.

667


) How do u handle errors in BMS macro

1500


Define cobol?

856


what is difference between cobol and cobol/400

21551






What is the difference between Structured COBOL Programming and Object Oriented COBOL programming?

670


What is an in line perform? When would you use it? Anything else you wish to say about it.

639


Have you used comp and comp-3 in your project? And how?

2003


Why did you choose to work with ibm mainframe cobol programming?

625


Write a cobol program making use of the redefine clause.

723


What rules are followed by the search verb.

630


How to fetch 1000 error records from VSAM file(Eg: 1000000 records present) while getting SOC7 abend ?

1921


What type of SDLC u followed? Why?

1514


Explain how to differentiate call by context by comparing it to other calls?

679


What are the different rules to perform a Search?

613