|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Analyze_Disks_For_Backup, seg_02866c
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
-- This procedure should be run only by Rational personnel or under their
-- direction!
-- Performs an analysis of the disk structure(s)
--
-- If there is an inconsistency in the internal disk structure(s) Backup will
-- typically fail with an !Lrm.Assertion error and then log a message such as:
--
-- Backup Inconsistent_Space space = <258,Module,156694>
--
-- This procedure gathers information about the disk in the same fashion as
-- Backup. Whenever something inconsistent is detected, a diagnostic message
-- is displayed. Unlike Backup which would then immediately terminate, this
-- procedure will attempt to continue and should report all inconsistencies.
--
-- This procedure will take a significant amount of time; for large disks, it
-- will take 30 or more minutes for each disk. The basic algorithm it uses is:
--
-- For each disk volume
-- Check all VPs
-- For Each Segment
-- Check each disk block associated with this segment
-- (Note: since a disk block can be shared among segments, disk
-- blocks can be "visited" more than once.)
-- End loop
-- End loop
--
--
-- NOTES
-- 1. This procedure must be scheduled to avoid overlap with the Disk client
-- and/or Backup. By default, if disk collection starts during this
-- procedure, this procedure will be killed. This default behavior can
-- be changed by executing !Tools.Disk_Daemon.Set_Backup_Killing(false)
--
-- 2. The Diagnostic messages display all information in DECIMAL
--
-- It should be noted that a likely outcome when a corrupted system
-- is discovered by this procedure is a system crash.
procedure Analyze_Disks_For_Backup (Report_Space_Address : Boolean := False;
To_Console : Boolean := False;
To_System_Error_Log : Boolean := False;
Start_Volume : Natural := 1);
nblk1=3
nid=0
hdr6=6
[0x00] rec0=17 rec1=00 rec2=01 rec3=064
[0x01] rec0=15 rec1=00 rec2=02 rec3=032
[0x02] rec0=02 rec1=00 rec2=03 rec3=000
tail 0x2152107ae83c188380771 0x42a00088462063203