DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

Index: B T

⟦d1dccc6a1⟧ TextFile

    Length: 596 (0x254)
    Types: TextFile
    Names: »B«

Derivation

└─⟦516dceb10⟧ Bits:30000751 8mm tape, Rational 1000, RCI_VADS
    └─⟦9a14c9417⟧ »DATA« 
        └─⟦this⟧

TextFile

separate (Library_Extensions)
procedure Set_Status  
             (Status     : in out Simple_Status.Condition;
              Error_Type :        String := "Remote_Operation_Error";
              Message    :        String;
              Severity   :        Simple_Status.Condition_Class :=
                 Simple_Status.Problem) is
begin
    Simple_Status.Create_Condition (Status     => Status,
                                    Error_Type => Error_Type,
                                    Message    => Message,
                                    Severity   => Severity);
end Set_Status;