harkne
11-02-20, 10:24
Hallo zusammen,
ich führe nachfolgendes SQL aus, welches mir die offenen Meldungen in der QSYSOPR zurück geben soll
SELECT From_Job, Message_Key, Message_Timestamp FROM
qsys2.message_queue_info t1 WHERE t1.message_queue_name = 'QSYSOPR'
and t1.message_type = 'INQUIRY' and not exists (select * from
qsys2.message_queue_info as t2 where t2.message_queue_name =
'QSYSOPR' and t2.associated_message_key = t1.message_key );
Message_key ist varbinary(4)
Mein FETCH sieht wie folgt aus:
c/exec sql
c+ fetch next from c_msg into
c+ :Sql_Job :w@NullJob,
c+ :Sql_MsgKey :w@NullMsgKey,
c+ :Sql_MsgTS :w@NullMsgTS
c/end-exec
Wie muss ich die Variable Sql_MsgKey im RPG definieren damit beim FETCH nicht der Fehler "Variable SQL_MSGKEY nicht kompatibel oder Wert zu lang." kommt ?
Viele Grüße Harald
ich führe nachfolgendes SQL aus, welches mir die offenen Meldungen in der QSYSOPR zurück geben soll
SELECT From_Job, Message_Key, Message_Timestamp FROM
qsys2.message_queue_info t1 WHERE t1.message_queue_name = 'QSYSOPR'
and t1.message_type = 'INQUIRY' and not exists (select * from
qsys2.message_queue_info as t2 where t2.message_queue_name =
'QSYSOPR' and t2.associated_message_key = t1.message_key );
Message_key ist varbinary(4)
Mein FETCH sieht wie folgt aus:
c/exec sql
c+ fetch next from c_msg into
c+ :Sql_Job :w@NullJob,
c+ :Sql_MsgKey :w@NullMsgKey,
c+ :Sql_MsgTS :w@NullMsgTS
c/end-exec
Wie muss ich die Variable Sql_MsgKey im RPG definieren damit beim FETCH nicht der Fehler "Variable SQL_MSGKEY nicht kompatibel oder Wert zu lang." kommt ?
Viele Grüße Harald