  TYPE
    oct$new_ordinal_list = array [0 .. * ] of llt$section_ordinal;

*copyc llt$section_address
