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