iX V6.5 (30391-90011)

286 Chapter6

Host Language Access

COBOL II

Closing the Database

This paragraph implements the CLOSE-THE-DATABASE routine of the sample program.

Closing the database is achieved by a call to DBCLOSE in mode 1. Error handling is done by

referring all non-zero returned conditions to the 1100-GET-ERROR-AND-EXPLAIN

paragraph.

******************************************************************

* ACCESS : Mode 1 - Shared Modify Access

* Called By: 30-DO-ACTION

* Calls : DBCLOSE in mode 1 (close)

* 1100-GET-ERROR-AND-EXPLAIN

1200-CLOSE-THE-DATABASE.

MOVE 1 TO DB-MODE

CALL "DBCLOSE" USING DBNAME, PASSWORD, DB-MODE, STATUS1

IF CONDITION NOT = 0 THEN

PERFORM 1100-GET-ERROR-AND-EXPLAIN

END-IF.