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.