Запрос, чтобы проверить, ведется ли таблица в DB2
Я новичок в db2. Есть ли запрос, чтобы проверить, ведется ли таблица в DB2 или нет. если оно заносится в журнал, как называется журнал.
Я нашел этот запрос: Найти все журналы в библиотеке MJATST.
SELECT * FROM TABLE (QSYS2.OBJECT_STATISTICS('MJATST ','JRN') ) AS X
но я не смог найти что-то похожее на таблицы в схеме.
3 ответа
Я использовал команду DSPFD для файла (таблицы). Она определяет кучу информации о файле (таблице).
MBJRNL - (Н / Д) есть ли у таблицы журнал, связанный с ней
если Y, то вы можете получить информацию журнала из следующего столбца, иначе этот столбец будет нулевым
MBJRNM - название журнала
MBJRLB - схема журнала
надеюсь, это поможет любому, кто ищет что-то подобное!!
Ниже приведен пример источника CLLE, который можно использовать, по крайней мере, начиная с v5r3 [преимущества более новой поддержки CL не используются для создания более краткого кода] для создания связанного объекта ILE CL *PGM, который вызывается как скалярная функция [как было ранее] определена для SQL с помощью CREATE FUNCTION, показанной в комментариях блока, предшествующих источнику CL; очень простой набор тестов проверил функциональность:
/* 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
Пример вызова функции:
select jrnOfDBF('SYSROUTINES', 'QSYS2') from qsys2.qsqptabl
Что будет показывать интерактивный отчет о запуске SQL (STRSQL):
....+....1....+....2
JRNOFDBF
QSQJRN QSYS2
******** End of data ********
Примечание. Значение возвращаемых пропусков указывает либо на то, что в настоящий момент не занесено в журнал, либо не занесено в журнал, тогда как любое непустое значение должно быть квалифицированным именем журнала в стандартной форме: '10bytObjNm10bytLibNm'
Я не знаю ни о каком, и быстрый поиск вероятных каталогов не нашел пути.
http://www-01.ibm.com/support/knowledgecenter/ssw_ibm_i_71/db2/rbafzcatalog.htm
Информация о журнале доступна в API Получить описание объекта (QUSROBJD) http://www-01.ibm.com/support/knowledgecenter/ssw_ibm_i_71/apis/qusrobjd.htm
Вы можете обернуть этот API в UDF.