Compaq COBOL AAQ2G1FTK User 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
item_list_3
item_list_pair
item_quota_list
lock_id
lock_status_block
lock_value_block
logical_name
longword_signed
longword_unsigned
mask_byte
mask_longword
mask_quadword
mask_word
null_arg
octaword_signed
octaword_unsigned
page_protection
procedure
process_id
process_name
quadword_signed
quadword_unsigned
rights_holder
rights_id
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.
13–10 Using Compaq COBOL in the Alpha Common Language Environment
COBOL Definition
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.
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.
NA
01 LOCK-ID PIC 9(9) COMP.
NA
NA
01 LOG-NAME PIC X TO X(255).
01 LWS PIC S9(9) COMP.
2
01 LWU PIC 9(9) COMP.
1
NA . . . PIC X.
2
01 MLW PIC 9(9) COMP.
01 MQW PIC 9(18) COMP.
2
01 MW PIC 9(4) COMP.
CALL . . . USING OMITTED or
PIC S9(9) COMP VALUE 0
passed USING BY VALUE.
NA
NA
01 PAGE-PROT PIC 9(9) COMP.
01 ENTRY-MASK PIC 9(9) COMP.
2
01 PID PIC 9(9) COMP.
01 PROCESS-NAME PIC X TO X(15).
01 QWS PIC S9(18) COMP.
01 QWU PIC 9(18) COMP.
01 RIGHTS-HOLDER.
02 RIGHTS-ID PIC 9(9) COMP.
02 ACCESS-RIGHTS PIC 9(9) COMP.
01 RIGHTS-ID PIC 9(9) COMP.
2
2
2
2
2
2
2
2
(continued on next page)