COBOL Manual for TNS/E Programs (H06.08+, J06.03+)

file status is 30 (permanent error), GUARDIAN-ERR contains the file system error number
identifying the cause. See Diagnosing Input-Output Errors (page 251).
• Additional special registers:
PROGRAM-STATUS◦
◦ PROGRAM-STATUS-1
◦ PROGRAM-STATUS-2
◦ RETURN-CODE
• If the program is compiled with the PORT directive, CALL (page 293) behaves like the X/OPEN
CALL statement, which is not an element of COBOL (see PORT and NOPORT (page 560)).
• 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.
708 HP Extensions to ISO COBOL