Defines the numeric type of the RETURN-CODE special register.
Note: This directive is supported for native COBOL only.
Syntax:
>>-.---.—RTNCODE-TYPE--"option"--------------><
+-/-+
Parameters:
- option
- Can be one of:
- COMP
- The return-code is of type COMP.
- COMP5
- The return-code is of type COMP-5.
Properties:
| Default:
|
RTNCODE-TYPE"COMP"
|
| Phase:
|
Syntax check
|
| $SET:
|
Initial
|
Dependancies:
Set to RTNCODE-TYPE"COMP5" by DIALECT"BS2000" and DIALECT"BS2000-OFFLOAD".