home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 December / PCWorld_1998-12_cd.iso / software / sybase / ASA / asa60.exe / data1.cab / scripts_files / dbconsol.sql < prev    next >
Text File  |  1998-07-27  |  5KB  |  152 lines
  1. create procedure sa_console_userinfo( IN connidparm int default NULL )  
  2.     result (  
  3.         Number             int,   
  4.         Userid             varchar(255),   
  5.         ConnName           varchar(255),   
  6.     DBName         varchar(255),
  7.     LastReq               varchar(255),
  8.     LastReqTime       varchar(255),
  9.     BlockedOnUser       varchar(255),
  10.         CommLink           varchar(255),
  11.         NodeAddr           varchar(255)
  12.         )  
  13. begin  
  14.     declare connid         int;  
  15.     declare connname       varchar(255);
  16.     declare userid       varchar(255);
  17.     declare dbname       varchar(255);
  18.     declare lastreq       varchar(255);
  19.     declare lastreqtime       varchar(255);
  20.     declare blockedon       int;
  21.     declare blockedonuser  varchar(255);
  22.     declare commlink       varchar(255);
  23.     declare nodeaddr       varchar(255);
  24.  
  25.     declare local temporary table t_conn_info(   
  26.         C_Number            int,   
  27.         C_ConnName          varchar(255),   
  28.         C_Userid            varchar(255),   
  29.     C_DBName        varchar(255),   
  30.         C_LastReq           varchar(255),   
  31.         C_LastReqTime       varchar(255),   
  32.     C_BlockedOnUser        varchar(255),
  33.         C_CommLink          varchar(255),
  34.         C_NodeAddr          varchar(255)
  35.     ) in SYSTEM;  
  36.  
  37.     if( connidparm is not NULL ) then  
  38.         set connid = connidparm;  
  39.     else   
  40.     set connid = next_connection( connid, NULL );  
  41.     end if;  
  42.     lbl:  
  43.     loop  
  44.         if( connid is NULL )then  
  45.             leave lbl;
  46.         end if;  
  47.         set userid = connection_property( 'Userid', connid );
  48.         set connname = connection_property( 'Name', connid );  
  49.         set dbname = db_property( 'Name', cast (connection_property( 'DBNumber', connid ) as int) );  
  50.         set lastreq = connection_property( 'ReqType', connid );
  51.         set lastreqtime = connection_property( 'LastReqTime', connid ); 
  52.         set blockedon = cast( connection_property( 'BlockedOn', connid ) as int);  
  53.     if( blockedon = 0 ) then
  54.         set blockedonuser = '';
  55.     else
  56.         set blockedonuser = connection_property( 'Userid', blockedon );
  57.     end if;
  58.         set commlink = connection_property( 'CommLink', connid ); 
  59.         set nodeaddr = connection_property( 'NodeAddress', connid ); 
  60.     // print userid;
  61.         insert into t_conn_info values (  
  62.             connid, connname, userid, dbname, 
  63.         lastreq, lastreqtime, blockedonuser, commlink, nodeaddr
  64.         );  
  65.     if( connidparm is not NULL ) then  
  66.         leave lbl;  
  67.     else   
  68.         set connid = next_connection( connid, NULL );  
  69.     end if;  
  70.     end loop lbl;  
  71.     select C_Number, C_ConnName, C_Userid, C_DBName, 
  72.            C_LastReq, C_LastReqTime, C_BlockedOnUser, C_CommLink, C_NodeAddr
  73.        from t_conn_info;  
  74. end 
  75. go
  76.  
  77. create procedure sa_console_msginfo( IN startrow int default 0 )  
  78.     result (  
  79.     Row            int,
  80.         Msg             varchar(255)
  81.         )  
  82. begin  
  83.     declare row         int;  
  84.     declare maxrow         int;  
  85.     declare msg     varchar(255);
  86.  
  87.     declare local temporary table t_msg_info(   
  88.         C_Row             int,   
  89.         C_Message             varchar(255)
  90.     ) in SYSTEM;  
  91.  
  92.     if( startrow is not NULL ) then  
  93.         set row = startrow;  
  94.     else   
  95.     set row = 0;  
  96.     end if;  
  97.     set maxrow = property( 'maxmessage' );
  98.     
  99.     lbl:  
  100.     loop  
  101.         if( row >= maxrow )then  
  102.             leave lbl;
  103.         end if;  
  104.         set msg = property( 'Message', row );
  105.         insert into t_msg_info values (  
  106.             row, msg
  107.         );  
  108.     set row = row + 1;
  109.     end loop lbl;  
  110.     select C_Row, C_Message
  111.        from t_msg_info;  
  112. end
  113. go
  114.  
  115. create procedure sa_console_controlinfo( IN connidparm int default NULL )  
  116.     result (  
  117.     CheckpointUrgency   int,   
  118.     RecoveryUrgency        int
  119.         )  
  120. begin  
  121.     select isnull(property( 'CheckpointUrgency' ), 0 )
  122.            ,isnull(property( 'RecoveryUrgency' ), 0 )
  123.        // ,isnull(property( 'QuittingTime' ), '' )
  124.        // ,isnull(property( 'TimeOutNoRequest' ), 0 )
  125.        // ,isnull(property( 'EncryptionEnabled' ), '' )
  126.        // ,isnull(property( 'MultiRecordFetching' ), '' )
  127.        // ,isnull(property( 'ConnectionsDisabled' ), '' )
  128.        from dummy;
  129. end 
  130. go
  131. %    config_info->connections_disabled     = _cs_option( _CONNECTIONS_DISABLED );
  132. %    config_info->logging             = _cs_option( LOGGING );
  133. %    config_info->blocking             = _cs_option( BLOCKING );
  134. %    config_info->encryption         = Encryption;
  135. %    config_info->client_idle_shutdown     = TimeOutNoRequest;
  136. %    config_info->quitting_time         = Quitting_time;
  137.  
  138. %            connection_property( 'Name', connid ),  
  139. %            connection_property( 'Userid', connid ),  
  140. %            connection_property( 'DBNumber', connid ),  
  141. %            connection_property( 'ReqType', connid ),  
  142. %            connection_property( 'LastReqTime', connid ),  
  143. %            connection_property( 'BlockedOn', connid ),  
  144. %            connection_property( 'CommLink', connid ),  
  145. %            connection_property( 'ProcessTime', connid ),  
  146. %            connection_property( 'Port', connid ),  
  147. %            connection_property( 'NodeAddress', connid ),  
  148. %            connection_property( 'LastIdle', connid ),  
  149. %            connection_property( 'CurrTaskSw', connid ),  
  150. %            connection_property( 'UncmtOps', connid )  
  151.  co
  152.