|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: B T
Length: 1013 (0x3f5)
Types: TextFile
Names: »B«
└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
└─⟦5cb1d1d7f⟧ »DATA«
└─⟦3b1ee7bd8⟧
└─⟦this⟧
with Common;
with Activity;
with String_Utilities;
with System_Utilities;
procedure Login_Jls is
begin
if (String_Utilities.Upper_Case (System_Utilities.Session_Name) =
String_Utilities.Upper_Case ("Catalogs")) then
Common.Definition (Name => "!Software_Catalogs.Catalogs.Customer");
Activity.Set_Default
(The_Activity => "!Software_Catalogs.Catalogs.Customer.Activity");
elsif (String_Utilities.Upper_Case (System_Utilities.Session_Name) =
String_Utilities.Upper_Case ("Design")) then
Common.Definition
(Name => "!Tools.Design.PDL_2167_Documents.Rev3_1_0.Units");
elsif (String_Utilities.Upper_Case (System_Utilities.Session_Name) =
String_Utilities.Upper_Case ("Objects")) then
Common.Definition
(Name =>
"!Software_Catalogs.Catalogs.Customer.Sections.Directory_Tools.Object_Sets.Rev1_Working.Units");
else
Common.Definition (Name => "!Users.JLS");
end if;
end Login_Jls;