Compaq COBOL AAQ2G1FTK User Manual page 471

Using Compaq COBOL in the Alpha Common Language Environment
Table 13–4 (Cont.) COBOL Implementation of the OpenVMS Alpha Data Types (OpenVMS)
OpenVMS Alpha Data
Type
ast_procedure
boolean
byte_signed
byte_unsigned
channel
char_string
complex_number
cond_value
context
date_time
device_name
d_floating
ef_cluster_name
ef_number
exit_handler_block
fab
file_protection
function_code
f_floating
g_floating
identifier
io_status_block
item_list_2
1
Most OpenVMS Alpha data types not directly supported in COBOL can be represented as an alphanumeric data item
of a certain number of bytes. While COBOL does not interpret the data type, it may be used to pass objects from one
language to another.
2
Although unsigned computational data structures are not directly supported in COBOL, you may substitute the signed
equivalent provided you do not exceed the range of the signed data structure.
COBOL Definition
01 AST-PROC PIC 9(9) COMP.
01 BOOLEAN-VALUE PIC 9(9) COMP.
1
NA . . . PIC X.
1
NA . . . PIC X.
01 CHANNEL PIC 9(4) COMP.
01 CHAR-STRING PIC X to PIC X(65535).
NA . . . PIC X(n) where n is length.
01 COND-VALUE PIC 9(9) COMP.
01 CONTEXT PIC 9(9) COMP.
1
NA . . . PIC X(8).
01 DEVICE-NAME PIC X(n) where n is length.
01 D-FLOAT USAGE COMP-2.
(when /FLOAT=D_FLOAT)
01 CLUSTER-NAME PIC X(n) where n is length.
01 EF-NO PIC 9(9) COMP.
NA . . . PIC X(n) where n is length.
NA . . . Too complex for general COBOL use. Most of a FAB structure can be
described by a lengthy COBOL record description, but such a FAB cannot then
be referenced by a COBOL I-O statement. It is much simpler to do the
I-O completely within COBOL, and let the COBOL compiler generate the FAB
structure, or do the I-O in another language.
01 FILE-PROT PIC 9(4) COMP.
01 FUNCTION-CODE.
02 MAJOR-FUNCTION PIC 9(4) COMP.
02 SUB-FUNCTION PIC 9(4) COMP.
01 F-FLOAT USAGE COMP-1.
(when /FLOAT=D_FLOAT or /FLOAT=G_FLOAT)
01 G-FLOAT USAGE COMP-2.
(when /FLOAT=G_FLOAT)
2
01 ID PIC 9(9) COMP.
01 IOSB.
02 COND-VAL PIC 9(4) COMP.
02 BYTE-CNT PIC 9(4) COMP.
02 DEV-INFO PIC 9(9) COMP.
01 ITEM-LIST-TWO.
02 ITEM-LIST OCCURS n TIMES.
04 COMP-LENGTH PIC S9(4) COMP.
04 ITEM-CODE PIC S9(4) COMP.
04 COMP-ADDRESS PIC S9(9) COMP.
02 TERMINATOR PIC S9(9) COMP VALUE 0.
Using Compaq COBOL in the Alpha Common Language Environment 13–9
13.4 Calling Routines
2
2
2
1
2
2
2
1
2
2
2
2
2
2
(continued on next page)