%DECLARE (VMS_ACCESS_MODE, VMS_ADDRESS, VMS_ADDRESS_RANGE,
    VMS_BYTE_SIGNED, VMS_BYTE_UNSIGNED, VMS_CHANNEL, VMS_PID,
    VMS_COND_VALUE, VMS_CONTEXT, VMS_DATE_TIME, VMS_EF_NUMBER,
    VMS_FILE_PROTECTION, VMS_FUNCTION_CODE, VMS_NULL_ARG,
    VMS_IDENTIFIER, VMS_IO_STATUS_BLOCK, VMS_LOCK_ID, VMS_LOCK_STATUS_BLOCK,
    VMS_LONGWORD_SIGNED, VMS_LONGWORD_UNSIGNED, VMS_MASK_BYTE,
    VMS_MASK_LONGWORD, VMS_MASK_QUADWORD, VMS_MASK_WORD, VMS_OCTAWORD_SIGNED,
    VMS_OCTAWORD_UNSIGNED, VMS_PAGE_PROTECTION, VMS_PROCESS_ID,
    VMS_QUADWORD_SIGNED, VMS_QUADWORD_UNSIGNED, VMS_RIGHTS_HOLDER,
    VMS_RIGHTS_ID, VMS_SECTION_ID, VMS_SYSTEM_ACCESS_ID, VMS_UIC,
    VMS_WORD_SIGNED, VMS_WORD_UNSIGNED) CHARACTER;

%VMS_BYTE_SIGNED = 'FIXED BINARY (7)';
%VMS_BYTE_UNSIGNED = 'FIXED BINARY (7)';
%VMS_WORD_SIGNED = 'FIXED BINARY (15)';
%VMS_WORD_UNSIGNED = 'FIXED BINARY (15)';
%VMS_LONGWORD_SIGNED = 'FIXED BINARY (31)';
%VMS_LONGWORD_UNSIGNED = 'FIXED BINARY (31)';
%VMS_QUADWORD_SIGNED = 'BIT (64) ALIGNED';
%VMS_QUADWORD_UNSIGNED = 'BIT (64) ALIGNED';
%VMS_OCTAWORD_SIGNED = 'BIT (128) ALIGNED';
%VMS_OCTAWORD_UNSIGNED = 'BIT (128) ALIGNED';

%VMS_ACCESS_MODE = VMS_BYTE_UNSIGNED;
%VMS_ADDRESS = 'POINTER';
%VMS_ADDRESS_RANGE = '(2) POINTER';
%VMS_CHANNEL = VMS_WORD_UNSIGNED;
%VMS_COND_VALUE = VMS_LONGWORD_UNSIGNED;
%VMS_CONTEXT = VMS_LONGWORD_UNSIGNED;
%VMS_DATE_TIME = VMS_QUADWORD_SIGNED;
%VMS_EF_NUMBER = VMS_LONGWORD_UNSIGNED;
%VMS_FILE_PROTECTION = 'BIT (16) ALIGNED';
%VMS_FUNCTION_CODE = 'BIT (32) ALIGNED';
%VMS_IDENTIFIER = 'FIXED BINARY (31)';
%VMS_LOCK_ID = VMS_LONGWORD_UNSIGNED;
%VMS_MASK_BYTE = 'BIT (8) ALIGNED';
%VMS_MASK_LONGWORD = 'BIT (32) ALIGNED';
%VMS_MASK_QUADWORD = 'BIT (64) ALIGNED';
%VMS_MASK_WORD = 'BIT (16) ALIGNED';
%VMS_NULL_ARG = '';
%VMS_PAGE_PROTECTION = VMS_LONGWORD_UNSIGNED;
%VMS_PID = VMS_LONGWORD_UNSIGNED;
%VMS_PROCESS_ID = VMS_LONGWORD_UNSIGNED;
%VMS_RIGHTS_ID = VMS_LONGWORD_UNSIGNED;
%VMS_SECTION_ID = 'BIT (64) ALIGNED';
%VMS_SYSTEM_ACCESS_ID = 'BIT (64) ALIGNED';
%VMS_UIC = VMS_LONGWORD_SIGNED;