*************************************************************************
**
** Source File Name = dbstop.cbl 1.4
**
** Licensed Materials - Property of IBM
**
** (C) COPYRIGHT International Business Machines Corp. 1995, 1999
** All Rights Reserved.
**
** US Government Users Restricted Rights - Use, duplication or
** disclosure restricted by GSA ADP Schedule Contract with
**
** PURPOSE :
** an example showing how to use the following APIs in order to:
** - FORCE USERS off of a database
** - STOP a DATABASE MANAGER
** This program will stop further connect to the database and will
** force the current users off, and shut down the database manager.
**
** APIs USED :
** FORCE USERS sqlgfrce()
** STOP DATABASE MANAGER sqlgpstp()
**
**
** For more information about these samples see the README file.
**
** For more information on programming in COBOL, see the:
** - "Programming in COBOL" section of the Application Development Guide.
**
** For more information on Building COBOL Applications, see the:
** - "Building COBOL Applications" section of the Application Building Guide.
**
** For more information on the SQL language see the SQL Reference.
**
*************************************************************************
Identification Division.
Program-Id. "dbstop".
Data Division.
Working-Storage Section.
copy "sqlenv.cbl".
copy "sqlca.cbl".
* Local Variables
77 rc pic s9(9) comp-5.
77 errloc pic x(80).
* Variables for the FORCE USERS APIs
77 sync-mode pic 9(4) comp-5.
* the number of occurences is an application specific value
* this example forces all users
77 cbl-count pic S9(9) comp-5.
01 agentid-array.
05 agentid occurs 100 times pic 9(9) comp-5.
Procedure Division.
dbstop-pgm section.
* need to look at "DBMONI" for more information on sqlmonss to get
* the agentidarray
display "Sample COBOL Program : dbstop.cbl".
display "Forcing Users off DB2".
move SQL-ASYNCH to sync-mode.
move SQL-ALL-USERS to cbl-count.
**************************
* FORCE USERS API called *
**************************
call "sqlgfrce" using
by reference sqlca
by value sync-mode
by reference agentid-array
by value cbl-count
returning rc.
if sqlcode equal SQLE-RC-NOSTARTG
display "No start datbase manager command was issued"
go to end-dbstop.
move "FORCE APPLICATION ALL" to errloc.
call "checkerr" using SQLCA errloc.
display "Stopping the Database Manager".
* setup stop options structure SQLEDBSTOPOPT
move 0 to SQL-ISPROFILE of SQLEDBSTOPOPT.
move " " to SQL-PROFILE of SQLEDBSTOPOPT.
move 0 to SQL-ISNODENUM of SQLEDBSTOPOPT.
move 0 to SQL-NODENUM of SQLEDBSTOPOPT.
move SQLE-NONE to SQL-OPTION of SQLEDBSTOPOPT.
move SQLE-DROP to SQL-CALLERAC of SQLEDBSTOPOPT.
*********************************
* STOP DATABASE MANAGER API called *
*********************************
call "sqlgpstp" using
by reference SQLEDBSTOPOPT
by reference sqlca
returning rc.
move "STOPPING DATABASE MANAGER" to errloc.
call "checkerr" using SQLCA errloc.
end-dbstop. stop run.