Using Compaq COBOL in the Alpha Common Language Environment
13.4 Calling Routines
Table134 (Cont.) COBOL Implementation of the OpenVMS Alpha Data Types(OpenVMS)
OpenVMS Alpha Data
Type COBOL Denition
item_list_3 01 ITEM-LIST-3.
02 ITEM-LIST OCCURS n TIMES.
04 BUF-LEN PIC S9(4) COMP.
04 ITEM-CODE PIC S9(4) COMP.
04 BUFFER-ADDRESS PIC S9(9) COMP.
04 LENGTH-ADDRESS PIC S9(9) COMP.
02 TERMINATOR PIC S9(9) COMP VALUE0.
item_list_pair 01 ITEM-LIST-PAIR.
02 ITEM-LIST OCCURS n TIMES.
04 ITEM-CODE PIC S9(9) COMP.
04 ITEM-VALUEPIC S9(9) COMP.
02 TERMINATOR PIC S9(9) COMP VALUE0.
item_quota_list NA
lock_id 01 LOCK-ID PIC 9(9) COMP.2
lock_status_block NA
lock_value_block NA
logical_name 01 LOG-NAME PIC X TO X(255).
longword_signed 01 LWSPIC S9(9) COMP.
longword_unsigned 01 LWUPIC 9(9) COMP.2
mask_byte NA . . . PIC X.1
mask_longword 01 MLWPIC 9(9) COMP.2
mask_quadword 01 MQW PIC 9(18) COMP.2
mask_word 01MW PIC 9(4) COMP.2
null_arg CALL . . . USING OMITTED or
PIC S9(9) COMP VALUE0
passed USING BY VALUE.
octaword_signed NA
octaword_unsigned NA
page_protection 01PAGE-PROT PIC 9(9) COMP.2
procedure 01 ENTRY-MASKPIC 9(9) COMP.2
process_id 01PID PIC 9(9) COMP.2
process_name 01 PROCESS-NAME PIC X TO X(15).
quadword_signed 01 QWS PIC S9(18) COMP.
quadword_unsigned 01 QWU PIC 9(18) COMP.2
rights_holder 01 RIGHTS-HOLDER.
02 RIGHTS-ID PIC 9(9) COMP.2
02 ACCESS-RIGHTS PIC 9(9) COMP.2
rights_id 01RIGHTS-ID PIC 9(9) COMP.2
1Most 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.
2Although 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.
(continued on next page)
1310 Using Compaq COBOL in the Alpha Common Language Environment