Re: Oracle OCI73 example cdemo5 does not work

From: <drift_wood_at_my-deja.com>
Date: Thu, 27 Jan 2000 20:04:31 GMT
Message-ID: <86q8ca$oad$1@nnrp1.deja.com>

I posted this already on the other thread, but here it is again:

#include <stdio.h>
#include <memory.h>
#include <ociapr.h>

#pragma comment(lib, "d:\\orant\\oci73\\lib\\old\\ora73.lib")

#define VARCHAR2_TYPE 1
#define NUMBER_TYPE 2
#define INT_TYPE 3
#define FLOAT_TYPE 4
#define STRING_TYPE 5
#define ROWID_TYPE 11
#define DATE_TYPE 12

Lda_Def lda;
Cda_Def cda;
ub1 hda[256];

#define ELEMENTS 4
#define ELEMENT_1_LEN 20
#define ELEMENT_2_LEN 10

struct s_string
{

	text v_str[ELEMENT_1_LEN];
	text v_junk[ELEMENT_2_LEN];

} s_str[ELEMENTS];

int a_size = ELEMENTS;

void main()
{

        memset(hda,0,255);

        if (olog(&lda,hda,(text*) "scott/tiger_at_exampledb",-1,0,-1,0,- 1,OCI_LM_DEF))
        printf("Logon failed: %25i\n", lda.rc);

        if (oopen(&cda,&lda,0,-1,-1,0,-1))
        printf("Open failed: %25i\n", lda.rc);

        if (oparse(&cda,(text*) "begin test_pkg.test_proc(:str); end;",-
1,1,2))
        printf("Parse failed: %25i\n", cda.rc);

        if (obindps(&cda,1,(text*) ":str",-1,(text*) s_str
[0].v_str,ELEMENT_1_LEN,
			STRING_TYPE,0,0,0,0,(ELEMENT_1_LEN +
ELEMENT_2_LEN),0,
			0,0,(ELEMENTS * (ELEMENT_1_LEN +
ELEMENT_2_LEN)),&a_size,0,-1,-1))
		printf("Binding failed: %25i\n", cda.rc);

        if (oexec(&cda))
        printf("Execute failed: %25i\n", cda.rc);

        printf("%25s\n", s_str[0].v_str);
        printf("%25s\n", s_str[1].v_str);
        printf("%25s\n", s_str[2].v_str);
        printf("%25s\n", s_str[3].v_str);

        if (ocan(&cda))
        printf("Cancel failed: %25i\n", cda.rc);

        if (oclose(&cda))
        printf("Close failed: %25i\n", lda.rc);

        if (ologof(&lda))
        printf("Logoff failed: %25i\n", lda.rc);

}

Sent via Deja.com http://www.deja.com/
Before you buy. Received on Thu Jan 27 2000 - 14:04:31 CST