iX V6.5 (30391-90011)

Chapter 6 251

Host Language Access

ORDERS Database Model Program

OBTAIN Number_Of_Elements ← 1

OBTAIN Length_Of_Descriptor ← 21

OBTAIN Data_Set_Of_Descriptor ← "SALES;"

OBTAIN Data_Item_Of_Descriptor ← "PURCH-DATE;"

OBTAIN Relative_Operator_For_Data_Item ← "="

OBTAIN Value_For_Data_Item ← "881012"

OBTAIN List ← "

OBTAIN Search_Item_Name ← "PURCH-DATE;"

OBTAIN Search_Item_Value ← "881012"

CALL DBLOCK (DBname, Lock_Descriptor_Sales_Array_Type,

Mode5_Unconditional, Status)

ERROR CHECKING

CALL DBFIND (DBname, Sales_Detail, Mode1_Chained_Read,

Status, Search_Item_Name, Search_Item_Value)

ERROR CHECKING

START LOOP

CALL DBGET (DBname, Sales_Detail, Mode5_Forward, Status,

List, Sales_Buffer, Not_Used_Parm)

ERROR CHECKING

DISPLAY the Sales_Buffer

________________________________________________________________

Account Stock# Quantity Price Tax Total Purch-Date Deliv-Date

EXIT LOOP if end of chain

END LOOP

CALL DBUNLOCK (DBname, Lock_Desc_Array, Mode1_Unlock, Status)

ERROR CHECKING

END ROUTINE