vsiftp.vmssoftware.com/[e-mail]/FREEWARE/FREEWARE40.ZIP/dbs-netutils/structures.inc

Text File | 1993-09-14 | 2.3 KB | 120 lines

C            Structures to define VMS data types

C    These are based on information in Appendix A of the manual
C    "Introduction to VMS System Routines".  Please consult this
C    manual for further information.

C    27-Sep-1990, DBS; Version X1-001
C 001 -    Original version.  (Taken from something similar but some changes
C    have been made and are as yet untested.)

    structure /address_range/
        integer*4    low_address
        integer*4    high_address
    end structure !address_range
    volatile /address_range/

    structure /io_status_block/
        integer*2    value
        integer*2    count
        integer*4    device_info
    end structure !io_status_block
    volatile /io_status_block/

    structure /item_list_2/
      union
        map
               integer*2    buflen
        integer*2    code
        integer*4    bufadr
        end map
        map
               integer*2    buffer_length
        integer*2    item_code
        integer*4    buffer_address
        end map
        map
        integer*4    end_list /0/
        end map
      end union
    end structure !item_list_2
    volatile /item_list_2/

    structure /item_list_3/
      union
        map
               integer*2    buflen
        integer*2    code
        integer*4    bufadr
        integer*4    retlenadr
        end map
        map
               integer*2    buffer_length
        integer*2    item_code
        integer*4    buffer_address
        integer*4    return_length_address
        end map
        map
        integer*4    end_list /0/
        end map
      end union
    end structure !item_list_3
    volatile /item_list_3/

    structure /item_list_pair/
      union
        map
        integer*4    code
        integer*4    value
        end map
        map
        integer*4    item_code
        integer*4    item_value
        end map
        map
        integer*4    end_list /0/
        end map
      end union
    end structure !item_list_pair
    volatile /item_list_pair/

    structure /item_quota_list/
      union
        map
        byte        quota_name
        integer*4    quota_value
        end map
        map
        byte        end_list /0/
        end map
      end union
    end structure !item_quota_list
    volatile /item_quota_list/

    structure /lock_status_block/
        integer*2    cond_value
        integer*2    unused
        integer*4    lock_id
        byte        lock_value(16)
    end structure !lock_status_block
    volatile /lock_status_block/

    structure /rights_holder/
        integer*4    rights_id
        integer*4    rights_mask
    end structure !rights_holder
    volatile /rights_holder/

    structure /uic/
      union
        map
        integer*4    uic
        end map
        map
        integer*2    member
        integer*2    group
        end map
      end union
    end structure !uic
    volatile /uic/