vb.net에서 MQ 서버에 연결

Question

나는 vb6에서 vb.net으로 응용 프로그램을 마이그레이션했습니다. MQ 서버에서 메시지를받는 것 외에는 문제가 없습니다. MQGet이 호출되면 2033 오류 (메시지 없음)가 발생합니다.
도 첨부됩니다. vb6에서 MQ로 보내고 vb.net에서 작동하지 않는 캡처 메시지가 도움이 되셨습니까? 당신이 2033을 얻을 경우 enter image description here

'*********************************** 
    'Send(MQPUT) to MQSeries and CICS 
    '*********************************** 
    PutMsgOpts = MQPMO_DEFAULT 

    MsgDesc = MQMD_DEFAULT 
    MsgDesc.Persistence = MQPER_PERSISTENT 
    MsgDesc.MsgId = MQMI_NONE.Value 
    MsgDesc.CorrelId = "AMQ!NEW_SESSION_CORRELID" 'if using MQBridge 
    MsgDesc.ReplyToQ = gReplyToQ 
    MsgDesc.ReplyToQMgr = gMQRplyMgrName 
    MsgDesc.Format_Renamed = MQFMT_STRING 

    'sPutMsg is composed of 8 byte program name(host/cics) 
    ' plus data desired to pass as string only (dfcommarea) 
    '************ MAX LENGTH IS 32776 ******************* 
    sPutMsg = gCICSPrgName & gsHost_Msg 
    If Len(sPutMsg) <> 32768 Then 
     sPutMsg = sPutMsg & Space(32768 - Len(sPutMsg)) 
    End If 

    sMsgIdGet.Value = MsgDesc.MsgId 

    '******************************************* 
    'MQClose the queue for request sent to host 
    '******************************************* 
    'HOST-BYPASS 
    MQCLOSE(Hconn, Hobj, MQCO_NONE, cC, Reason) 
    'HOST-BYPASS 

    '********************************************************** 
    'MQOpen the queue for receiving the request from the host 
    '********************************************************** 

    'set up the queue name 
    ObjDesc = MQOD_DEFAULT 
    ObjDesc.ObjectName = gReplyToQ 

    'Open 
    'HOST-BYPASS 
    MQOPEN(Hconn, ObjDesc, MQOO_INPUT_AS_Q_DEF Or MQOO_FAIL_IF_QUIESCING, Hobj, cC, Reason) 
    'HOST-BYPASS 
    'Hconn is set by MQseries in the Connect 

    '************************************** 
    'Receive (MQGET) from MQSeries and CICS 
    '************************************** 
    GetMsgOpts = MQGMO_DEFAULT 
    GetMsgOpts.Options = MQGMO_WAIT Or MQGMO_CONVERT 
    GetMsgOpts.WaitInterval = 10000 '20 seconds 

    MsgDesc = MQMD_DEFAULT 
    MsgDesc.Format_Renamed = MQFMT_STRING 
    MsgDesc.Persistence = MQPER_PERSISTENT 
    MsgDesc.CorrelId = sMsgIdGet.Value 'set correlId with MQGET msgid returned 
    MsgDesc.MsgId = MQMI_NONE.Value 
    MsgDesc.ReplyToQ = gReplyToQ 
    MsgDesc.ReplyToQMgr = gMQRplyMgrName 

    '** sGetMsg is composed of 8 byte program name(host/cics) 
    '** plus data desired to pass as string only (dfcommarea) 

    '************ MAX LENGTH IS 32776 ******************* 
    sGetMsg = New String(" ", 32768) 

    'Command to receive from to MQSeries and CICS 
    retryCount = 0 
    cC = MQCC_OK + 1 
    Reason = 2033 
    Do While cC <> MQCC_OK And Reason = 2033 
     MQGET(Hconn, Hobj, MsgDesc, GetMsgOpts, Len(sGetMsg), sGetMsg, readlen, cC, Reason) 
     retryCount = retryCount + 1 
     If retryCount > 1 Then Exit Do 
    Loop 
    '************************ 
    'MQClose queue for input 
    '************************ 
    MQCLOSE(Hconn, Hobj, MQCO_NONE, cC, Reason) 

Answer 1

는, 당신은 큐가 알고 있지만 당신이 검색하고자하는 메시지가 없습니다. runmqsc와 함 2 MQ Explorer 또는 일반 MQ 샘플을 사용하여 해당 큐에 메시지가 있는지 점검하고,있을 경우, 상관 ID가 프로그램이 제공하는 것과 일치하는지 점검하십시오.

메시지가없는 경우, 메시지를 보내고있는 CICS 프로그램이 실제로 수신했는지, 프로그램이 응답했는지 점검하십시오.

2033 문제는 코딩 문제 일 수 있지만 전환과 함께 변경된 구성 및 설정의 문제 일 수 있습니다. 큐 관리자가 다르게 구성되어 있고 채널이 다르게 구성되어있을 수 있습니다. 전체 체인을 확인하십시오. 희미한 MyNewCorrelID을 mqMsg.CorrelationId = Encoding.ASCII.GetBytes (MyNewCorrelID)라는 메시지를 넣어 사용할 수도 mqMsg.CorrelationId = mqMsg.MessageId 때 문자열 = "AMQ NEW_SESSION_CORRELID!"으로 :