System i: Programming i5/OS PASE - IBM

Note: By using the code examples, you agree to the terms of the “Code license and disclaimer
information” on page 70.
/* i5/OS PASE DB2 for i5/OS example program
*
* To show an example of an i5/OS PASE program that accesses
* i5/OS DB2 via SQL CLI
*
* Program accesses System i Access database, QIWS/QCUSTCDT, that
* should exist on all systems
*
* Change system name, userid, and password in fun_Connect()
* procedure to valid parms
*
* Compilation invocation:
*
* xlc -I./include -bI:./include/libdb400.exp -o paseclidb4 paseclidb4.c
*
* FTP in binary, run from QP2TERM() terminal shell
*
* Output should show all rows with a STATE column match of MN */
/* Change Activity: */
/* End Change Activity */
#define SQL_MAX_UID_LENGTH 10
#define SQL_MAX_PWD_LENGTH 10
#define SQL_MAX_STM_LENGTH 255
#include
#include
#include
#include "sqlcli.h"
SQLRETURN fun_Connect( void );
SQLRETURN fun_DisConnect( void );
SQLRETURN fun_ReleaseEnvHandle( void );
SQLRETURN fun_ReleaseDbcHandle( void );
SQLRETURN fun_ReleaseStmHandle( void );
SQLRETURN fun_Process( void );
SQLRETURN fun_Process2( void );
void fun_PrintError( SQLHSTMT );
SQLRETURN nml_ReturnCode;
SQLHENV nml_HandleToEnvironment;
SQLHDBC nml_HandleToDatabaseConnection;
SQLHSTMT nml_HandleToSqlStatement;
SQLINTEGER Nmi_vParam;
SQLINTEGER Nmi_RecordNumberToFetch = 0;
SQLCHAR chs_SqlStatement01[ SQL_MAX_STM_LENGTH +1];
SQLINTEGER nmi_PcbValue;
SQLINTEGER nmi_vParam;
char *pStateName = "MN";
void main( ) {
static
char*pszId = "main()";
SQLRETURN nml_ConnectionStatus;
SQLRETURN nml_ProcessStatus;
nml_ConnectionStatus = fun_Connect();
if ( nml_ConnectionStatus == SQL_SUCCESS ) {
printf( "%s: fun_Connect() succeeded\n", pszId );
} else {
printf( "%s: fun_Connect() failed\n", pszId );
exit( -1 );
} /* endif */
i5/OS PASE 43