IBM Mainframe Forum

Hi All,

I have a requirement where I have to find certain words in a COBOL program using an Edit Macro (I will be using both Rexx and Edit Macro commans in the same code). I have to first find the occurence of the PROCEDURE DIVISION and then the WORKING-STORAGE. I use the "FIND" command to accomplish this. It works fine when I am searching for the first term, however on searching for the second term, I get a RC(-4) although the second term (ie, WORKING-STORAGE) is present.

Please find below a snippet of the code. Both the FIND commands are issued in separate subroutines that are called consecutively.



I don't seem to understand what the problem is. It would be great if someone can help me out with this!

what you posted is completely useless !

that' s just the <pseudocode> You will have to post the REAL code!

That would make sense, because once you are positioned on "Procedure division" you will get "bottom reached" when searching for "Working-storage".
Maybe you should locate back to the top , or do a "find first"

Thank you Guy!
"FIND FIRST" solved the issue!