How do we check for the return code ISREDIT ? Actually I want to change some literals say 'A' to 'B' after Procedure division. I'm finding for the Procedure division and then doing a C ALL. But its changing all the literals 'A' in the program. I want only the one that's occuring after PROCEDURE DIVISION.