glseniaga wrote:
If a file is opened in a subroutine, any locks will be released when
the subroutine ends. This is what you are doing here. you may be
opening the file in the calling program but firstly the file variable
"FILE" is not passed to the subroutine, and secondly the READU
statement in the subroutine uses FILE which is opened on line 2 of the
subroutine.


I think line 3 of the calling prog should be
CALL PROG2(FILE,FILE.ITEM,ITEM.ID)

Line 1 of the subroutine should be
SUBROUTINE PROG2(FILE,FILE.ITEM,ITEM.ID)
and line 2 of the subroutine should be deleted.

Rgds
Symeon.

Thanks for all the suggestions. I have it working now. I'm now
passing all file vars needed and NOT opening them in the called code.
The lock now holds until I release it.
Symeon wrote:

A trick you may wish to incorporate is to put the LOOP and READNEXT
together. As long as there is a next record READNEXT returns a TRUE to the
LOOP.

SUBROUTINE PROG2(FILE.ITEM,ITEM.ID)
OPEN "FILE" TO FILE ELSE
CRT "'FILE' ERROR"
RETURN
END
SELECT FILE
LOOP WHILE READNEXT FILE.ID DO
READU FILE.ITEM FROM FILE,ITEM.ID LOCKED
CRT "RECORD '":FILE.ID:"' LOCKED BY ANOTHER PROCESS"
END ELSE
CRT "ERROR READING '":FILE.ID:"'"
END
REPEAT
CRT "COMPLETE"
RETURN

"glseniaga" <glseniaga (AT) alltel (DOT) net> wrote

This works fine on UniData v7.1:

TEST
001: SUBROUTINE TEST
002: OPEN '', 'VOC' TO VOC.FV ELSE RETURN
003: READU TESTREC FROM VOC.FV, 'TEST' ELSE NULL
004: RETURN
005: END

2 Demo (0)->BPTEST OPEN '', 'VOC' TO VOC.FV ELSE STOP 201, 'VOC' ; CALL TEST
; INPUT ZZ,1 ; END

The lock is set until I press [Enter] at the "INPUT ZZ,1" prompt of the
calling program.

3 Demo (0)-> LIST.READU
UNO UNBR UID UNAME TTY FILENAME RECORD_ID M TIME
DATE
4 2248 197615 wphasket pts/4 VOC TEST X 14:06:54 Oct
04

I'm wondering if there isn't some setting in UniVerse to act like this.

Bill

"glseniaga" <glseniaga (AT) alltel (DOT) net> wrote