?? RIGHT := 110 ??
*copyc osd$default_pragmats
MODULE ram$get_decks;
?? PUSH (LISTEXT := ON) ??
*copyc ost$name
*copyc clt$path_name
*copyc clp$scan_command_line
?? POP ??

*copyc rah$get_decks

  PROCEDURE [XDCL] 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);

    VAR
      command: string (osc$max_string_size),
      size: integer;

    STRINGREP (command, size, ' scu_extd b=', old_path (1, old_path_length), ' d=', name, ' s=', old_deck);
    clp$scan_command_line (command (1, size), status);
    IF NOT status.normal THEN
      RETURN;
    IFEND;

    STRINGREP (command, size, ' scu_extd b=', new_path (1, new_path_length), ' d=', name, ' s=', new_deck);
    clp$scan_command_line (command (1, size), status);
    IF NOT status.normal THEN
      RETURN;
    IFEND;
  PROCEND rap$get_decks;
MODEND ram$get_decks;
