In the Read statement on the maintenance program that is doing the I-O read?
1. With MF's help, our programs were converted using their modernization tool & then editing by our staff - we are NOT using dialect(rm)
2. We converted our data files to MF
3. We do not use any lock clauses so whatever is the default is in play.
As I stated in my original post, WITH IGNORE LOCK will not compile. The compiler in says IGNORE is invalid. The files in question are indexed files. We do have the RETRYLOCK in our cobol.dir file.
4. Regarding test case - very simple. Program A - maintenance program does a read on a I-O file. The report program has the file opened for input. Does a start on the file and then a read next. If someone is sitting on a record in program A, the report program will lock up or stop at the point where it tries to read the record open in Program A.
select file assign to random "apy68"
organization is indexed
access mode is dynamic
record key is file-key
*****select has multiple alternate keys as well.
Program A:
open i-o file
.
.
.
move co-no to file-co-no
move location to file-location
move item-no to file-item-no
read file invalid key
close file
exit.
Report Program
open input file
.
.
.
.
move location to file-location
move co-no to file-co-no
move space to file-item-no
start file key not less than file-key
invalid key move error-msg
display error-msg.
if not eof
read file next record
at end move "Y" to eof.