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

284 Chapter6
Host Language Access
COBOL II
TEXTLEN
IF CONDITION NOT = 0 THEN
PERFORM 1100-GET-ERROR-AND-EXPLAIN
END-IF
MOVE 1 TO DB-MODE
CALL "DBUNLOCK" USING DBNAME, PRODUCT-MASTER, DB-MODE, STATUS1
IF CONDITION NOT = 0 THEN
PERFORM 1100-GET-ERROR-AND-EXPLAIN
END-IF
DISPLAY "Press Enter to Continue -----------> " NO ADVANCING
ACCEPT OPTION FREE.
Rewinding a Data Set
This paragraph implements the REWIND-CUSTOMER-SET routine of the sample program.
Resetting the data set pointer is achieved by a call to DBCLOSE in mode 2. No special
condition is trapped.
******************************************************************
* ACCESS : Mode 1 - Shared Modify Access
*
* Called By: 30-DO-ACTION
*
* Calls : DBCLOSE in mode 2 (rewind)
* 1100-GET-ERROR-AND-EXPLAIN
900-REWIND-CUSTOMER-SET.
MOVE "CUSTOMER;" TO CUSTOMER-MASTER
MOVE 2 TO DB-MODE
CALL "DBCLOSE" USING DBNAME, CUSTOMER-MASTER, DB-MODE, STATUS1
IF CONDITION NOT = 0 THEN
PERFORM 1100-GET-ERROR-AND-EXPLAIN
END-IF.
Obtaining Database Information
This paragraph implements the GET-DATA-ITEM-INFO routine of the sample program. This
information is obtained using a call to DBINFO in mode 102. The data item name passed
through the DBINFO buffer identifies the data item under inquiry.
******************************************************************
* ACCESS : Mode 1 - Shared Modify Access
*
* Called By: 30-DO-ACTION
*
* Calls : DBINFO in mode 102 (item access)
* 1100-GET-ERROR-AND-EXPLAIN
1000-GET-DATA-ITEM-INFO.
DISPLAY CLEAR SCREEN
DISPLAY "Enter your data item name------> " NO ADVANCING
ACCEPT DATA-ITEM-NAME-IN FREE
MOVE 102 TO DB-MODE
CALL "DBINFO" USING DBNAME, DATA-ITEM-NAME-IN, DB-MODE, STATUS1,
M-102-BUFFER
IF CONDITION NOT = 0 THEN
PERFORM 1100-GET-ERROR-AND-EXPLAIN
END-IF
DISPLAY SPACE