RPG invocation
C*..1....:....2....:....3....:....4....:....5....:....6....:....7.. C CALLP MQPUT1(HCONN : OBJDSC : MSGDSC : C PMO : BUFLEN : BUFFER : C CMPCOD : REASON)The prototype definition for the call is:
D*..1....:....2....:....3....:....4....:....5....:....6....:....7.. DMQPUT1 PR EXTPROC('MQPUT1') D* Connection handle D HCONN 10I 0 VALUE D* Object descriptor D OBJDSC 360A D* Message descriptor D MSGDSC 364A D* Options that control the action of MQPUT1 D PMO 176A D* Length of the message in BUFFER D BUFLEN 10I 0 VALUE D* Message data D BUFFER * VALUE D* Completion code D CMPCOD 10I 0 D* Reason code qualifying CMPCOD D REASON 10I 0