Gecko [ tanishkshah.com ]

Name	Size	Permission	Date
api1.c	4.18 KB	-rw-r--r--	2026-04-17 16:36
api10.c	5.88 KB	-rw-r--r--	2026-04-17 16:36
api11.c	5.63 KB	-rw-r--r--	2026-04-17 16:36
api12.c	10.63 KB	-rw-r--r--	2026-04-17 16:36
api13.c	5.65 KB	-rw-r--r--	2026-04-17 16:36
api14.e	6.14 KB	-rw-r--r--	2026-04-17 16:36
api15.c	6.6 KB	-rw-r--r--	2026-04-17 16:36
api16.c	6.36 KB	-rw-r--r--	2026-04-17 16:36
api16t.c	5.04 KB	-rw-r--r--	2026-04-17 16:36
api2.c	4.67 KB	-rw-r--r--	2026-04-17 16:36
api3.c	4.52 KB	-rw-r--r--	2026-04-17 16:36
api4.c	4.46 KB	-rw-r--r--	2026-04-17 16:36
api5.c	3.74 KB	-rw-r--r--	2026-04-17 16:36
api6.c	7.19 KB	-rw-r--r--	2026-04-17 16:36
api7.c	5.4 KB	-rw-r--r--	2026-04-17 16:36
api8.c	4.74 KB	-rw-r--r--	2026-04-17 16:36
api9.c	4.87 KB	-rw-r--r--	2026-04-17 16:36
api9f.c	7.08 KB	-rw-r--r--	2026-04-17 16:36
api9f.def	819 B	-rw-r--r--	2026-04-17 16:36
api9f.sql	1.02 KB	-rw-r--r--	2026-04-17 16:36
api9fdrop.sql	964 B	-rw-r--r--	2026-04-17 16:36
apifull.c	13.2 KB	-rw-r--r--	2026-04-17 16:36
example.def	975 B	-rw-r--r--	2026-04-17 16:36
winevent.c	12.53 KB	-rw-r--r--	2026-04-17 16:36
winevent.def	1.15 KB	-rw-r--r--	2026-04-17 16:36
winevent.rc	965 B	-rw-r--r--	2026-04-17 16:36

Rename

/*
 *    Program type:  API Interface
 *
 *    Description:
 *        This program displays employee names and phone extensions.
 *
 *        It allocates an output SQLDA, prepares and executes a statement,
 *        and loops fetching multiple rows.
 *
 *        The SQLCODE returned by fetch is checked.
 * The contents of this file are subject to the Interbase Public
 * License Version 1.0 (the "License"); you may not use this file
 * except in compliance with the License. You may obtain a copy
 * of the License at http://www.Inprise.com/IPL.html
 *
 * Software distributed under the License is distributed on an
 * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
 * or implied. See the License for the specific language governing
 * rights and limitations under the License.
 *
 * The Original Code was created by Inprise Corporation
 * and its predecessors. Portions created by Inprise Corporation are
 * Copyright (C) Inprise Corporation.
 *
 * All Rights Reserved.
 * Contributor(s): ______________________________________.
 */

#include <stdlib.h>
#include <string.h>
#include <stdio.h>
#include <ibase.h>
#include "example.h"

#define    LASTLEN     20
#define    FIRSTLEN    15
#define    EXTLEN       4

/* This macro is used to declare structures representing SQL VARCHAR types */
#define SQL_VARCHAR(len) struct {short vary_length; char vary_string[(len)+1];}

int main (int argc, char** argv)
{
    SQL_VARCHAR(LASTLEN)    last_name;
    SQL_VARCHAR(FIRSTLEN)   first_name;
    char                    phone_ext[EXTLEN + 2];
    short                   flag0 = 0, flag1 = 0;
    short                   flag2 = 0;
    isc_stmt_handle         stmt = NULL;                /* statement handle */
    isc_db_handle           DB = NULL;                  /* database handle */
    isc_tr_handle           trans = NULL;               /* transaction handle */
    ISC_STATUS_ARRAY        status;                     /* status vector */
    XSQLDA  *               sqlda;
    long                    fetch_stat;
    char                    empdb[128];
    char                    *sel_str =
        "SELECT last_name, first_name, phone_ext FROM phone_list \
        WHERE location = 'Monterey' ORDER BY last_name, first_name;";

if (argc > 1)
        strcpy(empdb, argv[1]);
    else
        strcpy(empdb, "employee.fdb");

if (isc_attach_database(status, 0, empdb, &DB, 0, NULL))
        isc_print_status(status);

if (isc_start_transaction(status, &trans, 1, &DB, 0, NULL))
    {
        ERREXIT(status, 1)
    }
    
    /* Allocate an output SQLDA. */
    sqlda = (XSQLDA *) malloc(XSQLDA_LENGTH(3));
    sqlda->sqln = 3;
    sqlda->sqld = 3;
    sqlda->version = 1;

/* Allocate a statement. */
    if (isc_dsql_allocate_statement(status, &DB, &stmt))
    {
        ERREXIT(status, 1)
    }
    
    /* Prepare the statement. */
    if (isc_dsql_prepare(status, &trans, &stmt, 0, sel_str, 1, sqlda))
    {
        ERREXIT(status, 1)
    }
    
    /*
     *  Although all three selected columns are of type varchar, the
     *  third field's type is changed and printed as type TEXT.
     */

sqlda->sqlvar[0].sqldata = (char *)&last_name;
    sqlda->sqlvar[0].sqltype = SQL_VARYING + 1;
    sqlda->sqlvar[0].sqlind  = &flag0;

sqlda->sqlvar[1].sqldata = (char *)&first_name;
    sqlda->sqlvar[1].sqltype = SQL_VARYING + 1;
    sqlda->sqlvar[1].sqlind  = &flag1;

sqlda->sqlvar[2].sqldata = (char *) phone_ext;
    sqlda->sqlvar[2].sqltype = SQL_TEXT + 1;
    sqlda->sqlvar[2].sqlind  = &flag2;

printf("\n%-20s %-15s %-10s\n\n", "LAST NAME", "FIRST NAME", "EXTENSION");

/* Execute the statement. */
    if (isc_dsql_execute(status, &trans, &stmt, 1, NULL))
    {
        ERREXIT(status, 1)
    }
            
    /*
     *    Fetch and print the records.
     *    Status is 100 after the last row is fetched.
     */
    while ((fetch_stat = isc_dsql_fetch(status, &stmt, 1, sqlda)) == 0)
    {
        printf("%-20.*s ", last_name.vary_length, last_name.vary_string);

printf("%-15.*s ", first_name.vary_length, first_name.vary_string);

phone_ext[sqlda->sqlvar[2].sqllen] = '\0';
        printf("%s\n", phone_ext);
    }

if (fetch_stat != 100L)
    {
        ERREXIT(status, 1)
    }

/* Free statement handle. */
    if (isc_dsql_free_statement(status, &stmt, DSQL_close))
    {
        ERREXIT(status, 1)
    }

if (isc_commit_transaction(status, &trans))
    {
        ERREXIT(status, 1)
    }

if (isc_detach_database(status, &DB))
    {
        ERREXIT(status, 1)
    }

free( sqlda);

return 0;
}