*copyc osd$default_pragmats
MODULE pum$log_keyed_file_backup_stub;
{
{ This module provides a stub for the AAM interface used by
{ the backup utility.  This should be included in the library
{ osf$unbound_pf_utilities to use this stub.
{ This is included only for testing and should not normally
{ be included with the backup utility.
?? PUSH (LISTEXT := ON) ??
*copyc osd$unique_name
*copyc amt$backup_information
*copyc fst$path
*copyc ost$status
*copyc pft$password
*copyc rmt$volume_list
?? POP ??
*copyc puv$trace_selected
  TYPE
    tape_densities = rmc$200 .. rmc$6250;

  VAR
    density_name: [READ] array [tape_densities] of string (8) := [
          {} 'rmc$200',
          {} 'rmc$556',
          {} 'rmc$800',
          {} 'rmc$1600',
          {} 'rmc$6250'];

  TYPE
    tape_classes = rmc$mt7 .. rmc$mt9;

  VAR
    class_name: [READ] array [tape_classes] of string (8) := [
          {} 'rmc$mt7',
          {} 'rmc$mt9'];

  PROCEDURE [XDCL, #GATE] amp$log_keyed_file_backup
    (    saved_file_path: fst$path;
         password: pft$password;
         saved_file_global_name: ost$binary_unique_name;
         backup_information: amt$backup_information;
         volume_list: rmt$volume_list;
     VAR status: ost$status);

    VAR
      i: integer;

    display (saved_file_path (1, 125));
    IF backup_information.media = rmc$magnetic_tape_device THEN
      display (' ---- tape backup ---- ');
      display (class_name [backup_information.class]);
      display (density_name [backup_information.density]);
      FOR i :=  LOWERBOUND (volume_list) TO UPPERBOUND (volume_list) DO
        display_integer (' -- vsn (recorded, external) ', i);
        display (volume_list [i].recorded_vsn);
        display (volume_list [i].external_vsn);
      FOREND;
    ELSE
      display (' ---- ms backup ---- ');
      display (backup_information.file_path (1, 125));
    IFEND;
    status.normal := TRUE;
  PROCEND amp$log_keyed_file_backup;
MODEND pum$log_keyed_file_backup_stub;

