I have a REXX procedure which updates an ISPF table. It allocates the table library and opens the table like this:
address TSO
"allocate dataset('"||tabllib||"') file(SH4TLIB) reuse shr"
address ISPEXEC "tbopen "tb_name" write library(SH4TLIB) share"
At the end of the procedure it closes the table and frees the library like this:
address ISPEXEC "tbclose "tb_name" library(SH4TLIB)"
address ISPEXEC "tbopen junk library(ddjunk)"
address TSO
"free f(SH4TLIB)"
The procedure all works fine, but it leaves an outstanding EXCL OWNER ENQ on the table library. Any ideas on how I can delete this ENQ?
Thanks for any help and advice.
Richard.