COBOL Manual for TNS and TNS/R Programs

Procedure Division Verbs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
9-118
LOCKFILE
Example 9-42. LOCKFILE Statement With TIME LIMIT Phrase
SELECT IN-MASTER-FILE
ASSIGN ...
...
FILE STATUS IS IN-MASTER-STATUS.
...
FD IN-MASTER-FILE.
...
PROCEDURE DIVISION.
DECLARATIVES.
DECL SECTION.
USE AFTER ERROR PROCEDURE ON IN-MASTER-FILE.
DECL-ROUTINE.
IF GUARDIAN-ERR NOT = 40
STOP RUN
END-IF
END DECLARATIVES.
...
OPEN INPUT IN-MASTER-FILE WITH TIME LIMITS SHARED
LOCKFILE IN-MASTER-FILE
TIME LIMIT WAIT-TIME
IF IN-MASTER-STATUS NOT = "00"
IF GUARDIAN-ERR = 40
PERFORM RECOVER-MASTER-LOCK
END-IF
END-IF
PERFORM UP-DATE-MASTER UNTIL DONE
MOVE 0 TO M-FLAG
UNLOCKFILE IN-MASTER-FILE
...