In addition to adding WebSphere MQ calls to your program, you will need to define a message buffer and any other variables in Working-Storage. For example:
01 QM-NAME PIC X(48) VALUE SPACES. 01 HCONN PIC S9(9) BINARY. 01 COMPCODE PIC S9(9) BINARY. 01 REASON PIC S9(9) BINARY. 01 OPTIONS PIC S9(9) BINARY. 01 HOBJ PIC S9(9) BINARY. 01 BUFFER-LENGTH PIC S9(9) BINARY. 01 max-buff-length PIC S9(9) BINARY. 01 BUFFER PIC X(1024).