{ SQL state and statement }
    create table syssqlstat		{ Internal Use Only             }
	(
	sqs_sessionid 	integer,	{ session id       		}
	sqs_dbname	char( 128 ),	{ database name 		}
	sqs_iso		smallint,	{ Isolation level		}
	sqs_lockmode	smallint,	{ lock mode			}
	sqs_sqlerror	smallint,	{ sql error of last SQL stmt	}
	sqs_isamerror	smallint,	{ isam error of last SQL stmt	}
	sqs_feversion	char( 4 ),	{ FE Version			}
	sqs_statement	char( 200 )	{ last SQL statement		}
	);
    revoke all on syssqlstat from public;

{ SQL Current session }
    create view syssqlcurses (
	scs_sessionid, scs_currdb, scs_isolationlevel, scs_lockmode,
		scs_executions, scs_cumtime, scs_bufreads, scs_pagereads,
		scs_bufwrites, scs_pagewrites, scs_totsorts, scs_dsksorts,
		scs_sortspmax, scs_sqerrno, scs_isamerr, scs_fevers, 
		scs_sqlstatement)
    as
    select scb_sessionid,  odb_dbname, ft.txt, scb_lockmode, sdb_executions, 
		sdb_cumtime, sdb_bufreads, sdb_pagereads, sdb_bufwrites, 
		sdb_pagewrites, sdb_totsorts, sdb_dsksorts, sdb_sortspmax,
		scb_sqerrno, scb_iserrno, scb_feversion, cbl_stmt
    from syssqscb, syssdblock, outer sysconblock,
	outer ( sysopendb, flags_text ft )
        where scb_sessionid == odb_sessionid
          and scb_sessionid == sdb_sessionid
          and scb_sessionid == cbl_sessionid
	  and scb_feversion > '0.00'
          and sdb_sdbno == cbl_sdbno
          and sdb_iscurrent == 'Y'
          and odb_iscurrent == 'Y'
          and cbl_ismainblock == 'Y'
	  and ft.tabname == 'sysopendb'
	  and ft.flags   == odb_isolation
          ;