Technical data

READY
DBM$_AREABUSY Your usage mode conflicts with another run unit’s usage
mode. See Figure 4–1.
Additional References
• HP COBOL Reference Manual, Chapter 6, section on scope of statements
• Section 4.8.1, on database On Error condition
Example
Depending on the contents of PROCESS-MODE, this statement readies the BUY,
MAKE, and PERSONNEL realms in either PROTECTED UPDATE mode or
CONCURRENT RETRIEVAL mode (default for USAGE-MODE).
IF PROCESS-MODE = "UPDATE"
READY BUY, MAKE, PERSONNEL
USAGE-MODE IS PROTECTED UPDATE
ON ERROR DISPLAY "ERROR READYING . . . "
DISPLAY "IN PROTECTED UPDATE MODE . . . "
PERFORM ERROR-ROUTINE
END-READY
PERFORM UPDATE-ROUTINE
ELSE
READY BUY, MAKE, PERSONNEL
ON ERROR DISPLAY "ERROR READYING . . . "
DISPLAY "IN CONCURRENT RETRIEVAL MODE . . . "
PERFORM ERROR-ROUTINE
END-READY.
4–52 Procedure Division