  PROCEDURE [XREF] rap$get_decks (name: ost$name;
        old_path: clt$path_name;
        old_path_length: 1 .. clc$max_path_name_size;
        new_path: clt$path_name;
        new_path_length: 1 .. clc$max_path_name_size;
        old_deck: ost$name;
        new_deck: ost$name;
    VAR status: ost$status);

*copyc ost$name
*copyc clt$path_name
*copyc ost$status

