RPG invocation
C*..1....:....2....:....3....:....4....:....5....:....6....:....7.. C CALLP MQDISC(HCONN : CMPCOD : REASON)The prototype definition for the call is:
D*..1....:....2....:....3....:....4....:....5....:....6....:....7.. DMQDISC PR EXTPROC('MQDISC') D* Connection handle D HCONN 10I 0 D* Completion code D CMPCOD 10I 0 D* Reason code qualifying CMPCOD D REASON 10I 0