MQSeries.net :: View topic - IBM Websphere MQ v 5.3 Reason code 168296448

vandanakoleshwar · Posted: Tue Feb 10, 2004 6:31 am Post subject:

Hi,
I have installed IBM Websphere MQ ver 5.3. I am trying to excute cobol program using the Fujitsu compiler. But I get a run time error:
The reason code is 168296448 and the compcode is 033554432.
Where do i see an explanation of the same? I had executed the same programs with MQSeries 5.1 and it worked fine.
I'm sending the code..
000010*
000020*===============================================================
000030 IDENTIFICATION DIVISION.
000040*===============================================================
000050*
000060 PROGRAM-ID. MQWRITE.
000070*
000080* Module Name : MQWRITE
000090*
000100* Description : Program to process requests.
000110*
000120* Function : This program receives a request message
000130* and performs the "business logic"
000140* returns a reply message.
000150*
000160* *************************************************************
000170*
000180*===============================================================
000190 ENVIRONMENT DIVISION.
000200*===============================================================
000210 DATA DIVISION.
000220*===============================================================
000230 WORKING-STORAGE SECTION.
000240* GENERAL WORKING-STORAGE FIELDS
000250*---------------------------------------------------------------
000260*
000273*
000274 01 W01-MQM PIC X(4

VALUE 'QM2'.
000275 01 W01-OBJECT PIC X(4

VALUE 'Q2'.
000276 01 W01-HCONN PIC S9(9) BINARY.
000277 01 W01-HOBJ PIC S9(9) BINARY.
000278 01 W01-OPTIONS PIC S9(9) BINARY.
000280 01 W01-COMPCODE PIC S9(9) BINARY.
000281 01 W01-REASON PIC S9(9) BINARY.
000282 01 W01-OUTPUT-BUFFER PIC X(100) VALUE 'VANDANA'.
000283 01 W01-OUTPUT-BUFFER-LENGTH PIC S9(9) BINARY VALUE 100.
000284
000285 01 CLS-OPTIONS PIC S9(9) BINARY.
000286
000650 01 MQM-OBJECT-DESCRIPTOR.
000660 COPY "CMQODV.CPY".
000670
000680 01 MQM-MESSAGE-DESCRIPTOR.
000690 COPY "CMQMDV.CPY".
000700
000710 01 MQM-PUT-MESSAGE-OPTIONS.
000720 COPY "CMQPMOV.CPY".
000730
000740 01 MQM-CONSTANTS.
000750 COPY "CMQV.CPY".
000760*===============================================================
000770 PROCEDURE DIVISION.
000780*===============================================================
000790*
000800 0000-MAIN.
000810
000811 DISPLAY "CONNECTING TO ..... " W01-MQM.
000820 PERFORM 1000-MQ-CONNECT THRU 1000-MQ-CONNECT-EXIT.
000830 IF W01-COMPCODE NOT = MQCC-OK
000831 DISPLAY "COULD NOT CONNECT " W01-REASON
000832 DISPLAY "The compcode is " W01-COMPCODE
000840 STOP RUN.
000850
000860 PERFORM 2000-MQ-OPEN THRU 2000-MQ-OPEN-EXIT.
000870 IF W01-COMPCODE NOT = MQCC-OK
000880 PERFORM 5000-DISCONNECT THRU 5000-DISCONNECT-EXIT.
000890
000900 PERFORM 3000-MQ-PUT THRU 3000-MQ-PUT-EXIT.
000910 IF W01-COMPCODE NOT = MQCC-OK
000920 PERFORM 5000-DISCONNECT THRU 5000-DISCONNECT-EXIT.
000930 STOP RUN.
000940
001010* -------------------------------------------------------------
001020* End of main logic
001030* -------------------------------------------------------------
001050
001060 1000-MQ-CONNECT.
001070
001080 CALL 'MQCONN' USING W01-MQM
001090 W01-HCONN
001100 W01-COMPCODE
001110 W01-REASON.
001190
001200 1000-MQ-CONNECT-EXIT.
001210 EXIT.
001220
001230*
001240* Open output queue
001250*
001260 2000-MQ-OPEN.
001270
001280 MOVE MQOT-Q TO MQOD-OBJECTTYPE.
001290 MOVE W01-OBJECT TO MQOD-OBJECTNAME.
001300 COMPUTE W01-OPTIONS = MQOO-OUTPUT +
001310 MQOO-FAIL-IF-QUIESCING.
001320*
001330 CALL 'MQOPEN' USING W01-HCONN
001340 MQOD
001350 W01-OPTIONS
001360 W01-HOBJ
001370 W01-COMPCODE
001380 W01-REASON.
001390
001470 2000-MQ-OPEN-EXIT.
001480 EXIT.
001490
001500*
001510* Write a message to a queue.
001520*
001530 3000-MQ-PUT.
001540
001750 MOVE MQMT-DATAGRAM TO MQMD-MSGTYPE.
001751 MOVE MQCI-NONE TO MQMD-CORRELID.
001752 MOVE MQMI-NONE TO MQMD-MSGID.
001755 MOVE 5 TO MQMD-PRIORITY.
001756 MOVE MQPER-NOT-PERSISTENT TO MQMD-PERSISTENCE.
001757 COMPUTE MQPMO-OPTIONS = MQPMO-NO-SYNCPOINT +
001758 MQPMO-DEFAULT-CONTEXT.
001760*
001761 CALL 'MQPUT' USING W01-HCONN
001762 W01-HOBJ
001763 MQMD
001764 MQPMO
001765 W01-OUTPUT-BUFFER-LENGTH
001766 W01-OUTPUT-BUFFER
001767 W01-COMPCODE
001768 W01-REASON.
001769 IF W01-COMPCODE NOT = MQCC-OK
001770 DISPLAY 'COULD NOT PUT MESSAGE'.
001772
001773
001777 3000-MQ-PUT-EXIT.
001778 EXIT.
001779
001780*
001790* Close output queue
001800*
001810 5100-MQ-CLOSE-OUT.
001820
001830 MOVE MQCO-NONE TO CLS-OPTIONS.
001840*
001850 CALL 'MQCLOSE' USING W01-HCONN
001860 W01-HOBJ
001870 CLS-OPTIONS
001880 W01-COMPCODE
001890 W01-REASON.
001980
001990 5100-MQ-CLOSE-OUT-EXIT.
002000 EXIT.
002010
002011 5000-DISCONNECT.
002012 PERFORM 5100-MQ-CLOSE-OUT THRU 5100-MQ-CLOSE-OUT-EXIT.
002013 PERFORM 5200-MQ-DISCONNECT THRU 5200-MQ-DISCONNECT-EXIT.
002014
002015 5000-DISCONNECT-EXIT.
002016 EXIT.
002017
002020*
002030* Disconnect from the queue manager
002040*
002050 5200-MQ-DISCONNECT.
002060
002070 CALL 'MQDISC' USING W01-HCONN
002080 W01-COMPCODE
002090 W01-REASON.
002100
002110*
002190 5200-MQ-DISCONNECT-EXIT.
002200 EXIT.
002210*
002350

Rgds,
Vandana