  TYPE
    nat$data_length = 0 .. nac$max_data_length;

 CONST
    nac$max_data_length = osc$max_segment_length;

*copyc osd$virtual_address
