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

274 Chapter6
Host Language Access
COBOL II
NO ADVANCING
DISPLAY "------------> " NO ADVANCING
ACCEPT KEY-ITEM-VALUE FREE
MOVE 7 TO DB-MODE
MOVE ZERO TO LIST-NO-ITEM
MOVE " @ ;" TO LIST
MOVE "CUSTOMER;" TO CUSTOMER-MASTER
CALL "DBGET" USING DBNAME, CUSTOMER-MASTER, DB-MODE, STATUS1,
LIST-NO-ITEM, CUSTOMER-BUFFER,
KEY-ITEM-VALUE
IF CONDITION = 0 THEN
SET FOUND TO TRUE
MOVE RECORD-NUMBER TO SAVED-RECORD-NUMBER
ELSE
IF CONDITION = NO-SUCH-ENTRY THEN
DISPLAY CLEAR SCREEN
DISPLAY "*****************************************"
DISPLAY "* No Such Entry in the Customer Data Set."
DISPLAY "* Please Try Again. "
DISPLAY "*****************************************"
DISPLAY "Press Enter to Continue ------------>"
NO ADVANCING
ACCEPT OPTION FREE
ELSE
PERFORM 1100-GET-ERROR-AND-EXPLAIN
END-IF
END-IF
IF FOUND THEN
MOVE 4 TO DB-MODE
MOVE " @ ;" TO LIST
MOVE "CUSTOMER;" TO CUSTOMER-MASTER
CALL "DBGET" USING DBNAME, CUSTOMER-MASTER, DB-MODE,
STATUS1, LIST, CUSTOMER-BUFFER,
SAVED-RECORD-NUMBER
IF CONDITION NOT = 0 THEN
IF CONDITION = ENTRY-HAS-NO-DATA THEN
DISPLAY CLEAR SCREEN
DISPLAY "***************************************"
DISPLAY "* Entry At The Specified Record Number "
DISPLAY "* Has Been Deleted. "
DISPLAY "***************************************"
DISPLAY "Press Enter To Continue ------------->"
NO ADVANCING
ACCEPT OPTION FREE
ELSE
PERFORM 1100-GET-ERROR-AND-EXPLAIN
END-IF
ELSE
DISPLAY SPACE
DISPLAY SPACE
DISPLAY SPACE
DISPLAY SPACE
DISPLAY SPACE
DISPLAY SPACE
MOVE KEY-ITEM-VALUE TO ACCOUNT-NUMBER-CUST-OUT
DISPLAY "Data On Account# = ",
ACCOUNT-NUMBER-CUST-OUT
DISPLAY "****************************************"