Problem while using C ALL

Paul1983 · New User Joined: 08 Jul 2008 Posts: 37 Location: bangy

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.

Thanks,
Paul

Bill Dennis · Posted: Fri Aug 01, 2008 9:57 pm

I don't have an example, but you can assign line labels and then specify the range on the change command.

find PROCEDURE and assign label .A
go to last line and assign label .B
do a C 'A' 'B' ALL .A .B

Pedro · Posted: Fri Aug 01, 2008 9:59 pm

CHANGE ALL, really means change all. I am not sure why you would expect it to automatically skip some.

Use labels to narrow the scope of the change, something like this:

Paul1983 · New User Joined: 08 Jul 2008 Posts: 37 Location: bangy

Thanks a lot for the information

Thanks & Regards,
Paul