Compaq COBOL AAQ2G1FTK - Manual (Page 472)

Using Compaq COBOL in the Alpha Common Language Environment
13.4 Calling Routines
Table 13–4 (Cont.) COBOL Implementation of the OpenVMS Alpha Data Types (OpenVMS)
OpenVMS Alpha Data
Type
COBOL Definition
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 VALUE 0.
item_list_pair 01 ITEM-LIST-PAIR.
02 ITEM-LIST OCCURS n TIMES.
04 ITEM-CODE PIC S9(9) COMP.
04 ITEM-VALUE PIC S9(9) COMP.
02 TERMINATOR PIC S9(9) COMP VALUE 0.
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 LWS PIC S9(9) COMP.
longword_unsigned 01 LWU PIC 9(9) COMP. 2
mask_byte NA . . . PIC X. 1
mask_longword 01 MLW PIC 9(9) COMP. 2
mask_quadword 01 MQW PIC 9(18) COMP. 2
mask_word 01 MW PIC 9(4) COMP. 2
null_arg CALL . . . USING OMITTED or
PIC S9(9) COMP VALUE 0
passed USING BY VALUE.
octaword_signed NA
octaword_unsigned NA
page_protection 01 PAGE-PROT PIC 9(9) COMP. 2
procedure 01 ENTRY-MASK PIC 9(9) COMP. 2
process_id 01 PID 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 01 RIGHTS-ID PIC 9(9) COMP. 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.
(continued on next page)
13–10 Using Compaq COBOL in the Alpha Common Language Environment