|
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: 10240 (0x2800)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Try_Data_Base, seg_057b7d
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Method_Defs;
with General_Data_Base;
with Agent_Nb;
with Var_String;
with Com_Chanel;
with Text_Io;
procedure Try_Data_Base is
use General_Data_Base;
use Agent_Nb;
use Var_String;
use Com_Chanel;
use Text_Io;
use Method_Defs;
One_Data_Base : T_General_Data_Base;
The_Result : T_Agent_Nb;
The_Object : Object;
The_Object_Result : Object;
One_Parameter : V_String;
One_Agent_Nb : T_Agent_Nb;
The_Date : constant String := "date";
The_Day : constant String := "day";
The_Para : constant String := "para";
The_Para_2 : constant String := "para_2";
The_Class : constant String := "is_class";
The_Class_2 : constant String := "is_class_2";
One_Agent_Nb_Set : Agent_Nb_Set.Set;
One_Request_Result : Boolean;
Iter : Agent_Nb_Set.Iterator;
Chanel : Com_Chanel.Object;
begin
Set_Chanel (Chanel, (10, 46, 74, 2), (10, 46));
Create_General_Data_Base (One_Data_Base);
Registration (One_Data_Base, Chanel, The_Result, Value (The_Class));
Put_Line ("enregistrement_sous l agent n= " & Image (Image (The_Result)));
Set_Chanel (Chanel, (10, 4, 7, 2), (10, 4));
Registration (One_Data_Base, Chanel, The_Result, Value (The_Class));
Put_Line ("enregistrement_sous l agent n= " & Image (Image (The_Result)));
Set_Chanel (Chanel, (13, 43, 73, 23), (103, 43));
Registration (One_Data_Base, Chanel, The_Result, Value (The_Class));
Put_Line ("enregistrement_sous l agent n= " & Image (Image (The_Result)));
Set_Chanel (Chanel, (10, 3, 74, 2), (10, 7));
Registration (One_Data_Base, Chanel, The_Result, Value (The_Class));
Put_Line ("enregistrement_sous l agent n= " & Image (Image (The_Result)));
Unregistration (One_Data_Base, The_Result);
Put_Line ("destruction de l agent n= " & Image (Image (The_Result)));
Unregistration (One_Data_Base, Agent_Nb.Value (2));
Put_Line ("destruction de l agent n= " &
Image (Image (Agent_Nb.Value (2))));
Set_Chanel (Chanel, (10, 7, 7, 2), (10, 74));
Registration (One_Data_Base, Chanel, The_Result, Value (The_Class));
Put_Line ("enregistrement_sous l agent n= " & Image (Image (The_Result)));
Registration (One_Data_Base, Null_Object, The_Result, Value (The_Class));
Put_Line ("enregistrement_sous l agent n= " & Image (Image (The_Result)));
Publication (One_Data_Base, The_Result, Value (The_Date), Value (The_Para));
Publication (One_Data_Base, Agent_Nb.Value (1),
Value (The_Date), Value (The_Para));
Publication (One_Data_Base, Agent_Nb.Value (2),
Value (The_Date), Value (The_Para));
Publication (One_Data_Base, Agent_Nb.Value (3),
Value (The_Date), Value (The_Para));
Set_Chanel (Chanel, (10, 3, 74, 2), (10, 7));
Registration (One_Data_Base, Chanel, The_Result, Value (The_Class));
Put_Line ("enregistrement_sous l agent n= " & Image (Image (The_Result)));
Registration (One_Data_Base, Null_Object, The_Result, Value (The_Class));
Put_Line ("enregistrement_sous l agent n= " & Image (Image (The_Result)));
Registration (One_Data_Base, Null_Object, The_Result, Value (The_Class));
Put_Line ("enregistrement_sous l agent n= " & Image (Image (The_Result)));
Registration (One_Data_Base, Null_Object, The_Result, Value (The_Class));
Put_Line ("enregistrement_sous l agent n= " & Image (Image (The_Result)));
Publication (One_Data_Base, The_Result,
Value (The_Day), Value (The_Para_2));
Publication (One_Data_Base, Agent_Nb.Value (5),
Value (The_Day), Value (The_Para_2));
Publication (One_Data_Base, Agent_Nb.Value (6),
Value (The_Day), Value (The_Para_2));
Publication (One_Data_Base, Agent_Nb.Value (7),
Value (The_Day), Value (The_Para_2));
Publication (One_Data_Base, Agent_Nb.Value (5),
Value (The_Date), Value (The_Para));
Publication (One_Data_Base, Agent_Nb.Value (6),
Value (The_Date), Value (The_Para));
Publication (One_Data_Base, Agent_Nb.Value (7),
Value (The_Date), Value (The_Para));
Publication (One_Data_Base, Agent_Nb.Value (8),
Value (The_Date), Value (The_Para));
Agent_Nb_Set.Initialize (One_Agent_Nb_Set);
Request (One_Data_Base, Value (The_Date), One_Agent_Nb_Set,
One_Parameter, One_Request_Result);
if One_Request_Result then
Agent_Nb_Set.Init (Iter, One_Agent_Nb_Set);
loop
exit when Agent_Nb_Set.Done (Iter);
Put_Line ("un agent_nb " & Image
(Image (Agent_Nb_Set.Value (Iter))));
Agent_Nb_Set.Next (Iter);
end loop;
Put_Line ("les parametres sont :" & Image (One_Parameter));
else
Put_Line ("error");
end if;
Agent_Nb_Set.Initialize (One_Agent_Nb_Set);
Request (One_Data_Base, Value (The_Day), One_Agent_Nb_Set,
One_Parameter, One_Request_Result);
if One_Request_Result then
Agent_Nb_Set.Init (Iter, One_Agent_Nb_Set);
loop
exit when Agent_Nb_Set.Done (Iter);
Put_Line ("un agent_nb " & Image
(Image (Agent_Nb_Set.Value (Iter))));
Agent_Nb_Set.Next (Iter);
end loop;
Put_Line ("les parametres sont :" & Image (One_Parameter));
else
Put_Line ("error");
end if;
Unpublication (One_Data_Base, Agent_Nb.Value (5), Value (The_Date));
Unpublication (One_Data_Base, Agent_Nb.Value (1), Value (The_Date));
Agent_Nb_Set.Initialize (One_Agent_Nb_Set);
Request (One_Data_Base, Value (The_Date), One_Agent_Nb_Set,
One_Parameter, One_Request_Result);
if One_Request_Result then
Agent_Nb_Set.Init (Iter, One_Agent_Nb_Set);
loop
exit when Agent_Nb_Set.Done (Iter);
Put_Line ("un agent_nb " & Image
(Image (Agent_Nb_Set.Value (Iter))));
Agent_Nb_Set.Next (Iter);
end loop;
Put_Line ("les parametres sont :" & Image (One_Parameter));
else
Put_Line ("error");
end if;
Get_Com_Chanel (One_Data_Base, Agent_Nb.Value (2), The_Object_Result);
Put_Line ("je get l 'objet n= " & Image (Image (Agent_Nb.Value (2))) &
" " & Image (Image (The_Object_Result)));
Get_Com_Chanel (One_Data_Base, Agent_Nb.Value (5), The_Object_Result);
Put_Line ("je get l 'objet n= " & Image (Image (Agent_Nb.Value (5))) &
" " & Image (Image (The_Object_Result)));
Get_Com_Chanel (One_Data_Base, Agent_Nb.Value (1), The_Object_Result);
Put_Line ("je get l 'objet n= " & Image (Image (Agent_Nb.Value (1))) &
" " & Image (Image (The_Object_Result)));
Get_Com_Chanel (One_Data_Base, Agent_Nb.Value (3), The_Object_Result);
Put_Line ("je get l 'objet n= " & Image (Image (Agent_Nb.Value (3))) &
" " & Image (Image (The_Object_Result)));
end Try_Data_Base;
nblk1=9
nid=6
hdr6=10
[0x00] rec0=22 rec1=00 rec2=01 rec3=04e
[0x01] rec0=14 rec1=00 rec2=02 rec3=034
[0x02] rec0=15 rec1=00 rec2=09 rec3=026
[0x03] rec0=04 rec1=00 rec2=08 rec3=080
[0x04] rec0=12 rec1=00 rec2=05 rec3=026
[0x05] rec0=18 rec1=00 rec2=04 rec3=02c
[0x06] rec0=16 rec1=00 rec2=07 rec3=07c
[0x07] rec0=12 rec1=00 rec2=03 rec3=001
[0x08] rec0=b2 rec1=d1 rec2=80 rec3=007
tail 0x21764622c87c78c70a627 0x42a00088462060003
Free Block Chain:
0x6: 0000 00 00 01 6c 80 35 6d 65 6e 74 5f 73 6f 75 73 20 ┆ l 5ment_sous ┆