view release on metacpan or  search on metacpan

Adabas.xs  view on Meta::CPAN

	CODE:
	ST(0) = dbd_st_tables(dbh, sth, qualifier, "TABLE") ? &sv_yes : &sv_no;

MODULE = DBD::Adabas    PACKAGE = DBD::Adabas::st

void
DescribeCol(sth, colno)
	SV *sth
	int colno

	PPCODE:

	char ColumnName[SQL_MAX_COLUMN_NAME_LEN];
	I16 NameLength;
	I16 DataType;
	U32 ColumnSize;
	I16 DecimalDigits;
	I16 Nullable;
	int rc;

	rc = adabas_describe_col(sth, colno, ColumnName, sizeof(ColumnName), &NameLength,

Adabas.xs  view on Meta::CPAN

							    : SQL_ALL_TYPES)
	     		? &sv_yes : &sv_no;

#
# Corresponds to ODBC 2.0.  3.0's SQL_API_ODBC3_ALL_FUNCTIONS will break this
# scheme
void
GetFunctions(dbh, func)
	SV *	dbh
	int		func
	PPCODE:
	UWORD pfExists[100];
	RETCODE rc;
	int i;
	D_imp_dbh(dbh);
	rc = SQLGetFunctions(imp_dbh->hdbc, func, pfExists);
	if (SQL_ok(rc)) {
            if (func == SQL_API_ALL_FUNCTIONS) {
                for (i = 0; (i < sizeof(pfExists)/sizeof(pfExists[0])); i++) {
                    XPUSHs(pfExists[i] ? &sv_yes : &sv_no);
                }

Adabas.xs  view on Meta::CPAN

	    }
	}

MODULE = DBD::Adabas    PACKAGE = DBD::Adabas::dr

void
data_sources(drh, attr = NULL)
    SV* drh;
    SV* attr;
  PROTOTYPE: $;$
  PPCODE:
    {
	int numDataSources = 0;
	UWORD fDirection = SQL_FETCH_FIRST;
	RETCODE rc;
        UCHAR dsn[SQL_MAX_DSN_LENGTH+1+11 /* strlen("DBI:Adabas:") */];
        SWORD dsn_length;
        UCHAR description[256];
        SWORD description_length;
	D_imp_drh(drh);
	HENV henv;