/*
 *  Program type:   API
 *
 *  Description:
 *        If run from a Windows 3.1 Client, the winevent program
 *        should be started before running this program and should
 *        be terminated upon the completion of this program.
 *        For other platforms, this program should be run in
 *        conjunction with api16.
 *
 *        This Program adds some sales records, in order to trigger
 *        the event that api16 or winevent is waiting for.
 */

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


int main (ARG(int, argc), ARG(char **, argv))
ARGLIST(int argc)
ARGLIST(char **argv)
{        
    struct {
        short    len;
        char    data [9];
    } po_number;
    short               nullind = 0;
    isc_stmt_handle     stmt = NULL;     /* statement handle */
    isc_db_handle       DB = NULL;       /* database handle */
    isc_tr_handle       trans = NULL;    /* transaction handle */
    long                status[20];      /* status vector */
    XSQLDA  ISC_FAR *   sqlda;
    char                empdb[128];
    char                *delete_str =
        "DELETE FROM sales WHERE po_number LIKE 'VNEW%'";
    char                *insert_str =
        "INSERT INTO sales (po_number, cust_no, order_status, total_value) \
        VALUES (?, 1015, 'new', 0)";

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

    if (isc_attach_database(status, 0, empdb, &DB, 0, NULL))
    {
        ERREXIT(status, 1)
    }

    if (isc_start_transaction(status, &trans, 1, &DB, 0, NULL))
    {
        ERREXIT(status, 1)
    }

    /* Allocate an input SQLDA for po_number in insert string. */
    sqlda = (XSQLDA ISC_FAR *) malloc(XSQLDA_LENGTH(1));
    sqlda->sqln = 1;
    sqlda->sqld = 1;
    sqlda->version = 1;

    /* Allocate a statement. */
    if (isc_dsql_allocate_statement(status, &DB, &stmt))
    {
        ERREXIT(status, 1)
    }

    /* Start out by deleting any existing records */

    if (isc_dsql_execute_immediate(status, &DB, &trans, 0, delete_str,
                                   1, NULL))
    {
        ERREXIT(status, 2)
    }

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


    if (isc_start_transaction(status, &trans, 1, &DB, 0, NULL))
    {
        ERREXIT(status, 3)
    }

    /* Insert three records in one transaction */
    if (isc_dsql_prepare(status, &trans, &stmt, 0, insert_str, 1, NULL))
    {
        ERREXIT(status, 4)
    }
    if (isc_dsql_describe_bind(status, &stmt, 1, sqlda))
    {
        ERREXIT(status, 5)
    }

    sqlda->sqlvar[0].sqltype = SQL_VARYING + 1;
    sqlda->sqlvar[0].sqllen  = sizeof (po_number.data);
    sqlda->sqlvar[0].sqldata = (char *) &po_number;
    sqlda->sqlvar[0].sqlind  = &nullind;

    /* Add batch 1. */
    po_number.len = strlen("VNEW1");
    strncpy(po_number.data, "VNEW1", sizeof (po_number.data));
    printf("api16t:  Adding %s\n", po_number.data);
    if (isc_dsql_execute(status, &trans, &stmt, 1, sqlda))
    {
        ERREXIT(status, 6)
    }

    po_number.len = strlen("VNEW2");
    strncpy(po_number.data, "VNEW2", sizeof (po_number.data));
    printf("api16t:  Adding %s\n", po_number.data);
    if (isc_dsql_execute(status, &trans, &stmt, 1, sqlda))
    {
        ERREXIT(status, 6)
    }

    po_number.len = strlen("VNEW3");
    strncpy(po_number.data, "VNEW3", sizeof (po_number.data));
    printf("api16t:  Adding %s\n", po_number.data);
    if (isc_dsql_execute(status, &trans, &stmt, 1, sqlda))
    {
        ERREXIT(status, 6)
    }

    /* This will fire the triggers for the first three records */
    if (isc_commit_transaction(status, &trans))
    {
        ERREXIT(status, 7)
    }
     
    /* Add batch 2. */
    if (isc_start_transaction(status, &trans, 1, &DB, 0, NULL))
    {
        ERREXIT(status, 8)
    }

    po_number.len = strlen("VNEW4");
    strncpy(po_number.data, "VNEW4", sizeof (po_number.data));
    printf("api16t:  Adding %s\n", po_number.data);
    if (isc_dsql_execute(status, &trans, &stmt, 1, sqlda))
    {
        ERREXIT(status, 9)
    }

    if (isc_dsql_free_statement(status, &stmt, DSQL_drop))
    {
        ERREXIT(status, 10)
    }

    /* This will fire the triggers for the fourth record */
    if (isc_commit_transaction(status, &trans))
    {
        ERREXIT(status, 11)
    }

    isc_detach_database(status, &DB);

    free(sqlda);

    return 0;
}
