COBOL85 Parameters lists the allowable parameters to a COBOL85 library and the corresponding ALGOL parameters. For further information about COBOL85 parameters, refer to the COBOL ANSI-85 Programming Reference Manual, Volume 1: Basic Implementation.
Table 14. COBOL85 Parameters
|
ALGOL Parameter |
Corresponding COBOL85 Parameters |
||
|---|---|---|---|
|
DOUBLE |
DOUBLE level 77 |
||
|
DOUBLE ARRAY |
DOUBLE level 01 |
||
|
(Double Integer)
|
BINARY level 77, 12 to 23 digits Integer (COMPUTATIONAL) 12 to 23 digits |
||
|
(Double Integer Array)
|
BINARY level 01, 12 to 23 digits |
||
|
EBCDIC ARRAY |
DISPLAY |
||
|
EBCDIC STRING |
String (DISPLAY) |
||
|
HEX ARRAY |
COMPUTATIONAL and INDEX |
||
|
INTEGER |
BINARY level 77, 1 to 11 digits Integer (COMPUTATIONAL) 1 to 11 digits |
||
|
INTEGER ARRAY |
BINARY level 01, 1 to 11 digits |
||
|
REAL |
REAL level 77 |
||
|
REAL ARRAY |
REAL level 01 |
The BINARY and INTEGER items with 12-23 digits correspond to a data type that is not implemented in ALGOL, but which would be a double-precision integer. These parameter types can be passed only between a COBOL85 client program and a COBOL85 library.
In COBOL85 client programs, the GIVING clause of a CALL statement can specify a variable to receive the value returned by a typed procedure. If the item in the GIVING clause is a level 77 numeric, you can use NEWP Parameters to determine the corresponding procedure type. If the item in the GIVING clause is a level 01 numeric item, the item can match only a procedure of type Integer.
