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

258 Chapter6
Host Language Access
ORDERS Database Model Program
ERROR CHECKING
END ROUTINE
Rewinding a Data Set
(USER SELECTS 9 TO REWIND A DATA SET)
ROUTINE: Rewind_Customer_Set
* OBJECTIVE: This routine rewinds the customer data set by calling
* DBCLOSE in mode 2.
*
* ACCESS: Mode 1 - Shared Modify Access
*
* CALLED BY: Main Line
*
* CALLS: DBCLOSE in mode 2 (rewind)
BEGIN ROUTINE
CALL DBCLOSE (DBname, Customer_Master, Mode2_Rewind, Status)
ERROR CHECKING
END ROUTINE
Obtaining Database Information
(USER SELECTS 10 TO OBTAIN INFORMATION ABOUT A DATA ITEM)
ROUTINE: Get_Data_Item_Info
* OBJECTIVE: This routine obtains information about a data item
* by calling DBINFO in mode 102.
*
* ACCESS: Mode 1 - Shared Modify Access
*
* CALLED BY: Main Line
*
* CALLS: DBINFO in mode 102 (item access)
BEGIN ROUTINE
DBINFO_Buffer is made up of:
Data_Item_Name
Data_Type
Sub_Item_Length
Sub_Item_Count
OBTAIN Data_Item_Name ← "PURCH-DATE;"
CALL DBINFO (DBname, Data_Item_Name, Mode102_Item, Status, DBINFO_Buffer)
ERROR CHECKING
DISPLAY the DBINFO_Buffer
____________________________________________________________________
Data_Item_Name Data_Type Sub_Item_Length Sub_Item_Count
END ROUTINE