Re: DB2(OS/390) Zugriff über CAF
[ ruban.de ] [ Antworten ] [ Forum ]
Geschrieben von Ruediger Wuepper on Mai 10, 2002 um 22:23:
Als Antwort auf DB2(OS/390) Zugriff über CAF geschrieben von Ralph Müller on April 29, 2002 um 10:22:
#pragma linkage (dsnali, OS) /* ================================================================== */
#define CAF_CONNECT "CONNECT "
#define CAF_OPEN "OPEN "
#define CAF_CLOSE "CLOSE "
#define CAF_DISCONNECT "DISCONNECT " static int CAF
(const char* CAF_Funktion /* 12 Bytes, s.o. (CAF_-#defines */
,const char* SSID /* char[L_SSID], mit ' ' gefuellt */
,const char* PLAN /* char[L_PLAN], mit ' ' gefuellt */
)
{
unsigned long termecb, startecb, ribptr;
/* ----
Fuer Aufbau der RIB (ReleaseInformationBlockPTR)
s. SDSNMACS(DSNDRIB).
---- */ long RC=0;
long REASON=0;
static bool ist_OPEN =false;
static bool ist_CONNECT=false; fprintf(SYSPRINT,"\n>IIEEE }
if ( strcmp(CAF_Funktion,CAF_OPEN)==0 )
{ /* sqlca fuellen fuer abschliessende SQLCODE-Analyse: */
dsnali("TRANSLATE ",&sqlca
,&RC,&REASON
);
}
return 8;
} return 0;
} /* CAF */ /* ================================================================== */ ... if ( (CAF(CAF_CONNECT,SSID,PLAN) != 0) ||
(CAF(CAF_OPEN ,SSID,PLAN) != 0)
)
{
CC=8; /* ... und blabla */
} ... CAF(CAF_CLOSE,SSID,PLAN);
CAF(CAF_DISCONNECT,SSID,PLAN); =======================================================
: Wie kann ich in einem C-Programm (OS/390) auf DB2 über CAF zugreifen. : Wenn möglich mit Beispiel-Source. : Danke!
Schreibe eine Antwort
|