tinycobol/cobroutines/sql_disconnect_db.c

/* test program for libpq (postgresql) */

#include <stdio.h>
#include <stdlib.h>

#include <libpq-fe.h>

void
sql_disconnect_db( int *dbhandle ) {
	PGconn *conn = (PGconn *)*dbhandle;
	PQfinish(conn);
}