TurboIMAGE/XL Database Management System Reference Manual MPE/iX V6.5 (30391-90011)
288 Chapter6
Host Language Access
FORTRAN 77
Integer*2 Mode5_Forward, Mode1_Unlock
C**** Set up for the Status parameter.
Integer*2 Status(10)
Integer*2 Condition
Integer*2 Length
Integer*4 Record_Number
Integer*4 Chain_Count
Integer*4 Back_Pointer
Integer*4 Forward_Pointer
Equivalence(Status(1),Condition),(Status(2),Length)
Equivalence(Status(3),Record_Number),(Status(5),Chain_Count)
Equivalence(Status(7),Back_Pointer),(Status(9),Forward_Pointer)
Common /Database_Status_Type/ Status
C**** Set up for the Lock_Descriptor_Array of the Sales data set.
Integer*2 Lock_Descriptor_Array(22)
Integer*2 Length_Of_Descriptor, Num_Of_Elements
Character Data_Set_Of_Descriptor*16
Character Data_Item_Of_Descriptor*16
Character Relative_Operator*2
Character Value_For_Data_Item*6
Equivalence (Lock_Descriptor_Array(1), Num_Of_Elements)
Equivalence (Lock_Descriptor_Array(2), Length_Of_Descriptor)
Equivalence (Lock_Descriptor_Array(3), Data_Set_Of_Descriptor)
Equivalence (Lock_Descriptor_Array(11),Data_Item_Of_Descriptor)
Equivalence (Lock_Descriptor_Array(19),Relative_Operator)
Equivalence (Lock_Descriptor_Array(20),Value_For_Data_Item)
C**** Set up for the Sales_Buffer of the Sales data set.
Integer*2 Sales_Buffer(19)
Integer*4 Account_Number
Character Stock_Number*8
Integer*2 Quantity
Integer*4 Price
Integer*4 Tax
Integer*4 Total
Character Purch_Date*6
Character Deliv_Date*6
Equivalence (Sales_Buffer(1), Account_Number)
Equivalence (Sales_Buffer(3), Stock_Number)
Equivalence (Sales_Buffer(7), Quantity)
Equivalence (Sales_Buffer(8), Price)
Equivalence (Sales_Buffer(10),Tax)
Equivalence (Sales_Buffer(12),Total)
Equivalence (Sales_Buffer(14),Purch_Date)
Equivalence (Sales_Buffer(17),Deliv_Date)