/* Set the SQL_TXN_ISOLATION option to the value 1 (uncommitted reads) */
/* rc = sqlsetconnectoptionint(mfe.!database, 108, 1)  */
result = odbcsetconnectopt("TXN|UNCOMMIT")

DO
	odbcexecute(data., "columns")
	CATCH ERROR
		err = CONDITION('D')
		rc = show_db2_error.rex(err)
		RETURN -1
END

table_row = 0
rc = 0
insert_limit = 10
/* If there are more than 500 rows, show progress every 200 records */
IF db2.!count > 500 THEN
	progress_limit = 200
ELSE	
	progress_limit = 25
	
db2_data.0 = 0
riidfr = ''

DO
	DO UNTIL odbcfetch("data.", columns) = "DONE" | table_row > max_records | rc \= 0
		/* 	Did we have another row ? We also need to test for the second
				condition in case they only want (say) 50 rows, but the table
				has more than 50. That would mean that we fetch row 51, update
				db2_data.0 etc, and when we then leave this loop, we think 
				there's STILL data to insert 	*/
         /* Fetch and process data .....*/
END

/*
 Show a DB2 error in a window. Argument passed is the ODBC error
 string. This code revereses the error string, then takes everthing 
 BEFORE the first ']', reverses this and issues wdwsay message
*/
PROCEDURE EXPOSE db2.

/* Might want to issue different messages depending on DB2 source */
PARSE ARG result

/* Get the name of the script that called us */
temp = UNAME(-2)
temp = FILESPEC('N',temp)
PARSE VAR temp title '.' .

temp = WORDS(result)
cause = WORD(result, temp)

SELECT 
	WHEN cause = 'CANCEL' THEN
		/* They obviously pressed Cancel (for whatever reason) */
		RETURN 1
	WHEN POS('SQL30082N',result) <> 0 THEN 
		/* This seems to be correct */
		temp = "Cannot connect to "db2.source" - incorrect password ?"
	WHEN (POS('SQL30081N',result) <> 0) & (POS('10061',result) <> 0) THEN 
		/* This worked for me */
		temp = "Cannot connect to "db2.source" - try rebooting your machine"
	WHEN POS('IM002',result) <> 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 "db2.source" - investigate"
		END
	OTHERWISE
		DO
			err = REVERSE(result)
			y = POS(']',err)
			SELECT 
				WHEN y = 0 THEN
					y = REVERSE(y)
				OTHERWISE
					err = SUBSTR(err,1,y-1)
			END		
			temp = REVERSE(err) 
		END
END
		
temp = "DB2 Error:" || "0D0A"x || temp
rc = wdwsay.rex(temp, 'STOP', title)
RETURN 1