IDENTIFICATION DIVISION. 
       PROGRAM-ID. MQMDBTST.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 MY-MQ-CONSTANTS.
          COPY CMQV.
       77  WS-MSG-LENGTH       pic 9(8) value 310.
       01 WS-COMMAREA.
          05 WS-COMMAREA-A    PIC X(0200).
          05 WS-COMMAREA-B    PIC X(0100).
          05 WS-COMMAREA-C    PIC X(0010).
       
       PROCEDURE DIVISION.
           DISPLAY 'MQMDBTST triggered'.
           EXEC CICS RETRIEVE
                NOHANDLE
                INTO   (WS-COMMAREA)
                LENGTH (WS-MSG-LENGTH)
                END-EXEC.
           
           DISPLAY 'MQMDBTST ' WS-COMMAREA(1:WS-MSG-LENGTH)
           DISPLAY 'MQMDBTST end'.
           
           EXEC CICS RETURN END-EXEC.