COBOL Manual for TNS and TNS/R Programs

HP Extensions to ISO COBOL
HP COBOL Manual for TNS and TNS/R Programs—522555-006
17-5
Procedure Division Verbs
•
To enable different methods of positioning files, the POSITION, GENERIC, and
APPROXIMATE phrases of START
•
PARAGRAPH, SECTION, and PERFORM CYCLE options of EXIT, 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 file status is 30 (permanent error),
GUARDIAN-ERR contains the file system error number identifying the cause. See
Diagnosing Input-Output Errors.
•
Additional special registers:
°
PROGRAM-STATUS
°
PROGRAM-STATUS-1
°
PROGRAM-STATUS-2
°
RETURN-CODE
•
If the program is compiled with the PORT directive and runs in the CRE, CALL
behaves like the X/OPEN CALL statement, which is not an element of COBOL
(see PORT and NOPORT).
•
SET TO statement for pointers
In COBOL, identifier-3 is a data item in the Linkage Section of any level
except 66 or 88; in HP COBOL, it is any data item in the Linkage Section or Data
Division of any level except 88.
•
MOVE TO statement with sender with decimal digits
The 1985 COBOL standard does not allow decimal positions in a numeric item
used as sender in a MOVE TO statement. HP COBOL does allow decimal
positions in such an item. The decimal point is ignored and sender is handled as
if it were an alphanumeric item whose size is equal to the number of 9s in the
PICTURE clause. If its USAGE is not DISPLAY, it is converted to DISPLAY for the
move operation.