Hi

I need do 2-phase commit MQ/DB2
I mean when I do MQCMIT db2 should be also commited.

I was told to use a special stub CSQBRRSI
I performed all the instructions but db2 commit is
not occored.

I was told the problem in DB2 stub ...

may be someone know what the stub is this and
how I can use it..

Thanks in advance

Огромное вам спасибо!
это по-видимому будет как раз то что нужно
но пока что при запуске (после добавления stub-а в линк)
получается такой вот абенд..

An error has occurred during a DB2 call,
sqlcode : -981

так что эти ф-ции вместе с DSNRLI в самой программе вызывать нужно ?

Делаю 3 последовательных вызова в главной Pl1 программе:

Dcl DsnRliRetCode bin fixed(31) init(0);
Dcl DsnRliReasCode bin fixed(31) init(0);
Call DsnRli('IDENTIFY ',
'KEYB56SS',
' ',
' ',
DsnRliRetCode,
DsnRliReasCode);

DSNRLIRETCODE= 0;
DSNRLIREASCODE= 0;

Call DsnRli('SIGNON ',
'KEYB56SS',
' ',
' ',
DsnRliRetCode,
DsnRliReasCode);
DSNRLIRETCODE= 200;
DSNRLIREASCODE= 12657156;

Call DsnRli('CREATE THREAD ',
'KEYB56SS',
' ',
' ',
DsnRliRetCode,
DsnRliReasCode);
DSNRLIRETCODE= 200;
DSNRLIREASCODE= 12657156;

после чего обращаюсь к DB2
получаю всё тот же -981

факт что коды после SIGNON и CREATE THREAD не особо хороши
но не совсем понятно как их улучшить..

чем дальше тем хуже..
после IDENTIFY
00F30006
Explanation: A failure occurred while processing the 'Subsystem Name' during connection processing. In the abend case, connection processing failed when accessing the 'Subsystem Name' in the caller's PSW key. In the nonabend case, MVS was unable to locate a DB2 subsystem with the specified name.

This reason code is issued by the following CSECT: DSN3ID00

System Action: The request is not processed.

User Response: A dump should be taken in your recovery routine for abend analysis. If the named subsystem could not be found, verify that the correct subsystem name was specified. Call attachment users should note that the Translate function cannot be invoked for this reason code.

System Programmer Response: See Problem Determination.

Problem Determination: If the named subsystem could not be found, scan the MVS system log to verify that it was initialized during MVS IPL processing.

If this reason code was specified in register 15 on an abend, check that the subsystem name value is addressable in the caller's PSW key.

причём что же это за 'Subsystem Name' вообще не ясно но вчера работало с урезанным именем программы

остальные ошибки те же..

а вы случаем не на plI это использовали?
не могли бы ваш код показать ?

Ещё вычитал что перед SIGNON не мешало бы вызвать некий макро RACROUTE
стоит ли лезть в такие дебри?

с подсистемой разобрался
и теперь я оказывается is not authorized to connect to this DB2 subsystem...

00F30013 при call dsnrli(Identify..

всё кажись почти разобрался! админ дал права и всё частично заработало! :))

только вот в начале программы вызывается подпрограмма возвращающая sessionid т.е current timestamp
возвращается ерунда
в подпрограмме делается простой exec sql set...

в основной программе вызывается ещё одна подпрограмка которая делает select из таблицы другой подсистемы - и это тоже не работает..

чувствую нужно выполнить ещё парочку DSNRLI как-то грамотно..

наврал по поводу второй подпрограммы - она из той же подсистемы..

Зработало!!!

Большое вам спасибо!!!