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

252 Chapter6
Host Language Access
ORDERS Database Model Program
Retrieving a Data Entry Using a Record Number
(USER SELECTS 3 TO RETRIEVE CUSTOMER DATA)
ROUTINE: Get_A_Customer_Record
* OBJECTIVE: This routine demonstrates directed access by retrieving
* a customer record with a known record number. Note
* that the record number is first obtained using a DBGET
* call, which in this case is a calculated mode 7.
*
* ACCESS: Mode 1 - Shared Modify Access
*
* CALLED BY: Main Line
*
* CALLS: DBGET in mode 7 (calculated read)
* DBGET in mode 4 (directed read)
BEGIN ROUTINE
Customer_Buffer is made up of:
Account
Last-Name
First-Name
Initial
Street-Address
City
State
Zip
Credit-Rating
OBTAIN List ← " @ ;"
OBTAIN Key_Item_Value ← 315578
CALL DBGET (DBname, Customer_Master, Mode7_Calculated, Status, List,
Customer_Buffer, Key_Item_Value)
ERROR CHECKING
OBTAIN Record_Num ← Status [element 3]
CALL DBGET (DBname, Customer_Master, Mode4_Directed, Status, List,
Customer_Buffer, Record_Num)
ERROR CHECKING
DISPLAY the Customer_Buffer
____________________________________________________________________
Account Last-Name First-Name Initial Street-Address City. . .
END ROUTINE
Retrieving Master Data Using a Key Value
(USER SELECTS 4 TO RETRIEVE PRODUCT DATA)
ROUTINE:Get_A_Product_Record
* OBJECTIVE: This routine demonstrates calculated access by
* retrieving a product record from a master data
* set based on a user-defined key item value.
*
* ACCESS: Mode 1 - Shared Modify Access