when I tried to get a message from a queue, I am getting SOC4. How ever I could get the message successfully into the Buffer area, when the MQ-BUFFER-LENGTH is 32800 bytes instead of 2000000 bytes.
Can any one help me on this. The maximum message lenght i expect from the queueu is 2000000 bytes.
The queue specifications are as follows:
MQ-CURRENT-Q-DEPTH :000000057
MQ-MAX-MSG-LENGTH :004194304
MQ-MAX-Q-DEPTH :000010000
Code:
MOVE 2000000 TO MQ-BUFFER-LENGTH.
MOVE MQMI-NONE TO MQMD-MSGID.
MOVE MQCI-NONE TO MQMD-CORRELID.
*****WAIT FOR UNLIMITED TIME BEFORE SUCCESSFUL CALL
MOVE MQWI-UNLIMITED TO MQGMO-WAITINTERVAL
COMPUTE MQGMO-OPTIONS = MQGMO-WAIT + MQGMO-SYNCPOINT
+ MQGMO-CONVERT.
A storage reference exception occurred during execution of program
CSQBPTUB. The expected completion code is S0C4.
*******************************************
* Analysis of Error *
*******************************************
The system completion code of 0C4 is issued when the program attempts to
use storage that is not accessible.
A B E N D - A I D
**********************************************************************
* Program storage for CSECT CSQBPTUB *
* located in PDSE object module CSQBSTUB *
* Length is 000002D8 *
* Language is HLASM *
**********************************************************************
**********************************************************************
* The save area used to call this program is not available. *
**********************************************************************
**********************************************************************
* The save area used to call this program is not available. *
**********************************************************************
**********************************************************************
* 64-bit register values are not available for this type of save *
* area. *
**********************************************************************
**********************************************************************
* Storage of CSECT CSQBPTUB *
**********************************************************************