Question

我是db2的新手。是否有查询来检查DB2中是否记录了表。如果记录了日记的名称。

我找到了这个查询：找到MJATST库中的所有期刊。

SELECT * FROM TABLE (QSYS2.OBJECT_STATISTICS('MJATST ','JRN') ) AS X

但是我找不到与模式中的表类似的东西。

Answer 1

我不知道任何事情，快速搜索可能的目录并没有找到方向。
http://www-01.ibm.com/support/knowledgecenter/ssw_ibm_i_71/db2/rbafzcatalog.htm

日志信息可在检索对象描述（QUSROBJD）API中找到 http://www-01.ibm.com/support/knowledgecenter/ssw_ibm_i_71/apis/qusrobjd.htm

您可以将该API包装在UDF中。

Answer 2

以下是一个CLLE源的示例，至少可以使用v5r3 [没有利用更新的CL支持以使代码更简洁]来创建绑定的ILE CL * PGM对象作为标量函数调用[如前所述]由CL源之前的块注释中显示的CREATE FUNCTION定义给SQL;一个非常简单的测试套件验证了功能：

features

函数的示例调用：

 /* create function jrnOfDBF                            */
 /* ( table_name varchar(128)                           */
 /* , table_libr varchar( 10)                           */
 /* ) returns char(20)                                  */
 /* language PLI -- a lie to allow VARCHAR inputs       */
 /* specific        jrnOfDBF                            */
 /* not deterministic                                   */
 /* no sql  returns null on null input                  */
 /* disallow parallel  not fenced no external action    */
 /* parameter style SQL                                 */
 /* external name   jrnOfDBF                            */
 /* */
 /* CRTBNDCL PGM(JRNOFDBF) SRCMBR(..following_source..) */
 /* */
 pgm (&tblnam &tbllib +                                   
      &rtnval &rtnind &sqlste &udfnam &specnm &diagmg)    
 dcl &tblnam *char 130                                    
 dcl &tbllib *char  12                                    
 dcl &rtnval *char  20                                    
 dcl &rtnind *int    2                                    
 dcl &sqlste *char   5                                    
 dcl &udfnam *char 141                                    
 dcl &specnm *char 130                                    
 dcl &diagmg *char  72                                    
 /* Pgm Vars */                                           
 dcl &lngnam *char 128                    
 dcl &lnglib *char  10                    
 dcl &dbflib *char  10                    
 dcl &dbfobj *char  10                    
 dcl &jrnsts *char   1                    
 dcl &jrnlib *char  10                    
 dcl &jrnobj *char  10                    
 dcl &strlen *int    4                    
 dcl &qualnm *char  20                    
 monmsg cpf0000 exec(goto badthing)       
 main:                                    
  chgvar &strlen (%bin(&tbllib 1 2))      
  chgvar &lnglib (%sst(&tbllib 3 &strlen))
  chgvar &strlen (%bin(&tblnam 1 2))      
  chgvar &lngnam (%sst(&tblnam 3 &strlen))
  call qdbrtvsn (&qualnm &lngnam &strlen &lnglib x'0000000000000000') 
   /* 1  Qualified object name              Output   Char( 20)      */
   /* 2  Long object name                   Input    Char(128)      */
   /* 3  Length of long object name         Input    Binary(4)      */
   /* 4  Library name                       Input    Char( 10)      */
   /* 5  Error code                         I/O      Char( * )      */
  chgvar  &dbflib (%sst(&qualnm 11 10))                               
  chgvar  &dbfobj (%sst(&qualnm 01 10))                               
  rtvobjd &dbflib/&dbfobj *file aspdev(*) +                           
     jrnsts(&jrnsts) jrn(&jrnobj) jrnlib(&jrnlib)                     
  if (&jrnsts *eq '1') then(do)                                       
   chgvar &rtnval (&jrnobj *cat &jrnlib) /* qualified name of jrn */  
  enddo                                                               
  /* else &rtnval is already blanks */                                
  chgvar &rtnind 0                                                    
 mainend:                                                             
  return                                                              
 badthing:                                                            
  chgvar &rtnind -1                                                   
  chgvar &sqlste 'JRN99'                                              
  chgvar &diagmg 'Unable to retrieve Obj Info; see joblog'            
  sndpgmmsg *n cpf9898 qcpfmsg &diagmg tomsgq(*topgmq) topgmq(*prv) + 
     msgtype(*diag)                                                   
  goto mainend                                                        
 endpgm

交互式Start SQL（STRSQL）显示报告将显示的内容：

 select jrnOfDBF('SYSROUTINES', 'QSYS2') from qsys2.qsqptabl

注意：返回的空白值表示当前未记录 或 从未记录过，而任何非空值都应该是标准格式的期刊的合格名称：....+....1....+....2 JRNOFDBF QSQJRN QSYS2 ******** End of data ********

Answer 3

我对文件（表）使用 DSPFD 命令..它详细说明了有关文件（表）的一堆信息..

MBJRNL - （N / Y）表是否有与之关联的日记

如果是，那么您可以从后续列中获取日记信息，否则此列将为空

MBJRNM - 期刊名称

MBJRLB - 期刊架构

希望这可以帮助任何寻找类似东西的人!!

查询以检查DB2中是否记录了表

3 个答案: