ret = sqlexecdirect(stmt, sql_string, LENGTH(sql_string))

/* Set the stmt and database variables depending on the TARGET database */
SELECT db2_source
  WHEN 'MFE' THEN
    DO
      stmt = mfe.!statement
      database = mfe.!database
    END
  OTHERWISE
    DO
      stmt = db2.!statement
      database = db2.!database
    END
END

get_table_name_and_coltypes(statement, tablename)

sqlexecdirect(stmt, sql_string, LENGTH(sql_string))

/* Get DB2 database handle */
odbcallocdatabase('db2_handle', etc...)

/* Get MFE database handle. It's now the current one */
odbcallocdatabase('mfe_handle', etc...)

/* Execute a statement on the current database (MFE) */
odbcexecute(...)

/* Get results of that statement */
odbcfetch(...)

/* Switch to DB2 database handle */
odbcallocdatabase('db2_handle')

/* Execute a statement on the current database (DB2) */
odbcexecute(...)

/* Get results of that statement */
odbcfetch(...)

/* Set current database */
SELECT database_sw
    WHEN 'MFE' THEN
       odbcallocdatabase('mfe_database')  /* PC connect handle. NOTE: pass var name, not its value! */
    OTHERWISE
       odbcallocdatabase('db2_database')   /* mainframe connect handle */
END    

/* All following calls operate on current database handle (and its
 * current statement handle).
 */
odbcsetconnectopt(...)
odbcexecute(...)
odbcfetch(...)
odbcgetdata(...)
odbctypeinfo(...)
odbcfreestmt()

err = odbcallocdatabase("DB2.db2t_handle", "ConnectString", "stmt")

odbcallocdatabase("DB2.db2t_handle", "ConnectString", "stmt")
CATCH ERROR
  /* Catch the error via CONDITION('D') so I can analyze its content */

err = odbcallocdatabase("DB2.db2t_handle", "ConnectString", "stmt")
CATCH ERROR
  /* Catch the error via CONDITION('D') so I can analyze its content */

DO
 defaultdatabase = 'DB2T'
 user = TRANSLATE(USERID())
 DROP stmt
  connectstring = "DSN=" || defaultdatabase || ";UID=" || user || ";"
  err = odbcallocdatabase("DB2.db2t_handle", "ConnectString", "stmt")

	SELECT
		WHEN err <> '' THEN
			rc = show_db2_error_msg(err)
		WHEN EXISTS('stmt') = 0 THEN
			DO
				guisay("Access to DB2T deliberately cancelled")
				RETURN 1	/* User pressed CANCEL */
			END	
		OTHERWISE
			NOP
	END			

	CATCH ERROR
		err = CONDITION('D') 
		temp = WORDS(err)
		cause = WORD(err,temp)
		SELECT 
			WHEN cause = 'CANCEL' THEN
				/* They obviously pressed Cancel (for whatever reason) */
				RETURN 1
			WHEN POS('SQL30082N',err) <> 0 THEN 
				/* This seems to be correct */
				temp = "Cannot connect to DB2T - incorrect password ?"
			WHEN (POS('SQL30081N',err) <> 0) & (POS('10061',err) <> 0) THEN 
				/* This worked for me */
				temp = "Cannot connect to DB2T - try rebooting your machine"
			WHEN POS('IM002',err) <> 0 THEN
				DO
					/* The following line is an example of what Fredrik received when trying to
						 connect to DB2T when he had no ODBC DB2 driver */
				temp = "Your PC has not been configured for ODBC connection to DB2T - investigate"
				END
			OTHERWISE
				PARSE VAR err . ']' . ']' temp
		END
		guisay(temp)
		rc = 'Error'

LIBRARY rxodbc
odbcerr = "ERROR"
odbcheading = 1
DO
  odbcallocenv()
  /* If OdbcAllocEnv fails, we do the following. */
	CATCH ERROR
  	/* Display an error message box, and end the script. */
  	CONDITION("M")
  	RETURN
END

  defaultdatabase = 'DB2 Express'
  user = 'DB2admin'
  DROP stmt   /* Preparatory to them possibly hitting Cancel */
  connectstring = "DSN=" || defaultdatabase || ";Database=" || database ";UID=" || user || ";"
  odbcallocdatabase("DB2.db2_express_handle", "ConnectString", "stmt")

	IF EXISTS('stmt') = 0 THEN
		DO
			rc = wdwsay.rex('No access since you pressed Cancel', 'STOP')
			RETURN 1	/* User pressed CANCEL - return */
		END
		
	CATCH ERROR
		err = CONDITION('D')
		temp = WORDS(err)

SELECT 
	WHEN db2.source = 'DB2T' THEN
		odbcallocdatabase('DB2.db2t_handle')
	WHEN db2.source = 'MFE' THEN
		odbcallocdatabase('DB2.mfe_handle')
	OTHERWISE
		odbcallocdatabase('DB2.db2t_handle')
END