DataMuseum.dk

top - download

    Length: 3407 (0xd4f)
    Types: TextFile
    Names: »V«

└─⟦5f3412b64⟧ Bits:30000745 8mm tape, Rational 1000, ENVIRONMENT 12_6_5 TOOLS 
    └─ ⟦91c658230⟧ »DATA« 
        └─⟦458657fb6⟧ 
            └─⟦a5bbbb819⟧ 
                └─⟦this⟧ 
└─⟦d10a02448⟧ Bits:30000409 8mm tape, Rational 1000, ENVIRONMENT, D_12_7_3
    └─ ⟦fc9b38f02⟧ »DATA« 
        └─⟦9b46a407a⟧ 
            └─⟦eec0a994f⟧ 
                └─⟦this⟧ 

TextFile

-- This procedure is used to scan the error logs during the given period and
-- generate a System Availability Report.  This report displays system downtime
-- by shutdown code for the period in 2 groups, Rational specific and Customer
-- specific.  Customer specific shutdown codes are 'COPS', 'CSD', and 'Other'.
-- All other codes are Rational specific.  In addition, dowtime is grouped
-- according to Contract and Non-Contract hours.  The default contract hours
-- are Monday thru Friday from 8:00 to 18:00.  It is possible to modify the
-- contract hours by creating a file in !Machine called Contract_Hours, and
-- entering the new contract hours as a valid option string(s):
--
--  Day  => Monday, Tuesday, Wednesday, Thursday, Friday, Saturday, Sunday
--  Time => 0:00..24:00
--
-- Format:
--
--   Day[..Day] => (Time..Time)
--
-- If using the range form "Day..Day", the precedence of Days must follow
-- as defined above, e.g. Monday..Sunday.
--
-- For example, the contents of the Contract_Hours file:
--
-- Mon..Fri = (0:00..24:00)
-- Sat..Sun => (8:00..17:00)
--
-- would define contract hours to be:
--     Monday thru Friday, 24 hours a day
--     Saturday thru Sunday, 9 hours a day from 8am to 5pm
--
-- A sample output:
--
-- System  Availability Report from  2-FEB-88 to  3-MAR-88
--
-- Rational, Mt. View, CA [Gator:894757]
--
-- Total Contract Hours     : 397:59:56
-- Total Non Contract Hours : 322:00:04
--                            =========
-- Total Hours              : 720:00:00
--
--                 Contract     Non Con       Total
--
--        PMH :       00:00       00:00       00:00
--        PMS :       00:00       00:00       00:00
--        HWC :       54:05       00:00       54:05
--        SWC :       00:00       00:00       00:00
--      CRASH :       00:00       00:00       00:00
--       HANG :       00:00       00:00       00:00
--      MAINT :       00:00       00:00       00:00
--    RELEASE :       00:00       00:00       00:00
--        UCC :       00:00       00:00       00:00
--     ========    ========    ========    ========
--      Total :       54:05       00:00       54:05
--  Available :       99.8%      100.0%       99.9%
--
--       COPS :       13:58     1:23:02     1:37:00
--        CSD :       00:00       00:00       00:00
--      OTHER :       05:15       00:00       05:15
--     ========    ========    ========    ========
--      Total :       19:13     1:23:02     1:42:15
--  Available :       99.9%       99.6%       99.8%
--
--  Grand Total     1:13:18     1:23:02     1:42:15
--     Uptime :       99.7%       99.6%       99.6%
--

procedure Availability_Report (Starting_Date : String := "<MINUS_30_DAYS>";
                               Ending_Date : String := "<TODAY>";
                               Display_Contract_Hours : Boolean := True;
                               Log_Directory : String := "!Machine.Error_Logs");
--
-- Starting_Date : Default of <MINUS_30_DAYS> uses a date 30 days previous from
--                 when this procedure is executed.  If not the default, a valid
--                 date must be entered.
-- Ending_Date   : Default of <TODAY> uses the current date of execution.  If
--                 not the default, a valid date must be entered.
-- Display_Contract_Hours :
--                 If true, displays the contract hours used in
--                 calculating the system availability.