IBM Mainframe Forum

by **hakghen** » Tue Nov 18, 2008 6:26 pm

Hello again friends,

I'm having to compile a program here (C) that, when used by a CICS transaction, will put some messages on the MQ, to, moreafter, extract them using another program, also in C. However, after I compile and define the transactions, i'm getting a MQOPEN RC (Reason Code) on the joblog, telling me this:

Select all

0024TPUT 20081116213714 UserID :ZCON039:
0024TPUT 20081116213714 Opening queue ZCON039.MAINFRAME.CONTEST.PUTQ
0024TPUT 20081116213714 MQOPEN RC: 2082

The source for the C program to put the messages is this as follows, I have to modify something to make it work and came here to ask some help if possible:

Select all

#include<stdio.h>
#include<cmqc.h>

#define qName ".MAINFRAME.CONTEST.PUTQ"

#define MsgCount 5

MQLONG persistence[5] =
{
MQPER_NOT_PERSISTENT,
MQPER_PERSISTENCE_AS_Q_DEF,
MQPER_PERSISTENT,
MQPER_PERSISTENT,
MQPER_NOT_PERSISTENT
};

MQLONG syncpoint[5] =
{
MQPMO_NO_SYNCPOINT,
MQPMO_SYNCPOINT,
MQPMO_SYNCPOINT,
MQPMO_NO_SYNCPOINT,
MQPMO_SYNCPOINT
};

MQLONG priority[5] =
{
0,
MQPRI_PRIORITY_AS_Q_DEF,
7,
0,
0
};

MQLONG msgLen[5] =
{
100,
1000,
100000,
1000,
100
};

int PutMessages(MQHCONN, MQHOBJ);

int main(int argc, char** argv)
{
MQOD myOD = {MQOD_DEFAULT};
MQHOBJ myOBJ;
MQHCONN myHConn;
MQLONG mqcc, mqrc;
char* pUser;
int retcode;

myHConn = MQHC_DEF_HCONN;
pUser = USERID;

printf("UserID :%s:\n", pUser);

myOD.ObjectType = MQOT_Q;
strcpy(myOD.ObjectName, pUser);
memcpy(myOD.ObjectName+strlen(pUser), qName, strlen(qName));

printf("Opening queue %s\n", myOD.ObjectName);

MQOPEN(myHConn, &myOD, MQOO_INPUT_SHARED, &myOBJ, &mqcc, &mqrc);
printf("MQOPEN RC: %d\n", mqrc);

if( mqrc != MQRC_NONE )
exit(3);

retcode = PutMessages(myHConn, myOBJ);

return(retcode);
}

int PutMessages(MQHCONN hConn, MQHOBJ hObj)
{
int iMsg;
MQMD myMD = {MQMD_DEFAULT};
MQPMO myPMO = {MQPMO_DEFAULT};
MQLONG mqcc, mqrc;
char* pBuffer;
int retcode;

retcode = 0;

pBuffer = (char*)malloc(100000);
if( pBuffer == NULL )
{
printf("unable to allocate buffer\n");
exit(21);
}

for( iMsg = 0; iMsg < MsgCount; iMsg++ )
{
printf("Putting message %d\n", iMsg);

myMD.Persistence = persistence[iMsg];
myMD.Priority = priority[iMsg];
memset( myMD.MsgId, 0, MQ_MSG_ID_LENGTH);
memset( myMD.CorrelId, 0, MQ_CORREL_ID_LENGTH);

myPMO.Options = syncpoint[iMsg];

memset(pBuffer, 0, 100000);
sprintf(pBuffer, "Message %d Length %d", iMsg, msgLen[iMsg]);

MQPUT(hConn, hObj, &myMD, &myPMO, msgLen[iMsg], pBuffer,
&mqcc, &mqrc);

printf("Message %d MQRC: %d\n", iMsg, mqrc);
retcode = (int)mqrc;
if( mqrc != MQRC_NONE )
{
EXEC CICS SYNCPOINT ROLLBACK;
break;
}
}

return(retcode);

}

Well, hope this information helps.
Thanks once again for all the help in advance!

[]'s,

Andre Luiz

by **hakghen** » Wed Nov 19, 2008 6:30 am

I found out that this error (RC: 2082) has this description.:

Select all

2082 (X'0822') MQRC_UNKNOWN_ALIAS_BASE_Q Explanation: An MQOPEN or MQPUT1 call was issued specifying an alias queue as the target, but the BaseQName in the alias queue attributes is not recognized as a queue name. This reason code can also occur when BaseQName is the name of a cluster queue that cannot be resolved successfully. Completion Code: MQCC_FAILED Programmer Response: Correct the queue definitions.

But the qName isn't, invalid, I already defined the MQ line to be used in this JCL.:

Select all

//ZCDEFQ JOB MSGCLASS=H
//* INSTRUCTIONS
//*
//* BEFORE SUBMITTING THIS JCL IT IS NECESSARY TO TAILOR IT. REPLACE
//* THE FOLLOWING WITH APPROPRIATE VALUES:
//* &JOBPREFIX - THE PREFIX FOR THIS JOB
//* &USER - THE USERID YOU ARE RUNNING UNDER
//*
//DEFQ EXEC PGM=CSQUTIL,PARM='MQ01'
//STEPLIB DD DISP=SHR,DSN=WMQ.V600.SCSQANLE
// DD DISP=SHR,DSN=WMQ.V600.SCSQAUTH
//OUTPUTA DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
COMMAND DDNAME(CMDINP)
//CMDINP DD *
DEFINE QLOCAL(ZCON039.MAINFRAME.CONTEST.PART3) -
MAXMSGL(10000) DEFPRTY(8) DEFPSIST(YES) PUT(DISABLED) REPLACE
DEFINE QALIAS(ZCON039.MAINFRAME.CONTEST.PUTQ) -
TARGQ(ZCON039.MAINFRAME.CONTEST.PART4) REPLACE
/*

I also tried changing the qName on the C code to ZCON039.MAINFRAME.CONTEST.PUTQ, but it gave me an unknown job, because as in stated on the code afterwards, it appends my username (ZCON039) to the qName (.MAINFRAME.CONTEST.PUTQ).

I'm into this error for 3 days and nothing... Any help?

Thanks in advance!

[]'s!

IBM Mainframe Forum

Problem on CICS Joblog regarding MQ

Problem on CICS Joblog regarding MQ

Re: Problem on CICS Joblog regarding MQ