Home
COBOL invocation
CALL 'MQPUT' USING HCONN, HOBJ, MSGDESC, PUTMSGOPTS, BUFFERLENGTH, BUFFER, COMPCODE, REASON.Declare the parameters as follows:
** Connection handle 01 HCONN PIC S9(9) BINARY. ** Object handle 01 HOBJ PIC S9(9) BINARY. ** Message descriptor 01 MSGDESC. COPY CMQMDV. ** Options that control the action of MQPUT 01 PUTMSGOPTS. COPY CMQPMOV. ** Length of the message in BUFFER 01 BUFFERLENGTH PIC S9(9) BINARY. ** Message data 01 BUFFER PIC X(n). ** Completion code 01 COMPCODE PIC S9(9) BINARY. ** Reason code qualifying COMPCODE 01 REASON PIC S9(9) BINARY.
Home