TurboIMAGE/XL Database Management System Reference Manual MPE/iX V6.5 (30391-90011)

Chapter 6 295
Host Language Access
Pascal
BaseId : Packed Array [1..2] of Char;
BaseName : Packed Array [1..16] of Char;
End;
(* for the password parameter *)
Database_Password_Type = Packed Array [1..10] of Char;
(* for the status parameter *)
Database_Status_Type = Packed Record
Condition : ShortInt;
Length : ShortInt;
Record_Number : Integer;
Chain_Count : Integer;
Back_Pointer : Integer;
Forward_Pointer : Integer;
End;
(* for the data set name parameter *)
Data_Set_Name_Type = Packed Array [1..16] of Char;
(* for data item names *)
Data_Item_Name_Type = Packed Array [1..16] of Char;
(* for the list parameter *)
Data_Item_List_Type = Packed Array [1..80] of Char;
(* for key items in manual masters *)
Key_Item_Type = Packed Array [1..40] of Char;
(* for the Sales data set of Orders DB *)
Sales_Data_Set_Type = Packed Record
Account_Number: Integer;
Stock_Number : Packed Array [1..8] of Char;
Quantity : ShortInt;
Price : Integer;
Tax : Integer;
Total : Integer;
Purch_Date : Packed Array [1..6]of Char;
Deliv_Date : Packed Array [1..6]of Char;
End;
(* for item level locks in the Sales set *)
Lock_Descriptor_Sales_Type = Packed Record
Length_Of_Descriptor : ShortInt;
Data_Set_Of_Descriptor : Data_Set_Name_Type;
Data_Item_Of_Descriptor : Data_Item_Name_Type;
Relative_Operator : Packed Array [1..2]Of Char;
Value_For_Data_Item : Packed Array [1..6]Of Char;
End;
(* for the lock buffer for the Sales set *)
Lock_Descriptor_Sales_Array_Type = Packed Record
Num_Of_Elements : ShortInt;
Lock_Descriptor_Sales : Lock_Descriptor_Sales_Type;
End;
Var
(* Define all your global variables. *)
DBname : Database_Name_Type;
Password : Database_Password_Type;