Operating System - OpenVMS
1748205 Members
4015 Online
108759 Solutions
New Discussion юеВ

Re: COBOL - CALL LIB$RENAME_FILE limitiations?

 
SOLVED
Go to solution
Hitesh Rawal
Advisor

Re: COBOL - CALL LIB$RENAME_FILE limitiations?

OK. Got it.

My find_end was nested in an IF and not getting executed!

I now do the following:
loop
find
read
process
close
find_end
rename
end_loop

All is now OK. I may still do the analysis and see if find_end immediately after the find reduces the channels used.

Thank you very much for your help.
John Gillings
Honored Contributor

Re: COBOL - CALL LIB$RENAME_FILE limitiations?

Hitesh,

>and the program fails whenever it
>reaches the 286th file.

For future reference, it would be very helpful to catch the completion status of any suspect routines, and post the EXACT text of any error messages you see.

CALL "LIB$RENAME_FILE"
USING BY DESCRIPTOR WS-TRF-FILENAME
BY DESCRIPTOR WS-RENAME-FILENAME
GIVING RENAME-STATUS
END-CALL.

A crucible of informative mistakes
Hitesh Rawal
Advisor

Re: COBOL - CALL LIB$RENAME_FILE limitiations?

John,

I would have posted the error but didn't actually have one. The error handling routines were not being reached and the status contained a control character.

My program was displaying a 'failed to rename' error but could not decypher the status code.

That being the case, I had no idea what the error was. All I knew was that the program was terminating aftre the 286th file.

On future postings I will paste in the error(s), messages, etc.

Regards
Hitesh