DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦ce84041a6⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Show_R1000_Configurations, seg_028698

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

E3 Source Code



procedure Show_R1000_Configurations
             (Machine_List_File : String := "Machine_List";
              Owner_File        : String := "!Machine.Transfer.Global";
              Commands          : String :=
                 """!Commands.Abbreviations"".Show_Configuration;");

--
-- This command produces a report about a network of R1000s providing
-- information about each in table form.  It gathers all information
-- before producing any output.  It is somewhat experimental, but
-- may be useful to system managers and network administrators.
--
-- The Machine_List_File is a file containing the names of the machines
-- which are to appear in the report.  The names must appear one per
-- line.  If the name is preceeded with a "*", then the name appears in
-- the report, but no attempt is made to get information about it.  This
-- is useful if there is a machine that is known to be down.  Example:
-- (note: the leading "-- " are not part of the file:
--
-- capitol
-- clem
-- cookie
-- *crud
-- duke
--
-- The Owner_File is a mail distribution list which is searched to find
-- machine owner/managers.  For each machine M, the Owner_File is searched
-- for a line containing "M_mgr: " and the first token on that line is used
-- as the machine owner.
--
-- Commands is the command that is run on each machine to get its information.
-- It must be runnable under identity Network_Public.  The intended command
-- is Show_Configuration from this subsystem.  For maximum reliability,
-- it is recommended that a Load_Proc form of Show_Configuration be created
-- in !Commands.Abbreviations.  The default value for the Commands parameter
-- assumes this has been done.
--
-- Sample report output:
--
-- Machine Configuration List.  Generated May 6, 1990 at 10:51:40 PM
--
--
--   Name     Cluster Id    Release     Type  Exabyte   Owner     Last Backup
-- =========  ==========  ============  ====  =======  ========  ==============
-- capitol    983758      D10_20_0_MAI  ?              ray       06-MAY-90 Full
-- clem       932367      D_11_4_0B     200   Yes      bill      05-MAY-90 Full
-- cookie     943752      D_11_4_1      200   Yes      sara      05-MAY-90 Full
-- crud                                                mike
-- duke       973551      D_10_20_2A_U  200            jenny     18-APR-90 Full




E3 Meta Data

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=15 rec1=00 rec2=01 rec3=00a
        [0x01] rec0=18 rec1=00 rec2=02 rec3=09e
        [0x02] rec0=09 rec1=00 rec2=03 rec3=000
    tail 0x2172247aa83c1888b601a 0x42a00088462063203