COBOL74 Parameters lists the allowable parameters to a COBOL74 library and the corresponding ALGOL parameters. For further information about COBOL74 parameters, refer to the COBOL ANSI-74 Programming Reference Manual, Volume 1: Basic Implementation.
Table 13. COBOL74 Parameters
|
ALGOL Parameter |
Corresponding COBOL74 Parameters |
|---|---|
|
DOUBLE |
BINARY, 77 12-23 digits DOUBLE, 77 |
|
DOUBLE ARRAY [0] |
DOUBLE, 01 |
|
EBCDIC ARRAY [0] |
COMP, 01 group item DISPLAY, 01 INDEX, 01 group item |
|
EBCDIC STRING (nonresizable) |
DISPLAY item in STRING clause |
|
EVENT |
EVENT, 77 |
|
EVENT ARRAY [0] |
EVENT, 01 |
|
FILE |
FILE |
|
HEX ARRAY [0] |
COMP, elementary 01 and 77 INDEX, 01 elementary item |
|
INTEGER |
BINARY, 77 1-11 digits COMP item in INTEGER clause |
|
INTEGER ARRAY [0] |
BINARY, 01 (If $INTEGERBNRY = TRUE, the default) |
|
PROCEDURE |
TRANSACTION PROCEDURE |
|
REAL |
REAL, 77 |
|
REAL ARRAY [0] |
BINARY, 01 (If $INTEGERBNRY = FALSE) REAL, 01 |
|
TRANSACTION RECORD |
TRANSACTION RECORD |
|
TRANSACTION RECORD ARRAY [0] |
TRANSACTION RECORD ARRAY |
In COBOL74 client programs, the GIVING clause of a CALL statement specifies a variable to receive the value returned by a typed procedure. If the item in the GIVING clause is a level 77 REAL, the procedure must be of type real. If the item in the GIVING clause is a level 77 DOUBLE, the procedure must be of type double. If the item in the GIVING clause is of any other type, the procedure must be of type integer, and the system converts the integer value returned by the procedure to the data type specified in the GIVING clause. If there is no GIVING clause, the procedure must be untyped.
