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

Chapter 6 285
Host Language Access
COBOL II
DISPLAY SPACE
DISPLAY SPACE
DISPLAY DATA-ITEM-NAME-IN, " Data Item"
DISPLAY "----------------------------------------"
DISPLAY "Data Item Name = ", DATA-ITEM-NAME
DISPLAY "Data Item Type = ", DATA-ITEM-TYPE
DISPLAY "Data Item Length = ", DATA-ITEM-LENGTH
DISPLAY "Data Item Count = ", DATA-ITEM-COUNT
DISPLAY "----------------------------------------"
DISPLAY "Press Enter to Continue... " NO ADVANCING
ACCEPT OPTION FREE.
Obtaining Error Messages and Explanations
The following paragraph implements the GET-ERROR-AND-EXPLAIN routine of the sample
program. This paragraph calls DBEXPLAIN and DBERROR. DBEXPLAIN interprets the
contents of the Status parameter and prints a message on $STDLIST. DBERROR returns a
message in the ERROR-BUFFER, explaining the condition code returned by
TurboIMAGE/XL. At the end the paragraph, users can choose to abort or continue the
execution of this program.
******************************************************************
* Access : Mode 1 - Shared Modified Access
*
* Called by: 100-OPEN-THE-DATABASE
* 200-GET-SALES-FOR-DATE
* 300-GET-A-CUSTOMER-RECORD
* 400-GET-PRODUCT-RECORD
* 500-LIST-ALL-CUSTOMERS
* 600-ADD-A-PROUDCT
* 700-UPDATE-A-CUSTOMER
* 800-DELETE-A-PRODUCT
* 900-REWIND-CUSTOMER-SET
* 1000-GET-DATA-ITEM-INFO
* 1200-CLOSE-THE-DATABASE
*
* Calls : DBERROR
* DBEXPLAIN
1100-GET-ERROR-AND-EXPLAIN.
MOVE SPACES TO ERROR-BUFFER
CALL "DBERROR" USING STATUS1, ERROR-BUFFER, ERROR-LENGTH
DISPLAY "---------------------------------------------------"
DISPLAY ERROR-BUFFER
DISPLAY "---------------------------------------------------"
DISPLAY SPACE
CALL "DBEXPLAIN" USING STATUS1
MOVE ZERO TO ANSWER
DISPLAY "---Enter, >1< to Abort..., <2> to Continue > "
NO ADVANCING
ACCEPT ANSWER FREE
IF ANSWER NOT = 1 THEN
DISPLAY "Continuing....."
ELSE
STOP RUN
END-IF.