COBOL Manual for TNS/E Programs (H06.08+, J06.03+)
Procedure Division Verbs
These HP extensions to ISO/ANSI COBOL involve Procedure Division verbs:
• For developing fault-tolerant programs to run as process pairs:
CHECKPOINT (page 302)◦
◦ STARTBACKUP (page 460)
◦ SYNCDEPTH phrase of OPEN (page 375)
• To mark the beginning of a parameter list, the USING phrase of ENTER (page 319)
• To specify a data item that stores the value a function returns, the GIVING phrase of ENTER
(page 319)
• To control file access and maintain the integrity of data bases in transaction-processing
applications or other applications that allow multiple access to files:
◦ LOCKFILE (page 358)
◦ UNLOCKFILE (page 472)
◦ UNLOCKRECORD (page 473)
◦ TIME LIMITS phrase of these statements:
OPEN (page 375)–
– READ (page 405)READ
– START (page 449)START
◦ EXCLUSIVE, SHARED, and PROTECTED phrases of OPEN (page 375)
◦ LOCK phrase of READ (page 405)
◦ UNLOCK phrase of REWRITE (page 423)
• To display a prompt before a read operation, PROMPT phrase of READ (page 405)
• REVERSED phrase of READ (page 405)
• To specify an object file that contains a program unit, the OF or IN phrase of these statements:
CALL (page 293)◦
◦ CANCEL (page 301)
◦ ENTER (page 319)
• Parameters of CALL (page 293) can be at levels other than 01 or 77 and, under some conditions,
can be subscripted
• Specification of any type of conditional expression in the WHEN phrase of SEARCH ALL
(page 432) (at the cost of not being able to use binary searching in that case)
• To enable different methods of positioning files, the POSITION, GENERIC, and APPROXIMATE
phrases of START (page 449)
• PARAGRAPH, SECTION, and PERFORM CYCLE options of EXIT (page 330), which transfer
control to the end of the paragraph, section, and PERFORM cycle, respectively
• The GUARDIAN-ERR special register is updated each time a file-manipulating statement is
executed. The value of GUARDIAN-ERR usually provides more specific information about the
cause of an unsuccessful completion signaled by the file-status data item. For example, if the
Procedure Division Verbs 707